高中信息技術(shù)學(xué)業(yè)水平測(cè)試VB操作題

1、Vb算法 程序題匯總目錄1、輸入5個(gè)數(shù)并排序（選擇排序）2、判讀輸入的三條邊能否構(gòu)成三角形3、圖形打印 （倒三角）4、判斷是否為閏年5、產(chǎn)生隨機(jī)數(shù)6、輸入消費(fèi)金額，計(jì)算出實(shí)收金額7、輸入用電量，計(jì)算出輸出電費(fèi)8、求出100以內(nèi)某數(shù)的階乘9、程序改錯(cuò)，求100以內(nèi)奇數(shù)之和10、輸入學(xué)生成績(jī)，顯示相應(yīng)等級(jí) （select case結(jié)構(gòu)）11、圖形打印 （三角形）12、用字符串函數(shù)Ucase()和轉(zhuǎn)換函數(shù)Asc()填空13、對(duì)數(shù)組賦值并求和14、利用函數(shù)，把a(bǔ)bcd變成BCD15、輸入10個(gè)數(shù)，求最大值最小值和平均值16、輸入公里數(shù)，計(jì)算車(chē)費(fèi)17、已知兩邊和夾角，求三角形面積18、輸入學(xué)生成績(jī)，顯示

2、相應(yīng)等級(jí) （select case結(jié)構(gòu)）19、學(xué)生成績(jī)轉(zhuǎn)換 （select case結(jié)構(gòu)）20、求100以內(nèi)能夠被19整除的個(gè)數(shù)1、完善程序代碼實(shí)現(xiàn)當(dāng)單擊"輸入并排序"按鈕后，從鍵盤(pán)輸入5個(gè)數(shù)，保存在數(shù)組中，并顯示在窗體上，然后把這5'個(gè)數(shù)按照從小到大的順序排列并顯示在窗體上。Private Sub Command1_Click() Dim x As Long Dim n As Integer, i As Integer, s As Long Dim a(1 To 5) As Single For i = 1 To 5 a(i) = Val(InputBox(&qu

3、ot;請(qǐng)?jiān)谳斎氲?quot; + Str(i) + "/5個(gè)數(shù)") Print a(i); Next i Print For i = 1 To _ Min = a(i): m = i For x = i + 1 To 5 If _ Then Min = a(x): m = x Next x k = a(i): _: a(m) = k Next i Print "從小到大排序后的數(shù)據(jù)為：" For i = 1 To 5 Print a(i); Next iEnd Sub2、完善程序代碼實(shí)現(xiàn):輸入三角形的三條邊長(zhǎng)，首先判斷給出的三條邊能否構(gòu)成三角形（三角形的

