一、選擇題:35題,2分/題,共70分
下列各題A)、B)、C)、D)四個(gè)選項(xiàng)中,只有一個(gè)選項(xiàng)是正確的,請(qǐng)將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上,答在試卷上不得分。
1.當(dāng)運(yùn)行程序時(shí),系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的某個(gè)事件過(guò)程。這個(gè)事件過(guò)程是(A)
A)Load
B)Click
C)Unload
D)GotFocus
2.無(wú)論何控件,都具有一個(gè)共同屬性。這個(gè)屬性是(C)
A)Text
B)Font
C)Name
D)Caption
3.在一行內(nèi)寫多條語(yǔ)句時(shí),語(yǔ)句之間要用某個(gè)符號(hào)分隔。這個(gè)符號(hào)是(D)
A),
B);
C)、
D):
4.表達(dá)式3∧2*2+3 MOD 10\4的值是(C)
A)18
B)1
C)19
D)0
5.下面的變量名合法的是(A)
A)k_name
B)k ame
C)name
D)k-name
6.設(shè)有如下變量聲明Dim time1 As Date,為變量time1正確賦值的表達(dá)式是(A)
A)time1 = #11:34:04 #
B)time1 = Format(Time,"yy:mm:dd")
C)time1 = #"11:34:04"#
D)time1 = Format("hh:mm:ss",Time)
7.表達(dá)式12000 + "129" & 200的值是(B)
A)12329
B)"12129200"
C)"12000129200"
D)"12329"
8.若設(shè)a = 4,b = 5,則下列表達(dá)式值為真的是(D)
A)(True+a)>0 And b>10
B)a>b Or b>10-a
C)(False-b< 0) Eqv (a>b)
D)a>b Xor b+3>5
9.當(dāng)窗體上的文字或圖形被覆蓋或最小化后能恢復(fù)原貌,需要設(shè)置窗體的屬性是(D)
A)Appearance
B)Visible
C)Enable
D)Autoredraw
10.在窗體上畫一個(gè)名稱為Command1的命令按鈕,編寫以列程序:
Private Sub Command1_Click( )
Dim a As Integer
Static b As Integer
a = a + b
b = b + 4
Print a,b
End Sub
程序運(yùn)行后,單擊該命令按鈕三次,屏幕上顯示的值是(D)
A)4 12
B)0 4
C)4 8
D)8 12
11.Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言,構(gòu)成對(duì)象的三要素是(B)
A)屬性、控件和方法
B)屬性、事件和方法
C)窗體、控件和過(guò)程
D)控件、過(guò)程和模塊
12.下列程序段錯(cuò)誤的是(A)
A)Dim a As Integer
a = array(1,2,3,4)
B)Dim a(),b()
a = array(1,2,3,4):b = a
C)Dim a As Variant
a = array(1,"asd",true)
D)Dim a() As Variant
a = array(1,2,3,4)
13.表達(dá)式String(1,"I am student") + Replace("am harass","rass","ppy") & "!"的值是(A)
A)"I am happy!"
B)"I am student I am s am harass studentam happy!"
C)"I am student am harass!"
D)"I am student am happy!"
14.下列程序段中,能正常結(jié)束循環(huán)的是(C)
A)I = 1
Do
I = I + 2
Loop Until I = 10
B)I = 5
Do
I = I + 1
Loop Until I < 0
C)I = 10
Do
I = I + 1
Loop Until I > 0
D)I = 6
Do
I = I - 2
Loop Until I = 1
15.引用列表框(List1)最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用的表達(dá)式是(B)
A)List1.List(List1.ListCount)
B)List1.List(List1.ListCount-1)
C)List1.List(ListCount)
D)List1.List(ListCount-1)
16.有如下程序:
Option Base 1
Private Sub Command1_Click()
Dim x,y(3,3)
x = Array(1,2,3,4,5,6,7,8,9)
For i = 1 To 3
For j = 1 To 3
y(i,j) = x(i*j)
If(j > = i) Then Print y(i,j);
Next j
Print
Next i
End Sub
運(yùn)行時(shí)輸入出的結(jié)果是(D)
A)1 2 3
2 4 6
4 6 8
B)1 2 3
2 4 6
3 6 9
C)1
2 4
3 6 9
D)1 2 3
4 6
9
17.在窗體上畫一個(gè)名稱為Command1的命令按鈕,編寫如下程序:
Private Sub Command1_Click()
Print pl(3,7)
End Sub
Public Function pl(x As Single,n As Integer) As Single
If n=0 Then
pl=1
Else
If n Mod 2=1 Then
pl=x*x+n
Else
P1=x*x-n
End If
End If
End Function
程序運(yùn)行后,單擊該命令按鈕,屏幕上顯示的結(jié)果是(D)
A)2
B)1
C)0
D)16
18.以下屬性和方法中,可重定義坐標(biāo)系的是(C)
A)DrawStyle屬性
B)DrawWidth屬性
C)Scale方法
D)ScaleMode屬性
19.在窗體上畫一個(gè)文本框,然后編寫如下事件過(guò)程:
Private Sub Form_Load()
Text1.Text = ""
Text1.SetFocus
For i = 1 To 5
Sum = Sum +i
Next i
Text1.text = Sum
End Sub
上述程序的運(yùn)行結(jié)果是(D)
A)在文本框中輸出15
B)在文本框中輸出0
C)在文本框中輸出不定值
D)出錯(cuò)
20.已知x代表某個(gè)百分制成績(jī),下列程序段用于顯示對(duì)應(yīng)的五級(jí)制成績(jī),正確的是(C)
A)If x > = 60 Then
Print "及格"
ElseIf x > = 70 Then
Print "中"
ElseIf x > = 80 Then
Print "良"
ElseIf x > = 90 Then
Print "優(yōu)"
Else
Print "不及格"
End If
B)If x < 90 Then
Print "良"
ElseIf x < 80 Then
Print "中"
ElseIf x < 70 Then
Print "及格"
ElseIf x < 60 Then
Print "不及格"
Else
Print "優(yōu)"
End If
C)If x > = 90 Then
Print "優(yōu)"
ElseIf x > = 80 Then
Print "良"
ElseIf x > = 70 Then
Print "中"
ElseIf x > = 60 Then
Print "及格"
Else
Print "不及格"
End If
D)Select Case x
Case x > = 90
Print "優(yōu)"
Case x > = 80
Print "良"
Case x > = 70
Print "中"
Case x > = 60
Print "及格"
Case Else
Print "不及格"
End Select
21.下面說(shuō)法不正確的是(D)
A)滾動(dòng)條的重要事件是Change和Scroll
B)框架的主要作用是將控件進(jìn)行分組,以完成各自相對(duì)獨(dú)立的功能
C)組合框是組合了文本框和列表框的特性而形成的一種控件
D)計(jì)時(shí)器控件可以通過(guò)對(duì)Visible屬性的設(shè)置,在程序運(yùn)行期間顯示在窗體上
22.在窗體上畫一個(gè)名稱為Check1復(fù)選框,在程序運(yùn)行的過(guò)程中,若選中復(fù)選框,則Check1.value的值是(D)
A)True
B)2
C)0
D)1
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |