用VB怎么编写,谢谢.

来源：百度知道 编辑：UC知道 时间：2024/05/17 04:37:25
第一个:1,1,2,3,5,8,13,21......求第30项?
第二个:判断一个数是否是素数(质数)?

第1个题:
Dim i%, n As Long, tmp0 As Long, tmp1 As Long
tmp0 = 1
For i = 1 To 30
tmp1 = tmp0
tmp0 = n
n = tmp0 + tmp1
Next
Print "第30次 " & n

第2个题:
Dim n%
n = 15 '在这儿,让N等于随便一个数
For i = 2 To Sqr(n)
If (n Mod i) = 0 Then
MsgBox n & "是素数"
Exit Sub
End If
Next i
MsgBox n & "不是素数"