VB程序设计基础 申石磊 答案(5)

Print Sum Next i Print

For i = 1 To 5 For j = 1 To 5

If i = j Then Print a(i, j); Next j Next i Print End Sub 5-5

Private Sub Form_Click() Dim a() As Integer

Dim Max As Integer, iMax As Integer, jMax As Integer

Dim Min As Integer, iMin As Integer, jMin As Integer M = InputBox(\输入M\ N = InputBox(\输入N\ ReDim a(M, N) For i = 1 To M For j = 1 To N

a(i, j) = Int(Rnd * 900) + 100

Next j

Next i

For i = 1 To M For j = 1 To N Print a(i, j); Next j Print Next i

Max = a(1, 1): Min = a(1, 1) For i = 1 To M For j = 1 To N

If a(i, j) > Max Then Max = a(i, j): iMax = i: jMax = j f a(i, j) < Min Then Min = a(i, j): iMin = i: jMin = j Next j Next i

Print \ Print \ Erase a End Sub 5-6

Private Sub Form_Click() n = InputBox(\

ReDim a(n, n) For i = 1 To n For j = 1 To n If i = j Then a(i, j) = 1 Else a(i, j) = 0 End If Next j Next i

For i = 1 To n For j = 1 To n Print a(i, j); Next j Print Next i Erase a End Sub 5-7

Private Sub Form_Click() Dim x As Variant

x = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

For i = 1 To 10 Print x(i); Next i Print

For i = 1 To 7 x(i) = x(i + 3) Print x(i); Next i Print

ReDim Preserve x(i)

x = Array(1, 2, 3, 4, 5, 6, 7) or i = 1 To 7 Print x(i); Next i Print End Sub 5-8

Option Base 1

Private Sub Command1_Click(Index As Integer) Select Case Index Case 1

Text3 = Val(Text1) + Val(Text2)

Case 2

Text3 = Text1 - Text2 Case 3

Text3 = Text1 * Text2 Case 4

Text3 = Text1 / Text2 End Select End Sub 6-1

Private Sub Form_click() Dim x As Single Dim y As Single Dim z As Single

x = InputBox(\请输入圆柱体的半径\ y = InputBox(\请输入圆柱体的高度\ volume x, y, z

Print \圆柱体的体积为\ End Sub 6-2

窗体模块

Private Sub Form_click() Dim a!, b!, c!