Private Sub Command1_Click()
x = Val(InputBox("请输入一个数", "提示", vbDefaultButton1))
If x = 1 Or x = 2 Or x = 3 Then
MsgBox "一", vbOKOnly, "提示"
ElseIf x = 4 Or x = 5 Or x = 6 Then
MsgBox "二", vbOKOnly, "提示"
End IfEnd Sub...
Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then If Text1.Text = "1" Or Text1.Text = "2" Or Text1.Text = "3" ThenText2.Text = " 一" ElseIf Text1.Te...
if textbox1.text="1" or textbox1.text="2" or textbox1.text="3" thentextbox2.text="一"else if textbox1.text="4" or textbox1.text="5" or textbox1.text="6" thentextbox2.text="二"...