一、選擇題
(1)—(35)題每題2分,共70分。
下列各題A)、B)、C)、D)四個(gè)先項(xiàng)中,只有一個(gè)選擇是正確的,請(qǐng)將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上,答在試卷上不得分。
(1) 下列不能打開屬性窗口的操作是 。
A) 執(zhí)行“視圖”菜單中的“屬性窗口”命令
B) 按F4鍵
C) 按Ctrl+T
D) 單擊工具欄上的“屬性窗口”按鈕 。
(2) 下列可以打開立即窗口的操作是 。
A) Ctrl+D B) Ctrl+E C) Ctrl+F D) Ctrl+G
(3) inputBox函數(shù)反回值的類型為 。
A) 數(shù)值 B) 字符串
C) 變體 D) 數(shù)值或字符串(視輸入的數(shù)據(jù)而定)
(4) 可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是 。
A) Ltrim B) Rtrim C) Trim D) Mid
(5) 表達(dá)式4+5 \ 6 * 7 / 8 Mod 9 的值是
A) 4 B) 5 C) 6 D) 7
(6) 如果在立即窗口中執(zhí)行以下操作:
a=8 ( 是回車鍵,下同)
b=9
print a>b
則輸出結(jié)果是 。
A) -1 B) 0 C) False D) True
(7) 以下語(yǔ)句的輸出結(jié)果是 。
Print Format $(32548.5,“000,000.00”)
A) 32548.5 B) 32,548.5 C) 032,548.50 D) 32,548.50
(8) 執(zhí)行以下程序段后,變量c$的值為
a$=“Visual Basic Programing”
b$=“Quick”
c$=b$ & UCase(Mid$(a$,7,6)) & Right $ (a$,11)
A) Visual BASIC Programing
B) Quick Basic Programing
C) QUICK Basic Programing
D) Quick BASIC Programing
(9) 為了在按下回車鍵時(shí)執(zhí)行某個(gè)命令按鈕的事件過(guò)程,需要把該命令按鈕的一個(gè)屬性設(shè)置為True,這個(gè)屬性是 。
A) Value B) Default C) Cancel D) Enabled
(10) 為了把焦點(diǎn)移到某個(gè)指定的控件,所使用的方法是
A) SetFocus B) Visible C) Refresh D) GetFocus
(11) 設(shè)a=6,則執(zhí)行 x=IIf(a>5,-1,0)后,x 的值為 。
A) 5 B) 6 C) 0 D) -1
(12) 執(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
(13) 在窗體上畫一個(gè)命令按鈕,然后編寫如下事件過(guò)程:
Private Sub Command1_Click()
For i=1 To 4
x=4
For j =1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序運(yùn)行后,單擊命令按鈕,輸出結(jié)果是 。
A) 7 B) 15 C) 157 D) 538
(14) 在窗體上畫一個(gè)命令按鈕,然后編寫如下事件過(guò)程:
Prevate Sub Command1_Click()
x=0
Do Until x=-1
a = InputBox(“請(qǐng)輸入A的值”)
a = Val(a)
b = InputBox(“請(qǐng)輸入B的值”)
b = Val(b)
x = InputBox(“請(qǐng)輸入x的值”)
x = Val(x)
a = a+b+x
Loop
Print a
End Sub
程序運(yùn)行后,單擊命令按鈕,依次在輸入對(duì)話框中輸入5、4、3、2、1、-1,則輸出結(jié)果為 。
A) 2 B) 3 C) 14 D) 15
(15) 在窗體(Name屬性為Form1)上畫兩個(gè)文本框(其Name屬性分別為Text1和Text2)和一個(gè)命令按鈕(Name 屬性為Command1),然后編寫如下兩個(gè)事件過(guò)程:
Private Sub Command1_Click()
a=Text1.Text+Text2.Text
Print a
End Sub
Private Sub Formm_Load()
Text1 Text=""
Text2 Text=""
End sub
程序運(yùn)行后,在第一個(gè)文本框(Text1)和第二個(gè)文本框(Text2)中分別輸入123和321,然后單擊命令按鈕,則輸出結(jié)果為 。
A) 444 B) 321123 C) 123321 D) 132231
(16) 閱讀下面的程序段:
For i=1 To 3
For j=1 To i
For k=j To 3
a=a+1
Next k
Next j
Next i
執(zhí)行上面的三重循環(huán)后,a 的值為 。
A) 3 B) 9 C) 14 D) 21
(17) 在窗體上畫一個(gè)文本框(其中Name屬性為Text1),然后編寫如下事件過(guò)程:
Private Sub Form_Load()
Ttext1.Text=""
Text1.SetFocus
For i=1 To 10
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的運(yùn)行結(jié)果是 。
A) 在文本框Text1中輸出55
B) 在文本框Text1中輸出0
C) 出錯(cuò)
D) 在文本框Text1中輸出不定值
(18) 在窗體上畫兩個(gè)文本框(其Name 屬性分別為Text1和Text2)和一個(gè)命令按鈕(其Name屬性為Command1),然后編寫如下事件過(guò)程:
Private Sub Command1_Click()
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序運(yùn)行后,單擊命令按鈕,在兩個(gè)文本框中顯示的值分別為
A) 1和0 B) 2和72 C) 3和50 D) 4和168
(19) 用下面語(yǔ)句定義的數(shù)組的元素個(gè)數(shù)是 。
Dim A (-3 To 5) As Integer
A) 6 B) 7 C) 8 D) 9
(20) 以下程序的輸出結(jié)果是
Option Base 1
Private Sub Command1_Click()
Dim a(10),p(3) As Integer
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next I
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End sub
A) 33 B) 28 C) 35 D) 37
(21) 在窗體上面畫一個(gè)命令按鈕,然后編寫如下事件過(guò)程:
Option Base 1
Private Sub Commandl_Click()
Dim a
a = Array(1,2,3,4)
j = 1
For i = 4 To Step -1
s = s + a(i)*j
j =j*10
Next i
Print s
End Sub
運(yùn)行上面的程序,單擊命令按鈕,其輸出結(jié)果是 。
A) 4321 B) 12 C) 34 D) 1234
(22) 在窗體上面一個(gè)命令按鈕(其Name屬性為Commandl),然后編寫如下代碼:
Option Base 1
Private Sub Commandl_Click( )
Dim a(4,4)
For i =1 To 4
For j =1 To 4
a(i,j) = (i-1)*3+j
Next j
Next i
For i =3 To 4
For j =3 To 4
Print a(j,i);
Next j
Print
Next i
End Sub
程序運(yùn)行后,單擊命令按鈕,其輸出結(jié)果為 。
A) 6 9 B) 7 10 C) 8 11 D) 9 12
7 10 8 11 9 12 10 13
(23) 假定有如下的Sub過(guò)程:
Sub S(x As Single,y As Single)
t = x
x =t/y
y =t Mod y
End Sub
在窗體上畫一個(gè)命令按鈕,然后編寫如下事件過(guò)程:
Private Sub Commandl_Click ( )
Dim a As Single
Dim b As Single
a =5
b =4
S a,b
Print a,b
End Sub
程序運(yùn)行后,單擊命令按鈕,輸出結(jié)果為 。
A) 5 4 B) 1 1 C) 1.25 4 D) 1.25 1
(24) 閱讀程序:
Function F(a As Integer)
b = 0
Static c
b = b+1
c = c+1
f = a+b+c
End Function
Private Sub Commandl_Click ()
Dim a As Integer
a =2
For i =1 To 3
Print F(a)
Next i
End Sub
運(yùn)行上面的程序,單擊命令按鈕,輸出結(jié)果為 。
A) 4 B) 4 C) 4 D) 4
4 5 6 7
4 6 8 9
(25) 閱讀程序:
Sub subP(b() As Integer)
For i =1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Commandl_Click()
Dim a(1 To 4)As Integer
a (1)=5
a (2)=6
a (3)=7
a (4)=8
subP a ()
For i =1 To 4
Print a(i)
Next i
End Sub
運(yùn)行上面的程序,單擊命令按鈕,輸出結(jié)果為 。
A)2 B)5 C)10 D)出錯(cuò)
4 6 12
6 7 14
8 8 16
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |