《vb課程復(fù)習(xí)題》word版-文庫(kù)吧
2024-12-25 17:26 本頁(yè)面
【正文】 lect ____ Case n____________ Case 1 ch=”+”: Result=n1+n2 Case 2 ch=””: Result=n1n2 Case 3 ch=” ”: Result=n1*n2 Case 4 ch=”247。 ”: Result=n1/n2 End _________ Select____________ n1 amp。 ch amp。 n2 amp。 “=”。 End Sub Private Sub Command1_Click( ) ‘判斷運(yùn)算結(jié)果并輸出相應(yīng)的符號(hào) If ___ ch = Val(())_________Then Text1。Tab(20)?！薄?” Ntrue= Ntrue+1 Else Text1。Tab(20)?！?” Nfalse = Nfalse +1 End If Text1=“ ” _____ If Nfalse 0 Or Ntrue 0 Then__________ Form_Click End If End Sub Private Sub Command2_Click( ) ‘統(tǒng)計(jì)答題情況 “” “答對(duì)了 ” amp。 n1 amp。 “道題； ”； “答錯(cuò)了 ” amp。 n2 amp。 “道題 ” End Sub 11．統(tǒng)計(jì)并顯示 1~100 之間所有能夠被 7 整除的數(shù)。每行顯示 5 個(gè)數(shù)。 1 答案源代碼： Private Sub Command1_Click() Const m = 100 Dim a(m) As Integer x = 0 For i = 7 To 100 If i Mod 7 = 0 Then a(x) = i Print a(x)。 x = x + 1 If x Mod 5 = 0 Then Print j = j + 1 End If Next i Print Print 能被 7 整除的個(gè)數(shù)是 :。 j End Sub 12．求 n!， n 的值由用戶確定。 1 答案源程序： Private Function f(n As Integer) As Integer If n = 1 Then f = 1 Else f = n * f(n 1) End If End Function Private Sub Command1_Click() Dim m As Integer m = Val(()) () = Str(f(m)) End Sub 13．打印 Fibonacci 數(shù)列的前 20 項(xiàng)。這個(gè)數(shù)列有如下特點(diǎn)：第 1， 2 兩項(xiàng)為 1， 1。從第三項(xiàng)開(kāi)始，該項(xiàng)是其前面兩項(xiàng)之和。 即： F1=1 (n=1) F2=1 (n=2) Fn=Fn1+Fn2 (n≥ 3) 1 答案源代碼： Private Function Fibonacci(a() As Long) As Integer Dim i As Integer, n As Integer n = UBound(a) a(1) = 1 a(2) = 1 For i = 3 To n a(i) = a(i 1) + a(i 2) Print a(i 1)。 a(i 2) Next i End Function Private Sub Command1_Click() Dim a() As Long, n As Integer n = InputBox(請(qǐng)輸入 n 的值： ) ReDim a(1 To n) Fibonacci a() End Sub 14．求 12+22+32+? +n2+?，當(dāng)其和恰好大于或等于某一整數(shù) m時(shí)的和及此時(shí)的 n值。 運(yùn)行界面如圖 。從文本框 Text1 輸入 m 值，用 Command1 實(shí)現(xiàn)計(jì)算，在 Picture1 中顯示結(jié)果。 1 答案源程序： Private Sub Command1_Click() Sum = 0 i = 0 m = Val(()) Do While (Sum m) i = i + 1 Sum = i * i + Sum Loop 1*1+2*2+3*3+...+n*n=。 Sum n=, i End Sub 15．編寫一個(gè)程序，打印如圖 所示的圖形。 1答案源代碼： Private Sub mand1_click() For i = 1 To 5 Print Tab(11 i)。 For j = 1 To 2 * i 1 Print * 。 Next j Print Next i End Sub 16. 編寫一程序，輸入 50 名同學(xué)的成績(jī)，求最高分、最低分和平均分。 1 答案源代碼： Private Sub Command1_Click() Const n = 50 Dim a(n) As Integer For i = 1 To n a(i) = Val(InputBox()) Sum = Sum + a(i) Next i Avg = Sum / 50 39。算出平均分 39。 Print Avg Max = a(1) For i = 2 To n If a(i) Max Then Max = a(i) Next i Print Max 39。算最高分 39。 Min = a(1) For i = 2 To n If a(i) Min Then Min = a(i) Next i Print Min 39。最低分 39。 End Sub 17. 輸入某學(xué)生的某科目考試成績(jī)（ 100 分制），輸出該生的成績(jī)等級(jí)。 90 分以上為“優(yōu)秀”， 80~89 分為“良好”， 70~79 分為中等， 60~69 分為“及格”， 60 分以下為“不及格”。 1 答案源程序： Private Sub Command1_Click() grade = Val(InputBox()) Select Case grade Case 90 To 100 Print 優(yōu)秀 Case 80 To 89 Print 良好 Case 70 To 79 Print 中等 Case 60 To 69 Print 及格 Case Else Print 不及格 End Select End Sub 18. 編寫一程序，輸入一段英文文本，統(tǒng)計(jì)各字母出現(xiàn)的次數(shù)（大小寫字母不區(qū)分）并顯示其結(jié)果。 1 答案源程序： Private Sub Command1_Click() Dim nw As Integer, i As Integer, n As Strin
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1