用VB求1000以内的素数,水仙花,斐波那契数列.

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/05/14 05:00:27

先写两个数列.
Public Sub aa()
Dim ab As String
Dim i, j As Integer
Dim a, b As Integer
'素数序列
For i = 1 To 1000
For j = 1 To i
If i Mod j = 0 And j 1 And j i Then
Exit For
End If
Next
If j = i + 1 And i 1 Then ab = ab & " " & i
Next
MsgBox ab
'斐波那契
i = 0
a = 1
b = 1
ab = a & " " & b
Do While i < 1000
i = a + b
a = b
b = i
If i > 1000 Then Exit Do
ab = ab & " " & i
Loop
MsgBox ab
End Sub
再问：水仙花呢？
再答： '水仙花 '二位数 For i = 1 To 9 For j = 0 To 9 If i * 10 + j = i ^ 2 + j ^ 2 Then ab = ab & " " & i ^ 2 + j ^ 2 Next Next '三位数 ab = "" For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 If i * 100 + j * 10 + k = i ^ 3 + j ^ 3 + k ^ 3 Then ab = ab & " " & i ^ 3 + j ^ 3 + k ^ 3 Next Next Next MsgBox ab

用VB求1000以内的素数,水仙花,斐波那契数列. VB编程：求1000以内素数之和 vb 统计1000以内素数的个数斐波那契数列 vb按图上的做哦怎样用vb编程求1000以内回文数又是素数的自然数 VB 求1000以内素数的和这个哪里错了不能用for语句用vb做一个斐波那契数列程序 VB：斐波那契数列第一项是1,第二项是1,用递归算法编写一个程序,求数列前N项的和 VB程序斐波那契数列代码斐波那契数列如何用VB求和 vb 斐波那契数列问题……急. 求1000以内素数的和