高職單招24套vb試題

1、24套vb試題第一套試題一：（30分）用VB編制一個(gè)程序，初始界面如圖1，文本框顯示程序運(yùn)行輸入的文本（文本框有垂直滾動(dòng)條，文本為紅色）。程序運(yùn)行時(shí)可通過(guò)復(fù)選框?qū)ξ谋咀中芜M(jìn)行設(shè)置，效果如圖2，只有當(dāng)文本框內(nèi)容非空時(shí)“結(jié)束”按鈕才有效，單擊“結(jié)束”按鈕結(jié)束程序運(yùn)行。圖1圖2操作要求：1（4分）創(chuàng)建一個(gè)標(biāo)準(zhǔn)EXE工程，將其窗體文件和工程文件分別以test1.frm、test1.vbp為文件名保存到考生文件夾下。2.（12分）參照?qǐng)D1和圖2完成界面設(shè)計(jì)：按表添加相關(guān)對(duì)象并設(shè)置相關(guān)的屬性：表1 （每個(gè)屬性1分，共12分）對(duì)象名屬性屬性值對(duì)象名屬性屬性值Form1caption字體效果Label1nam

2、elab1Label1caption請(qǐng)您留下寶貴意見(jiàn)Text1nametxt1Text1multilinetrueText1scrollbars2Text1forecolor&H000000FF&Check1caption加粗Command1namecmd1Check2caption斜體Command1caption結(jié)束Command1enabledfalse3.（1）（4分）編寫適當(dāng)?shù)氖录?分）：只有當(dāng)文本框內(nèi)容非空時(shí)“結(jié)束”按鈕才有效。（不用能VB函數(shù)）（代碼2分）（2）（4分）單擊“加粗”復(fù)選框時(shí)，文本框中的文字顯示加粗效果；否則取消；（要求不能用IF語(yǔ)句來(lái)實(shí)現(xiàn)）（事件2分，一條代碼2

3、分）（3）（4）單擊“斜體”復(fù)選框時(shí)，文本框中的文字顯示斜體效果，否則取消。（要求不能用IF語(yǔ)句來(lái)實(shí)現(xiàn)）（事件2分，一條代碼2分）4.（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。試題二（25分）1（13分）有一個(gè)VB程序，其功能是：根據(jù)身高和體重判斷胖瘦，程序運(yùn)行界面如圖3和圖4所示。胖瘦條件：如果身高與體重之差大于等于110，則表示“你太瘦了！”；如果身高與體重之差小于等于100，則表示“你太胖了！”；如果身高與體重之差在100110之間，則表示“你的身材真好！”圖1圖2打開某路徑下的工程文件test2-1.vbp，完成下列操作：（1）

4、（3分）當(dāng)用戶在文本框1輸入身高時(shí)，命令按鈕command1有效，添加適當(dāng)?shù)氖录痛a實(shí)現(xiàn)此功能。(事件1分，一句代碼2分)（2）（8分）完成相應(yīng)注釋1和注釋2處的修改，實(shí)現(xiàn)根據(jù)身高和體重判斷胖瘦的功能并顯示“退出”按鈕注釋3處添加一條代碼（2分），同時(shí)“計(jì)算”按鈕無(wú)效注釋4處添加一條代碼（2分）。（每格2分，共4分）（3） （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題一”文件夾。Private Sub Command1_Click()Dim h As Single, w As Single, x As Singleh = Val(Text1.T

5、ext)w = Val(Text2.Text)x = w - h 注釋1：身高與體重之差I(lǐng)f x = 110 Then Label4.Caption = 你太瘦了！ElseIf x 100 Then Label4.Caption = 你真好 注釋2：顯示結(jié)果Else Label4.Caption = 你太胖了！End If注釋3注釋4End SubPrivate Sub Command2_Click()EndEnd Sub2（12分）填空完成VB程序，其功能是求某一天是這一年的第幾天，界面設(shè)計(jì)和程序運(yùn)行效果如圖5所示。圖5打開某路徑下的工程文件test2-2.vbp，完成下列操作：（1）10分

6、）輸入某一天（年、月、日），單擊“開始”按鈕，計(jì)算這一天在本年中的天數(shù)（第幾天）完成注釋（1）（2）（3）（4）（5）填空實(shí)施此功能。（每空2分，共10分）（2）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-2.exe保存到試題目錄下的“試題二”文件夾。Option Base 1Private Sub Command1_Click() Dim a, T%, y% a = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) y = Val(1) 注釋1：取年份 If y Mod 400 = 0 Or (y Mod 4 = 0 A

7、nd y Mod 100 0) Then a(2) = (2) 注釋2：判斷是否閏年 End If n = Val(3) 注釋3：取組合框當(dāng)前月份 For i = 1 To n - 1 T = T + (4) 注釋4：每月的天數(shù) Next i Text2.Text = T + Val(5) 注釋5：取列表框當(dāng)日End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()For i = 1 To 12 Combo1.AddItem iNext iFor i = 1 To 31 List1.AddItem iNext iE

8、nd Sub試題三、（20分）修改考生文件夾下的VB程序使其具有下列功能：在明文文本框中輸入一串字串，在密文文本框中輸出密文，加密規(guī)則：若字符為字母，將每個(gè)字母向后移1、3、5，結(jié)果仍是字母，其它字符保持不變。界面設(shè)計(jì)和運(yùn)行效果如圖4和圖5所示。圖4圖5打開“試題三”文件夾中的工程文件test3.vbp，并完成下列操作：1.（3分）單擊單選按鈕的控件數(shù)組中任一個(gè)單選按鈕，決定移動(dòng)位數(shù)N，添加適當(dāng)?shù)氖录痛a實(shí)現(xiàn)此功能（注：變量N設(shè)置通用變量）2.（15分）將3.txt文件復(fù)制到“加密”按鈕的事件中，完成相應(yīng)的（1）、（2）（3）填空及在注釋1所在行添加一條代碼，并修改“注釋2”所在行的代碼，讓

9、程序正確執(zhí)行，刪除所有注釋。3.（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。Dim n%3.txt:Dim m%,s$, x$m = Len(1)For i = 1 To m x = Mid$(Text1.Text, i, 1) If x = A And x z Or x Z And x a Then x = Chr(Asc(x) -（3）)注釋1：選擇結(jié)構(gòu)的格式 End If s = s +val(x) 注釋2：處理后的字符連接Next iText2.Text = s第二套試題一（30分）設(shè)計(jì)一個(gè)模擬中獎(jiǎng)號(hào)碼的VB程序。界面設(shè)計(jì)和運(yùn)行效

10、果如圖1和圖2所示圖1圖21（4分）創(chuàng)建一個(gè)標(biāo)準(zhǔn)EXE工程，將其窗體文件和工程文件分別以test1.frm、test1.vbp為文件名保存到試題一的文件夾下。2.（14分）參照?qǐng)D1和圖2完成界面設(shè)計(jì)：按表添加相關(guān)對(duì)象并設(shè)置相關(guān)的屬性：（每個(gè)屬性設(shè)置1分）表1對(duì)象名屬性屬性值對(duì)象名屬性屬性值Form1caption隨機(jī)抽數(shù)Label1caption福利彩票抽獎(jiǎng)程序Label1fontname幼圓Label1fontsize29Label1forecolor&H000000FF&Frame1caption中獎(jiǎng)號(hào)碼Text1(0)-text1(7)fontsize24（修改）Frame1nameFr

11、1Command1caption開始&SText1(0)-text1(7)backcolor&H00C0C0FF&Timer1EnabledfalseCommand2caption停止&XTimer1interval100Command2Enabledfalse3.操作要求：（1） （2分）將1.txt文件復(fù)制到適當(dāng)?shù)氖录?分）中。（2）（4分）完成“開始”按鈕的代碼，功能具有定時(shí)器開始工作，命令按鈕command1無(wú)效，命令按鈕command2有效。(3) (4分)完成“停止”按鈕的代碼，功能具有定時(shí)器停止工作，命令按鈕command1有效，命令按鈕command2無(wú)效。4.（2分）保存窗

12、體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。1.txt:RandomizeFor i = 0 To 7 Text1(i).Text = int(10*rnd)Next i試題二（25分）1.（12分）下列VB程序段實(shí)現(xiàn)如下功能：加載窗體后（從鍵盤上輸入項(xiàng)數(shù)N）如圖3所示，輸出S的計(jì)算結(jié)果。請(qǐng)根據(jù)要求，將程序補(bǔ)充完整。S的值用消息框顯示操作要求：（1）（10分）打開工程文件test2-1.vbp，將2.txt文件復(fù)制到窗體加載事件中（2分），完成（1）、（2）、（4）的填空及注釋1的（3）代碼；讓程序正確運(yùn)行。用消息框顯示結(jié)果如圖3所示：（每空2分，共8

13、分）圖3（2）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題二”文件夾。2-1txtDim s As Single，N%,t!S=0:t=0N=（1）For i=1 to（2） t=(-1)(i+1)/i2（3） 將某項(xiàng)添加到S的累加器next i(4)2.（13分）數(shù)列1，1，3, 5, 9,15 , 25, 41的規(guī)律是從第3個(gè)數(shù)開始，每個(gè)數(shù)是它前面兩個(gè)數(shù)的和加1。在考生文件夾中有一個(gè)工程文件test2-2.vbp (相應(yīng)的窗體文件為test2-2.frm)。窗體Form1中己經(jīng)給出了所有控件。編寫適當(dāng)?shù)膩~件過(guò)程實(shí)現(xiàn)以下功能：在Txt1中輸入整

14、數(shù)（例如30）,單擊“計(jì)算”按鈕，則在Txt2中顯示該數(shù)列第30項(xiàng)的值，如圖4所示圖4操作要求：（1）（11分）打開工程文件test2-2.vbp，將2-2.txt文件復(fù)制適事件中（1分），把程序中的問(wèn)號(hào)（1）（2）（3）（4）(5)改為正確的內(nèi)容， 使其實(shí)現(xiàn)上述功能，但不得修改程序的其他部分，也不得修改控件的其他屬性。（2）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-2.exe保存到試題目錄下的“試題二”文件夾。2-2txtDim n%, t&, a&, b&n = Val(Text1.Text)a = 1: b=1表示第一項(xiàng)和第二項(xiàng)For i = (1) To nt = (2

15、)t表示每一項(xiàng)的值a = bb = (3)Next i(4).Caption = 第 & n & 項(xiàng)的值Text2.Text =(5)試題三（20分）編寫模擬比賽評(píng)分的程序，功能為：?jiǎn)螕舸绑w，由鍵盤輸入10位評(píng)委的打分，圖4輸入時(shí)用動(dòng)態(tài)提示如圖4所示。并在窗體中顯示，當(dāng)輸入完第10位評(píng)委的打分后，在窗體顯示“去掉一個(gè)最高分：“和“去掉一個(gè)最低分：”及”最后得分：”的文字及數(shù)字。其中最后得分的計(jì)算公式為：去掉一個(gè)最分，去掉一個(gè)最低分后的8位評(píng)委的平均分（保留小數(shù)點(diǎn)一位）。效果為圖5所示。圖51.（2分）打開工程文件test2.vbp，將3.txt文件復(fù)制到適當(dāng)?shù)氖录?.（16分）根據(jù)題意完善（

16、1）（3）（6）（7）（8）的填空；根據(jù)注釋1、注釋2、注釋3的分別添加表達(dá)式、修改和一條代碼；讓程序正確執(zhí)行，刪除所有注釋。（考試素材處已修改）3.（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。Dim k As Single, i%, s As SingleDim max As Single, min As Singlek = Val(InputBox(請(qǐng)輸入第1位評(píng)委打分)Print 評(píng)委打分：; k;max = k: min = k: s =kFor i = 2 To (1) k = 注釋1：鍵盤上輸入相應(yīng)的評(píng)委打分 Print k;

17、 If max= k Then min=k s = s +i 注釋2：添加評(píng)委的分?jǐn)?shù)到S累加器Next i 注釋3：換行Print 去掉一個(gè)最高分：; (6)Print 去掉一個(gè)最低分：; (7)Print 最后得分; (8)第三套試題一（30分）1.（14分）在名為Forml的窗體上繪制一個(gè)名為Txt1的文本框控件和一個(gè)名為Tmr1的計(jì)時(shí)器控件，程序運(yùn)行后，文本框中居中18號(hào)顯示的是當(dāng)前的時(shí)間.而且文本框中所顯示的時(shí)間會(huì)隨時(shí)間的變化而改變，程序運(yùn)行效果圖1所示:圖1（1）（4分）創(chuàng)建一個(gè)標(biāo)準(zhǔn)EXE工程，將其窗體文件和工程文件分別以test1-1.frm、test1-1.vbp為文件名保存到試

18、題一的文件夾下。(2)（6）參照?qǐng)D1完成界面設(shè)計(jì)：按表添加相關(guān)對(duì)象并設(shè)置相關(guān)的屬性：（每個(gè)屬性設(shè)置1分） 表1對(duì)象名屬性屬性值對(duì)象名屬性屬性值Form1namemeText1Alignment2Text1nametxt1Text1fontsize18Timer1nametmr1Timer1interval1000(3)（4分）編寫適當(dāng)事件（2分），使文本框中所顯示的時(shí)間會(huì)隨時(shí)間的變化而改變（2分）注意：程序中不得使用任何變量：文件必須存放在考生文件夾中，窗體文件名為 test1-1.frm，工程文件名為 test1-1.vbp。2.(16分)在窗體上繪制兩個(gè)名稱分別為L(zhǎng)ab1和Lab2的標(biāo)簽，

19、它們的標(biāo)題分別為“請(qǐng)輸入一個(gè)正整數(shù)N”和“1+2+3+-+N=”；繪制兩個(gè)名稱分別為Txt1和Txt2的文本框，它們的內(nèi)容都設(shè)為空白：繪制一個(gè)名為Cmdl的命令按鈕，其標(biāo)題為“計(jì)算”。編寫適當(dāng)?shù)某绦?，使程序運(yùn)行時(shí).在Txtl中輸入一個(gè)正整數(shù)N,單擊“計(jì)算”按鈕，計(jì)箅出1+2+3+ +N的和顯示在Txt2中。程序運(yùn)行結(jié)果如圖2所示。圖2（1）（4分）創(chuàng)建一個(gè)標(biāo)準(zhǔn)EXE工程，將其窗體文件和工程文件分別以test1-2.frm、test1-2.vbp為文件名保存到試題一的文件夾下。(2)（8）參照?qǐng)D2完成界面設(shè)計(jì)：按表添加相關(guān)對(duì)象并設(shè)置相關(guān)的屬性：（每個(gè)屬性設(shè)置1分） 表1對(duì)象名屬性屬性值對(duì)象名屬性

20、屬性值Text1nametxt1Text2nametxt2Label1namelab1Label2namelab2Label1caption請(qǐng)輸入一個(gè)正整數(shù)NLabel2caption1+2+3+N=Command1namecmd1Command1caption計(jì)算(3)（4分）編寫適當(dāng)事件（2分），使程序運(yùn)行時(shí).在Txtl中輸入一個(gè)正整數(shù)N,單擊“計(jì)算”按鈕，計(jì)箅出1+2+3+ +N的和顯示在Txt2中。(要求用FOR語(yǔ)句結(jié)構(gòu))注意：程序中不得使用任何變量：文件必須存放在考生文件夾試題一中，窗體文件名為 test1-2.frm，工程文件名為 test1-2.vbp。試題二（25分）1.（13

21、分）有一個(gè)VB程序其功能：實(shí)施字幕滾動(dòng)。界面設(shè)計(jì)和運(yùn)行效果如圖3和圖4所示圖3圖4操作要求：（1）（4分）添加適當(dāng)事件，定時(shí)器間隔時(shí)間（interval）由滾動(dòng)條事件決定，當(dāng)拖動(dòng)滾動(dòng)塊時(shí)來(lái)改變字符滾動(dòng)速度；（事件2分，一條代碼2分）（2）（4）單擊“開始”按鈕，定時(shí)器工作且“停止”按鈕顯示，單擊“停止”按鈕，定時(shí)器不工作，且“停止”按鈕隱藏。（每一句代碼1分，共4分）（3）（5分）定時(shí)器事件是將標(biāo)簽1每隔一定時(shí)間始終從左向右以每200緹移動(dòng)；將2-1.txt文件復(fù)制到相應(yīng)的事件（1分）完成（1）（2）填空（每格2分，共4分）（4）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.e

22、xe保存到試題目錄下的“試題二”文件夾。2-1txtIf Label1.Left =A and x=0 or x b(j) Then 注釋5：按大到小進(jìn)行比較 p = j End IfNext jIf i p Then t = b(p): b(p) = b(i): b(i) = tEnd IfNext iFor i = 1 To n 注釋6：將素?cái)?shù)按圖6的格式進(jìn)行打印Next iEnd Sub3txt實(shí)現(xiàn)產(chǎn)生30個(gè)300，500隨機(jī)整數(shù)的一段代碼是（A）For i = 1 To 30 a(i) = Int(200 * Rnd) + 300 Text1.Text = Text1.Text & a

23、(i) & Next i（B）For i = 1 To 30 a(i) = Int(201 * Rnd) + 300 Text1.Text = Text1.Text +str(a(i) Next i(C) For i = 1 To 30 a(i) = Int(201 * Rnd) + 300 Text1.Text = Text1.Text & a(i) & Next i第五套試題一：（30分）1.（18分）編寫一個(gè)程序，輸入貨物的數(shù)量及單價(jià)，求總價(jià)并輸出。窗體標(biāo)題設(shè)置為“模擬售貨機(jī)”，窗體form1上的兩個(gè)標(biāo)簽(分別命名為L(zhǎng)ab1和Lab2，標(biāo)題為“貨物的數(shù)量(個(gè))：”和“貨物的單價(jià)(元)：”

24、)兩個(gè)名稱分別為Txt1和Txt2的文本框;一個(gè)名稱為Cmd1的命令按鈕，其標(biāo)題為“總價(jià)”。結(jié)果用消息框顯示如圖2所示。當(dāng)用戶輸入貨物的數(shù)量與單價(jià)后，用戶單擊“總價(jià)”按鈕或按回車鍵，輸出正確的結(jié)果，程序運(yùn)行效果如圖1所示。（要求：程序中不得使用變量，事件過(guò)程中只能寫一條語(yǔ)句。）圖1圖2操作要求：（1）（4分）創(chuàng)建一個(gè)標(biāo)準(zhǔn)EXE工程，將其窗體文件和工程文件分別以test1-1.frm、test1-1.vbp為文件名保存到試題一的文件夾下。（2）（10分）參照?qǐng)D1完成界面設(shè)計(jì)：按表添加相關(guān)對(duì)象并設(shè)置相關(guān)的屬性：（每個(gè)屬性設(shè)置1分）表1對(duì)象名屬性屬性值對(duì)象名屬性屬性值Form1caption模擬售貨

25、機(jī)標(biāo)簽1namelab1標(biāo)簽2namelab2標(biāo)簽1caption貨物的數(shù)量(個(gè))標(biāo)簽2casption貨物的單價(jià)(元)文本框1nametxt1文本框2nametxt2命令按鈕namecmd1命令按鈕caption總價(jià)命令按鈕defaulttrue（3）（4分）編寫適當(dāng)?shù)氖录?dāng)用戶輸入貨物的數(shù)量及單價(jià)，用消息框輸出結(jié)果。（說(shuō)明：程序中不得使用變量，事件過(guò)程中只能寫一條語(yǔ)句。）2（12分）在名稱為Forml的窗體上畫個(gè)列表框,其名稱為L(zhǎng)1;一個(gè)水平滾動(dòng)條，其名稱為HS1，Smallchange屬性為2。Largechange屬性為10。Min屬性為10, Max屬性為100,編寫適應(yīng)的事件過(guò)程

26、。程序運(yùn)行后，如果把滾動(dòng)框移到某個(gè)位置，然后單擊窗體，則在列表框中添加一個(gè)項(xiàng)其內(nèi)容是“XX”，其中XX是滾動(dòng)框所在的位置，如圖2所示。圖2操作要求：（1）（2分）創(chuàng)建一個(gè)標(biāo)準(zhǔn)EXE工程，將其窗體文件和工程文件分別以test1-2.frm、test1-2.vbp為文件名保存到試題一的文件夾下。（2）（6分）參照?qǐng)D1完成界面設(shè)計(jì)：按表添加相關(guān)對(duì)象并設(shè)置相關(guān)的屬性：（每個(gè)屬性設(shè)置1分）表1對(duì)象名屬性屬性值對(duì)象名屬性屬性值列表框namel1水平滾動(dòng)條namehs1水平滾動(dòng)條Smallchange2水平滾動(dòng)條Largechange10水平滾動(dòng)條max100水平滾動(dòng)條min10（3）（4分）根據(jù)題意編寫適

27、當(dāng)?shù)氖录痛a，實(shí)現(xiàn)如圖2效果。（說(shuō)明：程序中不得使用變量，事件過(guò)程中只能寫一條語(yǔ)句。）試題二（25分）1.（15分）設(shè)計(jì)如圖3、圖4所示的程序，單擊按鈕，通過(guò)輸入框輸入數(shù)字，如果是正數(shù)，則顯示在List1中，如果是負(fù)數(shù)顯示在List2中。同時(shí)統(tǒng)計(jì)正數(shù)、負(fù)數(shù)的和，顯示在相應(yīng)的標(biāo)簽中，圖5所示。要求輸入框在輸入時(shí)，能動(dòng)態(tài)提示當(dāng)前輸入的是第幾個(gè)數(shù)，如圖5所示。完成命令按鈕相關(guān)的代碼。圖3圖4圖5打開某路徑下的工程文件test2-1.vbp，完成下列操作：（1）（12分）將2.txt文件復(fù)制到命令按鈕的單擊事件中（3分），根據(jù)題意完成（1）（2）（3）（4）（5），讓程序正確執(zhí)行。（每填空2分，共1

28、0分。（2）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題二”文件夾。Private Sub Command1_Click()Dim n%, a!, s1!, s2!變量N表示數(shù)據(jù)的個(gè)數(shù)，變量a表示從鍵盤輸入一個(gè)數(shù)s1，s2分別表示正數(shù)和負(fù)數(shù)的和變量名不得更改End Sub210分）在考生文件夾下有一個(gè)工程文件test2-2.vbp，功能是用來(lái)計(jì)算勾股定理整數(shù)組合的個(gè)數(shù)。勾股定理中3個(gè)數(shù)的關(guān)系是：a2+b2=C2。例如，3、4,5就是一個(gè)滿足條件的整數(shù)組合(注意：a，b，C分別為4，3，5與分別為3，4，5被視為同一個(gè)組合，不應(yīng)該重復(fù)計(jì)算)。編寫程

29、序，統(tǒng)計(jì)均在60以內(nèi)的三個(gè)數(shù)滿足上述關(guān)系的整數(shù)組合的個(gè)數(shù)，并顯示在標(biāo)簽Labell中。如圖6所示：圖6注意：不得修改原有程序的控件屬性。在結(jié)束程序運(yùn)行之前，必須至少正確運(yùn)行一次程序，將統(tǒng)計(jì)的結(jié)果顯示在標(biāo)簽中，否則無(wú)成績(jī)。最后把修改后的文件按原文件名存盤。打開某路徑下的工程文件test2-2.vbp，完成下列操作：(1)（8分）根據(jù)題意將代碼窗口中的（1）（2）（3）（4）填空完成。（每格2分，共8分）（2）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-2.exe保存到試題目錄下的“試題二”文件夾。Private Sub Command1_Click()Dim i%, j%, k%,

30、 m%For i = 1 To (1) For j = 1 To 60 For k = 1 To (2) If i 2 + j 2 = k 2 Then m = m + (3) End If Next k Next jNext iLabel1.Caption = m / (4)End Sub2.Txtn = 1a = Val(InputBox(請(qǐng)輸入第 & n & 個(gè)數(shù)，輸入0結(jié)束,輸入)Do While (1) If a 0 Then List1.AddItem a s1 = (2) Else List2.AddItem a s2 = s2 + a End If n = (3) a = Va

31、l(InputBox(請(qǐng)輸入第 &(4) & 個(gè)數(shù)，輸入0結(jié)束，輸入)(5)Label3.Caption = Label3.Caption & s1Label4.Caption = Label4.Caption & s2試題三（20分）設(shè)計(jì)如圖9、圖10所示程序，初始排序按鈕不可用。單擊開始按鈕，每隔0.2秒在6個(gè)文本框中隨機(jī)產(chǎn)生6個(gè)0-9的數(shù)字，同時(shí)按鈕標(biāo)題變成“結(jié)束”，如圖10所示。單擊結(jié)束按鈕，文本框中數(shù)字停止變化，按鈕標(biāo)題變成“開始”，同時(shí)排序按鈕可用。單擊“排序”按鈕，把文本框中的數(shù)字從小到大排序，顯示在相應(yīng)的標(biāo)簽中，如圖10所示。圖9圖10打開某路徑下的工程文件test3.vbp，

32、完成下列操作：1.（6分）單擊開始按鈕，每隔0.2秒在6個(gè)文本框中隨機(jī)產(chǎn)生6個(gè)0-9的數(shù)字，同時(shí)按鈕標(biāo)題變成“結(jié)束”，如圖10所示。單擊結(jié)束按鈕，文本框中數(shù)字停止變化，按鈕標(biāo)題變成“開始”。完成（1）（2）（3）的填空。2.（4分）完成定時(shí)器事件中（4）、（5）的填空；（每格2分，共4分）3.（8分）完成排序事件中的（6）（7）、（8）、（9）的填空；（每格2分，共8分）4.（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。Dim a%(0 To 5)Private Sub Command1_Click()If Command1.Caption

33、 = 開始 Then Timer1.Enabled = (1) Command1.Caption = 結(jié)束Else Timer1.Enabled = False Command1.Caption = (2) Command2.Enabled = (3)End IfEnd SubPrivate Sub Command2_Click()For i = 0 To 5a(i) = Val(6)Next iFor i = 1 To 5 For j = 0 To 5 - i If (7) Then t = a(j) a(j) = a(j + 1) a(j + 1) = t End If Next jNex

34、t iFor i = 0 To 5s = (8)Next iLabel1.Caption = 中獎(jiǎng)號(hào)碼為： & (9)End SubPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer()For i = 0 To (4)Text1(i).Text = Int(5) * Rnd)Next iEnd Sub第六套試題一（30分）設(shè)計(jì)一個(gè)VB程序，實(shí)施硬件各參數(shù)的選擇顯示在列表框中如下圖2所示。圖1圖2操作要求：1（4分）創(chuàng)建一個(gè)標(biāo)準(zhǔn)EXE工程，將其窗體文件和工程文件分別以test1.frm、test1.vbp為文件名保存到試題一的文件夾中。2

35、.（12分）參照?qǐng)D1完成界面設(shè)計(jì)：按表添加相關(guān)對(duì)象并設(shè)置相關(guān)的屬性：（每個(gè)屬性設(shè)置1分）表1對(duì)象名屬性屬性值對(duì)象名屬性屬性值Form1caption硬件配置Combo1text空白Label1caption所選配置Form1fontsize小四Combo1style1Frame1caption內(nèi)存Frame2caption其它設(shè)備Option1caption4GOption2caption8GCheck1caption聲卡Check2caption顯卡Check3caption網(wǎng)卡3.（1）（2分）將1.txt文件內(nèi)容（六種電腦品牌）添加到適當(dāng)?shù)氖录?，?shí)現(xiàn)窗體加載后顯示結(jié)果如圖2所示。（窗體

36、加載時(shí)，組合框中已添加六個(gè)項(xiàng)目）（2）（12分）分別單擊各控件的適當(dāng)事件和代碼，結(jié)果如圖2所示。原（3）己刪除4.（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。1.txt蘋果惠普方正戴爾華碩聯(lián)想試題二：（25分）1.（12分）用VB編制一個(gè)程序，初始界面如圖3所示。當(dāng)用戶從鍵盤輸入任意字符到文本框1（文本框多行顯示）后，單擊“統(tǒng)計(jì)”按鈕，則對(duì)其中的字母、數(shù)字、空格、其他字符進(jìn)行分類統(tǒng)計(jì)，并將統(tǒng)計(jì)結(jié)果分別顯示在相應(yīng)的文本框中如圖4所示；單擊“退出”按鈕，則關(guān)閉窗口退出程序。（此題不用大小寫涵數(shù)）圖3圖4打開某路徑下的試題二文件夾中工程文件te

37、st2-1.vbp，完成下列操作：（1）（10分）將2.txt文件復(fù)制到命令按鈕的適當(dāng)事件中（2分），根據(jù)題意完成（1）（2）（3）（4）的填空，讓程序正確執(zhí)行。（每填空2分，共8分）（2）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題二”文件夾。2.txtDim n1%, n2%, n3%, n4%, m%, x$m = Len(text1.text)For i = 1 To (1) x = Mid(Text1.Text, i, 1) If x = A And x = 0 And x Command2captionCommand1Enabledf

