1、2847VisualBasic 程序設(shè)計-0007單項選擇題（共 16 題，共 48 分） Basic（ A 結(jié)構(gòu)化程序設(shè)計程序開發(fā)環(huán)境事件驅(qū)動編程機制在VB6.0（ 。A 設(shè)計模式B 中斷模式C 執(zhí)行模式D 編寫代碼模式語句x=x+1（ A 變量xx+1將變量xx+1將變量x1 后賦給變量D 變量x1參考答案：C當程序運行過程中，需要給用戶一些提示信息或警告信息時，應(yīng)使用（。A 賦值語句B InputBox C MsgBoxD print參考答案：C若要將窗體從內(nèi)存中卸載，應(yīng)使用的方法是（。ShowUnloadLoadHide在VisualBasic（ A 字符串型數(shù)值型變體類型以下關(guān)于變量

2、作用域的敘述中，正確的是（。A 窗體中凡被聲明為Private 的變量只能在某個指定的過程中使用B 全局變量必須在標準模塊中聲明模塊級變量只能用PrivateStatic8.語句Print 5*5/5/5（ 。A5B25C0D1參考答案：B在VB（。任何窗體或標準模塊任何窗體或過程Sub MainD Sub Main參考答案：D在下列關(guān)于菜單的說法中，錯誤的是（。每個菜單項都是一個控件，與其他控件一樣也有自己的屬性和事件除了 ClickDbClickC 菜單項的快捷鍵不能任意設(shè)置D 在程序執(zhí)行時，如果菜單項的 Enable 屬性為 False，則該菜單項變成灰色，不能被用戶選用參考答案：B區(qū)，

3、而動態(tài)數(shù)組在（）時才開辟內(nèi)存區(qū)。窗體制作運行控件屬性設(shè)置如果要在窗體代碼編輯器的“通用”部分定義私有Sub 過程，則正確的語句是（。A Public Sub B Private C Public Function D Private Function 使用驅(qū)動器列表框的（）屬性可以返回或設(shè)置磁盤驅(qū)動器的名稱。A B DriveListListIndex參考答案：B以下的屬性和方法中，可重定義坐標系的是（。ADrawstyleBDrawWidthC ScaleD ScaleMode 屬 性參考答案：C要發(fā)送數(shù)據(jù)，通常使用Winsock 控件的（。A SendData 方 法B Listen 方法

4、CAccept 方 法DGetData用來從數(shù)據(jù)庫表中刪除記錄的SQL（ A DELETESELECTUPDATEWHERE參考答案：A判斷題（共 14 題，共 28 分）工程資源管理器管理的文件主要有 6 類，即窗體文件類模塊文件.cl,工程文件.vb）.vb）和資源文件.re。T F 參考答案：TT F 參考答案：T要使輸入文本框的字符顯示在其最左邊，可修改文本框的Alignment 屬性。T F 參考答案：TIntervalTimerT F 參考答案：TDo- Loop UntilT F 參考答案：TIf x y Then Max=x Else Max=yT F 參考答案：T移動框架時框

5、架內(nèi)的控件也跟隨移動，所以框架內(nèi)各控件的Left 與Top 屬性值也隨之改變。T F 參考答案：F列表框控件中最后一項的序號等于ListCountT F 參考答案：TT F 參考答案：TT F 參考答案：T要讀取一個磁盤文件，需要使用EOF 函數(shù)來判斷文件是否到達文件尾。T F 參考答案：T設(shè)置Line 控件的BorderStyleT F 參考答案：TADO 模型中一般可通過Conection 對象的ExecuteSQLT F 參考答案：TEOF 屬性為TrueRecordsetT F 參考答案：T程序閱讀分析題（共 4 題，共 24 分）Private Sub Command1_Click(

6、) Static Sum As IntegerDim I As Integer I = 1DoSum = Sum + I I = I + 1Loop While I = 5 Text1.Text = Sum Text2.Text = IEnd Sub程序運行后，兩次單擊Command1按鈕后，文本框Text1、Text2上的輸出結(jié)果是（。A 10 5B 15 6C 25 5D 30 6參考答案：DPrivate Sub b = 1Do While b 40b = b * (b + 1) LoopPrint b End Sub程序運行后，單擊窗體，在窗體上顯示的值為（ 。423961參考答案：APrivate Sub Command1_Click()P = 0s = 0 DoP = P + 2s = s + PLoop While P 11 Print S=; sEnd Sub程序運行后，單擊命令按鈕，在窗體上顯示的值是（。S=42S=30S=46S=20Private Sub Command1_Click() x = 0Do While x 50 x = (x +