VB如何计算 text1.text等于某个自定义数值

问题描述：

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显示

1个回答分类：综合 2014-09-24

问题解答：

我来补答

如果你定义很多个变量的话,实现代码怎么着都不会简短的,可以用数组实现,下面代码可以参考一下：
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 Su

展开全文阅读

上一页：第九题，详解

下一页：gyyv