Question

VB编程里面数字之间怎么转换， 比如text1输入01或者02，点一个按钮， 然后text2里面就会出现1

text1如果输入01 02 03 其中一个，然后点击按钮，text2得出的结果就是1
如果输入04 05 06 其中一个，然后点击按钮，text2得出的结果就是2
如果输入07 08 09 其中一个，然后点击按钮，text2得出的结果就是3
如果输入10 11 12 其中一个，然后点击按钮，text2得出的结果就是4
如果输入13 14 15 其中一个，然后点击按钮，text2得出的结果就是5
如果输入16 17 18 其中一个，然后点击按钮，text2得出的结果就是6
如果输入19 20 21其中一个，然后点击按钮，text2得出的结果就是7
如果输入22 23 24 25 其中一个，然后点击按钮，text2得出的结果就是8
如果输入26 27 28 29 其中一个，然后点击按钮，text2得出的结果就是9
如果输入30 31 32 33 其中一个，然后点击按钮，text2得出的结果就是10
详细说哪个地方 输入哪些命令

Answer 1

在“转换”按钮上双击，输入代码：
Dim a As String, b As Integer
a = text1.Text
b = CInt(a)
If b <= 21 Then
text2.Text = (b - 1) \ 3 + 1
Else
text2.Text = (b - 22) \ 4 + 8
End If
就可以了。已测试通过。