急问 VB编程题

急问 VB编程题静态声明一个二维数组，输入和输出该数组各元素的值要求：1.计算并输出数组主对角线和次对角线元素的和。 2.交换1、3行后输出整个数组的值 3.交换数组的行与列后输出整个数组的值

答案：
Option Base 1
Private Sub Command1_Click()
Dim a, b, c, m, n, f, h(5) As String

a = InputBox("输入各学生的姓名", "", "") '用inputbox输入各个学生的信息
m = InputBox("输入学生的性别", "", "")
n = InputBox("输入各学生的年龄", "", "")
f = InputBox("输入各学生所在的学校", "", "")
 For j = 1 To 5
 h(j) = InputBox("输入各学生的成绩", "", "")
 Next j
 
 Text1.Text = a '把输入的各信息在赋给对应的text
 Text3.Text = m
 Text2.Text = n
 Text4.Text = f
 For j = 1 To 5
List1.AddItem (h(j)) '用list控件来保存各个学生的成绩
Next j
End Sub

Private Sub Command2_Click()
 Dim a, b, sum As Integer
 sum = 0
 For j = 1 To 5
a = List1.ListCount - 1 '取出list中的各数值,进行求和运算
b = a
sum = sum   b
Label6.Caption = sum
Next j

Private Sub Command1_Click()Dim a(5, 5) As Integer, b(5, 5) As Integer For i = 1 To 5 For j = 1 To 5 a(i, j) = (i - 1) * 5 + j If i = j Then s = s + a(i, j) If i + j = 6 Then t = t + a(i, j) Next j Next i Print "主对角线元素的和为：" & s Print "次对角线元素的和为：" & t Print "交换后：" For i = 1 To 5 For j = 1 To 5 If i = 1 Then b(i, j) = a(3, j) ElseIf i = 3 Then b(i, j) = a(1, j) Else b(i, j) = a(i, j) End If Print b(i, j); Next j Print Next i Print "交换数组的行与列后" For i = 1 To 5 For j = 1 To 5 b(i, j) = a(j, i) Print b(i, j); Next j Print Next iEnd Sub
到国际注册汉语网站查看回答详情>>

上一个：vb编程的问题
下一个：几个vb编程问题