VB 输入不同文字，弹出相应的文字

来源：百度知道 编辑：UC知道 时间：2024/06/17 09:11:25
用VB做一个 输入不同文字，弹出相应的文字的提示
比如1=2，4=5，6=7
然后在3个textbox里分别输入1，4，6
然后弹出提示框
得到2，5，7
用VB做一个 输入不同文字，弹出相应的文字的提示
比如1=2，4=5，6=7，8=9
然后在3个textbox里分别输入1，4，6
然后点击按钮
弹出提示框
同时显示2，5，7

这样说比较好- -

Function ch(k As String) As Integer
Select Case k
Case 1
ch = 2
Case 4
ch = 5
Case 6
ch = 7
Case 8
ch = 9
End Select
End Function

Private Sub Command1_Click()
b = ch(Text1.Text)
c = ch(Text2.Text)
d = ch(Text3.Text)
MsgBox b & "," & c & "," & d
End Sub

控件使用默认名称

select case text1.text
case 1
msgbox(2)
case 4
msgbox(5)
case 6
msgbox(7)
case 8
msgbox(9)
end select
分别把text1.text改成text2.text，text3.text

Private Sub command1_click()
MsgBox Text1.Text + 1 & "," & Text2.Text + 1 & "," & Text3.Text + 1
End Sub

这段代码的意思是你输入三个数，提示框里面显示的三个数分别是你输入的三个数加1