题目

质数又称素数，是指除了1和本身之外不再有其他因数的数。如果两个质数的差为2，则这两个质数称为生质数对。编写VB程序实现：单击“显示李生质数对”按钮Command1，在列表框List1中显示100以内的所有孪生质数对（运行效果如图所示）。实现上述功能的VB代码如下，请完成以下问题。 （1） 要在程序运行时窗体Form1标题显示“李生质数对”，则可在Form_Load ( )事件过程中添加的代码是（单选，填字母：A .Form1. Caption = “孪生质数对” /B .Text.text “李生质数对”/C .Label. Caption = “李生质数对”）。 （2） 程序代码中的加框处语句有错，请改正。 （3） 在划线处补充完成程序代码。 Dim a(1 To 50) As Integer Private Sub Command1_Click ( ) Dim i As Integer k=0: i=3 Do While i <= 100     If           Then  ‘改错         k = k+1         a(k) = i              ①               i = i+2 Loop For i=2 To k     If       ②        Then         List1. AddItem str(a(1-1))+“和”+str(a(i))     End If Next i End sub Function prime( x As Integer) As Boolean    ‘判断是不是质数 prime = True For i=2 To Int (Sqr(x))     If x Mod i = 0 Then prime= False : Exit For Next i End Function ① ②  答案： 【1】A prime(i)=Tnue或 prime 【1】End If【2】a(i)-a(i-1)=2

查看本题答案和解析