在窗体上画一个名称为Command1的命令按钮和一个名称为List1的列表框。如下图所示程序的功能是:单击命令按钮后,程序用“筛选法”求出1-100之间的全部素数。并将素数在列表框中显示出来。根据题意,填空处应选择

admin2009-02-13  39

问题 在窗体上画一个名称为Command1的命令按钮和一个名称为List1的列表框。如下图所示程序的功能是:单击命令按钮后,程序用“筛选法”求出1-100之间的全部素数。并将素数在列表框中显示出来。根据题意,填空处应选择  

                     Option Base 1        Dim a(100)As Integer        Private Sub Command1_Click()              n = 100              For i = 2 To Sqr(n)                    For j = i + 1 To n                          If j Mod i = 0 And a(j)<> 0 Then a(j)= 0                    Next j              Next i              For i = 1 To n                    If a(i)<> 0# Then              Next i        End Sub        Private Sub Form_Load ()              For i = 1 To 100                    a (i)=i              Next i        End Sub

选项 A、List1.Text=Str(a(i))+ vbCrLf
B、List1.Text=Str(a(i))+ vbCrLf
C、List1.AddItem a(i)
D、List1.AddItem=a(i)

答案4

解析 程序的功能是:先将其下标值作为数组的初值,然后,用2去除它后面的每个数,如能被整除,就将其值赋0,再用3、4.....去除它后面的每个数,也是如能被整除,就将其值赋0,数组剩下的非0值就是素数。最后将其素数在List1列表框中显示出来。注意此题中的数组a是公共变量。向列表框添加内容时,选项C是正确的。
转载请注明原文地址:https://jikaoti.com/ti/Rrq0FFFM
0

最新回复(0)