VisualBasic程序設計_

1、1 / 6Visual Basic 程序設計 _0004一、單項選擇題（共 10 道試卷，共 40 分。）1.一旦數(shù)據(jù)到達，將首先觸發(fā) Winsock 控件的（）DataArrival 事件D. DataGet 事件2.以下敘述中錯誤的是（）。A. 一個工程中只能有一個 Sub Main 過程B.窗體的 Show 方法的作用是將指定的窗體載入內存并顯示該窗體C.窗體的 Hide 方法和 Unload 方法的作用完全相同D.若工程文件中有多個窗體， 可以根據(jù)需要指定一個窗體為啟動窗體3.若要將窗體從內存中卸載，其實現(xiàn)的方法是（）。廣A. UnloadC. LoadD. Hide滿分：4 分4.下

2、列數(shù)組聲明語句，正確的是（）B. Dim a(3 4) As Integer rC. Dim a(n,n) As IntegerrD. Dim a(3,4) As Integer滿分：4 分5.控件（）沒有 Caption 屬性。A. Dim a3,4 As IntegerB. ConnectionRequest 事件C. DataSend 事件B. Show2 / 6A. LabelD. ListBox滿分：4 分6.Visual Basic 提供的常見鼠標事件中，鼠標按下所引發(fā)的事件為（）A. MouseDown 事件B. Click 事件C. MouseUp 事件D. MouseMove

3、 事 件滿分：4 分7.下列數(shù)據(jù)類型中，（）占用內存最小。A. BooleanB. ByteC. IntegerD. Long滿分：4 分8.無論何種控件，共同具有的屬性是（）D. ForeColor滿分：4 分9.要暫時關閉計時器，應把計時器的某個屬性設置為False，這個屬性是（）A. VisibleB. TimerB. OptionButtonC. FrameA. TextB. NameC. Caption3 / 6滿分：4 分10.在 Visual Basic 的轉換函數(shù)中將數(shù)值轉換為字符串的函數(shù)是Str(x);將數(shù)字字符串轉換為數(shù)值的函數(shù)是()C. EnabledD. Interva

4、lA. Acs (x)B. Srt (x)C. Asc(x)D. Vla (x)4 / 6滿分：4 分二、判斷題(共 10 道試卷，共 40 分。)1.Int(100 + Rnd * 101)表達式的值是范圍在 100 到 200 之間的一個隨機數(shù)。B.正確滿分：4 分2.執(zhí)行 Do-Loop While 語句時，不管條件真假，首先會無條件地執(zhí)行一次循環(huán)A 錯誤B.正確滿分：4 分3.要在窗體 Form1 內顯示“myfrm；使用的語句是 Form.caption=myfrm。A 錯誤B.正確滿分：4 分4.VB 變量名中允許出現(xiàn)空格。A 錯誤滿分：4 分5.用 Public 語句聲明的變量是

5、全局變量。A 錯誤B.正確6.因為 Single 類型的變量可存儲數(shù)值的范圍大于 Long 類型的變量，所以 Single 類型占用內存大于 Long 類型A 錯誤B.正確滿分：4 分7.VB 中將數(shù)據(jù)庫分為本地數(shù)據(jù)庫、外部數(shù)據(jù)庫和遠程數(shù)據(jù)庫三種類型。A 錯誤B.正確滿分：4 分8.將變量 A、B、C 都賦值為 0,可以用賦值語句 A = B = C = 0 去完成。B.正確5 / 6A 錯誤B.正確滿分：4 分9.Winsockl 丄 isten 語句的含義是：使用服務程序處于偵聽狀態(tài)。A 錯誤B.正確滿分：4 分10.一個變量在被聲明之后，尚未被賦值之前，就已經有默認值了。Integer

6、型變量的默認值是 0。A 錯誤B.正確滿分：4 分三、閱讀理解（共 2 道試卷，共 20 分。）1.閱讀程序寫出運行結果。Sub Change(ByVal x As Integer, ByVai y As Integer)Dim t As Integert = xx = yy = tPrint x, yEnd SubPrivate Sub Form_Click()Dim a As Integer, b As Integera = 3: b = 4Change a, bPrint a, bEnd Sub選擇單擊窗體時輸出結果為rA.4334rB. 44336 / 6cC. 3344rD. 34432.閱讀程序寫出運行結果。Function F(n As Integer) As LongDim i As lnteger,Temp As LongTemp = 1For i=1 to nTemp = Temp * iNext iF = TempEnd FunctionPrivate Sub Form_Click()Dim k As Integer,n