如何在VB文本框里输出变量的内容谢谢

dim
i
as
intger
dim
str
as
string
i=1000
a="文本"
text1text=str
&
cstr(i)'用cstr()转换成文件格式再显式
改成即可：
text1text=a
&
i
最后一句，用CSTR，其实没有必要的
字符运算符是“&”符号，即连接运算符。字符串连接运算是把两个或多个字符串首尾连接成一个字符串。使用“&”进行字符串连接运算时，“&”运算会自动将两边的非字符串型的数据转换为字符串类型后再进行连接。
使用运算符“+”也可以把两个字符串连接成一个字符串，但只有在“+”连接的两个 *** 作数均为字符串型数据时，连接的结果才仍为字符串。

Dim a() As String, i As Integer
a = Split(Text1Text, vbCrLf)
For i = 0 To UBound(a)
    a(i) = CutStr(a(i), " ", "（")
Next i
Text2Text = Join(a, vbCrLf)

Private Sub Command1_Click()
ReDim a(1 To 1000) As Integer
Dim i As Integer
Dim l As Integer
Dim s As String
Dim s1 As String
For i = 1 To 1000
a(i) = i
Next i
l = 12
For i = 1 To 1000
s1 = "a(" & CStr(i) & ")=" & CStr(a(i))
s1 = s1 & Space$(l - Len(s1))
s = s & s1
If i Mod 10 = 0 Then s = s & vbCrLf: s1 = ""
Next i
Text1Text = s
End Sub

写了一个通用函数给您，可以自定转换后字符的总长度及数字前面所加的字符：
Private Function AddLen(intInput As Integer,intLen As Integer,strToAdd As String) As String
'intInput：欲转换的数字
'intLen：转换后的总长度
'strToAdd：欲加在数字前面的字符
Do Until Len(AddLen)=intLen
AddLen=strToAdd & CStr(intInput)
Loop
End Function
'以上写在窗体声明部分
'以下是生成数列部分，放在您需要的地方：
Dim i As Integer
For i=1 To 33
Print AddLen(i,Val(Text1Text),"0")
Next i
'记得VB有现成的更简便函数，忘了怎么写。

---