大學(xué)VB程序設(shè)計(jì)資料

1、 TEXT 5一：判斷題第1題：在“工程資源管理器”，可以實(shí)現(xiàn)多窗體的所有操作。 對(duì)第2題：由于Single型變量的取值范圍比Long型變量大，所以Single型變量開(kāi)銷(xiāo)內(nèi)存也比Long型多。 錯(cuò)第3題：語(yǔ)句Const A=100是將A聲明為一個(gè)常量。 對(duì)第4題：塊If結(jié)構(gòu)中的End if可以缺省。 錯(cuò)第5題：定義一個(gè)過(guò)程時(shí)，有幾個(gè)形參，則在調(diào)用該過(guò)程時(shí)就必須提供幾個(gè)實(shí)參。 錯(cuò)第6題： 列表框控件List1的最后一個(gè)表項(xiàng)為L(zhǎng)ist1.List (List1.ListCount)。 錯(cuò)第7題： 移動(dòng)框架時(shí)框架內(nèi)控件也跟隨移動(dòng)，因此框架內(nèi)控件的Left和Top屬性值也隨之改變 錯(cuò)第8題：通過(guò)設(shè)置影

2、像框的Picture屬性可改變影像框中顯示的圖片，若要清除圖片也是通過(guò)設(shè)置Picture屬性來(lái)實(shí)現(xiàn)。 對(duì)第9題：在消息框（MsgBox）中，“Prompt”（消息）是必選項(xiàng)，最大長(zhǎng)度為64個(gè)字符。 錯(cuò)第10題：在程序運(yùn)行中，目錄列表框?qū)⒁詷?shù)形展開(kāi)方式顯示某個(gè)盤(pán)或目錄內(nèi)的各個(gè)子目錄名，并用是否為打開(kāi)的文件夾圖標(biāo)來(lái)表示選定的目錄。 對(duì)二：選擇題第1題：下列選項(xiàng)中，屬于VB程序設(shè)計(jì)的特點(diǎn)是_。 A、面向過(guò)程、事件驅(qū)動(dòng) B、面向?qū)ο?、順序?qū)動(dòng) C、面向過(guò)程、順序驅(qū)動(dòng) D、面向?qū)ο?、事件?qū)動(dòng) 第2題：在窗體Form1的LOAD事件過(guò)程中有語(yǔ)句：Form1.Print "Visual Basic

3、"，但運(yùn)行時(shí)窗體并未顯示打印文字，此時(shí)需要修改窗體的_屬性,才能使窗體啟動(dòng)有輸出結(jié)果 。A、Autosize B、Enabled C、Autoredraw D、Visible第3題：下面哪一項(xiàng)不可以賦值給數(shù)值型變量？ A、123.4 B、"123.4" C、1.234F2 D、1.234E2第4題：下面合法的變量名是_。 A、End B、private C、ABC_1 D、4A第5題：由“For i=1 To 9 Step -3”決定的循環(huán)結(jié)構(gòu)被執(zhí)行_次。 A、4 B、5 C、6 D、0第6題： 文本框控件的Alignment屬性決定_。 A、是否顯示多行文本 B

4、、鼠標(biāo)移至控件時(shí)，所顯示的提示 C、顯示文本的對(duì)齊方式 D、文本框的顯示內(nèi)容第7題： 將命令按鈕Command1設(shè)置為窗體的取消按鈕，可修改該控件的_屬性。A、Enabled B、Value C、Default D、Cancel第8題：下列_是用來(lái)畫(huà)圓、圓弧及橢圓的。A、Circle方法 B、Pset方法 C、Line方法 D、Point屬性第9題：用戶可以通過(guò)設(shè)置菜單項(xiàng)的 _屬性值為False來(lái)使該菜單項(xiàng)不可見(jiàn)。A、Hide B、Visible C、Enabled D、Checked第10題：執(zhí)行語(yǔ)句“Write #1, 123; -34.56, "hey" Date”后

