Question

vb如何用文本框输出数组 求具体例子 比如我定义dim a(100) a(j)=j

dim a(100),j as integer
for j=1 to 100
a(j)=j
if j mod 3=0 then
问一下then后面要怎么写才能输出到text1文本框里啊

Answer 1

是每三个一行输出到文本框吗？

Private Sub Form_Click() 御昌'点击窗体运行
Dim a(100) As Integer, j As Integer
Text1.Text = ""
For j = 1 To 100
    a(j) = j
    Text1.Text = Text1.Text & a(j) & " "
  槐枯  If j Mod 3 = 0 Then 铅拆洞Text1.Text = Text1.Text & vbCrLf
Next j
End Sub