电脑VB这题怎样做
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/01 13:32:39
电脑VB这题怎样做
电脑VB这题怎样做
电脑VB这题怎样做
Private Sub Form_Click()
Dim i As Integer, j As Integer, x As Integer
For i = 2 To 100
x = 0
For j = 2 To i - 1
If i Mod j = 0 Then x = 1
Next j
If x = 0 Then Print i
Next i
End Sub