vb程序設(shè)計(jì)教程實(shí)驗(yàn)指導(dǎo)與習(xí)題解答上機(jī)答案-預(yù)覽頁
【正文】 ntFor i = 17 To 20a(i) = a(i 1) + a(i 2)Print a(i)。 元, , 行李費(fèi)End SelectEnd Sub初始窗口：輸入10：輸入25：輸入55：輸入120：自測練習(xí)1Option Base 1Private Sub Form_Click()Dim i%, a(1 To 20) As Integera(1) = 1: a(2) = 1Print a(1)。 只Print 籠中兔的頭數(shù)為。 f, , 輸出的結(jié)果End Sub自測練習(xí)2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(InputBox(輸入第一個數(shù)的值))b = Val(InputBox(輸入第二個數(shù)的值))c = Val(InputBox(輸入第三個數(shù)的值))d = Val(InputBox(輸入第四個數(shù)的值))e = a + b + c + df = e / 4Print 和=。 x*y= amp。 Chr(10) amp。 (Chr(10))。交換后的個位f = j 39。個位h = (d + 7) Mod 10 39。個位d = (a \ 10) Mod 10 39。 End Sub初始窗口界面輸入字符串截取前兩個字符截取后兩個字符字符串連接自測練習(xí)2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, k%, l%a = 7349e = a Mod 10 39。千位i = (e + 7) Mod 10 39。千位j = ii = f 39。交換后的百位l = f * 1000 + g * 100 + h * 10 + i = FalsePrint 加密前的4位整數(shù)是7439。 c amp。 Chr(10) amp。 x/y= amp。 x。 b amp。Next iPrintFor i = 11 To 16a(i) = a(i 1) + a(i 2)Print a(i)。Next iFor i = 1 To 4 a(i, 5 i)。 es(n, x)End Sub Private Function es(n, x)Dim a As Double, b As Double, c As Double, i As Integera = 1: b = 1: c = 1For i = 1 To na = x * a: b = b * i: c = c + a / bNext ies = cEnd Function運(yùn)行初始界面：輸入數(shù)據(jù)：運(yùn)行結(jié)果：自測練習(xí)4：For i = 1 To 4 For j = i + 1 To 5 If a(i) a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next jNext iFor i = 1 To 5Print a(i)。Next iEnd Sub運(yùn)行初始界面：插入數(shù)據(jù)：運(yùn)行結(jié)果：41011060藍(lán)志鵬 資源1102 實(shí)驗(yàn)8自測練習(xí)1：Private Sub Command1_Click()If = 1 Then = 報名參加羽毛球比賽End IfIf = 1 Then = 報名參加乒乓球比賽End IfIf = 1 And = 1 Then = 報名參加羽毛球，乒乓球比賽End IfEnd Sub運(yùn)行初始界面：運(yùn)行結(jié)果：自測練習(xí)4：Private Sub Form_Load() = 2 = 24 = 黑體 =
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號-1