急需高手帮忙解决个问题！就是游戏密保卡的电子版解决问题！

很简单啊 定义一个二维数组
放一个text 和 一个 按钮
Dim zifu(6, 11) As String

Private Sub Form_Load()
zifu(0, 0) = "1" '把密码卡的字符输入到数组中
zifu(0, 1) = "1"
 ~
 ~
zifu(6, 11) = "1"
End Sub

Private Sub Command1_Click() '把字符读出 注意a~g 要用小写
Dim a As String, b As String, c As String, i As Integer
For i = 0 To 2
 a = Mid(Text1.Text, 1 + 2 * i, 1)
 b = Mid(Text1.Text, 2 + 2 * i, 1)
 c = c + zifu(Asc(a) - 97, CInt(b))
Next
Command1.Caption = c
End Sub

谢谢！已经解决！