亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

1． 在窗體上畫一個(gè)名稱為Text1的文本框，要求文本框只能接收小寫字母的輸入。以下能實(shí)現(xiàn)該操作的事件過(guò)程是（ 【29】 ）

　（A）Private Sub Text1_KeyPress(KeyAscii As Integer)

          If KeyAscii < 97 Or KeyAscii > 122 Then

            MsgBox “請(qǐng)重新輸入小寫字母”

            KeyAscii = 0

          End If

       End Sub

�。˙）Private Sub Text1_MouseUp(Button As Integer,Shift As Integer, _

X as Integer,Y as Integer)

          If KeyCode < 97 Or KeyCode > 122 Then

            MsgBox “請(qǐng)重新輸入小寫字母”

            KeyCode = 0

          End If

       End Sub

�。–）Private Sub Text1_MouseUp(Button As Integer,Shift As Integer, _

X as Integer,Y as Integer)

          If Asc(Text1.Text) < 97 Or Asc(Text1.Text) > 122 Then

            MsgBox “請(qǐng)重新輸入小寫字母”

          End If

       End Sub

�。―）Private Sub Text1_Change()

          If Asc(Text1.Text) > 96 And Asc(Text1.Text) < 123 Then

            MsgBox “請(qǐng)重新輸入小寫字母”

          End If

       End Sub

2． 以下語(yǔ)句的輸出結(jié)果是（ 【30】 ）

　　  Print Format ( 1234567.89 , “ ## , ###.000 ” )

�。ˋ）34,567.890　　　　　　　　　（B）1,234,567.890

（C）1,234,567,89　　　　　　　�。―）34,567.89

3． 當(dāng)某個(gè)控件獲得焦點(diǎn)時(shí)，將會(huì)觸發(fā)的事件是（ 【31】 ）

　（A）GotFocus　�。˙）SetFocus　�。–）ReceiveFocus�。―）無(wú)事件觸發(fā)

4． 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下的事件過(guò)程：

Private Sub Command1_Click()

      Dim a As Integer

      Open “c:\VbTest\Test32.dat” For Binary As #1

      a=1000

      Seek #1, 10

Put #1, , a

      Close #1

End Sub

則以下敘述中正確的是（ 【32】 ）

　（A）如果文件c:\VbTest\Test32.dat不存在，則Open命令執(zhí)行失敗

　（B）由于Put命令中沒(méi)有指明位置，因此把變量a的值寫到文件的末尾

�。–）變量a的值會(huì)從文件的第10個(gè)字節(jié)處開(kāi)始寫入

�。―）變量a的值會(huì)從文件的第10個(gè)記錄處開(kāi)始寫入

5． 下列敘述中正確的是（ 【32】 ）

　（A）在窗體的Form_Load事件過(guò)程中定義的變量是全局變量

�。˙）局部變量的作用域可以超出所定義的過(guò)程

　（C）在某個(gè)Sub過(guò)程中定義的局部變量可以與其它事件過(guò)程中定義的局部變量同名，但其作用域只限于該過(guò)程

�。―）在調(diào)用過(guò)程中，所有局部變量被系統(tǒng)初始化為0或空字符串

6． 以下關(guān)于焦點(diǎn)的敘述中，錯(cuò)誤的是

（A）當(dāng)文本框失去焦點(diǎn)時(shí)，觸發(fā)LostFocus事件

（B）當(dāng)文本框的Enabled屬性為False時(shí)，其Tab順序不起作用

（C）可以用TabIndex屬性改變Tab順序

（D）如果文本框的TabStop屬性為False，則不能接收從鍵盤上輸入的數(shù)據(jù)

7． 設(shè)a = 10，b=12，則執(zhí)行

　　x = Iif ( b \ a *a = 10 , 0 , -1 )

　后，x的值為（ 【33】 ）

（A）0　　　　　�。˙）1　　　　　　（C）-1　　　　　�。―）使用錯(cuò)誤

8． 使用下面語(yǔ)句定義的數(shù)組元素個(gè)數(shù)是（ 【34】 ）

　　  Dim A ( 4 , 2 To 5 ) As Integer

　（A）12　　　　�。˙）15　　　　�。–）16　　　　　（D）20

9． 如果要在菜單中添加一個(gè)分隔線，則應(yīng)將其Caption屬性設(shè)置為

（A）=　　　　　 （B）* 　　　　�。–）& 　　　　　（D）-

10．   為了將菜單項(xiàng)分組，使不同類型的菜單之間有一條水平分隔線，設(shè)置方法是在菜單中插入一個(gè)菜單項(xiàng)，將該菜單控件的（ 【35】 ）屬性設(shè)置為一個(gè)連字符（-）即可。

�。ˋ）Name　　　（B）Caption　　�。–）ShortCut　　�。―）Text