UC知道vb问题...请教各位
来源：百度知道 编辑：UC知道 时间：2024/05/22 17:47:56
Private Sub Form_Click()
Dim a, b, i, j, c
a = Array(2, 8, 7, 6, 4, 28, 70, 25)
b = Array(79, 27, 32, 41, 57, 66, 78, 80)
Print "第一个数组为："
For i = LBound(a) To UBound(a)
Print a(i);
Next i
Print
Print "第二个数组为："
For j = LBound(b) To UBound(b)
Print b(j);
Next j
Print
Print "两个数组相对元素相加的结果为："
Print
Print "相加的结果的降序为："
End Sub
将这两个未完成的数据补上去...两个数组相对元素相加的结果为：和 相加的结果的降序为："
Dim a, b, i, j, c
a = Array(2, 8, 7, 6, 4, 28, 70, 25)
b = Array(79, 27, 32, 41, 57, 66, 78, 80)
Print "第一个数组为："
For i = LBound(a) To UBound(a)
Print a(i);
Next i
Print "第二个数组为："
For j = LBound(b) To UBound(b)
Print b(j);
Next j
Print "两个数组相对元素相加的结果为："
Print "相加的结果的降序为："
End Sub
将这两个未完成的数据补上去...两个数组相对元素相加的结果为：和 相加的结果的降序为："
Private Sub Form_Click()
Dim a, b, i, j, c
a = Array(2, 8, 7, 6, 4, 28, 70, 25)
b = Array(79, 27, 32, 41, 57, 66, 78, 80)
Print "第一个数组为："
For i = LBound(a) To UBound(a)
Print a(i);
Next
Print
Print "第二个数组为："
For j = LBound(b) To UBound(b)
Print b(j);
Next
Print
Print "两个数组相对元素相加的结果为："
Dim AddNum(), max, AddNj%
AddNj = IIf(UBound(a) <= UBound(b), UBound(a), UBound(b))
ReDim AddNum(AddNj)
For i = 0 To AddNj
AddNum(i) = a(i) + b(i)
Print AddNum(i);
Next
Print
Print "相加的结果的降序为："
For i = 0 To AddNj
For j = i + 1 To AddNj
If AddNum(i) < AddNum(j) Then
max = AddNum(j)
AddNum(j) = AddNum(i)
AddNum(i) = max
End If
Next
Next
For i = 0 To AddNj
Print AddNum(i);
Next
End Sub
补在哪，把要补的地方弄个问号
“VB妮可”回答应该没有问题，但是加：
Me.Show
语句就更加完