5、，相應(yīng)文件內(nèi)被寫(xiě)入 _。 A、123,-34.56,hey,2001-08-03 B、"123","-34.56","hey","2001-08-03" C、123,-34.56,"hey",#2001-08-03# D、123 -34.56 hey 2001-08-03三：填空題第1題： 【程序說(shuō)明】以下程序執(zhí)行后將產(chǎn)生一個(gè)6×6的轉(zhuǎn)置矩陣，將二維數(shù)組中所有行和對(duì)應(yīng)列的元素進(jìn)行交換。Private Sub Form_Click() Dim a(1 To 6, 1 To 6) As I

6、nteger Dim i As Integer, j As Integer Form1.Print "原始數(shù)據(jù)" For i = 1 To 6 For j = 1 To 6 a(i, j) = Int(Rnd * 10) Form1.Print a(i, j); Next j Form1.Print Next i For i = 2 To 6 For j = 1 To - 1 - - 2 - Next j Next i Form1.Print "轉(zhuǎn)置后數(shù)據(jù)" For i = 1 To 6 For j = 1 To 6 - 3 - Next j Form1

7、.Print Next I End SubPublic Sub Swap(a As Integer, b As Integer) Dim temp As Integer temp = a a = b b = temp End Sub參考答案：I 參考答案：Call Swap(a(I, j), a(j, I)或.Swap a(I, j), a(j, I) 參考答案：Print a(i, j); 第2題： 【程序說(shuō)明】本程序利用1個(gè)定時(shí)器、1個(gè)文本框和2個(gè)命令按鈕制作一個(gè)動(dòng)態(tài)表。各控件名稱取缺省值，控件Command1、Command2標(biāo)題分別為“開(kāi)始”、“結(jié)束”。運(yùn)行時(shí)，單擊“開(kāi)始”按鈕后表開(kāi)始

8、每分鐘計(jì)一次時(shí)，并在文本框上顯示總分鐘數(shù)；單擊“結(jié)束”按鈕后，計(jì)時(shí)結(jié)束，在窗體上顯示出運(yùn)行的時(shí)間（折算成小時(shí)、分鐘，不計(jì)算秒數(shù)）。 Dim x as longPrivate Sub Form_Load() Timer1.Interval = 60000: Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click() Cls x = 0 -1-End SubPrivate Sub Command2_Click() Dim h As Integer, m As Integer, s As Integer Timer1.Enabled = Fal

9、se h = -2- m = x mod 60 Print "運(yùn)行了" + Str(h) + "小時(shí)" + Str(m) + "分" End SubPrivate Sub Timer1_Timer() -3- Text1.text = xEnd Sub參考答案：Timer1.enabled=true 參考答案：x60 參考答案：x=x+1 第3題： 【程序說(shuō)明】程序運(yùn)行時(shí)界面如下圖，紅桃、梅花、方塊、黑桃的圖形文件在界面設(shè)計(jì)時(shí)已經(jīng)在屬性窗口中設(shè)置好，而且使用的是Image1控件數(shù)組，程序運(yùn)行時(shí)，單擊Image1時(shí)，Image2顯示相應(yīng)

10、的圖片，同時(shí)在Picture1中用藍(lán)色顯示哪個(gè)圖案被選中的文字信息。 Private Sub Image1_Click(Index As Integer) -1- Picture1.FontSize = 20 -2- = vbBlue Picture1.Cls -3- Case 0 Picture1.Print "紅桃被選中" Case 1 Picture1.Print "草花被選中" Case 2 Picture1.Print "方片被選中" Case 3 Picture1.Print "黑桃被選中" End S

11、electEnd Sub參考答案：Image2.Picture =Image1(Index).Picture 參考答案：Picture1.ForeColor 參考答案：Select Case Index 第4題： 【程序說(shuō)明】程序運(yùn)行時(shí)，通過(guò)單擊窗體顯示“字體”對(duì)話框，并對(duì)文本框的字體、字號(hào)和字效等進(jìn)行設(shè)置。Private Sub Form_Click() -1-259 CommonDialog1.Action =-2- Text1.FontBold =-3- Text1.FontItalic = CommonDialog1.FontItalic Text1.FontName = Common

12、Dialog1.FontName Text1.FontSize = CommonDialog1.FontSizeEnd Sub 參考答案：CommonDialog1.Flags 參考答案：4 參考答案：CommonDialog1.FontBold四：閱讀題第2題：請(qǐng)寫(xiě)出鼠標(biāo)點(diǎn)擊彈出菜單第三項(xiàng)后窗體上的顯示結(jié)果。Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuPopup, 10 End Sub

13、9;mnuChoice1、2、3順序?yàn)椴藛雾?xiàng)mnuPopup的下一級(jí)子菜單名Private Sub mnuChoice1_Click() Label1.caption=”折疊” print Label1.caption End SubPrivate Sub mnuChoice2_Click() Label1.caption=”展開(kāi)” print Label1.caption End SubPrivate Sub mnuChoice3_Click() Label1.caption=”退出” print Label1.captionEnd Sub A、折疊B、展開(kāi)C、退出D、無(wú)顯示 參考答案C第1

14、題：請(qǐng)寫(xiě)出在文本框中輸入“李小麗”并按下回車(chē)鍵后，窗體上顯示的結(jié)果。Private Sub Text1_Change()Print Text1.Text;”welcome!” End Sub A、 李小麗B、李welcome!welcome! 李小welcome!李小麗welcome!C、麗welcome! D、李小麗welcome!參考答案B、第3題：寫(xiě)出程序運(yùn)行時(shí)單擊窗體后，在圖片框上出現(xiàn)的結(jié)果。Private Sub Form_Load() Picture1.Width = Picture1.HeightEnd SubPrivate Sub Form_Click()Dim i As Si

15、ngle, x As Single, y As SinglePicture1.Scale (-100, 100)-(100, -100)For i = 0 To 2 * 3.1415926 Step 0.0001 x = 100 * Cos(i) y = 100 * Sin(i) Picture1.Line (0, 0)-(x, y), RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Next iEnd Sub答案 第4題：寫(xiě)出程序運(yùn)行時(shí)單擊窗體后，a1.dat文件的結(jié)果。Private Sub Form_Click() Dim k as i

16、nteger, I as integerOpen "a1.dat" For Output As #1For k=5 to 1 step -1 For i = 1 To k : Print #1,k; : Next i Print #1, Next kClose #1End Sub A、1 1 1 1 1 2 2 2 2 3 3 3 4 4 5B、1 2 3 4 5 C、5 5 5 5 5 4 4 4 4 3 3 3 2 2 1D、5 4 3 2 1參考答案：C第5題：【程序說(shuō)明】寫(xiě)出下列程序運(yùn)行時(shí)，單擊窗體，由鍵盤(pán)輸入一個(gè)整數(shù)29后，窗體上的顯示結(jié)果。Private Sub

