帮忙写个程序，谢谢！
题目是: 请编程实现找出1-100之间的所有素数，输出形式自己拟定，请上交源代码。
有VB高手吗？求助！
答案:1 悬赏:0 手机版
解决时间 2021-04-26 09:26
- 提问者网友：兔牙战士
- 2021-04-25 15:42
最佳答案
- 五星知识达人网友：洎扰庸人
- 2021-04-25 15:55
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 100
For j = 2 To Sqr(i)
If i = Int(i / j + 0.1) * j Then k = 1: Exit For
Next j
If k = 0 Then Text1 = Text1 & i & " "
k = 0
Next i
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