电脑VB这题怎样做

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/17 03:57:36
电脑VB这题怎样做电脑VB这题怎样做 电脑VB这题怎样做Private Sub Form_Click()Dim i As Integer,&

电脑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