习题4

一. 单选题

1．设a=-1，b=2，下列逻辑表达式为真值的是（）

A．Not a >= 0 And b < 2

B．a * b < -5 And a / b < -5

D．a = -2 * b Or a > 0 And b > 0

2．描述条件―a是大于b的奇数‖的逻辑表达式是（）

B．a > b Or Int((a - 1) / 2) = (a - 1) / 2

C．a > b And a Mod 2 = 0

D．a > b Or (a - 1) Mod 2 = 0

3．表示条件―X是大于等于5，且小于95的数‖的条件表达式是（）A．5 <= X < 95 B．5 <= X, X < 95

D．X >= 5 And < 95

4．关于语句―If s = 1 Then t = 1‖，下列说法正确的是（）A．s必须是逻辑型变量

B．t不能是逻辑型变量

D．s=1是赋值语句，t=1是关系表达式

5．在运行期间用鼠标单击单选按钮时，按钮的（）属性变为真值。

A．Caption C．Visible D．T abIndex

6．下列程序段的执行结果是（）

x = 2: y = 1

If x * y < 1 Then y = y - 1 Else y = y + x

Print y - x > 0

B．False C．-1 D．1

7．下列程序段的执行结果是（）

a = "abcde":

b = "cdefg"

c = Right(a, 3):

d = Mid(b, 2, 3)

If c < d Then y = c + d Else y = d + c

Print y

A．abcdef B．edebcd C．cdeefe

8．执行下述语句之后，变量B1的值应为（）

Dim B1 As Boolean

B1 = -1

A. 1

B. -1 D. False

9. A是一个整数类型变量，能正确判断A是奇数或是偶数的语句是（）

A. If A\2 = Int (A/2) Then Print A; ―是偶数‖

C. If A\2 = Int (A\2) Then P rint A; ―是偶数‖

D. If Fix (A/2) = Int (A/2) Then Print A; ―是偶数‖

10.变量A，B不等值，将A，B中较大的数放入变量A，较小的数放入变量B的语句是（）

A. If A < B Then A = B : B=A

B. If A < B Then B=A : A=B

C. If A < B Then T=A : A=B : B=T

D. If A < B Then T=A : A=B : B=A

11.执行语句Check1.Value = 1 之后，复选框Check1的状态应为（）

A. B. C. D. 出错

12.在二个框架Frame中各有一组单选按钮OptionButton，其作用为（）

A．两组单选按钮中只有一个能被选中B．因有两组单选按钮，无一可被选中

D．两组单选按钮中各有一个以上的能被选中13．在二个框架Frame中各有一组复选框CheckBox，其作用为（）

A. 两组复选框中只有一个能被选中

B. 因有两组复选框，无一可被选中

C. 两组复选框中各有一个能被选中

注:准确的叙述为:两组复选框中各有多个能被选中

14.设置计时器Timer1触发的时间间隔为0.5秒，应将Timer1的Interval属性置为（）

A．0.5 B．5 C．500D．5000

15.执行下列程序段后，变量x的值是（）

x = -3

If Abs(x) <= 2 Then x = x - 1 Else x = x + 8

Select Case x

Case Is < 5

x = x + 1

Case 5 To 10

x = x + 2

Case Else

x = x + 3

End Select

Print x + 1

A．8 C．5 D．6

16．窗体上有一个命令按钮(Commandl)，设计时该按钮标题(Caption)采用默认值。完善下列按钮单击事件过程，使之运行后当第1次单击该按钮时，该按钮标题显示为―新按钮‖；第2次单击该按钮时，按钮标题改为―旧按钮‖；第3次单击该按钮时，按钮标题又恢复为―新按钮‖，如此反复交替显示―新按钮‖和―旧按钮‖。

Private Sub Command1_Click()

If （）Then

Command1.Caption = "旧按钮"

Else

Command1.Caption = "新按钮"

End If

End Sub

A．Commandl.Caption = "" B．Not Commandl.Caption="新按钮"

C．Commandl.Caption <> "" D．Not Commandl.Caption="旧按钮"

注: 题目没有给出正确选项,正确选为

17.下面程序段的运行结果为（）

x = 5

y = -20

If Not x > 0 Then x = y - 3 Else y = x + 3

Print x - y; y – x

B．5 -8 C．3 -3 D．25 -25

18. 下面程序段的运行结果为（）

a = 75

If a > 60 Then i = 1

If a > 70 Then i = 2

If a > 80 Then i = 3

If a > 90 Then i = 4

Print "i="; i

A．i=1 C．i=3 D．i=4

19. 下面程序段的运行结果为（）

x = Int(Rnd() + 4)

Select Case x

Case 5

Print "优秀"

Case 4

Print "良好"

Case 3

Print "通过"

Case Else

Print "不通过"

End Select

A．优秀C．通过D．不通过

二．多项选择题

1．下列语句中，有语法错误的是（）

D．Form1.Show

E．B$ = InputBox(Hello$)

I．If a>b-2*3 Then y = a = b

2．假设t，s，w分别为整型、字符型、逻辑型变量，且s="ABC"，下面错误的表达式是（）

A．t = 5 And w C．4 * t - 1

D．s + "s" E

3．下面能正确实现―如果x < y，则a = 10，否则a = -10‖功能的程序段是（）A．If x < y Then a=10 B．If x >= y Then a = 10 Else a = -10

a=-10

C．If x < y Then D．If x>=y Then

a=10 a = -10

Else Else

A = -10 a = 10

End If End If

E．If x < y Then a = 10

If x > y Then a = -10

4．下列关于单选按钮的论述中，正确的是（）

A．单选按钮组中的所有单选按钮都采用相同的名称(Name)

B．单选按钮的Enabled属性能确定该按钮是否被选中

E．在代码中采用语句Optionl.Value=True，把单选按钮Optionl的Value属性值从原False值改为True值，将会触发Click事件

5．下列关于计时器(Timer)的论述中，正确的是（）

B．可以设置计时器的Visible属性使其在窗体上可见

C．可以在窗体上设置计时器的大小(高度和宽度)

D．计时器可以识别Click事件

6.下列有关定时器控件(Timer)的语句中，无效或者错误的是（）

A. Timer1.Enabled = True

三．填空题

1．征兵的条件：男性的年龄(变量名为A)在18～20岁之间，身高(H)在1.65米以上；女性在16～18岁，身高在1.60米以上。假设性别(S)值True代表男，False代表女。写出符合征兵条件的逻辑表达式:

2．如果要使计时器每分钟发生一个Timer事件，则Interval属性应设置为60000 。

3．写出下列程序段的运行结果。

x = Val(InputBox("Enter x"))

Select Case Sgn(x) + 2

Case 1

Print x + 1

Case 2

Print x + 2

Case 3

Print x + 3

End Select

当x的输入值为3

当x的输入值为—3

当x的输入值为0I

4．用Select Case语句改写下列程序段。

If x <= 30 And x>0 Then

If x < 15 Then

If x < 10 Then y = 0 Else y = 1

Else

If x < 20 Then y = 2 Else y = 3

End If

Else

y = 4

End If

改写后为:

Select Case x

Case Is <= 0

y = 4

Case Is < 10

y = 0

Case Is < 15

y = 1

Case Is < 20

y = 2

Case Is <= 30

y = 3

Case Is > 30

y = 4

End Select

5．以下事件过程判断文本框Textl中的数据，如果该数据满足条件：大于100且能被5整除，则清除文本框Text2中的内容；否则将焦点定位在文本框Textl中，选中其中的文本并将这些文本显示在Text2中。

Private Sub Command1_Click()

x = Val(Text1.Text)

If ⑴Then

Text2.Text = ""

Else

Text1.SetFocus

Text1.SelStart = ⑵

Text1.SelLength = ⑶

Text2.Text = ⑷

End If

End Sub

完整的程序为:

Private Sub Command1_Click()

Else

Text1.SetFocus

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

Text2.Text = Text1.Text

End If

End Sub

6．窗体上有一个命令按钮(Command1)和一个标签(Label1)，运行时标签内显示命令按钮被单击的次数，即当第1次单击按钮时，标签显示为―第1次单击‖，当第2次单击按钮时，标签显示为―第2次单击‖，依此类推。当单击次数超过10次时，则又从1开始算起，相应地标签显示的内容也随之改为―第1次单击‖，―第2次单击‖，……完善下列程序代码。

Dim n As Integer ?模块级变量

Private Sub Command1_Click()

⑴

Label1.Caption = "第" & Str(n) & "次单击"

If ⑵Then

⑶

End If

End Sub

(1)A．n = 1 B．n = O C．Dim n As Integer D．n=n+1

(2)A．n = 10B．n > 10 C．n < 10 D．n <= 10

(3)A．n = 1 B．n = 0C．n = n + l D．10 - n

完整的程序如下:

Dim n As Integer '模块级变量

Private Sub Command1_Click()

n = n + 1

Label1.Caption = "第" & Str(n) & "次单击"

If n = 10 Then

n = 0

End If

End Sub