vb程序设计教程 主编泷沛曾等 实验D

实验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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库vb程序设计教程 主编泷沛曾等 实验D在线全文阅读。