高考问答饥荒海滩红宝石怎么得:请教一个简单的vb程序
来源：百度文库 编辑：高考问答 时间：2024/04/29 10:38:59
For i = 3 To 100
For x = 2 To i - 1
If i Mod x = 0 Then
Exit For
Else: Print i;我知道是这里出了问题.该怎么改进
End If
Next x
Next i
我是想求1-100的素数,这个都是小问题拉.主要是现在有很多数求出来的是重复.我知道是怎么回事.就是不知道该怎么改进
For x = 2 To i - 1
If i Mod x = 0 Then
Exit For
Else: Print i;我知道是这里出了问题.该怎么改进
End If
Next x
Next i
我是想求1-100的素数,这个都是小问题拉.主要是现在有很多数求出来的是重复.我知道是怎么回事.就是不知道该怎么改进
Private Sub Command1_Click()
Dim Result As String
For i = 1 To 100
n = Sqr(i)
For j = 2 To n
If i Mod j = 0 Then
Print i;
Exit For
End If
Next
Next
End Sub
'至于显示的位置要好看点,你就自己写吧.
Else: Print i
这里需要“：”吗？应该换行就可以了吧。
For i = 3 To 100
For x = 2 To i - 1
If i Mod x = 0 Then
Exit For
Else
Print i
End If
Next x
Next i