2. 计算机
  3. 下列程序的功能是：当发生窗体的单击事件时，求出3～1000之间的所有素数的和以及所有能被3和5整除的数的和(素数是指只能被1和它本身整除的数)，并在窗体上把这两个和显示出来。 Private Sub Form_Click() Dim s1

下列程序的功能是：当发生窗体的单击事件时，求出3～1000之间的所有素数的和以及所有能被3和5整除的数的和(素数是指只能被1和它本身整除的数)，并在窗体上把这两个和显示出来。 Private Sub Form_Click() Dim s1

admin2009-02-13  40
问题 下列程序的功能是：当发生窗体的单击事件时，求出3～1000之间的所有素数的和以及所有能被3和5整除的数的和(素数是指只能被1和它本身整除的数)，并在窗体上把这两个和显示出来。
   Private Sub Form_Click()
      Dim s1 As Long，s2 As Long
      Dim i As Integer
      For i=3 To 1000
         If prime(i) Then
            s1=s1+i
         Else If【  】Then
            s2=s2+i
         End If
   Next i
   Print s1，s2
    End Sub
   Public Function prime(ByVal n As Integer)As Boolean
      Dim j As Integer
      For j=2 To n-1
         If n Mod j=0 Then
            Exit For
         End If
   Next j
   If j=n Then
   【  】
   Else
   prime=False
   End If
   End Function
选项
答案i Mod 3=0 And i Mod 5=0 , prime=True
解析 本题Prime()函数的功能是判断形参n是否为素数，若是，则返回True，不是则返回False。具体分析请参看有关章节。要使函数返回一个值，必须在函数中给函数名赋值，故[12]处应填“prime=True”。发生Form_Click事件时，将把3～1000之间的所有素数加到s1中，把能被3和5整除的数加到s2中，在循环中首先调用Prime()函数判断循环变量是否为素数，若是，则把它加到s1，否则应该判断循环变量i是否能被3和5整除，若能，则把它加到s2中，所以[11]处应填“i Mod 3=0 And i Mod 5=0”。
转载请注明原文地址:https://www.kaotiyun.com/show/HE1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)