VB程序设计第三版实验E答案.doc
文本预览下载声明
VB程序设计第三版实验答案（全） 1
Private Sub Form_Click()
Dim a(1 To 10) As Integer
For i = 1 To 10
a(i) = Int(Rnd * 71 + 30)
Print a(i); ;
Next i
Max = a(1)
Min = a(1)
Avg = a(1)
For i = 2 To 10
If a(i) Max Then Max = a(i)
If a(i) Min Then Min = a(i)
Avg = Avg + a(i)
Next i
Avg = Avg / 10
Print
Print Max=; Max; Min=; Min; Avg=; Avg
End Sub
2
Private Sub Form_Click()
Dim a
a = Array(56, 78, 98, 88, 76, 78)
For i = 0 To 5
Print String(a(i) \ 5, ◆); a(i)
Print
Next i
End Sub
3
Dim a%(19)
Private Sub Command1_Click()
Picture1.Cls
For i = 0 To 19
a(i) = Int(Rnd * 101)
Picture1.Print a(i); ;
If (i + 1) Mod 4 = 0 Then Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
Picture2.Cls
Dim s(5 To 9)
For i = 0 To 19
k = a(i) \ 10
Select Case k
Case 0 To 5
s(5) = s(5) + 1
Case 9 To 10 90～100分的人数
s(9) = s(9) + 1
Case 6 To 8 存放其他三个分数段的下标有规律，根据K获得
s(k) = s(k) + 1
End Select
Next i
For i = 5 To 9
If s(i) 0 Then Picture2.Print s(; i; )的人数有 ; Format(s(i), 0); 个
Next i
End Sub
4
Private Sub Command1_Click()
Picture1.Cls
Dim d%(1 To 10)
For i3 = 1 To 10
Randomize
d(i3) = Int(Rnd * 91 + 10)
Next i3
For i = 1 To 10
For j = 1 To 10 - i
If d(j) d(j + 1) Then
t = d(j): d(j) = d(j + 1): d(j + 1) = t
End If
Next j
Next i
For i = 1 To 10: Picture1.Print d(i);
If i Mod 5 = 0 Then Picture1.Print
Next i
End Sub
5
Dim a%(3, 3), b%(3, 3)
Private Sub Form_Load()
For i = 0 To 3
For j = 0 To 3
a(i, j) = Int(Rnd * 36 + 35)
b(i, j) = Int(Rnd * 41 + 100)
Next j
Next i
End Sub
Private Sub Command1_Click()
Picture1.Cls
For i = 0 To 3
For j = 0 To i
Picture1.Print a(i, j); ;
Next j
Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
Picture2.Cls
For i = 0 To 3
For j = i To 3
Picture2.Print Tab(j * 6); b(i, j);
Next j
Picture2.Print
Next i
End Sub
Private Sub Command3_Click()
Picture3.Cls
显示全部