VB问题 求大神解答题目窗体上有两个复选框,名称分别为chk1,chk2,标题分别为“能被5整除”和“能被6整除”,一个命令按钮command1,以及一个文本框text1.编写适当的时间过程,使得程序运行时对复
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/28 01:12:32
VB问题 求大神解答题目窗体上有两个复选框,名称分别为chk1,chk2,标题分别为“能被5整除”和“能被6整除”,一个命令按钮command1,以及一个文本框text1.编写适当的时间过程,使得程序运行时对复
VB问题 求大神解答
题目
窗体上有两个复选框,名称分别为chk1,chk2,标题分别为“能被5整除”和“能被6整除”,一个命令按钮command1,以及一个文本框text1.编写适当的时间过程,使得程序运行时对复选框进行选择,单机命令按钮,可根据下表的规定,计算100~200之间符合要求的整数和,把结果显示在text1中.
选择 要求
chk1 能被5整除的数
chk2 能被6整除的数
chk1和chk2 既能被5整除,也能被6整除的数
都不选择 所有数
VB问题 求大神解答题目窗体上有两个复选框,名称分别为chk1,chk2,标题分别为“能被5整除”和“能被6整除”,一个命令按钮command1,以及一个文本框text1.编写适当的时间过程,使得程序运行时对复
Private Sub Command1_Click()
Dim i As Integer
Text1.Text = ""
If Check1.Value <> 0 And Check2.Value <> 0 Then
For i = 100 To 200
If i Mod 5 = 0 And i Mod 6 = 0 Then
Text1.Text = Text1.Text & i & " "
End If
Next i
ElseIf Check1.Value <> 0 Then
For i = 100 To 200
If i Mod 5 = 0 Then
Text1.Text = Text1.Text & i & " "
End If
Next i
ElseIf Check2.Value <> 0 Then
For i = 100 To 200
If i Mod 6 = 0 Then
Text1.Text = Text1.Text & i & " "
End If
Next i
End If
End Sub