20xx年上計算機(jī)vb試卷-資料下載頁
2025-08-04 07:44本頁面
【正文】 。Option Base 1Private Sub Form_Click() Dim n As Integer, i As Integer t = Array(34, 81, 127, 192, 16, 73, 49, 50) n = t(1) For i = 2 To UBound(t) If t(i) n Then n = t(i) End If Next i Print nEnd Sub3．執(zhí)行下列程序后，輸出的結(jié)果是 3 。Private Sub Form_Click() s = func1(10) Print sEnd SubFunction func1(m As Integer) As Integer Dim k As Integer, sum As Integer sum = 0 For k = m To 1 Step 2 sum = sum + k Next k func1 = sumEnd Function4．執(zhí)行下列程序后，輸出的結(jié)果是 4 。Private Sub Form_Click() Dim A(1 To 4) As Integer Dim i As Integer, sum As Integer sum = 0 For i = 1 To 4 If i Mod 2 = 0 Then A(i) = i * i Else A(i) = 2 * i End If sum = sum + A(i) Next i Print sumEnd Sub5．執(zhí)行下列程序后，輸出的結(jié)果是 5 。Private Sub Command1_Click() Dim a As Integer Dim i As Integer, sum As Integer a = 2 For i = 1 To 3 sum = sum + fun(a) Next i Print sumEnd SubFunction fun(a As Integer) As Integer Static c As Integer 39。靜態(tài)變量 c = c + 1 fun = a * cEnd Function四、編程題（共20分）1. 編寫窗體的單擊事件過程，用Rnd函數(shù)隨機(jī)產(chǎn)生10個三位正整數(shù)并存放到一維整型數(shù)組中，然后用Print方法將數(shù)組中的最大數(shù)輸出到窗體上（6分）。2. 編寫一個函數(shù)過程OddEven(n)，判斷整數(shù)n的奇偶性。如n是奇數(shù)則函數(shù)值為1，否則函數(shù)值為0。編寫窗體的單擊事件過程，使用InputBox輸入一個整數(shù)，調(diào)用OddEven函數(shù)進(jìn)行判斷，并用MsgBox輸出該數(shù)是奇數(shù)還是偶數(shù)，界面如下（7分）。 3. 某航空公司的機(jī)票優(yōu)惠規(guī)定如下：在2~5月份、9~12月份，如一次訂購票數(shù)超過20張則票價7折優(yōu)惠；一次購票超過10張則8折優(yōu)惠；其余月份不優(yōu)惠。編程計算所需票款并顯示，設(shè)計與運(yùn)行界面如下（7分）。
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號-1