vb 数组相加 如何输出数组c

你的代码 addarray函数
c(i,j)=a()+b()
下面加上一句
debugprint c(i,j) 就输出了。如果你认为debugprint是输出语句的话
另外建议以后这类的问题最好是发代码，不要发，一般回答者不喜欢看，如果想回答你的问题，就要将你的内容输入一次，实在太麻烦了。

1你说的这个有点问题,是要只输出一次,也可做,
2但问题是如果你数组还有就看不到了!这个做法有点问题
1解决方法:
循环前面加入一个变量 dim Temp as Double=0
For i = 0 To 9
If score(i) > avg and score(i)<>temp Then
TextBox3Text = TextBox3Text & score(i) & " "
if score(i)=avg then
temp=score(i)
end if
End If
Next

输出到哪？TEXTBOX？
dim i as integer
for i=0 to 8
text1text=text1text & arr(i) & vbnewline
next

首先，print函数的 *** 作特性是：输出项后面有逗号或分号时，在同一行输出，否则，换行输出。
其次，所谓按列输出，意思是把原本在在同一列上输出的数据转为在同一行上输出。而不是你理解的那样。照你那样理解的话，不仍然是按行输出了吗？朋友。
1 2 3
4 5 6
转列为行，即第一列变为第一行，第二列变第二行，第三列变第三行。换句话说就是行变列。
1 4
2 5
3 6

VB中在For Next循环中，可以在使用Print方法时用分号";"实现将一个数组在一行输出。

在单行上显示不同的项

被显示或被打印的项，可包括属性值、常数和变量（字符串或数字）。“在窗体或框上显示文本”一节中讨论过的 Print 方法，可打印数字项的值。正数数值具有一个前导和一个尾部空格。负数数值用负数符号替代一个前导空格。

用分号 (;) 或逗号 (,)来分隔相邻的项。如果用的是分号，Visual Basic 将一项接着一项地打印，中间没有空格。如果用的是逗号，在打印一项后，Visual Basic 将跳到下一个制表列打印下一项。

示例代码：

Private Sub Form_Click()
    Dim i As Long
    For i = 0 To 50
        Print i ^ 2;
    Next
End Sub

框与窗体很多地方比较相似，要在框输出数组用print语句，（通常打form1 然后系统会自动跳出各种属性，如print、caption等等，但picture跳出的属性中是没有print的，所以要你自己写），举例说明：
Private Sub Command1_Click()
Dim a(3, 3) As Integer
For i = 1 To 3
For j = 1 To 3
a(i, j) = i + j
Picture1Print a(i, j);
Next j
Picture1Print
Next i
End Sub
如不懂，可追问。

原因在Array语句，这语句会把数组初始化，即变成下标从0——7，共八个元素。所以代码无法运行。

你不能这样给数组赋值

可以这样更改

Option Explicit
Option Base 1 '加一条 语句
Private Sub Form_Click()
Dim a(), i, K, t As Integer
Print "插入前:";
'删除ReDim a(1 To 9)语句
a = Array(4, 6, 8, 10, 12, 14, 16, 18)
 For i = 1 To 8
Print a(i);
Next
For K = 1 To 8
 If a(K) = 10 Then Exit For
 Next
For K = 7 To K Step -1
  a(K + 1) = a(K)
Next
a(K) = 11
Print '增加一条语句
Print "插入后"; '移动语句到这里
For K = 1 To 8
 Print a(K); '更改一下
Next
End Sub

Private Sub Command1_Click()
Dim i As Integer
Dim a(5) As Integer
Open "c:\123txt" For Output As #1
For i = 1 To 6
a(i - 1) = i - 1
Print #1, a(i - 1)
Next
Close
End Sub

---