Question

vb如何在text1随便输几个数字后，点击"对号入座"实现单个数字自动对号入座在Check1(0)-Check1(9)里勾选。

Answer 1

Option Explicit

Private Sub Command1_Click()
    Dim i As Integer
    Dim temp As String
    
    temp = Trim(Text1.Text)
    
    '初始化
    For i = 0 To Check1.UBound
        Check1(i).Value = 0
    Next
    '对号入座
    If Len(temp) = 0 Then Exit Sub
    For i = 0 To Len(temp) - 1
        Check1(Val(Mid(temp, i + 1, 1))).Value = 1
    Next
End Sub

追问

谢谢您啊，好用！可是网络设置只能采纳1个。在此追问栏里表示感谢！

追答

好

Answer 2

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
  Check1(Val(Mid(Text1.Text, i, 1))).Value = vbChecked
Next
End Sub