顺便说一句(回答20分的问题的习惯): If 你不知道怎样给分 Then 去看:http://www.csdn.net/expert/faq.shtm
我所说的a,b,c是三个不固定的变量!
a & b & c 这样就可以了
用一个看不到的TEXT控件, text1 ="" text1= text1 & a text1= text1 & b text1= text1 & c 对不起这个东东我没有经过测试(我现在的机器上没有VB),不对就笑笑算了!
'经过测试输出结果为正确的如下 Private Sub Command2_Click() Dim a As Integer Dim b As Integer Dim c As Integer a = 2 b = 3 c = 4 Text1.Text = "" Text1.Text = Text1.Text & a Text1.Text = Text1.Text & b Text1.Text = Text1.Text & c '234 Print Text1.Text '234 Print Trim(Str(a)) & Trim(Str(b)) & Trim(Str(c)) '234 Print Trim(Str(a * 100 + b * 10 + c)) '234 Print a & b & c ' 234 End Sub
数字a*100+b*10+c
2 & 3 & 4
不过要注意空格。
If 你不知道怎样给分 Then 去看:http://www.csdn.net/expert/faq.shtm
这样就可以了
text1 =""
text1= text1 & a
text1= text1 & b
text1= text1 & c
对不起这个东东我没有经过测试(我现在的机器上没有VB),不对就笑笑算了!
Private Sub Command2_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = 2
b = 3
c = 4
Text1.Text = ""
Text1.Text = Text1.Text & a
Text1.Text = Text1.Text & b
Text1.Text = Text1.Text & c '234
Print Text1.Text '234
Print Trim(Str(a)) & Trim(Str(b)) & Trim(Str(c)) '234
Print Trim(Str(a * 100 + b * 10 + c)) '234
Print a & b & c ' 234
End Sub