17、 Form_click() Dim idec As Integer, i As Integer Dim iDecR(16) As Integer Dim strDecR As String idec = Val(InputBox("輸入數(shù)據(jù)idec=?") i = 0 Do While idec <> 0 iDecR(i) = idec Mod 2 idec = idec 2 i = i + 1Loop strDecR = "" i = i - 1 Do While i >= 0 strDecR = strDecR + Trim(Str

18、(iDecR(i) i = i - 1Loop Print strDecREnd Sub A、11011B、10111C、10101D、11101 參考答案 D、第6題：【程序說(shuō)明】寫(xiě)出下列程序運(yùn)行時(shí)，窗體上顯示的內(nèi)容。Private Sub Form_Click() Const n = 6 Dim xx(n) As Integer Form1.Cls For i = 1 To n xx(i) = i * i Next i Call fchange(xx(), n) For i = 1 To n Form1.Print xx(i); Next iEnd SubSub fchange(a() A

19、s Integer, m%) For i = 1 To m / 2 t = a(i) a(i) = a(m - i + 1) a(m - i + 1) = t Next iEnd Sub 參考答案： A、36 25 16 9 4 1B、1 4 9 16 25 36C、6 5 4 3 2 1D、1 2 3 4 5 6五：設(shè)計(jì)題第1題：編程，求方程x2+y2=1000的所有整數(shù)解。參考答案：Private Sub Command1_Click()Dim x as integer, y as integerFor x = -34 To 34For y = -34 To 34If x 2 + y 2

20、= 1000 ThenPrint x, yEnd IfNext y, xEnd Sub第2題：編寫(xiě)程序設(shè)計(jì)一個(gè)字幕推出程序。程序界面如下圖所示，標(biāo)簽的字號(hào)在定時(shí)器的控制下，每個(gè)時(shí)間間隔放大2磅并且保持標(biāo)簽在窗體中水平居中，當(dāng)標(biāo)簽的字號(hào)超過(guò)72時(shí)，定時(shí)器停止響應(yīng)Timer事件。字號(hào)放大的速度由水平滾動(dòng)條控制。參考答案：Private Sub Form_Load()Label1.Left = Width / 2 - Label1.Width / 2Label1.AutoSize = TrueHScroll1.Min = 1: HScroll1.Max = 1000HScroll1.SmallCha

21、nge = 10: HScroll1.LargeChange = 100HScroll1.Value = 500: Timer1.Interval = 500End SubPrivate Sub HScroll1_Change()Timer1.Interval = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()Call HScroll1_ChangeEnd SubPrivate Sub Timer1_Timer()Label1.FontSize = Label1.FontSize + 2Label1.Left = Width / 2 - L

22、abel1.Width / 2If Label1.FontSize >= 72 Then Timer1.Enabled = FalseEnd Sub第3題：程序運(yùn)行時(shí)在文本框中輸入一段英文文字，單擊命令按鈕后將它們保存至文件E:yw.txt文件中，單擊窗體后，顯示輸入對(duì)話框，在該對(duì)話框中輸入任意一個(gè)字符，并在E:yw.txt中查找，如果找到a，則提示a是文件中第幾個(gè)字符，否則提示a在文件中不存在。參考答案：Private Sub Form_Click() Dim a As String, b As String, c As String Dim n As Integer a = Inpu

23、tBox("請(qǐng)輸入一個(gè)字符") Open "e: yw.txt" For Input As #1 Do While Not EOF(1) Line Input #1, b c = c + b Loop n = InStr(c, a) If n <> 0 Then MsgBox a & "是文件中第" & n & "個(gè)字符" Else MsgBox a & "在文件中不存在" End If Close #1 End Sub Private Sub Com

24、mand1_Click() Open "e: yw.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub TEXT 6一判斷題第1題：在打開(kāi)某窗體時(shí)，初始化窗體中的各控件，應(yīng)選用Load事件。第2題：不能使用Visual Basic的關(guān)鍵字作為變量名。對(duì)第3題：表達(dá)式5>4>3的計(jì)算結(jié)果是True。×第4題：若用數(shù)組作為過(guò)程的參數(shù)，則實(shí)參和形參結(jié)合是按地址傳遞的，定義過(guò)程時(shí)，參數(shù)前不能使用ByVal。第5題：If語(yǔ)句中的條件表達(dá)式只能使用關(guān)系表達(dá)式或邏輯表達(dá)式。對(duì)第6題：執(zhí)行滾動(dòng)條控件的

25、Change事件不是在拖動(dòng)滾動(dòng)條滑塊的過(guò)程中，而是在拖動(dòng)過(guò)程停止時(shí)。第7題：將組合框的Style屬性設(shè)置為0時(shí)，組合框稱為“下拉式組合框”，其選項(xiàng)可以從下拉列表框的列表項(xiàng)中選擇，也可以由用戶輸入。第8題：將圖片框的Align屬性設(shè)置值為2，表示圖片框在窗體中居中顯示。×第9題：用戶要想在程序運(yùn)行時(shí)改變目錄列表框的顯示內(nèi)容，可以通過(guò)代碼來(lái)設(shè)置List屬性的值。第10題：如果創(chuàng)建的菜單的標(biāo)題是一個(gè)減號(hào)“-”，則該菜單顯示為一個(gè)分隔線，此菜單項(xiàng)也可以識(shí)別單擊事件。×二、選擇題第1題：一個(gè)對(duì)象可以執(zhí)行的動(dòng)作和可被對(duì)象識(shí)別的動(dòng)作分別稱為_(kāi)。、事件、方法B、方法、事件、屬性、方法、過(guò)程

26、、事件第2題：以下選項(xiàng)中不屬于事件的是_。A、Enable、oad C、keypress D、click第3題：把一個(gè)數(shù)字字符串轉(zhuǎn)換成相應(yīng)的數(shù)值的函數(shù)是_A_。A、Val B、single C、asc D、spc第4題：下列說(shuō)法不正確的是_ B _。 A、變量名長(zhǎng)度不能超過(guò)255個(gè)字符 B、變量名可以包含小數(shù)點(diǎn)C、變量名不能使用關(guān)鍵字 D、變量名的第一個(gè)字符必須是字母 5窗體通用部分的語(yǔ)句“Option Base 1”，決定本窗體中數(shù)組下標(biāo)界_B_A下界必須為1 B缺省的下界為 C 下界必須為0 D缺省的下界為0第6題：下列_B_屬性用來(lái)表示標(biāo)簽或窗體的標(biāo)題。 A、Text B、Caption

27、 C、Left D、name第7題：將焦點(diǎn)主動(dòng)設(shè)置到指定的控件或窗體上，應(yīng)采用_B_方法。A B、SetFocus C D 第8題：描述以（1000，1000）為圓心、以400為半徑畫(huà)1/4圓弧的語(yǔ)句，以下正確的是_C_。A.Circle(1000,1000),400,0,3.1415926/2B.Circle(1000,1000),400,0,3.1415926/2C.Circle(1000,1000),400,0,3.1415926/2D.Circle(1000,1000),400,0,90第9題：通用對(duì)話框可以通過(guò)對(duì)_D_屬性的設(shè)定來(lái)過(guò)濾文件類型。A Action B Filterind

28、ex C Font D、Filter 第10題：執(zhí)行語(yǔ)句Input #1,k,s,a,d1后，再執(zhí)行語(yǔ)句Print k;s;a;d1 (k、s、a、d1分別是整型、Single、字符串、Date類型，文件中相應(yīng)字符為“234,-34.56,"hello",#2001-08-03#”)，輸出結(jié)果為_(kāi)B_ A、234，-34.56，hello，2001-08-03B、234-34.56hello2001-08-03C、234，-34.56，”hello”，#2001-08-03#D、234 -34.56 hello#2001-08-03#三：填空題第1題： 【程序說(shuō)明】以下程序

29、執(zhí)行后將輸出100到200之間所有的素?cái)?shù)，并統(tǒng)計(jì)素?cái)?shù)的個(gè)數(shù)Private Sub Form_Click()Dim i%, j%, k%, t% 't為統(tǒng)計(jì)素?cái)?shù)的個(gè)數(shù) Dim b As Boolean For i = 100 To 200 b = True k= - 1 - j = Int(Sqr(i) Do While k <= j And b If i Mod k = 0 Then - 2 - End If - 3 -Loop if b=true then t = t + 1 Form1.Print i End If Next i Print "t=" tE

