2022年單考單招VB模擬試題及答案

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

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

3、條代碼2分）（3）（4）單擊“斜體”復選框時，文本框中的文字顯示斜體效果，否則取消。（要求不能用IF語句來實現(xiàn)）（事件2分，一條代碼2分）4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。Private Sub Check1_Click() txt1.FontBold = Not txt1.FontBoldEnd SubPrivate Sub Check2_Click() txt1.FontItalic = Not txt1.FontItalicEnd SubPrivate Sub Command1_Click()EndEnd Sub答案

4、兩種： 方法一：Private Sub Txt1_Change()If Txt1.Text = Thencmd1.Enabled = FalseElse cmd1.Enabled = TrueEnd IfEnd Sub方法二Private Sub Txt1_Change()If txt1.Text Then cmd1.Enabled = TrueElse cmd1.Enabled = FalseEnd IfEnd SubPrivate Sub cmd1_Click()EndEnd Sub試題二（25分）1（13分）有一個VB程序，其功能是：根據(jù)身高和體重判斷胖瘦，程序運行界面如圖3和圖4所示。

5、胖瘦條件：如果身高與體重之差大于等于110，則表示“你太瘦了！”；如果身高與體重之差小于等于100，則表示“你太胖了！”；如果身高與體重之差在100110之間，則表示“你的身材真好！”圖1圖2打開某路徑下的工程文件test2-1.vbp，完成下列操作：（1）（3分）當用戶在文本框1輸入身高時，命令按鈕command1有效，添加適當?shù)氖录痛a實現(xiàn)此功能。(事件1分，一句代碼2分)（2）（8分）完成相應注釋1和注釋2處的修改，實現(xiàn)根據(jù)身高和體重判斷胖瘦的功能并顯示“退出”按鈕注釋3處添加一條代碼（2分），同時“計算”按鈕無效注釋4處添加一條代碼（2分）。（每格2分，共4分）（3） （2分）保存窗

6、體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題一”文件夾。Private Sub Command1_Click()Dim h As Single, w As Single, x As Singleh = Val(Text1.Text)w = Val(Text2.Text)x = h - wIf x = 110 Then Label4.Caption = 你太瘦了！ElseIf x 100 Then Label4.Caption = 你的身材真好！Else Label4.Caption = 你太胖了！End IfCommand2.Visible = TrueCom

7、mand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Text1_Change()Command1.Enabled = TrueEnd Sub2（12分）填空完成VB程序，其功能是求某一天是這一年的第幾天，界面設計和程序運行效果如圖5所示。圖5打開某路徑下的工程文件test2-2.vbp，完成下列操作：（1）10分）輸入某一天（年、月、日），單擊“開始”按鈕，計算這一天在本年中的天數(shù)（第幾天）完成注釋（1）（2）（3）（4）（5）填空實施此功能。（每空2分，共10分）（2）（2分）保存窗體文件

8、和工程文件，生成可執(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(Text1.Text) If y Mod 400 = 0 Or (y Mod 4 = 0 And y Mod 100 0) Then a(2) = 29 End If n = Val(Combo1.Text) For i = 1 To n - 1 T = T + a(i)

9、 Next i Text2.Text = T + Val(List1.Text)End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load() For i = 1 To 31 List1.AddItem i Next i For i = 1 To 12 Combo1.AddItem i Next iEnd Sub試題三、（20分）修改考生文件夾下的VB程序使其具有下列功能：在明文文本框中輸入一串字串，在密文文本框中輸出密文，加密規(guī)則：若字符為字母，將每個字母向后移1、3、5，結果仍是字母，其它字符保持不變。界面設計和運行

10、效果如圖4和圖5所示。 打開“試題三”文件夾中的工程文件test3.vbp，并完成下列操作：（3分）單擊單選按鈕的控件數(shù)組中任一個單選按鈕，決定移動位數(shù)N，添加適當?shù)氖录痛a實現(xiàn)此功能（注：變量N設置通用變量）2. （15分）將3.txt文件復制到“加密”按鈕的事件中，完成相應的（1）、（2）（3）填空及在注釋1所在行添加一條代碼，并修改“注釋2”所在行的代碼，讓程序正確執(zhí)行，刪除所有注釋。3. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾Dim n%Private Sub Command1_Click()Dim m%Dim s$, x$

