vb 1000 素数之和 用DO WHILE 的方式 写完整,
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/23 07:34:03
vb 1000 素数之和 用DO WHILE 的方式 写完整,
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
debug.Print i & vbTab;
c = c + 1
sum=sum+i
If c Mod 5 = 0 Then debug.Print
End If
i = i + 1
Wend
print vbcrlf & "1000之内所有素数之和=" & sum
End Su
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
debug.Print i & vbTab;
c = c + 1
sum=sum+i
If c Mod 5 = 0 Then debug.Print
End If
i = i + 1
Wend
print vbcrlf & "1000之内所有素数之和=" & sum
End Su
vb 1000 素数之和 用DO WHILE 的方式 写完整,
VB编程:求1000以内素数之和
求1-1000以内的素数之和 只能用 do while和if n = 1 i = 2 Do While n
VB 函数 do while ...Loop 与 while .wend 的区别
1.VB随机产生10个两位数正整数的素数 2.随机产生10个两位数正整数,并输出其中的素数(用for或while语句
1000以内的素数之和
vb 统计1000以内素数的个数
VB 函数 do while ...Loop 与 while .wend 还有 do ...Loop while 的区别
用VB编程序验证哥德巴赫猜想,即一个大于等于6的偶数可以表示为两个素数之和
用VB验证哥德巴赫猜想,任何一个大于6的偶数,均表示为两个素数之和,
输入一个整数,用VB的While wend 或 Do Loop Until判断质数.
用VB验证歌德巴赫猜想:一个大偶数可以分解为两个素数之和.