vb 在textbox输出数组

Next i Text1.Text = s End Sub

先把textbox的mutiline属性设为true，再在每个数后面加上一个vbCrlf就可以。

Text1.Text = Text1.Text & Format(x, "00")If x Mod 10 = 9 Then Text1.Text = Text1.Text & vbCrLf Else Text1.Text = Text1.Text & " "End If Next 要求你的Text1的MulitLine属性必须为True

text1.selstart=32767 text1.seltext=a 如果在循环体中,建议这样写 with text1 .selstart=32767'如果放在外面不行就放回循环体中 for i=0 to 99999 .seltext=a next end with 手边没VB,未测试过,楼主自己试试看吧

你可以分两步。第一步，使用Split将TextBox1.Text按行分开，各行存入一个数组。第二步，使用Split将一行分开，各组数据存入一个数组。如果要整体处理，那么代码是这样的：Dim var() As String var = Split(TextBox1.Text, vbCrLf)Dim i As Integer, j As Integer For i = 0 To var.Length ...

1、新建一个窗体（表单），名称为Form1；2、在Form1中放置100个文本框，名称分别为TextBoxa1~~TextBoxa100；（其实最好用控件数组）3、程序如下：Private Sub Form_Load()Dim i As Integer For i = 0 To Me.Count - 1 If TypeOf Me.Controls(i) Is TextBox Then Me.Controls(i).Text =...

MsgBox("请输入您想输入数字的个数")Exit Sub End If n = CInt(TextBox0.Text)Dim ar(n) As Integer For i = 0 To n - 1 MsgBox("请输入第" & Str(i + 1) & "个数字")ar(i) = Val(InputBox("请输入")) '将输入的数据转换为数值型 Next Dim str1 As String, str2 As ...

dim straa as stringdim strarry dim inti as integerstraa=trim(textbox1.text)strarry = Split(straa, ";")textbox2=strarry(0)textbox3=strarry(1)textbox4=strarry(2)...textbox15=strarry(13)textbox16=strarry(14)

首先输出的第一行应该是1 2 3 5 7 for i = 10 to 100 if i mod 5 = 0 then 这里的作用是i逢5倍数就换一次行 text1.text = text1.text & chr(13)& vbcrlf 这里chr（13）可以不要，重复了 end if if ((i mod 2 <> 0)and (i mod 3 <> 0)and (i mod 5 <> 0)and (...

采用对象数组的办法；声明一个文本框对象组，然后再启动窗体过程中，完成一一对应：Public Class Form1 Private MyTextBox(10) As TextBox Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MyTextBox(1) = TextBox1 : MyTextBox(2) ...