文档库

最新最全的文档下载
当前位置:文档库 > VB习题4

VB习题4

习题4

一. 单选题

1.设a=-1,b=2,下列逻辑表达式为真值的是()

A.Not a >= 0 And b < 2

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

VB习题4

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

2.描述条件―a是大于b的奇数‖的逻辑表达式是()

VB习题4

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

VB习题4

D.X >= 5 And < 95

4.关于语句―If s = 1 Then t = 1‖,下列说法正确的是()A.s必须是逻辑型变量

B.t不能是逻辑型变量

VB习题4

D.s=1是赋值语句,t=1是关系表达式

5.在运行期间用鼠标单击单选按钮时,按钮的()属性变为真值。

A.Caption C.Visible D.T abIndex

VB习题4

6.下列程序段的执行结果是()

x = 2: y = 1

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

Print y - x > 0

VB习题4

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

VB习题4

A.abcdef B.edebcd C.cdeefe

8.执行下述语句之后,变量B1的值应为()

Dim B1 As Boolean

B1 = -1

VB习题4

A. 1

B. -1 D. False

9. A是一个整数类型变量,能正确判断A是奇数或是偶数的语句是()

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

VB习题4

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的状态应为()

VB习题4

VB习题4

A. B. C. D. 出错

12.在二个框架Frame中各有一组单选按钮OptionButton,其作用为()

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

VB习题4

D.两组单选按钮中各有一个以上的能被选中13.在二个框架Frame中各有一组复选框CheckBox,其作用为()

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

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

VB习题4

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

VB习题4

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="旧按钮"

VB习题4

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

17.下面程序段的运行结果为()

x = 5

y = -20

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

Print x - y; y – x

VB习题4

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

VB习题4

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

VB习题4

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

二.多项选择题

1.下列语句中,有语法错误的是()

VB习题4

VB习题4

VB习题4

D.Form1.Show

VB习题4

E.B$ = InputBox(Hello$)

VB习题4

VB习题4

VB习题4

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

2.假设t,s,w分别为整型、字符型、逻辑型变量,且s="ABC",下面错误的表达式是()

VB习题4

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

VB习题4

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属性能确定该按钮是否被选中

VB习题4

VB习题4

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

5.下列关于计时器(Timer)的论述中,正确的是()

VB习题4

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

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

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

VB习题4

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

VB习题4

A. Timer1.Enabled = True

VB习题4

VB习题4

VB习题4

三.填空题

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

VB习题4

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

VB习题4

当x的输入值为3

VB习题4

当x的输入值为—3

VB习题4

当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()

VB习题4

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