vb程序設(shè)計(jì)習(xí)題及答案第5章循環(huán)結(jié)構(gòu)程序設(shè)計(jì)(存儲(chǔ)版)
【正文】 運(yùn)行結(jié)果:若x輸入值為:, 則程序運(yùn)行結(jié)果如圖55（4）所示： i amp。 5分 Else str2$ = str1$ amp。 年 最后一年的還款數(shù) amp。【參考答案】程序代碼設(shè)計(jì)Private Sub Form_Click() h = 10 s = h For i = 1 To 9 h = h * 2 / 3 s = s + 2 * h Next i s = CInt(100 * s) / 100 球第10次落地時(shí)的總路程為?！緟⒖即鸢浮砍绦虼a設(shè)計(jì)Private Sub Command1_Click() Dim m As Integer, n As Integer, u As Integer, v As Integer m = Val() n = Val() If m n Then u = m: v = n Else v = m: u = n End If Do r = u Mod v u = v: v = r Loop Until r = 0 m = m / u: n = n / u = 化簡(jiǎn)后分子 amp。問(wèn)原來(lái)共有多少顆糖果。 z End If Next z Next y Next xEnd Sub圖512程序運(yùn)行結(jié)果 If k = 5 Then k = 0: Print Next nEnd Sub。5．14 打印出3～100之間的所有素?cái)?shù)（質(zhì)數(shù)）?！緟⒖即鸢浮砍绦虼a設(shè)計(jì)Private Sub Form_Click() For x = 1 To 6 For y = 1 To 6 For z = 1 To 6 If x ^ 3 + y ^ 3 z ^ 3 = 3 Then x。第一天吃了一半，又吃了一顆；第二天，同樣吃了剩下的一半，又多吃了一顆。5．10 編寫(xiě)程序把一個(gè)分?jǐn)?shù)化為最簡(jiǎn)分?jǐn)?shù)?！緟⒖即鸢浮砍绦虼a設(shè)計(jì)Private Sub Form_Click() Dim p As Single p = 10 r = n = 0 While (p 0) p = p * (1 + r) n = n + 1 If n = 3 Then p = p 3 Wend 還清貸款時(shí)間 amp。 10分 Else c = Val(InputBox(str1$ amp。最后給出總得分。（4）xx3/3!+x5/5!x7/7!+……【參考答案】程序代碼設(shè)計(jì)Private Sub Command1_Click() x = Val(InputBox(請(qǐng)輸入x值)) Sum = x t1 = x t2 = 1 f = 1 k = 1 While (t1 / t2 ) k = k + 2 t1 = t1 * x * x t2 = t2 * (k 1) * k圖55（4）程序運(yùn)行結(jié)果 f = f * (1) Sum = Sum + f * t1 / t2 Wend xx^3/3!+x^5/5!x^7/7!+……=。（3）1+13+135+……+
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1