30、nd Sub參考答案：2 參考答案：b = False 參考答案：k = k + 1 第2題： 【程序說(shuō)明】 下列程序運(yùn)行時(shí)，單擊Command1(0)后，清空組合框原有內(nèi)容，從外部文件中讀入的數(shù)據(jù)顯示在組合框中，如圖所示。單擊Command1(1)后，將組合框中的各表項(xiàng)輸出到外部文件；單擊Command1(2)后，將組合框中文本框部分的文本添加作為組合框的表項(xiàng)；單擊Command1(3)后，將組合框中選中的表項(xiàng)刪除。Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 -1- Open "d:aa

31、a.txt" For Input As #1 Do While Not EOF(1) Line Input #1, a$ Combo1.AddItem a$Loop Close #1 Case 1 Open "d:aaa.txt" For Output As #1 For I% = 0 To -2- Print #1, Combo1.List(I%) Next I% Close #1 Case 2 '添加 Combo1.AddItem Combo1.Text Case 3 '刪除 -3- End SelectEnd Sub參考答案：Combo1.C

32、lear 參考答案：Combo1.ListCount - 1 參考答案：Combo1.RemoveItem Combo1.ListIndex 第3題： 【程序說(shuō)明】程序運(yùn)行后，鼠標(biāo)多次在圖片框內(nèi)拖動(dòng)后，繪制出多個(gè)綠色邊框矩形，填充樣式在“實(shí)心”、“透明”間交替變換。-1-Private Sub Picture1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) x0 = X: y0 = YEnd SubPrivate Sub Picture1_MouseUp(Button As Integer,

33、 Shift As Integer, _ X As Single, Y As Single) If -2-Then Picture1.FillStyle = 0 Else Picture1.FillStyle = 1 End If -3- End Sub參考答案：Dim x0 As Single, y0 As Single或Dim x0!, y0! 參考答案：Picture1.FillStyle <> 0或Picture1.FillStyle=1 參考答案：Picture1.Line (x0, y0)-(X, Y), RGB(0, 255, 0), B 第4題： 【程序說(shuō)明】設(shè)計(jì)一

