第 1 頁:單選題 |
第 5 頁:操作題 |
第 7 頁:參考答案 |
21.下列說法中正確的是( )。
A.當焦點在某個控件上時,按下一個字母鍵,就會執(zhí)行該控件的KeyPress事件過程
B.因為窗體不接受焦點,所以窗體不存在自己的KeyPress事件過程
C.若按下的鍵相同,KeyPress事件過程中的KeyAscii參數(shù)與KeyDown事件過程中的KeyCode參數(shù)的值也相同
D.在KeyPress事件過程中,KeyAscii參數(shù)可以省略
22.語句Dim a(-3 To 4,3 To 6)As Integer定義的數(shù)組元素個數(shù)是( )。
A.18
B.28
C.21
D.32
23.在窗體上畫一個命令按鈕,其名稱為Command1,然后編寫下列代碼:
Option Base l
Private Sub Command1 Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print S
End Sub
程序運行后,單擊命令按鈕,其輸出結(jié)果是( )。
A.4321
B.1234
C.34
D.12
24.假定通過復制、粘貼操作建立了一個命令按鈕數(shù)組Command1,下列說法中錯誤自是( )。
A.數(shù)組中每個命令按鈕的名稱(Name屬性)均為Command1
B.若未做修改,數(shù)組中每個命令按鈕的大小都一樣
C.數(shù)組中各個命令按鈕使用同一個Click事件過程
D.數(shù)組中每個命令按鈕的Index屬性值都相同
25.在窗體上畫一個命令按鈕,名稱為Command1,然后編寫下列代碼:
Option Base 0
Private Sub Command1 Click()
Dim A1(4)As Integer,A2(4)As Integer
For k=0 To 2
A1(k+1)=InputBox(”請輸入一個整數(shù)”)
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序運行后,單擊命令按鈕,在輸入對話框中依次輸入2、4、6,則輸出結(jié)果為( )。
A.0
B.1
C.2
D.3
26.下列關(guān)于函數(shù)過程的敘述中,正確的是( )。
A.函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系
B.在函數(shù)過程中,過程的返回值可以有多個
C.當數(shù)組作為函數(shù)過程的參數(shù)時,既能以傳值方式傳遞,也能以傳址方式傳遞
D.如果不指明函數(shù)過程參數(shù)的類型,則該參數(shù)沒有數(shù)據(jù)類型
27.在窗體上畫兩個標簽和一個命令按鈕,其名稱分別為Label1、Label2和Command1,然后編寫下列程序:
Private Sub rune(L AS Labe1)
L.Caption="1234"
End Sub
Private Sub Form Load()
Labe11.Caption="ABCDE"
Labe12.Caption=10
End Sub
Private Sub Command1Click()
a=Va1(Label2.Caption)
Call func(Label1)
Label2.Caption a
End Sub
程序運行后,單擊命令按鈕,則在兩個標簽中顯示的內(nèi)容分別為( )。
A.ABCD和10 B.1234和100
C.ABCD和100 D.1234和10
28.在窗體上畫一個命令按鈕(名稱為Command1),并編寫下列代碼:
Function Fun1(ByVa1 a As Integer,b As Integer)As Integer
Dim t As Integer
t=a-b
b=t+a
Fun1=t+b
End Function
Private Sub Command1Click()
Dim X As Integer
x=10
Print Fun1(Vun1(X,(Fun1(x,x-1))),x-1)
End Sub
程序運行后,單擊命令按鈕,輸出結(jié)果是( )。
A.10
B.0
C.11
D.21
29.下列關(guān)于過程及過程參數(shù)的描述中,錯誤的是( )。
A.過程的參數(shù)可以是控件名稱
B.調(diào)用過程時使用的實參的個數(shù)應與過程形參的個數(shù)相同
C.只有函數(shù)過程能夠?qū)⑦^程中處理的信息返回到調(diào)用程序中
D.窗體可以作為過程的參數(shù)
30.設有下列通用過程:
Public Function Fun(xStr As String)As String
Dim tStr As String,strL As Integer
tStr=""
strL=Len(xStr)
i=strL/2
DO While i<=StrL
tStr=tStr&Mid(xStr,i+1,1)
i=i+1
Loop
Fun=tStr&tStr
End Function
在窗體上畫一個名稱為Textl的文本框和一個名稱為Command1的命令按鈕。然后編寫下列的事件過程:
Private Sub Commandl Click()
Dim S1 As String
S1="ABCDEF"
Text1.Text=LCase(Fun(S1))
End Sub
程序運行后,單擊命令按鈕,文本框中顯示的是( )。
A.ABCDEF
B.abedef
C.defdef
D.defabc
相關(guān)推薦:
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |