《vb課程復(fù)習(xí)題》word版-全文預(yù)覽
【正文】 End Sub 21. 有 5 個班（假設(shè)每班學(xué)生均為 8 人）參加某科目的考試，編寫一個程序求出考試成績最高分的學(xué)生，即要求找出該學(xué)生所在的班號以及在班中的學(xué)號。 Next I End Sub 起泡法排序： Private Sub Command1_Click() Const n = 10 Dim a(n) As Integer For I = 1 To 10 a(I) = Val(InputBox()) Next I For j = 1 To n 1 For k = 1 To n j If a(k) a(k + 1) Then temp = a(k): a(k) = a(k + 1): a(k + 1) = temp End If Next k Next j For I = 1 To 10 Print a(I)。 1 答案源程序： Private Sub Command1_Click() Dim nw As Integer, i As Integer, n As String Dim st As String, char As String, last As String st = (): last = : n = Len(st) For i = 1 To n char = Mid(st, i, 1) If UCase(char) = A And UCase(char) = Z Then nw = nw + 1 Select Case last Case , , 。最低分 39。算出平均分 39。 1答案源代碼： Private Sub mand1_click() For i = 1 To 5 Print Tab(11 i)。 運行界面如圖 。這個數(shù)列有如下特點：第 1， 2 兩項為 1， 1。 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)。 “道題； ”； “答錯了 ” amp?！薄?” Ntrue= Ntrue+1 Else Text1。 n2 amp。） ，由學(xué)生進(jìn)行計算作答，然后計算機(jī)對學(xué)生的作答結(jié)果進(jìn)行判斷，如果正確，在題后打“ √ ”，否則打“ ”，并可在程序運行結(jié)束前統(tǒng)計答對與答錯的題數(shù)。 不是閏年 End If End Sub 9．為了節(jié)約用電，制定如下隨用電量增加而逐級提高電費的收費辦法，根據(jù)用電量的大小分段計費，標(biāo)準(zhǔn)如表 所示。 ② 或能被 400 整除的年份。顛倒順序 39。 答案源程序： Private Sub Command1_Click() a = Int(Rnd * 1012) + 100 39。 分析 :已知三角形的三條邊 a,b,c 的長度 ,則可用海倫公式求三角形的面積。 Spc(5)。 b。 b, a+b =。 Private Sub Form_Click（） Dim a%, b% a = 3: b = 6 Print a。1. 設(shè) a=2,b=5,c=8,計算下列表達(dá)式的值： （ 1） Not(ab) 1 （ 2） a+b=c And a*bc 0 （ 3） ab Or cb 1 （ 4） a+ca+b Xor cb 0 （ 5） 3+4\5*6/7 Mod 8=9 0 2．把下列數(shù)學(xué)表達(dá)式寫成 VB 中的表達(dá)式： （ 1） a acbb 2 42 ??? （ 2） 2x3+sin450 答案： (（ b） +sqr (b*b4*a*c))/(2*a) 2*x*x*x+sin45 3．用 Rnd 產(chǎn)生： （ 1） 0～ 100 之間的隨機(jī)數(shù)，包括 0 和 100。 Private Sub Form_Click（） T1=8： 30： 25AM D1=8/25/2022 Print Format（ D1，＂ m/d/yy＂） Print Format（ D1，＂ mmmm－ dddd－ yyyy＂） Print Format（ T1，＂ h－ m－ s AM/PM＂） Print Format（ T1，＂ hh： mm：－ ss A/P＂） Print Format（ D1，＂ dddddd＂） Print FormatDateTime（ Now） End Sub 答案 顯示結(jié)果： 82505 AugustThursday2022 83025AM 08:30:25 A 2022 年 8 月 25 日 星期四 20221229 16:14:30 5．用 Print 方法在窗體中輸出數(shù)據(jù)。 a, b=。 Tab(15)。 a。 a + b End Sub 輸出結(jié)果 ： 9 9 a=3 b=6 a+b=9 6 、 9 3 6 9 6．已知三角形的三條邊 a,b,c 的長度，求三角形的面積。例如產(chǎn)生的隨機(jī)數(shù)為 123，應(yīng)輸出 321。 a 39。閏年的條件是 :① 能被 4 整除，但不能被100 整除的年份。 是閏年 Else Print n。要求：每次隨機(jī)產(chǎn)生兩個 1~100 之間的整數(shù)和隨機(jī)產(chǎn)生一種運算符 （ +、 、247。 ch amp。Tab(20)。 n1 amp。每行顯示 5 個數(shù)。 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 項。 a(i 2) Next i End Function Private Sub Command1_Click() Dim a() As Long, n As Integer n = InputBox(請輸入 n 的值： ) ReDim a(1 To n) Fibonacci a() End Sub 14．求 12+22+32+? +n2+?，當(dāng)其和恰好大于或等于某一整數(shù) m時的和及此時的 n值。 Sum n=, i End Sub 15．編寫一個程序，打印如圖 所示的圖形。 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)
試題試卷相關(guān)推薦
鄂ICP備17016276號-1