38、alseCommand2Enabledfalse3.（1）（4分）窗體加載時(shí)，在列表框1已加載圖1的項(xiàng)目:語(yǔ)文、英語(yǔ)、數(shù)學(xué)、程序設(shè)計(jì)、網(wǎng)絡(luò)操作系統(tǒng)、網(wǎng)絡(luò)設(shè)備配置、PR、PS、體育、心理、職業(yè)道德、音樂(lè)。（加載事件2分，添加列表框內(nèi)容2分）（2）（5分）編適當(dāng)事件當(dāng)用戶選中列表框1的內(nèi)容，command1按鈕有效，單擊“”按鈕，則把選中的課程移動(dòng)到右邊列表框中；且command1按鈕又變成無(wú)效。（每知識(shí)點(diǎn)1分，共5分）（3）（5分）編適當(dāng)事件當(dāng)用戶選中列表框2的內(nèi)容，command2按鈕有效，單擊“”按鈕，則把選中的課程移動(dòng)到左邊列表框中；且command2按鈕又變成無(wú)效。（每知識(shí)點(diǎn)1分，共5分

39、）4.（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。試題二（25分）1.（15分）VB程序功能：激活窗體通過(guò)輸入框隨機(jī)給小學(xué)生出10道二位正整數(shù)的加法題，每答對(duì)一道題得10分，最后用消息框輸出小學(xué)生的得分。程序運(yùn)行界面如圖3和圖4所示。圖3圖4打開某路徑下的工程文件test2.vbp，完成下列操作：（1）（3分）將文件2-1.txt復(fù)制到適當(dāng)?shù)氖录腥?。?）（10分）事件中的代碼進(jìn)行相應(yīng)的填空（1）（2）（3）（4）（5），并能正確執(zhí)行程序的結(jié)果。（每空2分，共10分）（3）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2.exe

40、保存到試題目錄下的“試題二”文件夾。2-1.txtDim a%, b%, x%, s%RandomizeFor i = 1 To 10a = (1)b = Int(90 * Rnd) + 10 x = (2)If a + b = (3) Then s = s + (4)Else MsgBox 繼續(xù)努力，加油！End IfNext i(5)2.（10分）在考生文件夾下有一個(gè)工程文件test2-1.vbp。在其窗體中“待選城市”下的List1列表框中有若干個(gè)城市名稱。程序運(yùn)行時(shí)，選中List1中若干個(gè)列表項(xiàng)(如圖5所示)，單擊“選中”按鈕則把選中的項(xiàng)目移到List2中，單擊“顯示”，則在Text1

41、文本框中顯示這些選中的城市(如圖6所示)。已經(jīng)給出了所有控件和程序，但程序不完整。圖5圖6（1）（8分）要求：請(qǐng)去掉程序中的注釋符，把代碼窗口中的程序的?改為正確的內(nèi)容，使其能正確運(yùn)行，但不能修改程序中的其他部分和控件屬性。最后用原來(lái)的文件名保存工程文件和窗體文件。（程序中有4個(gè)？各2分，共8分）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題二”文件夾Private Sub Command1_Click()Dim k%For k = List1.ListCount - 1 To 0？K從最大到0，則步長(zhǎng)應(yīng)為-1 If List1.Selected(

42、k) = True Then List2.AddItem？添加項(xiàng)到list2中 List1.RemoveItem？通過(guò)下標(biāo)刪除list1中的項(xiàng)目 End IfNext kEnd SubPrivate Sub Command2_Click()Dim k%Text1.Text = 已選中的城市有：For k = 0 To List2.ListCount - 1 Text1.Text = ? + + List2.List(k) 將list2中的項(xiàng)目連接在text1中的內(nèi)容后Next kEnd SubPrivate Sub Form_Load()List1.AddItem 寧波 List1.AddIt

43、em 杭州 List1.AddItem 紹興 List1.AddItem 湖州 List1.AddItem 溫州 List1.AddItem 臺(tái)州 List1.AddItem 嘉興 List1.AddItem 海鹽End Sub試題三（20分）VB程序功能：產(chǎn)生150,100的偶數(shù)進(jìn)行排序。單擊“排序”按鈕，則將數(shù)組a中的15個(gè)數(shù)按從小到大的順序（用冒泡法）顯示在文本框Text2中。圖7圖8打開某路徑下的工程文件test3.vbp，初始界面如上圖7所示，完成下列操作：1.（2分）將文本框1設(shè)置成多行顯示；2.（8分）單擊“產(chǎn)生數(shù)組”按鈕，用函數(shù)生成15個(gè)0100之間（不含0和100）并將它們保

44、存在一維數(shù)組a中，同時(shí)也將這15個(gè)數(shù)值顯示在Text1中，結(jié)果如圖8所示；完成（1）（2）（3）（4）的填空。3.（8分）單擊“排序”按鈕，則將數(shù)組a中的15數(shù)按從小到大的順序（用冒泡法）顯示在文本框Text2中，結(jié)果如圖8所示。完成（5）（6）（7）（8）的填空。4.（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。Dim a%(15)Private Sub Command1_Click()For i = 1 To 15 a(i) = Int(1) * Rnd) + 1 產(chǎn)生(0，100)的隨機(jī)整數(shù) If a(i)(2) 0 Then i =

45、 i - 1Next iFor i = 1 To (3)Text1.Text = Text1.Text + (4)Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 14For j = 1 To (5) If a(j) = (6) Then t = a(j): a(j)= a(j+1):(7) End IfNext jNext iFor i = 1 To 15 Text2.Text = Text2.Text & (8) & Next iEnd Sub第八套試題一：（30分）設(shè)計(jì)一個(gè)VB程序：其功能實(shí)現(xiàn)簡(jiǎn)單四則運(yùn)算。運(yùn)行界面如圖1和圖2所示

