Question

用VB编程.求200到400间,能被3整除但不能被7整除的数的个数,

Answer 1

Sub Main()

        Dim i As Integer

        Dim count As Integer
        For i = 200 To 400
            If 0 = (i Mod 3) And 0 <> i Mod 7 Then
                count = count + 1
            Else
            End If
        Next i
        Console.WriteLine("200到400间,能被3整除但不能被7整除的数的个数: " & count)
    End Sub

结果如下：

Answer 2

添加一个Text控件和一个Command控件输入代码即可。

Private Sub Command1_Click()
    Text1.Text = 0
    Dim s
    For s = 200 to 400
        If s Mod 3 = 0 And s Mod 7 <> 0 Then Text1.Text = Text1.Text + 1
    Next s
End Sub

如果要把数字也显示到窗体上

Private Sub Command1_Click()                 '注意窗体的大小！！！！
    Text1.Text = 0
    Dim s
    For s = 200 to 400
        If s Mod 3 = 0 And s Mod 7 <> 0 Then
            Text1.Text = Text1.Text + 1
            Print s
        End If
    Next s
End Sub

有什么不懂可以追问

追问

count=count-1
End if
x=x+1

Loop
Print count
End Sub
还是这题，这有2个错误，分别错在哪啊？

追答

你写了 End If，那么If语句去哪里了？
还有， Do …… Loop语句是一起使用的，只写Loop不写Do当然会出错了。
你这个应该代码不全吧。代码全发过来我给你找出错误来

Answer 3

Private Sub Command1_Click()
Dim i As Integer, n As Integer
For i = 200 To 400
If i Mod 3 = 0 And i Mod 7 <> 0 Then
n = n + 1
End If
Next
MsgBox n
End Sub

追问

count=count-1
End if
x=x+1

Loop
Print count
End Sub
还是这题，这有2个错误，分别错在哪啊？