11、m = Len(Text1.Text)For i = 1 To m x = Mid$(Text1.Text, i, 1) If x = A And x = a And x z Or x Z And x a Then x = Chr(Asc(x) - 26) End If End If s = s + xNext iText2.Text = sEnd SubPrivate Sub Option1_Click(Index As Integer)n = Option1(Index).CaptionEnd Sub2015年VB操作題第二套試題一（30分）設計一個模擬中獎號碼的VB程序。界面設計和運行效

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

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

14、窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。Private Sub Command1_Click()Timer1.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Randomize For i = 0 To

15、7 Text1(i).Text = Int(10 * Rnd) 答案也可以是Text1(i).Text = Int(Rnd * 10) Next iEnd Sub試題二（25分）1.（12分）下列VB程序段實現(xiàn)如下功能：加載窗體后（從鍵盤上輸入項數(shù)N）如圖3所示，輸出S的計算結果。請根據(jù)要求，將程序補充完整。S的值用消息框顯示操作要求：（1）（10分）打開工程文件test2-1.vbp，將2.txt文件復制到窗體加載事件中（2分），完成（1）、（2）、（4）的填空及注釋1的（3）代碼；讓程序正確運行。用消息框顯示結果如圖3所示：（每空2分，共8分）圖3（2）（2分）保存窗體文件和工程文件，生成

16、可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題二”文件夾。Private Sub Form_Load()Dim s As Single, N%, F%, t!s = 0: F = 1N = Val(InputBox(請輸入項數(shù)) 2分For i = 1 To N 2分 t = (-1) (i + 1) / i 2 或 1/(i*I)2分 s = s + t Next iMsgBox s= & s, , 結果 2分End Sub2. （13分）數(shù)列1，1，3, 5, 9,15 , 25, 41的規(guī)律是從第3個數(shù)開始，每個數(shù)是它前面兩個數(shù)的和加1。在考生文件夾中有一個工程文件test2-

17、2.vbp (相應的窗體文件為test2-2.frm)。窗體Form1 中己經(jīng)給出了所有控件。編寫適當?shù)膩~件過程實現(xiàn)以下功能：在Txt1中輸入整數(shù)（例如30）,單擊“計算”按鈕，則在Txt2中顯示該數(shù)列第30項的值，如圖4所示 圖4操作要求：（1）（11分）打開工程文件test2-2.vbp，將2-2.txt文件復制適事件中（1分），把程序中的問號（1）（2）（3）（4）(5)改為正確的內(nèi)容， 使其實現(xiàn)上述功能，但不得修改程序的其他部分，也不得修改控件的其他屬性。（2）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-2.exe保存到試題目錄下的“試題二”文件夾。Private Sub

18、 Command1_Click()Dim n%, t&, a&, b&n = Val(txt1.Text)a = 1: b = 1 表示第一項和第二項For i = (1) To n t = a + b + 1 t表示每一項的值 a = b b = tNext ilab1.Caption = 第 & n & 項的值txt2.Text = tEnd Sub試題三（20分）編寫模擬比賽評分的程序，功能為：單擊窗體，由鍵盤輸入10位評委的打分，圖4輸入時用動態(tài)提示如圖4所示。并在窗體中顯示，當輸入完第10位評委的打分后，在窗體顯示“去掉一個最高分：“和“去掉一個最低分：”及”最后得分：”的文字及數(shù)字

19、。其中最后得分的計算公式為：去掉一個最分，去掉一個最低分后的8位評委的平均分（保留小數(shù)點一位）。效果為圖5所示。圖51. （2分）打開工程文件test2.vbp，將3.txt文件復制到適當?shù)氖录?. （16分）根據(jù)題意完善（1）（3）（6）（7）（8）的填空；根據(jù)注釋1、注釋2、注釋3的分別添加表達式、修改和一條代碼；讓程序正確執(zhí)行，刪除所有注釋。（考試素材處已修改）3. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。Private Sub Form_Click()Dim k As Single, i%, s As SingleDim m

20、ax As Single, min As Singlek = Val(InputBox(請輸入第1位評委打分)Print 評委打分：; k;max = k: min = k: s = kFor i = 2 To 10 k = Val(InputBox(請輸入第 & i & 評委打分) Print k; If max = k Then min = k s = s + kNext iPrintPrint 去掉一個最高分：; maxPrint 去掉一個最低分：; minPrint 最后得分; Int(s - max - min) / 8 * 10 + 0.5) / 10End Sub2015年VB操

21、作題第三套試題一（30分）（14分）在名為Forml的窗體上繪制一個名為Txt1的文本框控件和一個名為Tmr1的計時器控件，程序運行后，文本框中居中18號顯示的是當前的時間.而且文本框中所顯示的時間會隨時間的變化而改變，程序運行效果圖1所示:圖1（1）（4分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1-1.frm、test1-1.vbp為文件名保存到試題一的文件夾下。 (2)（6）參照圖1完成界面設計：按表添加相關對象并設置相關的屬性：（每個屬性設置1分） 表1對象名屬性屬性值對象名屬性屬性值Form1namemeText1Alignment2Text1nametxt1Te

22、xt1fontsize18Timer1nametmr1Timer1interval1000(3) （4分）編寫適當事件（2分），使文本框中所顯示的時間會隨時間的變化而改變（2分）注意：程序中不得使用任何變量：文件必須存放在考生文件夾中，窗體文件名為 test1-1.frm，工程文件名為 test1-1.vbp。Private Sub tmr1_Timer()txt1.Text = TimeEnd Sub(16分)在窗體上繪制兩個名稱分別為Lab1和Lab2的標簽，它們的標題分別為“請輸入一個正整數(shù)N”和“1+2+3+-+N=”；繪制兩個名稱分別為Txt1和Txt2的文本框，它們的內(nèi)容都設為空白

23、：繪制一個名為Cmdl的命令按鈕，其標題為“計算”。編寫適當?shù)某绦?，使程序運行時.在Txtl中輸入一個正整數(shù)N,單擊“計算”按鈕，計箅出1+2+3+ +N的和顯示在Txt2中。程序運行結果如圖2所示。 圖2（1）（4分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1-2.frm、test1-2.vbp為文件名保存到試題一的文件夾下。 (2)（8）參照圖2完成界面設計：按表添加相關對象并設置相關的屬性：（每個屬性設置1分） 表1對象名屬性屬性值對象名屬性屬性值Text1nametxt1Text2nametxt2Label1namelab1Label2namelab2Label1c

24、aption請輸入一個正整數(shù)NLabel2caption1+2+3+N=Command1namecmd1Command1caption計算(3) （4分）編寫適當事件（2分），使程序運行時.在Txtl中輸入一個正整數(shù)N,單擊“計算”按鈕，計箅出1+2+3+ +N的和顯示在Txt2中。(要求用FOR語句結構)注意：程序中不得使用任何變量：文件必須存放在考生文件夾試題一中，窗體文件名為 test1-2.frm，工程文件名為 test1-2.vbp。Private Sub cmd1_Click()For i = 1 To Val(txt1.Text) txt2.Text = Val(txt2.Tex

25、t) + iNext iEnd Sub試題二（25分）1.（13分）有一個VB程序其功能：實施字幕滾動。界面設計和運行效果如圖3和圖4所示圖3圖4操作要求：（1）（4分）添加適當事件，定時器間隔時間（interval）由滾動條事件決定，當拖動滾動塊時來改變字符滾動速度；（事件2分，一條代碼2分）（2）（4）單擊“開始”按鈕，定時器工作且“停止”按鈕顯示，單擊“停止”按鈕，定時器不工作，且“停止”按鈕隱藏。（每一句代碼1分，共4分）（3）（5分）定時器事件是將標簽1每隔一定時間始終從左向右以每200緹移動；將2-1.txt文件復制到相應的事件（1分）完成（1）（2）填空（每格2分，共4分）（4）

26、（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題二”文件夾。Private Sub command1_Click()Timer1.Enabled = Truecommand2.Visible = TrueEnd SubPrivate Sub command2_Click()Timer1.Enabled = Falsecommand2.Visible = FalseEnd SubPrivate Sub HScroll1_Change()Timer1.Interval = HScroll1.ValueEnd SubPrivate Sub Timer1_T

27、imer()If Label1.Left = 60 Then k = k + 1Next iText1.Text = kText2.Text = n - kText3.Text = Int(s / n * 10 + 0.5) / 10End SubPrivate Sub Command2_Click()For i = 1 To n - 1 For j = 1 To n - i If a(j) = A And x = a And x = 0 And x = 9 Then p = p + 1 End IfNext iLabel4.Caption = kLabel5.Caption = pEnd S

28、ubPrivate Sub Command2_Click()EndEnd Sub試題三（20分）用VB語言編寫一個程序其功能：產(chǎn)生30個300，500的隨機整數(shù)，找其中的素數(shù)并將素數(shù)進行排序。程序運行界面圖3、圖4、圖5、圖6所示，窗體上有三個文本框（從上到下依次為text1、text2和text3，三個文本框均允許自動換行），三個命令按鈕（從上到下依次為command1、command2和command3）并command2和command3無效。圖5 圖6圖7 圖81（6分）打開工程文件test3.vbp，將文本文件2.txt中選擇符合條件的代碼（2分）復制到適當?shù)氖录?分）中，實施隨機

29、產(chǎn)生30個300-500之間的整數(shù)，顯示在text1中，數(shù)與數(shù)之間用空格隔開。并要求在顯示前三個文本框清空，實現(xiàn)圖6界面的效果（2分）。2. （6分）單擊“素數(shù)“按鈕，找出這30個數(shù)中的素數(shù)并顯示在text2中，數(shù)與數(shù)之間用空格隔開。根據(jù)題意完成（1）（2）（3）的填空。效果圖7所示。3. （6分）單擊“排序”按鈕，用選擇法將找出的素數(shù)按從大到小的順序排序，顯示在text3中，數(shù)與數(shù)之間用空格隔開。（完成注釋（4）（5）（6）處填空、修改與添加一條代碼）效果圖8所示。4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。Dim a%(1 To

30、 30), b%(1 To 30), n%Private Sub Command1_Click()Dim i%RandomizeText1.Text = Text2.Text = Text3.Text = Command2.Enabled = TrueFor i = 1 To 30 a(i) = Int(201 * Rnd) + 300 Text1.Text = Text1.Text & a(i) & Next iCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()Command3.Enabled = TrueDim f%For

31、 i = 1 To 30 f = 0 For j = 2 To a(i) - 1 If a(i) Mod j = 0 Then f = 1: Exit For End If Next j If f = 0 Then n = n + 1 b(n) = a(i) End IfNext iFor i = 1 To n Text2.Text = Text2.Text & b(i) & Next iCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()Dim t%, p%For i = 1 To n - 1 p = i For j = i

32、+ 1 To n If b(p) b(j) Then p = j End If Next j If p i Then t = b(p): b(p) = b(i): b(i) = t End IfNext iFor i = 1 To n Text3.Text = Text3.Text & b(i) & Next iCommand1.Enabled = TrueCommand3.Enabled = FalseEnd Sub2015年VB操作題第五套試題一：（30分）（18分）編寫一個程序，輸入貨物的數(shù)量及單價，求總價并輸出。 窗體標題設置為“模擬售貨機”，窗體form1上的兩個標簽(分別命名為 L

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

34、：（每個屬性設置1分）表1對象名屬性屬性值對象名屬性屬性值Form1caption模擬售貨機標簽1namelab1標簽2namelab2標簽1caption貨物的數(shù)量(個)標簽2casption貨物的單價(元)文本框1nametxt1文本框2nametxt2命令按鈕namecmd1命令按鈕caption總價命令按鈕defaulttrue（3）（4分）編寫適當?shù)氖录?當用戶輸入貨物的數(shù)量及單價，用消息框輸出結果。（說明：程序中不得使用變量，事件過程中只能寫一條語句。）Private Sub cmd1_Click()MsgBox 總價為 & Val(txt1.Text) * Val(txt2.T

35、ext), , 結果End Sub2（12分）在名稱為Forml的窗體上畫個列表框,其名稱為L1; 一個水平滾動條，其名稱為HS1，Smallchange屬性為2。Largechange屬性為10。Min屬性為10, Max屬性為100,編寫適應的事件過程。程序運行后，如果把滾動框移到某個位置，然后單擊窗體，則在列表框中添加一個項其內(nèi)容是“XX”，其中XX是 滾動框所在的位置，如圖2所示。 圖2操作要求：（1）（2分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1-2.frm、test1-2.vbp為文件名保存到試題一的文件夾下。（2）（6分）參照圖1完成界面設計：按表添加相關