34、個(gè)簡(jiǎn)單的圖片瀏覽程序。單擊窗體后，顯示“打開(kāi)文件”對(duì)話框，選中一個(gè)圖片文件后，將其顯示在圖片框中。要求“打開(kāi)文件”對(duì)話框只能顯示bmp文件或gif文件。Private Sub Form_Click() CommonDialog1.DialogTitle =”打開(kāi)圖片文件” CommonDialog1.InitDir=”c:Picture” -1-="bmp文件|*.bmp|gif文件|*.gif"-2-Picture1.Picture=LoadPicture(-3-)End Sub參考答案：CommonDialog1.Filter 參考答案：CommonDialog1.Sh

35、owOpen或CommonDialog1.Action=1 參考答案：CommonDialog1.FileName4.、閱讀題第1題：請(qǐng)描述出點(diǎn)擊check1 一次、check2兩次、Option1（2）兩次后，文本框text1中文字“杭州”的顯示格式。復(fù)選框和單選框初始狀態(tài)都為未選中。Private Sub Check1_Click() If Check1.Value = 1 Then Text1.ForeColor = vbRed Else Text1.ForeColor = vbBlack End IfEnd SubPrivate Sub Check2_Click() If Check2

36、.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End IfEnd SubPrivate Sub Option1_Click(Index As Integer) Select Case Index Case 0 Text1.Alignment = 0 Case 1 Text1.Alignment = 1 Case 2 Text1.Alignment = 2 End SelectEnd Sub 參考答案：DA、杭州 為紅色加粗的字，位于文本框中間B、杭州 為黑色加粗的字，位于文本框左側(cè)C、杭州 為黑色不加粗的字，

37、位于文本框中間 D、杭州 為紅色不加粗的字，位于文本框中間已知窗體某主菜單上有三個(gè)子菜單項(xiàng)，當(dāng)鼠標(biāo)點(diǎn)擊菜單第二項(xiàng)后請(qǐng)寫(xiě)出程序運(yùn)行后的結(jié)果。'm1、2、3順序?yàn)?個(gè)子菜單名Private sub form_load() M1.enabled=false M2.enabled=true M3.enabled=falseEnd subPrivate Sub m1_Click()M1.enabled=true M2.enabled=false M3.enabled=falseEnd SubPrivate Sub m2_Click() M1.enabled=false M2.enabled=fa

38、lse M3.enabled=true End SubPrivate Sub m3_Click() M1.enabled=false M2.enabled=false M3.enabled=falseEnd Sub 參考答案：AA、程序運(yùn)行后使得第1、2菜單項(xiàng)不可響應(yīng)，第3個(gè)菜單項(xiàng)可響應(yīng)。B、程序運(yùn)行后使得第1、3菜單項(xiàng)不可響應(yīng)，第2個(gè)菜單項(xiàng)可響應(yīng)。C、程序運(yùn)行后使得第2、3菜單項(xiàng)不可響應(yīng)，第1個(gè)菜單項(xiàng)可響應(yīng)。D、程序運(yùn)行后使得第1、2、3菜單項(xiàng)都不可響應(yīng)。第3題：寫(xiě)出程序運(yùn)行時(shí)單擊窗體后，在窗體上出現(xiàn)的結(jié)果。Private Sub Form_Click() Dim i As Integer,

