实验D 部分
第一题
Private Sub Form_click()
For i = 1 To 9
Print Tab(10 - i); String(2 * i - 1, Trim(Str(i)));
Next i End Sub 第二题
Private Sub Form_click() For i = 9 To 1 Step -1
Print Tab(10 - i); String(2 * i, Chr(74 - i))
Next i End Sub
第三题
Private Sub Form_click()
Dim sum!, i&, a%
sum = 0 a = 0 i = 1
Do While 1 / i >= 0.0001 sum = sum + 1 / i
a = a + 1 i = i + a Loop Print \
End Sub
第四题
Private Sub Form_click()
Dim π!, n&, i%
i = 0 π = 2 For n = 1 To 1000
π = π * (2 * n) ^ 2 / ((2 * n - 1) * (2 * n + 1))
i = i + 1 If i = 10 Then Print \ ElseIf i = 100 Then Print \ ElseIf i = 1000 Then Print \
End If Next n End Sub 第五题
Private Sub Form_click()
Dim a%, n%, sum#, t#, i%
Randomize a = Int(Rnd * 9 + 1) Print \随机数字a=\n = Int(Rnd * 6 + 5) Print \共有n=\
t = 0 sum = 0 For i = 1 To n t = t * 10 + a sum = sum + t
Next i Print \
Print End Sub
第六题
Private Sub Form_click() Dim i%, a%, b%, c%, n%
n = 0 For i = 100 To 999 a = Val(Mid(i, 1, 1)) b = Val(Mid(i, 2, 1)) c = Val(Mid(i, 3, 1))
If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Then
n = n + 1 Print \水仙花数\
End If Next i
Print \一共有水仙花数\
End Sub
