作业帮 > 综合 > 作业

大学VB编程题:将两位正整数中所有的素数以每行4个进行输出,统计并输出素数之和.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/12 05:45:19
大学VB编程题:将两位正整数中所有的素数以每行4个进行输出,统计并输出素数之和.
这也是大学编程?中学还差不多 Private Sub Command1_Click()
a = Int(Val(InputBox("a=", "请输入两位数")))
For i = 1 To a
 
If i > 1 Then
For p = 2 To i - 1
If i Mod p = 0 Then
Exit For '退出循环
End If
Next p
If p >= i Then
Print i
End If
End If
 
 
Next i
 
End Su