VB模拟复习题06-02

下列选择题A) 、B)、C)、D)四个选项中，只有一个选项是正确的，

请将正确的选项填写在右面窗体的答题选项中。

一、单项选择题

1．下面说法不正确的是B__ _。

A、变量名的长度不能超过255个字符

B、变量名可以包含小数点或者内嵌的类型声明字符

C、变量名不能使用关键字

D、变量名的第一个字符可以是字母或汉字

2. 在一行内写多条语句时，每个语句之间用（ D ）符号分隔。

A、 ,

B、 ：

C、 .

D、 ；

3 下面（ B ）是合法的字符常量。

A、 ABC$

B、 “ABC”

C、 ‘ABC’

D、 ABC 4．利用VB设计程序的基本步骤可分四步：

（1）设计用户界；（2）（ A）；（3）运行调试程序；（4）生成执行文件。

A、编写代码

B、设计算法

C、信息反馈

D、系统集成

5.语句Print 5/4*6\5 Mod 2的输出结果是: B

A) 0 B)1 C) 2 D) 3

6．设a=”MicrosoftVisualBasic”，则以下使变量的b值

为”VisualBasic”的语句是: B

A、b=Left(a,10)

B、b=Mid(a,10)

C、b=Right(a,10)

D、b=Mid(a,11,10)

7、在窗体（名称为Form1）上画一个名称为Text1 的文本框和一个名称

为Command1的命令按钮,然后编写一个事件过程,程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为”计算机等级考

试”.以下能实现上述操作的事件过程是:A

A Private Sub Text1_Change()

Command1.Caption= “计算机等级考试”

End Sub

B Private Sub Command1_Click()

Caption=“计算机等级考试”

End Sub

C Private Sub Form1_ Click()

Text1. Caption=“计算机等级考试”

End Sub

D Private Sub Command1_Click()

Text1. Text1=“计算机等级考试”

End Sub

8．设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为: D

A、"a"

B、"b"

C、"B"

D、"A"

9．在VB中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从高到低的顺序是。B

A、 AND->NOT->OR

B、 NOT->AND->OR

C、 OR->NOT->AND

D、 NOT->OR->AND

10．在VB中，复写框（Check）的Value值有三种，分别是。 B

A、-1，0，1

B、0，1，2

C、1，2，3

D、True，False，0

11．保存文件时，窗体的所有数据存储格式为 B

A、 *．PRG

B、 *．FRM

C、*．VBP

D、 *．EXE

12．定时器控件的Interval属性值是指时间间隔，单位为 ___ ；当每隔此间隔的时间，定时器会触发一次___ 事件。A

(A)毫秒，Timer ( B)秒，Timer (C)毫秒，Scroll Bar (D)秒，Scroll Bar

13．设A=5，B=6，C=7，D=8

计算表达式 3>2*B OR A=C AND B<>C OR C>D 的值是：C

A) 5 B) ６ C )False D）True

14．下列程序段运行后，单击窗体，则sum输出的结果为__。

Private Sub Form_Click()

Dim k As Integer

Dim sum As Integer

sum=o

For k =10 To 1 step -2

sum=sum + k

Next k

A.20

B.30

C.40

D.10

15. VB中的变量如果没有显示声明其数据类型，则默认为D

A、日期型

B、数据型

C、字符型

D、变体型

16. 设有如下变量声明：Ｄim testdate Ａs date ，则testdate 正确赋值的表达方式是（B）。

Ａ.　Testdate＝井“1/1/2002” Ｂ.　Testdate＝井1/1/2002井

Ｃ　.testdate＝　（“1/1/2002”）Ｄ　.testdate＝“1/1/2002”17. 以下程序运行后，单击命令按钮两次，窗体上显示x,y的内容是( ).

Private Sub Command1_Click()

Static x A s Integer

Dim y As Integer

Fo r i = 1 To 2

x = x + 2

y = y + 2

Next

Print x, y

End Sub

A) 10 5 B) 4 4 C) 4 6 D) 8 4

18. 结构化程序由三种基本结构组成，下面属于三种基本结构之一的是（A　）。

A.. 递归结构

B. 过程结构

C. 选择结构

D. 输入，输出结构

19. 下列程序x输出的结果为___。

For i = 1 To 4

x = 5

For j = 1 To 2

x = x + 10

Next

Next

A、12

B、25

C、16

D、17

20. 框架是一个容器控件,其用于设置框架控件是否能够响应用户事件的是下列哪个属性：C

A Name属性

B Caption属性

C Enable属性

D left属性

21. 下列程序段运行后，单击窗体，Sum输出的结果为_A_。

Private Sub Form_Click()

Dim i As Integer, Sum As Integer

Sum=0

For i = 2 To 10

If i Mod 2 = 0 And i Mod 3 <>0 Then

Sum = Sum + i

End If

Next

End Sub

A、24

B、30

C、12

D、18

22. 以下Case语句中错误的是:C _______

A) Case 0 To 10 B) Case Is>10

C) Case Is>10 And Is<50 D) Case 3 ,5, Is>10

23. 文本框的ScrollBars属性只有在___A__属性为Ture时才有效。

A、MultiLine

B、Text

C、Font

D、

PasswordChar

24. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

x=InputBox("Input:")

Select Case x

Case 1,3

Print "分支 1"

Case Is >4

Print "分支 2"

Case Else

Print "Else 分支 "

End Select

End Sub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是:C

A. 分支1

B. 分支2

C. Else分支

D. 程序出错

25. 阅读程序:：

阅读程序:：

Option Base 1

Private Sub Form1_Click()

Dim arr

Dim Sum As Integer

Sum = 0

arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)

For i = 1 To 10

If arr(i) / 3 = arr(i) \3 Then

Sum = Sum + arr(i)

End If

Next i

Print Sum

End Sub

程序运行后，单击窗体，如果输出结果为:

A）25 B）26 C） 27 D）28

26. 阅读程序:：

x = 0

a = 0

Do Until x = -1

x = InputBox("请输入x的值")

x = Val(x)

a = a + x

Loop

Print a

程序运行后，依次在输入对话框中输入2、3、-1，则输出结果为

_____。

A）2 B）3 C）1 D）4 27. 以下哪种不能使控件获得输入焦点：A

A）用鼠标单击指定的控件

B）反复按Tab键直到指定控件获得输入焦点

C）按Shift键使指定控件获得输入焦点

D）调用控件的SetFocus方法

28. 在标题的字符串中的某个字符前加上符号&便可以建立该命令按钮的__B_____.

A.默认值 B、快捷键 C、输入焦点 D、编辑器

29. 阅读程序:

Private Sub Command1_Click( )

Dim i As Integer

Dim s As long

s = 0

For i = 1 To 5

If i Mod 2 = 0 Then

S = i

Else

S= 1

End If

S=S + i

Next

End Sub

程序运行后，S输出结果为:

A) 11 B) 10 C) 9 D) 6

30. 有程序代码如下：Text1.Text=”Text1.Text”

则Text1、Text、”Text1.Text”分别代表（ C）

A、对象、值、属性

B、对象、方法、属性

C、对象、属性、值

D、属性、对象、值

31．以下说法不正确的是__C_。

A、使用ReDim语句可以改变数组的维数

B、使用ReDim语句可以对数组的所有元素进行初始化

C、使用ReDim语句可以改变数组的类型

D、使用ReDim语句可以改变数组每一维的大小

32. Sub过程与Function过程最根本的区别是_C__

A、Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以

B、Function过程可以有形参，Sub过程不可以

C、Sub过程不能返回值，而Function过程能返回值

D、两种过程参数的传递方式不同

33. 在窗体模块中用Public定义的变量的作用范围是__B_。

A、整个程序的所有模块中

B、该窗体模块中

C、标准模块中

D、其他窗体模块中

34. 下列程序运行后，calc输出结果是___。

Private Sub From_Click()

Dim y As Integer

Dim x As long

y = 9: x = 4

calc = (x ^ 2 + Sqr ( y)) + 1

End Sub

A、84

B、20

C、98

D、8

35. 下列关于控件数组的说法错误的是:A

A) 定义控件数组的方法与定义一般数组的方法是相同的

B) 使用Load语句载入的控件数组元素在默认的情况下是不可见的

C) 对于不再使用的控件可以使用unload语句将其卸载

D）控件数组中的控件事件过程与其他控件事件过程的结构类似

二、填空题

1、 在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：

Private Sub Form_Click() 。

Text1.text="VB程序设计"

End Sub

Private Sub Text1_Change()

Picture1.Print"VB Programming"

End Sub

程序运行后，单击窗体，在文本框显示的内容是

___________________，而在图片框显示的内容是

___________________

２．窗体文件的扩展名是.frm

_点frm____。

３、数学关系25<= x<45表示成正确的VB表达式为_______。

４.下面程序段，显示的结果是________。

Dim x As Integer

x = Int(Rnd) + 4

Select Case x

Case 5

Print "优秀"

Case 4

Print "良好"

Case 3

Print "合格"

Case Else

Print "不合格"

End Select

End Sub

5、Print Format(123.5, "###.00")显示

123.50_______。

6、在窗体上有一个名称为Label1的标签和一个名称为List1在列表框。程序运行后，在列表框中添加若干列表项。当单击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图所示。请在_______处填入适当的内容，将程序补充完整。(3分)

Private Sub Form_Load()

List1.AddItem “香蕉”

List1.AddItem “苹果”

List1.AddItem “西瓜”

End Sub

Private Sub List1_Click()

Label1.Caption= ______

End Sub

7. 设有如下程序：用 Array 函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最大值

Option Base 1

Private Sub Command1_Click()

Dim arr1

Dim Max As Integer,i As Integer

arr1=Array(12,435,76,-24,78,54,866,43)

Max=_____

For i=2 To 8

If arr1(i)〉Max Then

_____________

Next i

Print "最大值是：";______

End Sub

三、编程题

1．新建一个窗体，程序运行时，当用鼠标单击窗体任一地方，程序弹出Inputbox()函数输入框。当输完15个整数后，程序把刚输入的15个整数分3行在窗体上显示，每行5个整数。提问：（1）、应该对窗体的什么事件进行编程？

（2）、编写程序代码，实现上述功能。

2. 新建一个窗体，在窗体上添加一个名称为Text1的文本框和一个名称为Command1的按钮。编写程序，计算1至100范围内奇数的和，单击按钮Command1后，将结果显示在文本框Text1中。