36、對象并設置相關的屬性：（每個屬性設置1分）表1對象名屬性屬性值對象名屬性屬性值列表框namel1水平滾動條namehs1水平滾動條Smallchange2水平滾動條Largechange10水平滾動條max100水平滾動條min10（3）（4分）根據(jù)題意編寫適當?shù)氖录痛a，實現(xiàn)如圖2效果。（說明：程序中不得使用變量，事件過程中只能寫一條語句。）Private Sub Form_Click()l1.AddItem hs1.ValueEnd Sub試題二（25分）1. （15分）設計如圖3、圖4所示的程序，單擊按鈕，通過輸入框輸入數(shù)字，如果是正數(shù)，則顯示在List1中，如果是負數(shù)顯示在List2

37、中。同時統(tǒng)計正數(shù)、負數(shù)的和，顯示在相應的標簽中，圖5所示。要求輸入框在輸入時，能動態(tài)提示當前輸入的是第幾個數(shù)，如圖5所示。完成命令按鈕相關的代碼。圖3圖4圖5打開某路徑下的工程文件test2-1.vbp，完成下列操作：（1）（12分）將2.txt文件復制到命令按鈕的單擊事件中（3分），根據(jù)題意完成（1）（2）（3）（4）（5），讓程序正確執(zhí)行。（每填空2分，共10分。（2）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題二”文件夾。Private Sub Command1_Click()Dim n%, a!, s1!, s2!n = 1a = Val

