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

VB我定义了一排数据a1=12a2=14a3=54b1=11b2=55b3=77在窗口中添加三个textbox除了以下这种方法:iftext1.text="a1"then... 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显示
展开
 我来答
匿名用户
2011-01-30
展开全部
如果你定义很多个变量的话,实现代码怎么着都不会简短的,可以用数组实现,下面代码可以参考一下:
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
图杭科技
2011-01-30 · TA获得超过531个赞
知道小有建树答主
回答量:1014
采纳率:50%
帮助的人:589万
展开全部
dim lsstr as string=text1.text
dim lsstr2 as string
select case lsstr
case "12"
lsstr2=12
case "14"
lsstr2=14
case "54"
lsstr2=54
case "11"
lsstr2=11
case "55"
lsstr2=55
case "77"
lsstr2=77
case else
lsstr2=""
end if
msgbox lsstr2
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
WWEERR
2011-01-30 · TA获得超过841个赞
知道小有建树答主
回答量:536
采纳率:0%
帮助的人:529万
展开全部
For 循环

把Text 弄成数组控件嵌套For
dim a(1 to 3) as string,B(1 to 3)as string
dim samestr as string
for i = 1 to 3
for k = 1 to 3
if text(i).text=a(k) then
samestr = samestr & "a(" & k & ")相同"
end if
if text(i).text=b(k) then
samestr = samestr & "b(" & k & ")相同"
end if
next k
next i
msgbox samestr

'懒得开VB了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式