46、圖1圖2操作要求：1（4分）創(chuàng)建一個(gè)標(biāo)準(zhǔn)EXE工程，將其窗體文件和工程文件分別以test1.frm、test1.vbp為文件名保存到試題一的文件夾下。2.（12分）參照?qǐng)D1和圖2完成界面設(shè)計(jì)：按表添加相關(guān)對(duì)象并設(shè)置相關(guān)的屬性：（每個(gè)屬性設(shè)置1分）表1對(duì)象名屬性屬性值對(duì)象名屬性屬性值Form1caption四則運(yùn)算Form1maxbuttonfalseForm1minbuttonfalseForm1fontsize四號(hào)字Frame2caption運(yùn)算符號(hào)Frame1caption兩個(gè)操作數(shù)Option1caption+Frame3caption運(yùn)算結(jié)果Option2caption-Option3

47、caption*Option4caption/Label1borderstyle13.（12分）分別單擊“+”、“-”、“*”“/”單選按鈕，實(shí)現(xiàn)加法、減法、乘法與除法運(yùn)算，結(jié)果如圖2所示；（注意：程序中不得使用任何變量，每個(gè)事件各1分，共4分，每個(gè)事件只寫一句正確代碼各2分，共8分，其中單擊“/”單選按鈕時(shí)，不考慮除數(shù)為零，計(jì)算結(jié)果在標(biāo)簽1顯示。）4（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。試題二（25分）（重新出題）1.（15分）打開工程文件test2.vbp,程序運(yùn)行時(shí)界面如圖3、4所示，圖3圖4操作要求：（1）（6分）添加適當(dāng)事

48、件（各1分，共2分）若選中“累加”單選按鈕，則“10”、“l(fā)2”單選按鈕不可用，（2分）若選中“階乘”單選按鈕，則“1000”、“2000”單選按鈕不可用（2分）(如圖3所示)。（2）（8分）選中一組中的一個(gè)單選按鈕后，單擊“計(jì)算”按鈕，則相應(yīng)的計(jì)算結(jié)果在文本框中顯示(例如，選中“累加”和“2000”，則計(jì)算1+2+3+2000，選中“階乘”和“10”，則計(jì)算10!。實(shí)現(xiàn)此功能完成（1）(2)(3)(4)的填空（3）（1分）保存窗體文件和工程文件，生成可執(zhí)行文件test2.exe保存到試題目錄下的“試題二”文件夾。注意：操作（1）中程序中不得使用任何變量；操作（2）要求選中按鈕的數(shù)值用變量N表

49、示，N為整型變量，累加或累乘的結(jié)果用變量S表示，S為單精度，文件必須存放在考生文件中，工程文件名為test2.vbp，窗體文件名為test2.frm。Dim n%Private Sub Command1_Click()Dim s!If Option5.Value = True Then If Option1.Value = True Then n = Option1.(1) Else n = Option2.Caption End If For i = 1 To n s = s + (2) Next iElse If Option3.Value = True Then n = Option3.

50、Caption Else n = Option4.Caption End If s = (3) For i = 1 To n s = s * i Next iEnd IfText1.Text = Str(4)End SubPrivate Sub Option5_Click()Option1.Enabled = TrueOption2.Enabled = TrueOption3.Enabled = FalseOption4.Enabled = FalseEnd SubPrivate Sub Option6_Click()Option1.Enabled = FalseOption2.Enabled

51、 = FalseOption3.Enabled = TrueOption4.Enabled = TrueEnd Sub2（10分）在考生文件夾中有一個(gè)工程文件test2-1.vbp及窗體文件test2-1.frm。在名為Forml的窗體上有一個(gè)名為Txtl的文本框：還有兩個(gè)名稱分別Cmd丨和Cmd2的命令按鈕，它們的標(biāo)題分別為“找第一個(gè)素?cái)?shù)度”和“退出”，如圖5所示。圖5圖6編寫一個(gè)程序其功能：在文本框輸入一個(gè)整數(shù)（例如：678），則找出大于此文本框輸入整數(shù)的第1個(gè)素?cái)?shù)，并顯示在消息框中如圖6所示：（1）（8）完成代碼窗口中程序（1）（2）（3）（4）填空（2）（2分）保存窗體文件和工程文件，

52、生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題二”文件夾。Private Sub Command1_Click()Dim x%, t As Boolean, f%x = Val(Text1.Text)x = x + (1)t = FalseDo Until (2) f = 0 For i = 2 To x - 1 If x Mod i = 0 Then f = 1: Exit For End If Next i If (3) Then MsgBox 大于 & Text1.Text & 第一個(gè)素?cái)?shù)為 & x t = (4) Else x = x + 1 End IfLoopEnd

53、Sub試題三（20分）修改VB程序?qū)嵤┐斯δ転椋壕帉懸粋€(gè)十佳歌手評(píng)分系統(tǒng)，已知共有不多于100位選手參加比賽，共有7位評(píng)委打分，選手最后得分為去掉一個(gè)最高分和一個(gè)最低分，最后求平均分（保留兩位小數(shù)）將選手得分顯示在list1列表框中，再根據(jù)選手得分成績(jī)決定名次如圖4所示。圖4打開某路徑下的工程文件test3.vbp，完成下列操作：1.（6分）評(píng)委分?jǐn)?shù)輸入在控件數(shù)組Text1文本框中，單擊“得分”按鈕command1，計(jì)算選手得分完成相應(yīng)的填空（1）（2）及注釋1處修改相應(yīng)的代碼。2.（6分）單擊“名次”按鈕，結(jié)果顯示在list2列表框中如圖4所示。完成注釋1處添加一條代碼；注釋2處完成填空（1

54、）；注釋3處修改相應(yīng)的代碼。（代碼中的順序不得更改）3.（1）（4分）添加“清空”事件，將控件數(shù)組文本框1中數(shù)據(jù)清空，（要求用循環(huán)結(jié)構(gòu)）；（2）（2分）單擊“退出”按鈕command3，退出評(píng)分系統(tǒng)。1.（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。Dim n%, a!(100)Private Sub Command1_Click()Dim max!, min!, s!, x!max = Val(Text1(0).Text)min = maxs = maxFor i = 1 To 6 x = (1) If max = x Then min

