VB如何计算 text1.text等于某个自定义数值VB我定义了一排数据a1=12a2=14a3=54b1=11b2=55b3=77在窗口中添加三个textbox除了以下这种方法：if text1.text="a1" thenmsgbox a1还有没有其他方法?注：因为自定义数据
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/27 05:22:34
VB如何计算 text1.text等于某个自定义数值VB我定义了一排数据a1=12a2=14a3=54b1=11b2=55b3=77在窗口中添加三个textbox除了以下这种方法：if text1.text="a1" thenmsgbox a1还有没有其他方法?注：因为自定义数据
VB如何计算 text1.text等于某个自定义数值
VB
我定义了一排数据
a1=12
a2=14
a3=54
b1=11
b2=55
b3=77
在窗口中添加三个textbox
除了以下这种方法：
if text1.text="a1" then
msgbox a1
还有没有其他方法?
注：因为自定义数据很多,所以想求个短点的语句.
我的想法是这样的,例如我在text1.text中输入“b2”,在text2.text输入“a1”,在text3.text输入“a3”
上面的自定义数据中显示:
b2=55
a1=12
a3=54
如何判断.text中的“b2”=55 a1=12 a3=54
注意是 .text 中的内容
最好用msgbox显示
VB如何计算 text1.text等于某个自定义数值VB我定义了一排数据a1=12a2=14a3=54b1=11b2=55b3=77在窗口中添加三个textbox除了以下这种方法：if text1.text="a1" thenmsgbox a1还有没有其他方法?注：因为自定义数据
如果你定义很多个变量的话,实现代码怎么着都不会简短的,可以用数组实现,下面代码可以参考一下：
Option Explicit
Dim grp() As String
Private Sub Form_Load()
ReDim grp(5,1) '二维数组
grp(0,0) = "a1":grp(0,1) = 12
grp(1,0) = "a2":grp(1,1) = 14
grp(2,0) = "a3":grp(2,1) = 54
grp(3,0) = "b1":grp(3,1) = 11
grp(4,0) = "b2":grp(4,1) = 55
grp(5,0) = "b3":grp(5,1) = 77
End Sub
Private Sub Text1_Change()
Dim i As Integer
For i = 0 To UBound(grp)
If Text1.Text = grp(i,0) Then
MsgBox grp(i,1)
End If
Next i
End Sub