大學VB程序設計資料

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

2、像框的Picture屬性可改變影像框中顯示的圖片，若要清除圖片也是通過設置Picture屬性來實現(xiàn)。 對第9題：在消息框（MsgBox）中，“Prompt”（消息）是必選項，最大長度為64個字符。 錯第10題：在程序運行中，目錄列表框將以樹形展開方式顯示某個盤或目錄內的各個子目錄名，并用是否為打開的文件夾圖標來表示選定的目錄。 對二：選擇題第1題：下列選項中，屬于VB程序設計的特點是_。 A、面向過程、事件驅動 B、面向對象、順序驅動 C、面向過程、順序驅動 D、面向對象、事件驅動 第2題：在窗體Form1的LOAD事件過程中有語句：Form1.Print "Visual Basic

3、"，但運行時窗體并未顯示打印文字，此時需要修改窗體的_屬性,才能使窗體啟動有輸出結果 。A、Autosize B、Enabled C、Autoredraw D、Visible第3題：下面哪一項不可以賦值給數值型變量？ 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)結構被執(zhí)行_次。 A、4 B、5 C、6 D、0第6題： 文本框控件的Alignment屬性決定_。 A、是否顯示多行文本 B

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

5、，相應文件內被寫入 _。 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題： 【程序說明】以下程序執(zhí)行后將產生一個6×6的轉置矩陣，將二維數組中所有行和對應列的元素進行交換。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 "原始數據" 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 "轉置后數據" 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題： 【程序說明】本程序利用1個定時器、1個文本框和2個命令按鈕制作一個動態(tài)表。各控件名稱取缺省值，控件Command1、Command2標題分別為“開始”、“結束”。運行時，單擊“開始”按鈕后表開始

8、每分鐘計一次時，并在文本框上顯示總分鐘數；單擊“結束”按鈕后，計時結束，在窗體上顯示出運行的時間（折算成小時、分鐘，不計算秒數）。 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 "運行了" + Str(h) + "小時" + Str(m) + "分" End SubPrivate Sub Timer1_Timer() -3- Text1.text = xEnd Sub參考答案：Timer1.enabled=true 參考答案：x60 參考答案：x=x+1 第3題： 【程序說明】程序運行時界面如下圖，紅桃、梅花、方塊、黑桃的圖形文件在界面設計時已經在屬性窗口中設置好，而且使用的是Image1控件數組，程序運行時，單擊Image1時，Image2顯示相應

10、的圖片，同時在Picture1中用藍色顯示哪個圖案被選中的文字信息。 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題： 【程序說明】程序運行時，通過單擊窗體顯示“字體”對話框，并對文本框的字體、字號和字效等進行設置。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題：請寫出鼠標點擊彈出菜單第三項后窗體上的顯示結果。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順序為菜單項mnuPopup的下一級子菜單名Private Sub mnuChoice1_Click() Label1.caption=”折疊” print Label1.caption End SubPrivate Sub mnuChoice2_Click() Label1.caption=”展開” print Label1.caption End SubPrivate Sub mnuChoice3_Click() Label1.caption=”退出” print Label1.captionEnd Sub A、折疊B、展開C、退出D、無顯示 參考答案C第1

14、題：請寫出在文本框中輸入“李小麗”并按下回車鍵后，窗體上顯示的結果。Private Sub Text1_Change()Print Text1.Text;”welcome!” End Sub A、 李小麗B、李welcome!welcome! 李小welcome!李小麗welcome!C、麗welcome! D、李小麗welcome!參考答案B、第3題：寫出程序運行時單擊窗體后，在圖片框上出現(xiàn)的結果。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題：寫出程序運行時單擊窗體后，a1.dat文件的結果。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題：【程序說明】寫出下列程序運行時，單擊窗體，由鍵盤輸入一個整數29后，窗體上的顯示結果。Private Sub

17、 Form_click() Dim idec As Integer, i As Integer Dim iDecR(16) As Integer Dim strDecR As String idec = Val(InputBox("輸入數據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題：【程序說明】寫出下列程序運行時，窗體上顯示的內容。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五：設計題第1題：編程，求方程x2+y2=1000的所有整數解。參考答案：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題：編寫程序設計一個字幕推出程序。程序界面如下圖所示，標簽的字號在定時器的控制下，每個時間間隔放大2磅并且保持標簽在窗體中水平居中，當標簽的字號超過72時，定時器停止響應Timer事件。字號放大的速度由水平滾動條控制。參考答案：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題：程序運行時在文本框中輸入一段英文文字，單擊命令按鈕后將它們保存至文件E:yw.txt文件中，單擊窗體后，顯示輸入對話框，在該對話框中輸入任意一個字符，并在E:yw.txt中查找，如果找到a，則提示a是文件中第幾個字符，否則提示a在文件中不存在。參考答案：Private Sub Form_Click() Dim a As String, b As String, c As String Dim n As Integer a = Inpu

23、tBox("請輸入一個字符") 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 & "個字符" 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題：在打開某窗體時，初始化窗體中的各控件，應選用Load事件。第2題：不能使用Visual Basic的關鍵字作為變量名。對第3題：表達式5>4>3的計算結果是True。×第4題：若用數組作為過程的參數，則實參和形參結合是按地址傳遞的，定義過程時，參數前不能使用ByVal。第5題：If語句中的條件表達式只能使用關系表達式或邏輯表達式。對第6題：執(zhí)行滾動條控件的

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

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

27、 C、Left D、name第7題：將焦點主動設置到指定的控件或窗體上，應采用_B_方法。A B、SetFocus C D 第8題：描述以（1000，1000）為圓心、以400為半徑畫1/4圓弧的語句，以下正確的是_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題：通用對話框可以通過對_D_屬性的設定來過濾文件類型。A Action B Filterind

28、ex C Font D、Filter 第10題：執(zhí)行語句Input #1,k,s,a,d1后，再執(zhí)行語句Print k;s;a;d1 (k、s、a、d1分別是整型、Single、字符串、Date類型，文件中相應字符為“234,-34.56,"hello",#2001-08-03#”)，輸出結果為_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題： 【程序說明】以下程序

29、執(zhí)行后將輸出100到200之間所有的素數，并統(tǒng)計素數的個數Private Sub Form_Click()Dim i%, j%, k%, t% 't為統(tǒng)計素數的個數 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題： 【程序說明】 下列程序運行時，單擊Command1(0)后，清空組合框原有內容，從外部文件中讀入的數據顯示在組合框中，如圖所示。單擊Command1(1)后，將組合框中的各表項輸出到外部文件；單擊Command1(2)后，將組合框中文本框部分的文本添加作為組合框的表項；單擊Command1(3)后，將組合框中選中的表項刪除。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題： 【程序說明】程序運行后，鼠標多次在圖片框內拖動后，繪制出多個綠色邊框矩形，填充樣式在“實心”、“透明”間交替變換。-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題： 【程序說明】設計一

34、個簡單的圖片瀏覽程序。單擊窗體后，顯示“打開文件”對話框，選中一個圖片文件后，將其顯示在圖片框中。要求“打開文件”對話框只能顯示bmp文件或gif文件。Private Sub Form_Click() CommonDialog1.DialogTitle =”打開圖片文件” 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題：請描述出點擊check1 一次、check2兩次、Option1（2）兩次后，文本框text1中文字“杭州”的顯示格式。復選框和單選框初始狀態(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、杭州 為黑色不加粗的字，

37、位于文本框中間 D、杭州 為紅色不加粗的字，位于文本框中間已知窗體某主菜單上有三個子菜單項，當鼠標點擊菜單第二項后請寫出程序運行后的結果。'm1、2、3順序為3個子菜單名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、程序運行后使得第1、2菜單項不可響應，第3個菜單項可響應。B、程序運行后使得第1、3菜單項不可響應，第2個菜單項可響應。C、程序運行后使得第2、3菜單項不可響應，第1個菜單項可響應。D、程序運行后使得第1、2、3菜單項都不可響應。第3題：寫出程序運行時單擊窗體后，在窗體上出現(xiàn)的結果。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題：寫出點擊2次窗體后，文件a1.txt中的內容。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題：【程序說明】寫出下列程序運行時，單擊窗體一次輸入10

41、、37、50、55、64、20、28、19、-19、0后，窗體上顯示的內容。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題：【程序說明】寫出下列程序運行時，單擊命令按鈕后，窗體上的顯示結果。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題：編程，將一個三位整數倒序輸出.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題：編程，當程序啟動后用綠色文字顯示"綠燈"2秒鐘，接著黃色文字顯示"黃燈"3秒鐘，然后用紅色文字顯示"紅燈"2秒鐘。然后，再重新開始下一輪"綠燈"、"黃燈"、"紅燈"的顯示。直到雙擊窗體停止變化。參考答案：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題：編程實現(xiàn)兩個文本文件的合并，要求用驅動器、目錄、文件列表框選擇文件1，單擊按鈕1后，調用通用對話框選擇文件2；單擊按鈕2后，比較文件1和文件2的內容是否相同，如果不相同則用消息框提示“兩個文件不一樣”，相同則提示“兩個文件一樣”。參考答案：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 “兩個文件不一樣”ElseMsgbox “兩個文件一樣”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題：決定對象是否可見的屬性是Show屬性，決定對象可用性的屬性是Load屬性。×第2題：表達式5>4>3的計算結果是True。×第3題：Dim關鍵字可用來聲明過程級變量，但不能用來聲明模塊級變量。×第4題：在Select Case情況語句中，各個分支（即Case 表達式）的先后順序無關。×第5題：Sub過程名在過程中必須被賦值。

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

50、 2、要聲明兩個整型變量A和B,下面寫法不正確的是_D_。A、Dim A%,B%B、DimA%:DimB% C、Dim A As Integer:Dim B% D、Dim A%,Dim B% 3變量的類型可以用類型聲明符隱式聲明，下列_A_符號是用來聲明單精度浮點型的。A、! B、% C、# D、$4、下列程序段中，錯誤的是_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)變量，且為整型數，則應使用的語句是_B_。A、Redim a As Integer B、Static a As Integer C、Public a As Integer D、Dim a As Integer 6、設計動畫時通常用定時器控件_A_屬性來控制動畫速度。A、Interval B、Timer C、Move D、En