作业帮 > 综合 > 作业

VB问题 求大神解答题目窗体上有两个复选框,名称分别为chk1,chk2,标题分别为“能被5整除”和“能被6整除”,一个

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/16 05:05:22
VB问题 求大神解答

题目

窗体上有两个复选框,名称分别为chk1,chk2,标题分别为“能被5整除”和“能被6整除”,一个命令按钮command1,以及一个文本框text1.编写适当的时间过程,使得程序运行时对复选框进行选择,单机命令按钮,可根据下表的规定,计算100~200之间符合要求的整数和,把结果显示在text1中.

选择                   要求

chk1                 能被5整除的数

chk2                 能被6整除的数

chk1和chk2      既能被5整除,也能被6整除的数

都不选择          所有数


VB问题 求大神解答题目窗体上有两个复选框,名称分别为chk1,chk2,标题分别为“能被5整除”和“能被6整除”,一个
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 Su