(26)在窗體上添加一個命令按鈕(名為Command1)和一個文本框(名為Text1),并在命令按鈕中編寫如下事件代碼:
Private Sub Command1_Click()
m=2.17
n=Len(Str$(m)+Space(5))
Me!Text1=n
End Sub
打開窗體運行后,單擊命令按鈕,在文本框中顯示
A)5 B)8 C)9 D)10
(27)VBA中去除前后空格的函數(shù)是
A)LTrim B)Rtrim C)Trim D)Ucase
(28)執(zhí)行下面的程序段后,x的值為
x = 5
For I = 1 To 20 Step 2
x = x + I \ 5
Next I
A)21 B)22 C)23 D)24
(29)VBA中定義符號常量可以用關鍵字
A)Const B)Dim C)Public D)Static
(30)下列程序段的功能是實現(xiàn)"學生"表中"年齡"字段值加1:
Dim Str As String (共35題)
Str="____________"
Docmd.RunSQL Str
空白處應填入的程序代碼是
A)年齡=年齡+1
B)Update 學生 Set 年齡=年齡+1
C)Set 年齡=年齡+1
D)Edit 學生 Set 年齡=年齡+1
(31)在窗體中添加一個名稱為Command1的命令按鈕,然后編寫如下程序:
Public x As Integer
Private Sub Command1_Click()
x=10
Call s1
Call s2
MsgBox x
End Sub
Private Sub s1()
x=x+20
End Sub
Private Sub s2()
Dim x As Integer
x=x+20
End Sub
窗體打開運行后,單擊命令按鈕,則消息框的輸出結(jié)果為
A)10 B)30 C)40 D)50
(32)下列過程的功能是:通過對象變量返回當前窗體的Recordset屬性記錄集引用,消息框中輸出記錄集的記錄(即窗體記錄源)個數(shù)。
Sub GetRecNum()
Dim rs As Object
Set rs = Me.Recordset
MsgBox ______
End Sub
程序空白處應填寫的是
A)Count
B)rs.Count
C)RecordCount
D)rs.RecordCount
(33)在窗體中添加一個名稱為Command1的命令按鈕,然后編寫如下事件代碼:
Private Sub Command1_Click()
Dim a(10,10)
For m=2 To 4
For n=4 To 5
a(m,n)=m*n
Next n
Next m
MsgBox a(2,5)+a(3,4)+a(4,5)
End Sub
窗體打開運行后,單擊命令按鈕,則消息框的輸出結(jié)果是
A)22 B)32 C)42 D)52
(34)設有如下程序
Private Sub Command1_Click( )
Dim sum As Double, x As Double
sum = 0
n = 0
For i=1 To 5
x = n / i
n = n + 1
sum = sum + x
Next i
End Sub
該程序通過For循環(huán)來計算一個表達式的值,這個表達式是
A)1+1/2+2/3+3/4+4/5
B)1+1/2+1/3+1/4+1/5
C)1/2+2/3+3/4+4/5
D)1/2+1/3+1/4+1/5
(35)在窗體中使用一個文本框(名為n)接受輸入的值,有一個命令按鈕run,事件代碼如下:
Private Sub run_Click( )
result = ""
For i= 1 To Me!n
For j = 1 To Me!n
result = result + "*"
Next j
result = result + Chr(13) + Chr(10)
Next i
MsgBox result
End Sub
打開窗體后,如果通過文本框輸入的值為4,單擊命令按鈕后輸出的圖形是
A)* * * *
* * * *
* * * *
* * * *
B) *
* * *
* * * * *
* * * * * * *
C) * * * *
* * * * * *
* * * * * * * *
* * * * * * * * * *
D) * * * *
* * * *
* * * *
* * * *
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |