Question

求VB代码该怎么写，，

如总的数字为 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
除7余0的按钮：属性 7,14，
除7余1的按钮：属性 1,8,15，
除7余2的按钮：属性 2,9,16，
除7余3的按钮：属性 3,10,17，
除7余4的按钮：属性 4,11,18，
除7余5的按钮：属性 5,12,19，
除7余6的按钮：属性 6,13,20，

哪么除8的属性
除8余0的按钮：8,16
除8余1的按钮：1,9,17，
除8余2的按钮：2.10.18.
除8余3的按钮：3.11.19.
除8余4的按钮：4.12.20.
除8余5的按钮：5.13.
除8余6的按钮：6,14，
除8余7的按钮：7,15，

哪么1到20属性

1到5 的按钮 1,2,3,4,5，
6到10 的按钮 6,7,8,9,10
11到15 的按钮 11,12,13,14,15
16到20的按钮 16,17,18,19,20
现在比如我们选择了按键 除7余0 除7余5 除8余3 除8余7 和11到15按钮

哪么在文本框1里显示的就是我们选择的按钮 除7余0 除7余5 除8余3 除8余7 11到15

在文本框2里显示的就是它属性的结果

0次：就是没有被我们按钮所选到留下的数字1到20哪个没有选到哪个留下
1次：就在我们所选按钮中出现一次的数字留下
2次：就在我们所选按钮中出现二次的数字留下
3次：就在我们所选按钮中出现三次的数字留下
4次:就在我们所选按钮中出现四次的数字留下
到N次：

哪么我们开头选择了 除7余0 除7余5 除8余3 除8余7 11到15就是
0次:1,2,6,8,9,10,16,17,18,20，
1次:3,4,5,13,14,15,
2次:7,11,12,19,
3次:
4次:
到N次:

在举例选择 除7余4 除8余4
哪么在文本框1里显示的就是: 除7余4 除8余4

在文本框2里显示的就是:
0次:1,2,3,5,6,7,8,9,10,13,14,15,16,17,19,20
1次:11,12,18,20，
2次:,4,
3次:
4次:
到N次:

以此类推。。。。。。。。。。。

Answer 1

'

check1、check2、check3为checkbox控件数组
'check1、check2、check3的style属性设置为1
Private Sub Form_Load()
Dim i As Integer
Check1(0).Caption = "除7余0"
For i = 1 To 6
    Load Check1(i)
    Check1(i).Left = Check1(i - 1).Left + 800
    Check1(i).Top = Check1(i - 1).Top
    Check1(i).Caption = "除7余" & i
    Check1(i).Visible = True
Next i
Check2(0).Caption = "除8余0"
For i = 1 To 7
    Load Check2(i)
    Check2(i).Left = Check2(i - 1).Left + 800
    Check2(i).Top = Check2(i - 1).Top
    Check2(i).Caption = "除8余" & i
    Check2(i).Visible = True
Next i
Check3(0).Caption = "1到5"
For i = 1 To 3
    Load Check3(i)
    Check3(i).Left = Check3(i - 1).Left + 1500
    Check3(i).Top = Check3(i - 1).Top
    Check3(i).Caption = i * 5 + 1 & "到" & (i + 1) * 5
    Check3(i).Visible = True
Next i
Command1.Caption = "清除"
Command2.Caption = "统计"
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Check1.UBound
    Check1(i).Value = vbUnchecked
Next
For i = 0 To Check2.UBound
    Check2(i).Value = vbUnchecked
Next
For i = 0 To Check3.UBound
    Check3(i).Value = vbUnchecked
Next
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, m As Integer
Dim s As String
Dim n(1 To 20) As Integer
For i = 0 To Check1.UBound
    If Check1(i).Value = vbChecked Then
        s = s & " " & Check1(i).Caption
        For j = 1 To 20
            If j Mod 7 = i Then
                n(j) = n(j) + 1
            End If
        Next j
    End If
Next
For i = 0 To Check2.UBound
    If Check2(i).Value = vbChecked Then
        s = s & " " & Check2(i).Caption
        For j = 1 To 20
            If j Mod 8 = i Then
                n(j) = n(j) + 1
            End If
        Next j
    End If
Next
For i = 0 To Check3.UBound
    If Check3(i).Value = vbChecked Then
        s = s & " " & Check3(i).Caption
        For j = i * 5 + 1 To (i + 1) * 5
            n(j) = n(j) + 1
        Next j
    End If
Next
Text1.Text = Trim(s)
s = ""
j = 0
For i = 1 To 20
    If n(i) > m Then
        m = n(i)
    End If
Next
For i = 0 To m
    If s = "" Then
        s = i & "次:"
    Else
        s = s & vbCrLf & i & "次:"
    End If
    For j = 1 To 20
        If n(j) = i Then
            s = s & j & ","
        End If
    Next
Next
Text2.Text = s
End Sub