38、(InputBox(請輸入第 & n & 個數(shù)，輸入0結束)Do While a 0 If a 0 Then List1.AddItem a s1 = s1 + a Else List2.AddItem a s2 = s2 + a End If n = n + 1 a = Val(InputBox(請輸入第 & n & 個數(shù)，輸入0結束)LoopLabel3.Caption = Label3.Caption & s1Label4.Caption = Label4.Caption & s2End Sub2 10分）在考生文件夾下有一個工程文件test2-2.vbp，功能是用來計算勾股定理整數(shù)組合

39、的個數(shù)。勾股定理中3個數(shù)的關系是：a2+b2=C2。例如，3、4,5就是一個滿足條件的整數(shù)組合(注意：a，b，C分別為4，3，5與分別為3，4，5被視為同一個組合，不應該重復計算)。編寫程序，統(tǒng)計均在60以內(nèi)的三個數(shù)滿足上述關系的整數(shù)組合的個數(shù)，并顯示在標簽Labell中。如圖6所示：圖6注意：不得修改原有程序的控件屬性。在結束程序運行之前，必須至少正確運行一次程序，將統(tǒng)計的結果顯示在標簽中，否則無成績。最后把修改后的文件按原文件名存盤。打開某路徑下的工程文件test2-2.vbp，完成下列操作：(1)（8分）根據(jù)題意將代碼窗口中的（1）（2）（3）（4）填空完成。（每格2分，共8分）（2）（

40、2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-2.exe保存到試題目錄下的“試題二”文件夾。Private Sub Command1_Click()Dim i%, j%, k%, m%For i = 1 To 60 For j = 1 To 60 For k = 1 To 60 If i 2 + j 2 = k 2 Then m = m + 1 End If Next k Next jNext iLabel1.Caption = m / 2End Sub試題三（20分）設計如圖9、圖10所示程序，初始排序按鈕不可用。單擊開始按鈕，每隔0.2秒在6個文本框中隨機產(chǎn)生6個0-9的數(shù)字，同

41、時按鈕標題變成“結束”，如圖10所示。單擊結束按鈕，文本框中數(shù)字停止變化，按鈕標題變成“開始”，同時排序按鈕可用。單擊“排序”按鈕，把文本框中的數(shù)字從小到大排序，顯示在相應的標簽中，如圖10所示。圖9 圖10 打開某路徑下的工程文件test3.vbp，完成下列操作：1. （6分）單擊開始按鈕，每隔0.2秒在6個文本框中隨機產(chǎn)生6個0-9的數(shù)字，同時按鈕標題變成“結束”，如圖10所示。單擊結束按鈕，文本框中數(shù)字停止變化，按鈕標題變成“開始”。完成（1）（2）（3）的填空。2. （4分）完成定時器事件中（4）、（5）的填空；（每格2分，共4分）3. （8分）完成排序事件中的（6）（7）、（8）、（

42、9）的填空；（每格2分，共8分）4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾Dim a%(0 To 5)Private Sub Command1_Click()If Command1.Caption = 開始 Then Timer1.Enabled = True Command1.Caption = 結束Else Timer1.Enabled = False Command1.Caption = 開始 Command2.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click()For

43、 i = 0 To 5a(i) = Val(Text1(i).Text)Next iFor i = 1 To 5 For j = 0 To 5 - i If a(j) a(j + 1) Then t = a(j) a(j) = a(j + 1) a(j + 1) = t End If Next jNext iFor i = 0 To 5s = s & a(i)Next iLabel1.Caption = 中獎號碼為： & sEnd SubPrivate Sub Timer1_Timer()For i = 0 To 5 Text1(i).Text = Int(10 * Rnd)Next i201

44、5年VB操作題第六套試題一（30分）設計一個VB程序，實施硬件各參數(shù)的選擇顯示在列表框中如下圖2所示。圖1 圖2操作要求：1（4分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1.frm、test1.vbp為文件名保存到試題一的文件夾中。2.（12分）參照圖1完成界面設計：按表添加相關對象并設置相關的屬性：（每個屬性設置1分）表1對象名屬性屬性值對象名屬性屬性值Form1caption硬件配置Combo1text空白Label1caption所選配置Form1fontsize小四Combo1style1Frame1caption內(nèi)存Frame2caption其它設備Option

45、1caption4GOption2caption8GCheck1caption聲卡Check2caption顯卡Check3caption網(wǎng)卡3. （1）（2分）將1.txt文件內(nèi)容（六種電腦品牌）添加到適當?shù)氖录?，實現(xiàn)窗體加載后顯示結果如圖2所示。（窗體加載時，組合框中已添加六個項目） （2）（12分）分別單擊各控件的適當事件和代碼，結果如圖2所示。原（3）己刪除4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。Private Sub Check1_Click() List1.AddItem Check1.CaptionEnd Sub

46、Private Sub Check2_Click() List1.AddItem Check2.CaptionEnd SubPrivate Sub Check3_Click() List1.AddItem Check3.CaptionEnd SubPrivate Sub Combo1_Click()List1.AddItem Combo1.TextEnd SubPrivate Sub Form_Load()Combo1.AddItem 蘋果Combo1.AddItem 惠普Combo1.AddItem 方正Combo1.AddItem 戴爾Combo1.AddItem 華碩Combo1.Add

47、Item 聯(lián)想End SubPrivate Sub List1_Click()If List1.ListIndex = 0 Then List1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub Option1_Click()List1.AddItem Option1.CaptionEnd SubPrivate Sub Option2_Click()List1.AddItem Option2.CaptionEnd Sub試題二：（25分）1. （12分）用VB編制一個程序，初始界面如圖3所示。當用戶從鍵盤輸入任意字符到文本框1（文本框多行顯示

48、）后，單擊“統(tǒng)計”按鈕，則對其中的字母、數(shù)字、空格、其他字符進行分類統(tǒng)計，并將統(tǒng)計結果分別顯示在相應的文本框中如圖4所示；單擊“退出”按鈕，則關閉窗口退出程序。（此題不用大小寫涵數(shù)）圖3圖4打開某路徑下的試題二文件夾中工程文件test2-1.vbp，完成下列操作：（1）（10分）將2.txt文件復制到命令按鈕的適當事件中（2分），根據(jù)題意完成（1）（2）（3）（4）的填空，讓程序正確執(zhí)行。（每填空2分，共8分）（2）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題二”文件夾。Private Sub Command1_Click()Dim n1%, n

49、2%, n3%, n4%, m%, x$m = Len(Text1.Text)For i = 1 To m x = Mid(Text1.Text, i, 1) If x = A And x = a And x = 0 And x = 1 And n Command2captionCommand1EnabledfalseCommand2Enabledfalse3. （1）（4分）窗體加載時，在列表框1已加載圖1的項目: 語文、英語、數(shù)學、程序設計、網(wǎng)絡操作系統(tǒng)、網(wǎng)絡設備配置、PR、PS、體育、心理、職業(yè)道德、音樂。（加載事件2分，添加列表框內(nèi)容2分）（2）（5分）編適當事件當用戶選中列表框1的內(nèi)

50、容，command1按鈕有效，單擊“”按鈕，則把選中的課程移動到右邊列表框中；且command1按鈕又變成無效。（每知識點1分，共5分）（3）（5分）編適當事件當用戶選中列表框2的內(nèi)容，command2按鈕有效，單擊“”按鈕，則把選中的課程移動到左邊列表框中；且command2按鈕又變成無效。（每知識點1分，共5分）4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。Private Sub Command1_Click() List2.AddItem List1.Text List1.RemoveItem List1.ListIndex C

51、ommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click() List1.AddItem List2.Text List2.RemoveItem List2.ListIndex Command2.Enabled = FalseEnd SubPrivate Sub Form_Load()List1.AddItem 語文List1.AddItem 英語List1.AddItem 數(shù)字List1.AddItem 程序設計List1.AddItem 網(wǎng)絡操作系統(tǒng)List1.AddItem 網(wǎng)絡設備配置List1.AddItem PRList1.A

52、ddItem PSList1.AddItem 體育List1.AddItem 心理List1.AddItem 職業(yè)道德List1.AddItem 語文List1.AddItem 語文End SubPrivate Sub List1_Click()Command1.Enabled = TrueEnd SubPrivate Sub List2_Click()Command2.Enabled = TrueEnd Sub試題二（25分）（15分）VB程序功能：激活窗體通過輸入框隨機給小學生出 10 道二位正整數(shù)的加法題，每答對一道題得10 分，最后用消息框輸出小學生的得分。程序運行界面如圖3和圖4所示

53、。圖3圖4打開某路徑下的工程文件test2.vbp，完成下列操作：（1）（3分）將文件2-1.txt復制到適當?shù)氖录腥ァ＃?）（10分）事件中的代碼進行相應的填空（1）（2）（3）（4）（5），并能正確執(zhí)行程序的結果。（每空2分，共10分）（3）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2.exe保存到試題目錄下的“試題二”文件夾。Private Sub Form_Activate()Dim a%, b%, z%, s%RandomizeFor i = 1 To 10 a = Int(90 * Rnd) + 10 b = Int(90 * Rnd) + 10 x = Val(In

54、putBox(a & + & b & =, 第 & i & 題) If a + b = x Then s = s + 10 Else MsgBox 繼續(xù)努力，加油！ End IfNext iMsgBox 你的最后得分是： & s, , xiaoxueshengchutiEnd Sub2. （10分）在考生文件夾下有一個工程文件test2-1.vbp。在其窗體中“待選城市”下的List1列表框中有若干個城市名稱。程序運行時，選中List1中若干個列表項(如圖5所示)，單擊“選中”按鈕則把選中的項目移到List2中，單擊“顯示”，則在Text1文本框中顯示這些選中的城市(如圖6所示)。已經(jīng)給出了所

55、有控件和程序，但程序不完整。圖5圖6（1）（8分）要求：請去掉程序中的注釋符，把代碼窗口中的程序的?改為正確的內(nèi)容，使其能正確運行，但不能修改程序中的其他部分和控件屬性。最后用原來的文件名保存工程文件和窗體文件。（程序中有4個？各2分，共8分）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題二”文件夾Private Sub Command1_Click()Dim k%For k = List1.ListCount - 1 To 0 Step -1 If List1.Selected(k) = True Then List2.AddItem List1

56、.List(k) List1.RemoveItem k End IfNext k End SubPrivate Sub Command2_Click()Dim k%Text1.Text = 已選中的城市有：For k = 0 To List2.ListCount - 1 Text1.Text = Text1.Text + + List2.List(k) 將list2中的項目連接在text1中的內(nèi)容后Next kEnd SubPrivate Sub Form_Load()List1.AddItem 寧波 List1.AddItem 杭州 List1.AddItem 紹興 List1.AddIte

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

58、圖8所示；完成（1）（2）（3）（4）的填空。3. （8分）單擊“排序”按鈕，則將數(shù)組a 中的15數(shù)按從小到大的順序（用冒泡法）顯示在文本框Text2中，結果如圖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(99 * Rnd) + 1 If a(i) Mod 2 0 Then i = i - 1Next iFor i = 1 To 15 Text1.Text =

59、Text1.Text + Str(a(i)Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 14 For j = 1 To 15 - i If a(j) = a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next jNext iFor i = 1 To 15 Text2.Text = Text2.Text & a(i) & Next iEnd Sub2015年VB操作題第八套試題一：（30分）設計一個VB程序：其功能實現(xiàn)簡單四則運算。運行界面如圖1和圖2所示圖1

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