1.在窗体上设计三个名称分别为Text1、Text2、Text3的文本框，一个名称为Comm

Question

1.在窗体上设计三个名称分别为Text1、Text2、Text3的文本框，一个名称为Command1，标题为“计算”的命令按钮（如图所示）。要求程序运行后，在Text1和Text2中分别输入两个整数，单击“计算”按钮后，可把这两个整数之间的所有素数（包含Text1和Text2中的两个整数）累加起来并在Text3中显示出来。保存的窗体名称为ks_1.frm，工程文件名为ks_1.vbp。

Answer 1

Private Sub Command1_Click()

a = Val(Text1)

b = Val(Text2)

For i = a To b

If prime(i) Then Text3 = Text3 & i & vbCrLf

Next i

End Sub

Private Sub Form_Load()

Text1 = ""

Text2 = ""

Text3 = ""

End Sub

Function prime(n) As Boolean

prime = False

For i = 2 To Sqr(n)

If n Mod i = 0 Then Exit Function

Next i

prime = n > 1

End Function