我只需要把数组打印在文本框上，咋不行，改一下啊，谢谢！
'建一个Command1控件，两个Text控件，Text控件宽度和高度都拉大一点，且MultiLine属性均设为True
Private Function prime(ByVal x As Integer) As Boolean '判断是否素数
Dim i As Integer
For i = 2 To Sqr(x)
If x Mod i = 0 Then
Exit Function
End If
Next i
prime = True
If x < 2 Then prime = False
End Function
Private Sub Command1_Click()
Dim a(1 To 100) As Integer
n = 0
psum = 0
Randomize
For i = 1 To 100
a(i) = 10 + Int(90 * Rnd)
s1 = s1 & " " & a(i)
If prime(a(i)) Then
s2 = s2 & " " & a(i)
n = n + 1
psum = psum + a(i)
If n Mod 10 = 0 Then s2 = s2 & vbCrLf
End If
If i Mod 10 = 0 Then s1 = s1 & vbCrLf
Next
Text1.Text = s1
Text2.Text = s2 & vbCrLf & "素数个数为" & n & vbCrLf & "素数之和为" & psum
End Sub
for i=lbound(a) to ubound(a)
text1.text=text1.text & a(i) & " "
next
Private Sub Command1_Click()
Dim s As String
Dim Arr() As String, OneLineData() As String
Dim DataArr() As Double
Dim i As Integer, j As Integer, k As Integer, n As Integer, m As Integer
Text1.Text = ""
Open "c:\123.txt" For Input As #1
While Not EOF(1)
Line Input #1, s
Text1.Text = Text1.Text & s & vbCrLf
Wend
Close #1
Arr = Split(Text1.Text, vbCrLf)
k = LBound(Arr)
Do While k <= UBound(Arr)
If Left(Arr(k), 1) = "#" Then Exit Do
k = k + 1
Loop
m = UBound(Arr) - k - 1
For i = 0 To m
While InStr(Arr(i + k), " ") > 0
Arr(i + k) = Trim(Replace(Arr(i + k), " ", " "))
Wend
Next
OneLineData = Split(Arr(k), " ")
n = UBound(OneLineData) - LBound(OneLineData) + 1
ReDim DataArr(1 To m, 1 To n)
For i = 1 To m
OneLineData = Split(Arr(i + k), " ")
For j = LBound(OneLineData) To UBound(OneLineData)
DataArr(i, j - LBound(OneLineData) + 1) = OneLineData(j)
Next
Next
Text2.Text = ""
For i = 1 To m
For j = 1 To n
Text2.Text = Text2.Text & DataArr(i, j) & " "
Next
Text2.Text = Text2.Text & vbCrLf
Next
End Sub
试下这个： Text1.Text =""
For i = 1 To n1
For j = 1 To n2
Input #1, name(i, j)
Text1.selText = name(i, j) & " "
Next j
Text1.selText = vbCrLf
Next i
Close #1
End Sub
java中把数组以二叉树形式打印出来
你说的意思应该是用数组的方式存储二叉树，这需要利用到完全二叉树的性质，,完全二叉树通常采用数组而不是链表存储,其存储结构如下:var tree:array[1..n]of longint;{n:integer;n>=1} 对于tree[i]，有如下特点：（1）若i为奇数且i>1，那么tree的左兄弟为tree[i-1]；（2）若i为偶数且i<n...
如何在PERL中打印整个数组
方法：my @array = (0, 1, 2, 3);print (“@array\\n”); #输出有空格，如：0 1 2 3 print (@array, “\\n”); #输出没空格，如：0123 哈希也可以用同样方法，如：my %hash = ();hash{a} = ‘jeftom';hash{b} = ‘design';print (%hash);...
C语言里如何将一个打印函数打印的值存入数组然后进行运算?
可以使用sprintf()函数，其原理类似于printf()，如果你PrintDec只是打印参数数据的十进制值的话，那么：PrintDec(pFile[18]);PrintChar(',');PrintDec(pFile[19]);把打印的数存到str[10]数组中的格式为sprintf(str,"%d,%d",pFile[18],pFile[19])，其他类似。。特别注意定义的数组要足够大。
C语言如何用printf打印数组问题
include <stdio.h> \/\/增加头文件printf()用到 int main(){ int a[5]={1,2,3,8,9};\/\/printf("%d",a[5]); \/\/a[5]表示数组a的第六个元素，越界了 \/\/整型数组，不能一下子简单输出出来，必须用循环 int i;for( i=0;i<5;i++ )printf("%d " , a[i] );printf("\\n");...
在调用函数打印数组时为什么%2d输出数组中的3位数会连在一起?
因为你输出的数据有小于3位数的,前面补空格输出,大于或等于3位数的前面就没有空格了,所以就连在一起输出了.当你把"%3d"改成"%4d",表示输出整型数据占4位,小于4位数前面补空格输出,你的数据只有3位,所以数据前面有一个空格输出.但是对于4位数又会连在一起输出,解决方法是用格式符"%d "输出,不...
VB中使用print输出数组怎么控制输出
第二种，是把数据之间用逗号“，”隔开，两个数据之间相隔一个制表符位置，也是不换行连续输出；关于print语句的换行，是这样的：语句最后一个数据以无符号结束的，就代表要换行。如果以“；”或“，”结束，则不换行 如：print 1,2,3则打印出：1{几个空格}2{几个空格}3 print 1;2;3刚打印出...
打印一个2-20范围内的只包含偶数的数组,然后在该数组中插入一个...
关于可变长数组（VLA）的问题：原来的C89标准中是不允许可变长数组出现的，但是在C99标准中，加入了对VLA的支持，但是支持的编译器不多，而且由于栈溢出的安全问题，没有太多的人敢用这个可变长数组，所以在C11标准中又把它规定为可选实现的功能了。如果有过用其它语言编程的经历，那么想必会熟悉数组的...
char数组的打印
ga 和 &ga 在这里是一样的效果，其实都指向数组首地址，而打印只管从开始地址打印，所以一样的打印结果。只是意义不一样，ga 把首地址看成一维数组 而&ga把首地址看成二维数组 你看你 ga+1 指向的地址 和 （&ga）+ 1指向的地址空间就知道了。
小程序控制台的数组怎么打印出来,我打印为空?
你画圈的就是数组啊，array(3)，表示这是一个数组，且有三个元素，length：3也是代表长度为3
怎么实现数组的全排列
3.当N = 3的时候，数组为 [a, b, c]3.1把a放在 a[0] 的位置（原本也是如此，a[0] = a[0]），打印b,c的全排列（即a[1], a[2]的全排列）3.2把b放在a[0]的位置（这时候需要交换原数组的a[0]和a[1]），然后打印a, c的全排列，打印完后再换回原来的位置，即a还是恢复到a...
翠底长富： 选 中文本框,右击选择“设置文本框格式”把线条改成“无”,把颜色改成“无”,点确定后回旧word里面就没有了,并且可以随时移动. 附张图给你看,不懂随时HI. 看到图里面的颜色与线条了吧,把它们选择“无”就OK了
永修县19764169475： java里怎样把数组元素全部显示在文本框 - ？
翠底长富： for(Elem e : ElemArray){ StringBuffer.append(e); //依次读取数组的元素 } TextField.setText(StringBuffer.toString());
永修县19764169475： 我的word文本框在打印时无法显示,这是怎么回事 - ？
翠底长富： 工具——选项——打印,把打印“图形对象”勾上.
永修县19764169475： 在WORD中为什么文本框打不出来 - ？
翠底长富： 页面设置里面,找一下打印选项,把里边打印文档的附加信息里的一项图形对象复选框勾上即可
永修县19764169475： 要使WORD中的文本框在打印时不显示,如何操作 - ？
翠底长富： 工具:Office2013 方法如下: 1.Word中包含文本框,让文本框及其内容在打印时不显示: 2.按下Ctrl+P,打开打印界面,点击“页面设置”: 3.在“显示”中,取消勾选“打印在word中创建的图形”后点击确定: 4.这样,文本框在打印时就不会显示了: 注意事项:如果仅仅让文本框边框不显示而显示内容的话,可以考虑将文本框颜色设置问无色或白色.
永修县19764169475： wold中怎样才能使文本框在打印的时候只显示内容,不显示文本框? - ？
翠底长富： 双击文本框边上,或右击属性把线条颜色与填充颜色全部设为无线条颜色和无填充颜色就不会有了
永修县19764169475： 为什么WORD里文本框里的文字打印不上？
翠底长富： 按Ctrl + P→确定你的“打印内容”是选择的“文档”
永修县19764169475： excel表格打印出的表中如何只显示数字不显示文字?但是表格编辑的时候可以看到完整的表格? - ？
翠底长富： 将不需要打印的文字放在文本框中,设置文本框属性,取消打印对象前的勾. 或者: 将编辑表格的区域和打印区域分别放在不同的区域,如在1-10行编辑,将11-20行设置成打印区域,在11-20行用公式引用1-10行的内容,A11=A1.
永修县19764169475： java 的一个问题哦!~ 我想问一下,我想把一个数组的所有数字输入到文本框里,怎么输入啊!要输入一串数. - ？
翠底长富： int a[]={1,2,3,4,5,6,7,8,9}; int i=0; JTextArea t=new TextArea(); while(i<a.length) { t.attend(a[i++]); } 哒哒哒,问题解决了
永修县19764169475： vb 怎么 实现从一组乱七八糟的数据中取出相同数,并输出在文本框或其他输出框里？
翠底长富： 假设数组是a[] b[] ... m[],文本框text1 dxm x,y as long for x=3 to 18 for y=1 to 7 if a[y]=x then text1.text=text1.text+＂a＂+cstr(x) end if if b[y]=x then text1.text=text1.text+＂b＂+cstr(x) end if if c[y]=x then text1.text=text1.text+＂c＂+cstr(x) end if if d[y]=x ...
