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

来源：学生作业帮助网编辑：作业帮时间：2024/05/05 00:41:17

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

用VB求1000以内的素数,水仙花,斐波那契数列.
先写两个数列.
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

用VB求1000以内的素数,水仙花,斐波那契数列. 怎样用vb编程求1000以内回文数又是素数的自然数求1000以内素数的和找出1000以内所有的个位数为3素数,并统计其个数.用vb写的程序如何用VB统计10000以内素数的个数求1-1000的素数统计统计素数的个数 vb.net代码 VB 求1000以内素数的和这个哪里错了不能用for语句Private Sub Command1_Click() n = 0 '0-1000的一个数 s = 0 '素数和 i = 1 '求余变量 Do While n 1000以内的素数之和用c语言求1000以内的素数(素数是只能被1和它本身整除的数) 用C语言筛选法求100以内的素数 100到999的水仙花数是多少请问用VB语言写出求100到999的水仙花数的代码是什么` 用编程求1000以内的素数中的最大的三位数求100以内的素数pascal语言 vfp求100以内的孪生素数求100到300之间的素数,用VB编程求出来. 请问VB语言中怎么求1到1000的素数分别有哪些 VB编程：求1000以内素数之和我是初学者,对这个VB编程代码有一些要求一定要是VB变量只能是long 或者 integer不要用逻辑变量要用枚举算法,循环结构（do while 和for语句） 1000以内的素数要个结果