精品理论电影在线_日韩视频一区二区_一本色道精品久久一区二区三区_香蕉综合视频

(29)在窗體上畫1個文本框，其名稱為Text1，然后編寫如下過程：
　　Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
　　Print Chr(KeyCode)
　　End Sub
　　Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer)
　　Print Chr(KeyCode+2)
　　End Sub
　　程序運行后，把焦點移到文本框中，此時如果敲擊“A”鍵，則輸出結果為。
　　A)A
　　AB)A
　　BC)A
　　CD)A
　　D
(30)為了使列表框中的項目呈多列顯示，需要設置的屬性為。
　　A．Columns
　　b．Style
　　C．List
　　D．MultiSelect
(31)在窗體上畫1個命令按鈕，名稱為Command1，然后編寫如下程序：
　　Dim Flag As Boolean
　　Private Sub Command1_Click()
　　Dim intNum As Integer
　　intNum=InputBox("請輸入：")
　　If Flag Then
　　Print f(intNum)
　　End If
　　End Sub
　　Function f(X As Integer)As Integer
　　If X<10 Then
　　Y=X
　　Else
　　Y=X+10
　　End If
　　f=Y
　　End Function
　　Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
　　Flag=True
　　End Sub
　　運行程序，首先單擊窗體，然后單擊命令按鈕，在輸入對話框中輸入5，則程序的輸出結果為。
　　A．0
　　b．5
　　C．15
　　D．無任何輸出
(32)在菜單編輯器中建立1個名稱為Menu0的菜單項，將其“可見”屬性設置為False，并建立其若干子菜單，然后編寫如下過程：
　　Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
　　If Button=1 Then
　　PopupMenu Menu0
　　End If
　　End Sub
　　則以下敘述中錯誤的是。
　　A．該過程的作用是彈出一個菜單
　　B．單擊鼠標右鍵時彈出菜單
　　C．Menu0是在菜單編輯器中定義的彈出菜單的名稱
　　D．參數X、Y指明鼠標當前位置的坐標
(33)窗體上有1個名稱為CD1的通用對話框，1個名稱為Command1的命令按鈕。命令按鈕的單擊事件過程如下：
　　Private Sub Command1_Click()
　　CD1.FileName=""
　　CD1.Filter="All Files|*.*|(*.Do
　　C．|*.Doc|(*.Txt)|*.txt"
　　CD1.FilterIndex=2
　　CD1.Action=1
　　End Sub
　　關于以上代碼，錯誤的敘述是。
　　A．執行以上事件過程，通用對話框被設置為“打開”文件對話框
　　B．通用對話框的初始路徑為當前路徑
　　C．通用對話框的默認文件類型為*.Txt
　　D．以上代碼不對文件執行讀寫操作
(34)以下敘述中錯誤的是。
　　A．用Shell函數可以執行擴展名為.exe的應用程序
　　B．若用Static定義通用過程，則該過程中的局部變量都被默認為Static類型
　　C．Static類型的變量可以在標準模塊的聲明部分定義
　　D．全局變量必須在標準模塊中用Public或Global聲明
(35)以下關于文件的敘述中，錯誤的是。
　　A．使用Append方式打開文件時，文件指針被定位于文件尾
　　B．當以輸入方式(Input)打開文件時，如果文件不存在，則建立一個新文件
　　C．順序文件各記錄的長度可以不同
　　D．隨機文件打開后，既可以進行讀操作，也可以進行寫操作