VB样卷2

一、基础填空题

1.在Visaul Basic中的常量有三种：直接常量、 ( 符号 )常量和系统常量。

2.设a=2，b=3，c=4，d=5，表达式a > b and c <> d or c = a的值是( false )。

3.在VB中，动态数组Redim语句中的下标可以是常量，也可以是( 已赋值 )的变量。

4.同一窗体中建立几组相互独立的单选钮时，必须先建立( 框架 )，然后在其中建立单选钮。

5.VB中对象与对象之间、对象与系统之间及对象与程序之间的通信都是通过( 事件 )来进行的。

6.在VB中，为了使一个控件在运行时不可操作，应将控件的( Enabled )属性设置为False。

7.产生100～200之间(含100和200)的随机整数的表达式是( Int(Rnd*101+100) )。

8.清除列表框所有内容的方法是( Clear )。

9.在代码窗口的通用/声明处用Dim或Private关键字定义的变量是( 局部\过程级 )变量。

10.逻辑运算时，参与运算的两个表达式，都是False，结果才会是False的逻辑运算符是( or )运算符。

11.打开“C:\My.txt”一个已存在的顺序文件，将该文件中的数据读出的打开语句是( open”c:\my.txt” for input As #1 )。

12.表达式“12345”<>“12345”&“ABC”的值是( ture )。

13.VB中，工程文件文件的后缀是VBP、窗体文件的后缀是( frm )。

14.定义一个长度为8个字符的定长字符串变量Ch5，Dim声明语句是( ch5 As string*8 )。

15.VB中，在同一行上书写多条语句，语句与语句间用( 冒号 )分隔。

二、选择题

1.设计程序时，能自动被检查出来的错误是( A)。

A) 语法错误 B) 结构错误

C) 运行错误 D) 逻辑错误

2. VB集成环境的主窗口中不包括( C )。

A) 标题栏 B) 菜单栏 C) 状态栏 D) 工具栏

3. 用于获得字符串变量S左边4个字符的函数是( A )。

A) Left(S,4) B) Left(S,1,4)

C) Left(4,S) D) Left(1,4,S)

4. 按照VB的规定，下例正确的字符串常量是( B )。

A) ABC$ B)“ABCπ”

C) “AB”$ D)‘abc123’

5. 下面正确的Visual Basic的表达式是( D )。

A) 4*sin(π) B) b^2-4ab

C) [-b-sqr(x)]/(2*a*c) D) exp(x)+ABS(Y)

7. 若要使用户不能修改文本框TextBox1中内容，应修改的属性是( A )。

A) Locked B) MultiLine

C) PassWordChar D) ScrollBar

8. 命令按钮Command1的Caption属性为“退出(x)”，要将命令按钮的快捷键设为Alt+x，应修改Caption属性为( A )。

A) 在x前插入& B) 在x后插入&

C) 在x前插入# D) 在x后插入#

9. 确定复选框是否选中，可访问的属性是( A )。

A) Value B) Checked

C) Selected D) Caption

10. 下列表达式中，值为False的是( B )。

A) "BCD"<"BCE" B) "12345"<>"12345"

C) Not 2*5 = 11 D) 4 = 4 And 5 > 2+2

11. 在设计菜单时,要在菜单中加入一个菜单分隔线,则菜单分隔项的标题必须设置为( B )。

A) 加号( + ) B) 减号( - )

C) 星号(*) D) 下划线( _ )

12. 若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是( A )。

A) Value B) Cancel C) Default D) Enabled

13. 若要获得滚动条滑块所处位置的值，须使用的属性是( B )。

A) Text B) Value C) Max D) Min

14.将窗体从内存中卸载掉，应使用的语句是( B )。

A) Show B) UnLoad C) Load D) Hide

15. 已知变量x 、y为整数型，x=4 , y=12 ,S为字符串型，且S=“a”，Label1为标签控件，下列合法的赋值语句是( B )。

A) x=Label1.Caption B) Label1.Caption=Str(x)

C) x * 3 = y D) Y = x * s

16. 下列可以实现互换变量A、B的值的语句是( B )。

A) A=B:B=A B) C=B:B=A:A=C

C) A=C:C=B:B=A D) A=(A+B)/2:B=(A-B)/2

17. 设置组合框的风格，可用的属性是( C )。

A) Backstyle B) Borderstyle

C) Style D) Sorted

18. 下列正确声明变量的语句是( A )。

A) Dim abc as integer,num as single

B) Dim I%, N$ as integer

C) Dim a%, b%, c%, a$

D) Public dim n%

19. 不能作为容器使用的对象是( D )。

A) Frame B) Form C) Picture D) Image

20. 当条件为5 < x < 10时，则x = x + 1 ，以下语句正确的是( B )。

A) if 5< x < 10 then x = x + 1

B) if x > 5 and x < 10 then x = x + 1

C) if 5 < x or x < 10 then x = x + 1

D) if x < 5 and x < 10 then x = x + 1

22. 下列正确叙述Sub过程的是( B )。

A) Sub过程必须有一个Exit sub语句。

B) Sub过程必须有一个End sub语句。

C) 在Sub过程中可以定义Function过程。

D) Sub过程必须带有参数。

23. 下列错误的Case语句是( C)。

A) Case 1,5,7,9 B) Case 8 to 10

C) Case x > 20 D) Case Is < "man"

24. 下列关于工具箱的说法正确的是( C )。

A) 工具箱中控件的数目是固定不变的

B) 工具箱中包含了所有的VB控件

C) VB的内部控件不能从工具箱中移除

D) ActiveX控件不能添加到工具箱中

25. 在Visual Basic中，要设置菜单项的快捷访问键，应使用的符号是（ A ）。

A) & B) * C) $ D) @

26. 能在窗体Form1的标题栏中显示“正在复制文件…”的语句是( A )。

A) Form1.Caption=“正在复制文件…”

B) Form1.title=“正在复制文件…”

C) Form1.Text=“正在复制文件…”

D) Form1.Top=“正在复制文件…

27. 下列关于控件数组的说法，正确的是( B )。

A) 控件数组可以由不同类型的控件组成

B) 在运行时不能创建控件数组

C) 控件数组每个元素的属性设置值都相同

D) 控件数组必须由同类型的控件组成

28. 要删除列表框(List1)中选定的项，应使用( B )。

A) List1.RemoveItem List1.Text

B) List1.RemoveItem List1.ListIndex

C) List1.RemoveItem List1.TabIndex

D) List1.RemoveItem List1.Index

29. VB的三种工作模式是( C )。

A) 编辑、编译与运行 B) 设计、运行与中断

C) 中断、打开与关闭 D) 设计、编辑与编译

30. 在VB语句中，REM是( B )语句。

A) 恢复语句 B) 注释语句

C) 改名语句 D) 重定向语句

31. 设a=6，执行 x=Iif(a>5,-1,0)后，x 的值为( D )。

A) 5 B) 6 C) 0 D) -1

32. 要想在调用子过程F1后返回调用程序两个结果，下列正确的语句是( )。

A) Sub F1(ByVal n%,ByVal m%)

B) Sub F1(n%,ByVal m%)

C) Sub F1(n%,m%)

D) Sub F1(ByVal n%,m%)

33. 下列属性中，不是文本框的属性是( D )。

A) Enabled B) Visible

C) BackColor D) Caption

35. 用来设置粗体字的属性是( C )。

A) FontItalic B) FontName

C) FontBold D) FontSize

36.使用Line方法画一条直线后，当前坐标在( C )。

A) 坐标的原点 B) 直线的起点

C) 直线的终点 D) 坐标的终点

37. 已知x&,y#,z%，且x=25,y=36则z=x*y运算结果的数据类型是( C )。

A) 单精度型 B) 双精度型 C) 整型 D) 长整型

39. 已知CH=”华东理工大学”，要从CH中取出“理工”两个字，正确的表达式是( )。

A) Substr(CH，3，2) B) String(CH，5，4)

C) Mid(CH，3，2) D) Instr(CH，3，2)

40. 下列选项中，不属于图形方法的是( B )。

A) Line B) Image C) Circle D) Pset

三、程序选择题

1. 程序执行后c的值为( )。

Private Sub Command1_Click()

Dim C As Integer

a = 2

b = 3

If a > 5 Then

If b < 4 Then c = a - b Else c = b - a

Else

If b > 3 Then c = a * b Else c = a mod b

End If

Print c

End Sub

A) -1 B) 1 C) 6 D) 2

2.单击命令按钮，程序执行后，X 的值为( )。

Private Sub Command1_Click()

X=5

For I = 1 To 15 Step 6

X = X + I \ 5

Next I

Print X

End Sub

A) 7 B) 8 C) 9 D) 10

3.单击命令按钮，在对话框中输入4，则程序的输出结果是( )。

Option Base 1

Private Sub Command1_Click()

Dim x() As Integer, S As Integer, k As Integer

m = Val(InputBox("请输入m的值"))

ReDim x(m)

S = 0

For k = 1 To UBound(x)

x(k) = k + k : S = S + x(k)

Next k

Print S

End Sub

A) 0 B) 10 C) 20 D) 30

4.单击命令按钮，程序的输出结果为( )。

Private Sub Procl(n%, ByVal m As Integer)

n = n Mod 10

m = m \ 10

End Sub

Private Sub Command1_Click()

Dim x As Integer

Dim y As Integer

x = 12

y = 34

Call Procl(x, y)

Print x; y

End Sub

A) 12 34 B) 2 34 C) 2 3 D) 12 3

5.程序运行后，在Text1和Text2中分别输入123和321，然后单击命令按钮，则输出结果为( )。

Private Sub Command1_Click()

a = Text1.Text + Text2.Text

Print a

End Sub

Private Sub Form_Load()

Text1 Text = "" : Text2 Text = ""

End Sub

A) 444 B) 321123 C) 123321 D) 空

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

Dim A, B, C, D, E

A = 20 :

B = 80 :

C = 70 :

D = 30

E = A + B > 160 Or (B * C > 200 And Not D > 60)

Print E

A) 70 B) 80 C) True D) False

7.若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为( )。

If a > 5 Then

If b < 4 Then c = a - b Else c = b - a

Else

If b > 3 Then c = a * b Else c = a Mod b

End If

A) 2 B) - 1 C) 1 D) 6

8.在窗体上画一个命令按钮，然后编写如下程序:

Sub inc(a As Integer)

Static x As Integer

x=x+a

Print x;

End Sub

Private Sub Command1_Click()

inc 2

inc 3

inc 4

End Sub

程序运行后，单击命令按钮，输出结果为( )。

A) 2 3 4 B) 2 5 9

C) 4 3 2 D) 9 5 2

9.有如下程序段，执行该程序段，在输入对话框中输入数据4，该程序段的执行结果是( )。 N = Val(InputBox("请输入大于零的偶数"))

s = 0 : I = 1 : c = 1

Do

s = s + c * I * I

c = c * (-1)

I = I + 1

Loop While I <= N

Print s

A) -10 B) 10 C) -9 D) 9

10.下列程序的执行结果是( )。

Dim A, B, C, D, E

A = 20 :

B = 80 :

C = 70 :

D = 30

E = A + B > 160 Or (B * C > 200 And Not D > 60)

Print E

A) 70 B) 80 C) True D) False

四、程序填空

1. 下面的程序用于求三个数中最大数。

Private Sub Command1_Click()

a = Val(InputBox("请输入第一个数："))

b = Val(InputBox("请输入第二个数："))

c = Val(InputBox("请输入第三个数："))

Max = a

IF ( 1 ) Then Max = b

IF ( 2 ) Then Max = c

Print "最大数为："; Max

Ene Sub

2. 由键盘输入函数，输入N求多项式“1^2+2^2+3^2+4^2+5^2+6^2……”第N项的和，在窗体上以字

体大小为20输出。

Private Sub Form_Click()

Dim N%, S&, K%

( 3 )

S = 0

N = InputBox("输入一个整数")

For K = 1 To N

( 4 )

Next K

Print S

End Sub

3. 下面的程序用“冒泡”法将数组a中的10个整数按升序排列，在图形框Picture1中输出。

Option Base 1

Private Sub Command1_Click()

Dim a

a = Array(67,45,32,58,49,38,87,85,23,83)

For K = 1 To 10

For J = K To 10

If ( 5 ) Then

T = a(K)

a(K) = a(J)

a(J) = T

End If

Next J

Next K

For K = 1 To 10

( 6 )

Next K

End Sub

4. 该程序是在两个文本框(Text1、Text2)中分别输入矩形的长和宽，调用函数过程求矩形面积，在

窗体上输出。

Private Sub Form_Click()

Dim W!，L！

W = Text1

L = Text2

Area = ( 7 )

Print “矩形的面积=”；Area

End Sub

Function WL(W0! , L0!) As Single

WL = ( 8 )

End Function

5.以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请将程序补充完整。

Private Sub Form_Click()

Dim x As Single,amax As Single,amin As Single

x=InputBox(“Enter a score”)

amax=x

amin=x

Do While ( 9 )

If x>amax Then

Amax=x

End If

If ( 10 )Then

Amin=x

End If

x=InputBox(“Enter a score”)

Loop

Print”Max=”;amax,”Min=”;amin

End Sub

五、程序设计

1.编一文本框(Text1)的Text1_KeyPress事件的程序，当输入了项数N并按了回车键计算多项式S = 12 + 22 + 32 + … + N2 的S值，在图形框(Picture1)中输出S，N的值。

要求：

(1)画出设计界面

(2)输入和输出在Text1_KeyPress事件中完成。