55、= x s = s + xNext in = (2)a(n) = Int(s - max - min) / 5 * 10 + 0.5) / 10 注釋1:保留兩位小數(shù)List1.AddItem n & 號(hào)選手得分為： & a(n)End SubPrivate Sub Command2_Click()Dim m%, k%List2.ClearFor i = 1 To n 注釋1：每位選手都當(dāng)自己是第1名 For j = 1 To n If a(i)(1)a(j) Then k = k + 1 注釋2：若小于其它選手，則名次加1 Next j List2.AddItem a(k) 注釋3：添加名次

56、Next iEnd Sub2016年8套題第一套試題一(30分)設(shè)計(jì)一個(gè)VB程序，使其具有下列QQ登錄功能：當(dāng)組合框中輸入QQ號(hào)或在組合框中選中QQ號(hào)（22887651），在文本框中輸入密碼（123456），若輸入正確，顯示所圖2的顯示結(jié)果；若不正確，則彈出消息框如圖3所示。運(yùn)行效果如圖1、圖2與圖3所示。圖1圖2圖31（2分）創(chuàng)建一個(gè)“標(biāo)準(zhǔn)EXE”工程，將其窗體文件和工程文件分別以“test1-1.frm”、“test1-2.frm“、“test1.vbp”為文件名保存到“試題一”文件夾下。2（12分）參照?qǐng)D1和圖2完成界面設(shè)計(jì)：按表1添加相關(guān)對(duì)象并設(shè)置相關(guān)屬性。表1對(duì)象設(shè)置內(nèi)容“QQ登錄”

57、的窗體名稱為form1,標(biāo)題為“QQ登錄”QQ圖片名稱為picture1；圖片為考試結(jié)果程序設(shè)計(jì)試題一文件夾下的Q1.jpg。QQ頭像圖片名稱為image1，圖片為考試結(jié)果程序設(shè)計(jì)試題一文件夾下的Q2.jpg。組合框名稱為combo1“密碼”文本框名稱為text1，文本框的內(nèi)容為“密碼”?！暗卿洝眴芜x按鈕名稱為command1，標(biāo)題內(nèi)容為“登錄”。“登錄”單選按鈕名稱為command1，背景顏色為&H00FF8080&“登錄”單選按鈕名稱為command1，命令按鈕外觀為圖形“登錄”單選按鈕名稱為command1，不允許用戶進(jìn)行操作窗體2名稱為form2，背景圖片為考試結(jié)果程序設(shè)計(jì)試題一文件夾

58、下的Q3.jpg。窗體2上標(biāo)簽名稱為lab1,顏色為紅色，并居中3.（6分）當(dāng)程序運(yùn)行后，組合框已有一個(gè)QQ號(hào)（22887651），用適當(dāng)?shù)氖录?shí)現(xiàn)此功能；在文本框輸入時(shí)，命令按鈕允許用戶進(jìn)行操作，文本框內(nèi)容用“*”顯示，也用適當(dāng)?shù)氖录?shí)現(xiàn)功能。4.（8分）當(dāng)組合框中輸入QQ號(hào)或在組合框中選中QQ號(hào)（22887651），在文本框中輸入密碼（123456），單擊“登錄”，若輸入正確，則顯示所圖2的結(jié)果；若不正確，則顯示所圖3顯示的結(jié)果。5（2分）保存窗體文件和工程文件，生成可執(zhí)行程序“test1.exe”并保存到“試題一“文件夾下。試題二（25分）修改VB程序，考生文件夾下有一個(gè)工程文件test

59、2.vbp。其窗體上有一個(gè)標(biāo)題為“得分”的框架，在框架中有一個(gè)名稱為Textl的文本框數(shù)組，含6個(gè)文本框控件;文本框Text2用來(lái)輸入難度系數(shù)。程序運(yùn)行時(shí)，單擊“開始”按鈕時(shí)，左邊的6個(gè)文本框中每0.5秒隨機(jī)產(chǎn)生0，10的帶一位小數(shù)的數(shù)；且“開始”按鈕的標(biāo)題變?yōu)椤巴Ｖ埂?，單擊“停止”，“?jì)算”按鈕顯示，輸入難度系數(shù)后，單擊“計(jì)算分?jǐn)?shù)”按鈕，則可計(jì)算出最后得分并顯示在文本框Text3中(如圖所示)。計(jì)算方法：去掉1個(gè)最高得分和1個(gè)最低得分，求剩下得分的平均分，再乘以3，再乘以難度系數(shù)。最后結(jié)果保留到第2位小數(shù)，不四舍五入。圖3圖4打開試題二“文件夾中的工程文件“test2.vbp”，完成下列操作

60、：1（4分）在窗體上添加計(jì)時(shí)器，并按表2設(shè)置相關(guān)屬性。表2對(duì)象設(shè)置內(nèi)容計(jì)時(shí)器名稱為Timer1；間隔時(shí)間0.5秒；默認(rèn)不啟用。2（6分）選擇“開始”按鈕合適的事件過(guò)程，實(shí)現(xiàn)如下功能：?jiǎn)螕簟伴_始”按鈕，計(jì)時(shí)器啟用，且“開始”按鈕的標(biāo)題變?yōu)椤巴Ｖ埂?，單擊“停止”按鈕，計(jì)時(shí)器不啟用，并“計(jì)算”按鈕顯示，“停止”按鈕又變?yōu)椤伴_始”按鈕。將“D:test1111考試結(jié)果程序設(shè)計(jì)試題二“文件夾下“code1.txt”文件中的所有代碼復(fù)制到相應(yīng)過(guò)程中并完成“-”、“-”填空實(shí)現(xiàn)此功能。3（4分）選擇計(jì)時(shí)器合適的事件過(guò)程，將“D:test1111考試結(jié)果程序設(shè)計(jì)試題二“文件夾下“code2.txt”文件中的選