急求编vb程序

来源：百度知道 编辑：UC知道 时间：2024/06/05 14:39:56
刚刚开始学，老师让编个小程序。程序内容：输入者输入一个数，然后从listbox中显示从0到这个数里所有的素数。然后lable1中显示这些素数之和，在lable2中显示有多少个这些素数。
请高手帮忙，我实在不会。

在窗体先添加控件 List1 ， Label1 ，Label2，Command1

Private Sub Command1_Click()
Dim a As String
a = InputBox("输入一个整数")
If a = "" Then Exit Sub
If Not (IsNumeric(a)) or CSng(a)<0 Then MsgBox "请输入一个正整数", 0, "提示": Exit Sub

Dim n As Long
Dim i As Long
Dim j As Long
Dim k As Long
Dim bok As Boolean
Dim Sum As Long
Dim Count As Long

List1.Clear
n = CLng(a)
Sum = 0
Count = 0
For i = 2 To n
k = Sqr(i)
bok = True
For j = 2 To k
If (i Mod j) = 0 Then bok = False: Exit For
Next j
If bok Then
Count = Count + 1
Sum = Sum + i
List1.AddItem i, List1.ListCount
End If
Next i

Label1.Caption = "和: " & CStr(Sum)
Label2.Caption = "总共: " & CStr(Count)

End Sub