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整除的数
都不选择 所有数
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
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
VB问题 求大神解答题目窗体上有两个复选框,名称分别为chk1,chk2,标题分别为“能被5整除”和“能被6整除”,一个
vb编程题:单击窗体,在窗体上显示1~200之间既能被5整除又能被7整除的数的和
在窗体上有一个名称为Check1的复选框数组(含4个复选框),还有一个名称为Text1的文本框,初始内容为空.程序运行时
VB中用随机数函数产生100个100~300之间的整数,在窗体上输出能被3 整除的数的和及个数.求代码啊...
为什么一个数的各位数之和为三的倍数就能被三整除?那么能被4.5.6.7.8.9整除的数分别有什么特点呢
计算VB程序机题目求1到100之间能被6整除的个数
数学题:一个六位数325A6B能被88整除,求A和B分别是多少?
有一个五位数能被72整除,已知千百十位上的数字分别是6、7、9.首尾两个数是多少
有两个数的和是204,这两个数分别能被5和7整除,商相同这两个数分别是() ()
用VB编写一个程序,求出个位数为6,且能被3整除的三位数共有多少个
VB程序求1-40之间能被5整除得所有数的和.
求VB 的编码···题目如下:在窗体上输出100-200(包括100,200)之间不能被3整除的奇数及这些数的和.(