39、 x As Single, y As Single Form1.Scale (-300, -200)-(300, 200) For i = 1 To 100 x = 300 * Rnd If Rnd < 0.5 Then x = -x y = 200 * Rnd If Rnd < 0.5 Then y = -y Line (0, 0)-(x, y), RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256) Next i End sub 參考答案：BA B、 C 第4題：寫(xiě)出點(diǎn)擊2次窗體后，文件a1.txt中的內(nèi)容。Dim k as in

40、tegerPrivate sub form_load() K=5 End subPrivate Sub form_click() Dim j As Integer k = k + 1 Open "a1.txt" For Append As #1 For j = 1 To k: Print #1, j; : Next j Print #1, Close #1End Sub A、1 2 3 4 5 6 B、6 7 1 2 3 4 5 6 7 C、7 6D、1 2 3 4 5 6 7 1 2 3 4 5 6 參考答案：A第5題：【程序說(shuō)明】寫(xiě)出下列程序運(yùn)行時(shí)，單擊窗體一次輸入10

41、、37、50、55、64、20、28、19、-19、0后，窗體上顯示的內(nèi)容。Private Sub Form_Click() Dim y As Integer Do y = InputBox("y=") If (y Mod 10) + Int(y / 10) = 10 Then Print y Loop Until y = 0End Sub 參考答案：DA、37 55 64 28 19 19 B、10 50 20 C、10 50 20 0 D、37 55 64 28 19第6題：【程序說(shuō)明】寫(xiě)出下列程序運(yùn)行時(shí)，單擊命令按鈕后，窗體上的顯示結(jié)果。Private Sub Cmd

42、ok_Click() Dim x As Integer, y As Integer x = 12: y = 32 Call Proc(x, y) Print x; yEnd SubPublic Sub Proc(n As Integer, ByVal m As Integer) n = n Mod 10 m = m Mod 10 End Sub A. 2 32 B、12 3 C、2 2 D、12 32 參考答案：A第1題：編程，將一個(gè)三位整數(shù)倒序輸出.Private Sub Command1_Click()Dim x as integer, bw as integer, sw as integ

43、er, gw as integerx = Text1.Textbw = x 100sw = x 10 Mod 10gw = x Mod 10x = gw * 100 + sw * 10 + bwPrint xEnd Sub第2題：編程，當(dāng)程序啟動(dòng)后用綠色文字顯示"綠燈"2秒鐘，接著黃色文字顯示"黃燈"3秒鐘，然后用紅色文字顯示"紅燈"2秒鐘。然后，再重新開(kāi)始下一輪"綠燈"、"黃燈"、"紅燈"的顯示。直到雙擊窗體停止變化。參考答案：Dim k As IntegerPrivate

44、 Sub Form_Load()Label1.Caption = "綠燈"End SubPrivate Sub Timer1_Timer()k = k + 1Select Case kCase 1 To 2Label1.Caption = "綠燈"Label1.ForeColor = vbGreenCase 3 To 5Label1.Caption = "黃燈"Label1.ForeColor = vbYellowCase 6 To 7Label1.Caption = "紅燈"Label1.ForeColor =

45、vbRedIf k = 7 Then k = 0End Select 第3題：編程實(shí)現(xiàn)兩個(gè)文本文件的合并，要求用驅(qū)動(dòng)器、目錄、文件列表框選擇文件1，單擊按鈕1后，調(diào)用通用對(duì)話框選擇文件2；單擊按鈕2后，比較文件1和文件2的內(nèi)容是否相同，如果不相同則用消息框提示“兩個(gè)文件不一樣”，相同則提示“兩個(gè)文件一樣”。參考答案：Dim fn As String Private Sub Command1_Click()CommonDialog1.Filter = "(*.txt)|*.txt"CommonDialog1.ShowOpen End SubPrivate Sub Comman

