如何用vb做100以内2,3,5的倍数

来源：百度知道 编辑：UC知道 时间：2024/05/02 20:50:20
程序要求：
<br>窗体要求：标题为：100以内2，3，5的倍数程序，窗体相识在屏幕中间。通过选择不同的复选框，在组合框的下拉列表中出现符合要求的数列。

谢谢！但是你没有考虑同时为2,3的倍数，2，5的倍数，3，5的倍数，2，3，5的倍数。不是option而是check!

窗体中创建三个check按钮，分别选中表示2的，3的，5的倍数
一个combo控件用于显示结果
Public m As Integer, n As Integer, k As Integer
Private Sub Check1_Click()
m = Check1.Value
n = Check2.Value
k = Check3.Value
Combo1.Clear
Call js(m, n, k)
End Sub

Private Sub Check2_Click()
m = Check1.Value
n = Check2.Value
k = Check3.Value
Combo1.Clear
Call js(m, n, k)
End Sub

Private Sub Check3_Click()
m = Check1.Value
n = Check2.Value
k = Check3.Value
Combo1.Clear
Call js(m, n, k)
End Sub
Sub js(mm As Integer, nn As Integer, kk As Integer)
Dim i As Integer
If mm = 1 Then
If nn + kk = 0 Then
Combo1.Text = "2的倍数"
For i = 1 To 100
If i Mod 2 = 0 Then Combo1.AddItem Str(i)
Next
ElseIf nn = 1 And kk = 0 Then
Combo1.Text = "2和3共同的倍数"
For i = 1 To 100
If i Mod 2 = 0 And i Mod 3 = 0 Then Combo1.AddItem Str(i)
Next
ElseIf nn =