![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
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显示 展开
我定义了一排数据
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显示 展开
3个回答
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
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
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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了
把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了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |