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

m% = InputBox(\请输入正整数m(m>=1)\阶乘\ n% = InputBox(\请输入正整数n(n>=m)\阶乘\

For m = m To n

t = 1

For i = 1 To m

t = t * i Next i s = s + t Next m

Print \…+n!=\

End Sub

4-13

Private Sub Form_click()

Dim a% Dim b% Dim c% For a = 1 To 20 For b = 1 To 20 For c = 1 To 20

If a * a + b * b = c * c Then

Print a, b, c

End If

Next c Next b Next a End Sub

4-14

Private Sub Form_click()

For n = 1 To 500 For i = 1 To n - 1

If n Mod i = 0 Then s = s + i

Next i

If s = n Then Print i;

s = 0 Next n Print End Sub

4-15

Private Sub Form_click()

Dim i As Integer Dim n As Long

n = 1 t = 1

Do While t > 0.00001

e = e + t i = i + 1 n = n * i t = 1 / n Loop

Print \的近似值是\

End Sub 5—1

Private SubForm_Click() Dim i%, x(1 To 5)As String For i = LBound(x)To UBound(x) x(i) =InputBox(\

Next i

For i = UBound(x)To LBound(x) Step -1

Print x(i) Next i Print

End Sub 5-2

Private Sub Form_Click() Dim i%, s

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

For i = 0 To 9

If s(i) Mod 3 = 0 Then Print s(i); i Else Print \ End If Next i Print End Sub 5-3

Option Base 1

Private Sub Command1_Click() Dim x()

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

For i = 1 To 9 x(i) = x(i + 1) Print x(i); Next x(10) = t Print x(i) End Sub

Private Sub Command2_Click() Dim x()

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

For i = 9 To 1 Step -1 x(i + 1) = x(i) Next i x(1) = t

For i = 1 To 10 Print x(i); Next i End Sub 5-4

Private Sub Form_Click() Dim a(5, 5) For i = 1 To 5 Sum = 0 For j = 1 To 5

a(i, j) = Int(Rnd * 51 + 10) Sum = Sum + a(i, j) Print a(i, j); Next j