两道计算机的题目，用VB来做。

1.求一个整数是否为素数（枚举算法）
2求1000之内所有素数之和

追问：有些东西么看懂。。。。Wend..Exit Do
..While i < 1000.. 
i & vbTab;

都没学过。。

答案：1.

Private Function prime(ByVal n As Long) As Boolean  '返回值=True是素数，False不是素数
Dim k As Long
If n < 2 Then
  prime = False
Else
prime = True
For k = 2 To n - 1
  If (n Mod k) = 0 Then prime = False: Exit For
Next k
End If
End Function 

private sub command1_click()
dim a as integer
a=val(inputbox("输入一个整数"))
if prime(a) then msgbox a & "是素数" else msgbox a & "不是素数" 
end sub

2.

Private Sub command1_click()
Dim i, j, f, c,sum
i = 2
While i < 1000
  f = True
  j = 2
  Do While j < i
    If i Mod j = 0 Then f = False: Exit Do
    j = j + 1
  Loop
  If f Then
    Print i & vbTab;
    c = c + 1
    sum=sum+i
    If c Mod 5 = 0 Then Print
  End If
  i = i + 1
Wend
print vbcrlf & "1000之内所有素数之和=" & sum
End Sub

上一个：VB编译的时候老是出现:未找到方法或数据成员
下一个：VB 数据库