46、d2_Click()Dim s1 As String,s2 as string,flag as BooleanOpen fn For input As #1 Open CommonDialog1.FileName For Input As #2Flag=trueDo While Not EOF(1) Line Input #1, s1If not eof(2) then line input #2,s2 else flag=false:exit doIf s1<>s2 then flag=false:exit doLoopIf not eof(2) or flag=false th

47、enMsgbox “兩個(gè)文件不一樣”ElseMsgbox “兩個(gè)文件一樣”End ifCloseEnd SubPrivate Sub Dir1_Change()File1.Path = Dir1.Path End SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.Drive End SubPrivate Sub File1_Click()If Right(File1.Path, 1) = "" Then fn = File1.Path + File1.FileNameElsefn = File1.Path + "&q

48、uot; + File1.FileNameEnd IfEnd SubPrivate Sub Form_Load()File1.Pattern = "*.txt"End SubTEXT 7第1題：決定對(duì)象是否可見(jiàn)的屬性是Show屬性，決定對(duì)象可用性的屬性是Load屬性。×第2題：表達(dá)式5>4>3的計(jì)算結(jié)果是True。×第3題：Dim關(guān)鍵字可用來(lái)聲明過(guò)程級(jí)變量，但不能用來(lái)聲明模塊級(jí)變量。×第4題：在Select Case情況語(yǔ)句中，各個(gè)分支（即Case 表達(dá)式）的先后順序無(wú)關(guān)。×第5題：Sub過(guò)程名在過(guò)程中必須被賦值。

49、5;6、 Picture對(duì)象的AutoSize屬性值為T(mén)rue時(shí)，表示該對(duì)象不管原來(lái)圖片的大小，一律都自動(dòng)調(diào)整為控件的大小尺寸，以便能完整地顯示該圖片。×7：設(shè)置窗體的Fillcolor屬性使窗體的填充色為紅色后，形狀控件的填充色也是紅色。×8、當(dāng)使用Circle方法畫(huà)圓后，當(dāng)前坐標(biāo)在原點(diǎn)（0，0）。×9、菜單編輯器中的快捷鍵是指無(wú)須打開(kāi)菜單就可以直接由鍵盤(pán)輸入選擇菜單項(xiàng)的鍵。對(duì) 10、若要新建一個(gè)磁盤(pán)上的順序文件，可用OUTPUT、APPEND方式打開(kāi)文件。對(duì)1、以下選項(xiàng)中不屬于事件的是_A_。A、Enable B、Load C、KeyPress D、Click

50、 2、要聲明兩個(gè)整型變量A和B,下面寫(xiě)法不正確的是_D_。A、Dim A%,B%B、DimA%:DimB% C、Dim A As Integer:Dim B% D、Dim A%,Dim B% 3變量的類型可以用類型聲明符隱式聲明，下列_A_符號(hào)是用來(lái)聲明單精度浮點(diǎn)型的。A、! B、% C、# D、$4、下列程序段中，錯(cuò)誤的是_C_。 A、 A.Dim a(10) as integerfor i=1 to 10 :a(i)=inputbox(“”):next i B .n=10Redim a(n) as integerfor i=1to n:a(i)=inputbox(“”):next I C

51、Redim a(n) as integern=10for i=1 to n :a(i)=inputbox(“”):next iD、const n=10dim a(n) as integerfor i=1 to n :a(i)=inputbox(“”):next i5、如果在程序中要將a定義為靜態(tài)變量，且為整型數(shù)，則應(yīng)使用的語(yǔ)句是_B_。A、Redim a As Integer B、Static a As Integer C、Public a As Integer D、Dim a As Integer 6、設(shè)計(jì)動(dòng)畫(huà)時(shí)通常用定時(shí)器控件_A_屬性來(lái)控制動(dòng)畫(huà)速度。A、Interval B、Timer C、Move D、En