vb程序设计教程课后答案与实验题答案（第三版）(6)

t = t + i s = s + 1 / t

If 1 / t < 0.00001 Then Exit For Next i

Print \结构\项\End Sub

D．4

Private Sub Command1_Click() Dim n&, pi#, i&

n = InputBox(\输入n值\pi = 2

For i = 1 To n

pi = pi * (2 * i) / (2 * i - 1) * (2 * i) / (2 * i + 1) Next i

Print \当n=\时，pi=\End Sub

D．5

Private Sub Form_Click() Dim s!, t!, i!, a%, n% a = Int(Rnd * 9 + 1) n = Int(Rnd * 6 + 5) t = 0: s = 0

Print \ For i = 1 To n t = t * 10 + a s = s + t Print t; Next i Print

Print \End Sub

D．6

Private Sub Command1_Click() Dim s As Integer s = 0

For i = 1 To 9 For j = 0 To 9 For k = 0 To 9

s = i * 100 + j * 10 + k

If s = i ^ 3 + j ^ 3 + k ^ 3 Then Print s

End If Next k Next j Next i End Sub

Private Sub Command3_Click() formd6.Hide main.Show End Sub

D．7

Private Sub Command1_Click() Dim a!, x0!, x1! a = 27 x0 = 2 i = 0 Do

i = i + 1

x1 = 2 * x0 / 3 + a / (3 * x0 * x0)

If Abs(x1 - x0) < 0.00001 Then Exit Do x0 = x1 Loop Print x1, i End Sub

D．8

Private Sub Command1_Click() s = 0 x0 = 0.01

For i = 1 To 30 s = s + x0 x0 = x0 * 2 Next i Print s End Sub

D．9

Private Sub Command4_Click() Picture1.Cls

Picture1.Print \课安排在 \课安排在Picture1.Print \For z = 5 To 6 For x = 1 To z - 2 For Y = x + 1 To z - 1

\课安排在 \ X1 = Choose(Weekday(x), \周一\周二\周三\周四\周五\周六\周日\Y1 = Choose(Weekday(Y), \周一\周二\周三\周四\周五\周六\周日\z1 = Choose(Weekday(z), \周一\周二\周三\周四\周五\周六\周日\Picture1.Print \ \ \Next Y Next x Next z End Sub

E．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 \ Min=\End Sub

E．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, \◆\ Print Next i End Sub

E．3

Dim a%(19)

Private Sub Command1_Click() Picture1.Cls

Avg=\ 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 \的人数有 \个\ Next i End Sub

E．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

E．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 sa = 0

For i = 0 To 3 sa = sa + a(i, i) Next i sb = 0

For i = 0 To 3

sb = sb + b(i, 3 - i) Next i

Picture3.Print \数组主对角线元素和为：\ Picture3.Print \数组副对角线元素和为：\End Sub