vb编程程序代码

2025-03-07 11:14:12

推荐回答（2个）

回答1：

Dim x, y, i As Integer, str As String = ""
        For i = 100 To 150
            If (i Mod 4 = 2) And (i Mod 6 = 0) And (i Mod 5) = 3 Then
                str = str & i & " "
            End If
        Next
        TextBox1.Text = str

运行结果：

138

回答2：

Private Sub Command1_Click()
For i = 100 To 150
If i Mod 4 = 2 And i Mod 6 = 0 And i Mod 5 = 3 Then Text1 = i
Next i
End Sub