VB经典例题(修改版)数组部分以后.docVIP

【学习指导】练习题P109 设计题 （对调） Private Sub Command1_Click() Dim a(1 To 15) As Integer For i = 1 To 15 a(i) = Int(Rnd * (100 - 1 + 1) + 1) Print a(i); Next i Print For i = 1 To 15 \ 2 t = a(i) a(i) = a(15 - i + 1) a(15 - i + 1) = t Next i For i = 1 To 15 Print a(i); Next i End Sub 也可以用动态数组完善程序，随机产生任意几个正整数并对调 Dim a() As Integer Private Sub Command1_Click() x = InputBox(请输入你想随机产生几个正整数) ReDim a(1 To x) As Integer For i = 1 To x a(i) = Int(Rnd * (100 - 1 + 1) + 1) Print a(i); Next i Print For i = 1 To x \ 2 t = a(i) a(i) = a(x - i + 1) a(x - i + 1) = t Next i For i = 1 To x Print a(i); Next i End Sub （3和6题的合并）（计算数组各个方向的总和） 第3题 Private Sub Command1_Click() Dim a(1 To 5, 1 To 5) As Integer Randomize For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(Rnd * (10 - 1 + 1) + 1) b = b + a(i, j) Print Tab(j * 4); Trim(a(i, j)); Next j Print \; b【目的在于和每行的数分开，可不加】 b = 0 Next i For j = 1 To 5 For i = 1 To 5 c = c + a(i, j) Next i Print Tab(j * 4); Trim(c); c = 0 Next j Print Print _____________________________【目的在于和下一组分开，如图，可加可不加】 End Sub 第6题【此程序先要点击窗体生成一组数据才能进行，也可修改成form-load事件直接进行计算】 Dim a(1 To 5, 1 To 5) As Integer Private Sub Command1_Click() For i = 1 To 5 For j = 1 To 5 b = b + a(i, j) Next j Next i Print 所有元素之和=; b End Sub Private Sub Command2_Click() For j = 1 To 5 c = c + a(1, j) + a(5, j) Next j For i = 2 To 4 c = c + a(i, 1) + a(i, 5) Next i Print 所有靠边元素之和=; c End Sub Private Sub Command3_Click() For i = 1 To 5 For j = 1 To 5 If i = j Then d = d + a(i, j) Next j Next i For i = 1 To 5 For j = 5 To 1 Step -1 If i + j = 6 Then d = d + a(i, j) Next j Next i Print 两条对角线之和=; d End Sub Private Sub Form_Click() For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(Rnd * (100)) + 1 Print a(i, j); Next j Print Next i End Sub 8、编程输出n行杨辉三角图形，n由键盘输入。 Dim a() As Long Dim n As Long Private Sub Command1_Click() n = InputBox(请输入你想产生几行杨辉三角形？) ReDim a