4、兩邊之和大于第三邊），如可以，則計(jì)算并輸出該三角形的面積；否則輸出"不能構(gòu)成三角形"。Private Sub Command1_Click()Dim a, b, c, q, s As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) q = (a + b + c) / 2 If (a + b) <= c Or (a + c) <= b _ (b + c) <= a Then Print "不能構(gòu)成三角形" Else s = _(q * (q - a) *

5、 (q - b) * (q - c) Print "三角形的面積是" & s _End Sub3、刪除及下劃線，填上正確的代碼，畫(huà)出如下所示的圖形，請(qǐng)不要更改原程序結(jié)構(gòu)。* * *Private Sub Command1_Click()Dim i, j, k As Integer For i = 4 To 1 Step _ For j = 1 To _ Step 1 Print "*" '打印符號(hào)* _ Print '換行 For k = i - 3 To 1 Print " " '打印空格 Next

6、k Next iEnd Sub4、判斷某年是否為閏年的方法是如果該年份的數(shù)值能被4整除但不能被100整除，或者能被400整除則該年份是閏年。Private Sub Command1_Click() Dim i As Long i = _ If i Mod 4 = 0 And _ Then Label2.Caption = "該年是閏年！" Else Label2.Caption = "該年不是閏年！" _End Sub5、（1）刪除及下劃線，填空完成程序。（2）完善程序代碼實(shí)現(xiàn):手動(dòng)輸入0到10以內(nèi)的一個(gè)整數(shù)，如果這個(gè)數(shù)字正好等于隨機(jī)產(chǎn)生的整數(shù)（0到10

7、之內(nèi)），'那么輸出"恭喜您猜中了！"，否則輸出"謝謝，重在參與！"。Private Sub Command1_Click() Dim i, j As Integer Randomize i = _ j = Val(InputBox("請(qǐng)您輸入一個(gè)0-10之間的整數(shù):") Print "您選中的數(shù)字為：" & j Print "隨機(jī)產(chǎn)生的數(shù)為：" & i If _ Then Print "恭喜您猜中了！" Else Print "謝謝，重在參與

8、！" End IfEnd Sub6、凡在商場(chǎng)消費(fèi)滿500元以上(含500元)，享受9折優(yōu)惠；消費(fèi)滿1000元以上(含1000元)，享受8折優(yōu)惠；消費(fèi)在500元以下不優(yōu)惠。輸入消費(fèi)金額，計(jì)算出實(shí)收金額。注：請(qǐng)不要更改原程序結(jié)構(gòu)，刪除、及下劃線，并在對(duì)應(yīng)位置填寫(xiě)正確的代碼。Private Sub command1_click() Dim m As Single '消費(fèi)金額 m = _ If m >= 1000 Then Text2.Text = _ Else If _ Then Text2.Text = m * 0.9 Else Text2.Text = m End If

9、End IfEnd Sub7、在Text1中輸入每月用電量，單擊按鈕"應(yīng)收電費(fèi)"后，在Text2中輸出電費(fèi)。收費(fèi)標(biāo)準(zhǔn)：家庭每月用電量不超過(guò)260度按原價(jià)1.3元/度收費(fèi)；超過(guò)260度，不超過(guò)400度每度電費(fèi)用增加0.1元；超過(guò)400度后每度電費(fèi)用增加0.3元。Private Sub Command1_Click() Dim i As Single i =_ If i >= 0 And i <= 260 Then s = _ If i > 260 And i <= 400 Then s = i * (1.3 + 0.1) If i > 400 T

10、hen s = i * (1.3 + 0.3) _ = s & "元"End Sub8、完善程序代碼實(shí)現(xiàn):任意輸入一個(gè)1到100以內(nèi)的整數(shù)，并求出它的階乘。Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim s As Double s = _ i = Val(InputBox("請(qǐng)您輸入一個(gè)1到100以內(nèi)的整數(shù)") For j = 1 To i s = _ _ Print i & "的階乘等于" & sEnd Sub9、下面的程序

11、是求100以內(nèi)所有奇數(shù)之和,程序中有三處錯(cuò)誤，請(qǐng)更正。Private Sub Command1_Click() Dim s As Integer Dim i As Integer s = 0 For i = 1 To 99 Step 1 s = s * i End If Print "s=" & sEnd Sub10、在Text1中輸入學(xué)生的成績(jī)，點(diǎn)擊“轉(zhuǎn)換”按鈕后，轉(zhuǎn)換成相應(yīng)的等級(jí)并顯示在Label1中！Private Sub Command1_Click()Dim exam As Integerexam = _ Select Case _ Case Is <

12、; 60 Label1.Caption = "該學(xué)生的成績(jī)等級(jí)為：D" Case 60 To 69 Label1.Caption = "該學(xué)生的成績(jī)等級(jí)為：C" Case 70 To 84 Label1.Caption = "該學(xué)生的成績(jī)等級(jí)為：B" Case 85 To 100 Label1.Caption = "該學(xué)生的成績(jī)等級(jí)為：A" Case Else Label1.Caption = "輸入的數(shù)據(jù)不合法" _End Sub11、'刪除程序中的及下劃線，填空完成程序，運(yùn)行程序使能

13、打印下面所示的圖案。'''''''注：請(qǐng)不要更改原程序結(jié)構(gòu)，刪除、及下劃線，并在對(duì)應(yīng)位置填寫(xiě)正確的代碼Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 1 To _ Print Tab(10); For j = 1 To _ Print _ Next j Print Next iEnd Sub12、'刪除及下劃線， 利用字符串函數(shù)Ucase()和轉(zhuǎn)換函數(shù)Asc()，填空完成程序。'注：請(qǐng)不要更改原程序結(jié)構(gòu)，刪除、及下劃線，并在對(duì)應(yīng)位

14、置填寫(xiě)正確的代碼。Private Sub Form_Click() Dim str1 As String, str2 As String Dim str3 As String, i As Integer str1 = "f" For i = 1 To _ str2 = UCase(str1) str1 = str2 & str1 str3 = str3 & str1 str1 = Chr(Asc(str1) + _) _ Print str3End Sub13、'刪除及下劃線，填空完成程序。'程序運(yùn)行后，單擊“初始值”命令按鈕對(duì)數(shù)組a的各元素

15、賦值；'單擊“求和”命令按鈕，求出數(shù)組a的各元素之和，并在Text1中顯示出來(lái)'注：請(qǐng)不要更改原程序結(jié)構(gòu)，刪除、及下劃線，并在對(duì)應(yīng)位置填寫(xiě)正確的代碼。Dim a(4, 3) As IntegerDim i, j As IntegerPrivate Sub Command1_Click()For i = 0 To 3 For j = 0 To 2 _ = i + j Next jNext iEnd SubPrivate Sub Command2_Click()For j = 0 To 3 For i = 0 To 2 s = s + _ Next iNext jText1.Tex

16、t = _End Sub14、'（1）刪除及下劃線，填空完成程序。'（2）程序運(yùn)行后，從鍵盤(pán)上輸入“abcd”，單擊確定按鈕后，在標(biāo)簽Label1中顯示出“BCD”'注：請(qǐng)不要更改原程序結(jié)構(gòu)，刪除、及下劃線，并在對(duì)應(yīng)位置填寫(xiě)正確的代碼。Private Sub Form_Load()Dim strtext As Stringstrtext = _("請(qǐng)輸入")strtext = _(Trim(_), 3)Label1.Caption = _(strtext)End Sub15、'（1）刪除及下劃線，填空完成程序。'（2）從鍵盤(pán)輸入10個(gè)

17、100以內(nèi)的整數(shù)，單擊命令按鈕后在窗體上輸出其中的最大數(shù)，最小數(shù)和平均值'注：請(qǐng)不要更改原程序結(jié)構(gòu)，刪除、及下劃線，并在對(duì)應(yīng)位置填寫(xiě)正確的代碼。Private Sub Command1_Click() Dim x As Integer Dim max, min, sum As Integer x = InputBox("請(qǐng)輸入您的數(shù)：") Print "您輸入的數(shù)有：" & x; "、" max = x: min = x: sum = x For i = 2 To 10 x = InputBox("請(qǐng)輸入您的

18、數(shù)："): Print x; sum = sum + x If _Then Max = x If _Then Min = x Next i Print "平均值" & _ Print "最大數(shù)" & max, "最小數(shù)" & minEnd Sub16、'（1）刪除及下劃線，填空完成程序。'（2）輸入車(chē)程公里數(shù)，單擊按鈕“應(yīng)收車(chē)費(fèi)”后，在Label1輸出車(chē)程，在Label2中輸出車(chē)費(fèi)。'收費(fèi)標(biāo)準(zhǔn)：3公里內(nèi)（包括3公里）起步價(jià)12元；'超過(guò)3公里，但10公里內(nèi)(包括10公里

19、)，則3公里內(nèi)收費(fèi)12元，超出部分每公里2元；'如果超過(guò)10公里，則10公里內(nèi)收費(fèi)26元，超出部分每公里3元。其程序?qū)崿F(xiàn)如下：'注：請(qǐng)不要更改原程序結(jié)構(gòu)，刪除、及下劃線，并在對(duì)應(yīng)位置填寫(xiě)正確的代碼。Private Sub Command1_Click()x = Val(Text1.Text)If x > 0 And x <= 3 Then _If x > 3 And _ Then y = 12 + (x - 3) * 2If x > 10 Then y = _ * 3If x <= 0 Then y = 0Label1.Caption = x &a

20、mp; "公里"Label2.Caption = y & "元"End Sub17、'（1）刪除及下劃線，填空完成程序。'（2）已知三角形的兩邊分別為15、18，它們的夾角為41度，圓周率取3.14，求該三角形的面積。'注：請(qǐng)不要更改原程序結(jié)構(gòu)，刪除、及下劃線，并在對(duì)應(yīng)位置填寫(xiě)正確的代碼Private Sub Command1_Click()a = 15b = _s = 0.5 * a * b * _(41 * 3.14 / 180)_= sEnd Sub18、'（1）刪除及下劃線，填空完成程序。'（2）

21、在文本框Text1中輸入成績(jī)，點(diǎn)擊"等級(jí)"按鈕時(shí)，文本框里就顯示相應(yīng)的等級(jí)。具體等級(jí)劃分如下：' 90分以上為"優(yōu)"，80到89分為"好"，70到79分為"良"，60到69分為"及格"，60分以下為"不及格"。'注：請(qǐng)不要更改原程序結(jié)構(gòu)，刪除、及下劃線，并在對(duì)應(yīng)位置填寫(xiě)正確的代碼。Private Sub Command1_Click() Dim x As Integer, grade As String x = _ _ Case 90 To 100 grade

22、 = "優(yōu)" Case 80 To 89 grade = "好" Case 70 To 79 grade = "良" Case 60 To 69 grade = "及格" Case Is < 60 _ Case Else MsgBox "請(qǐng)重新輸入"End SelectPrint "該學(xué)生成績(jī)?yōu)?" + _End Sub19、'在Text1中輸入學(xué)生的成績(jī)，點(diǎn)擊“轉(zhuǎn)換”按鈕后，轉(zhuǎn)換成相應(yīng)的等級(jí)并顯示在Label1中！Private Sub Command1_Click()Dim exam As Integer '定義變量exam用來(lái)存放成績(jī)'判斷輸入的成績(jī)是否為數(shù)值！If IsNumeric(Text1.Text) = False Then If MsgBox("您輸入的成績(jī)必須為數(shù)字！", vbInformation + vbOKOnly) = vbOK Then Exit Sub End IfEnd If'判斷輸入的成績(jī)是否合法exam = V