VB如何计算 text1.text等于某个自定义数值
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/20 02:24:49
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
我定义了一排数据
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显示
如果你定义很多个变量的话,实现代码怎么着都不会简短的,可以用数组实现,下面代码可以参考一下:
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
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
VB如何计算 text1.text等于某个自定义数值
VB如何定义b使len(text1.text)=len(b)
VB程序当中,Mid(text1.Text, text1.SelStart + text1.SelLength + 1)
VB编程If Len(Text1.Text) = Len(Text1.Text) - 1 Then len(Text2.
在VB当中 1.Text1.Text = Text1.Text & x & "+" & y & "=( )" & Chr
VB中Text1.text=text1.text+CStr(a(i))+" " If i=4 then text1.te
在VB 语句中 x = Val(Text1.Text) Val
VB中StrConv(Text1.Text,vbFromUnicode)是什么意思啊?
VB中, text1=1和text1.text=1有没有区别?
If text1.text"" then...
vb中 text1.text=" " 是什么意思?双引号间为空是表示结束吗?谢谢啦!
VB代码问题“ Text1.Text="**"&cht(13)&chr(10)"****"是什么意思?