VB试卷

第二套试题

说明：⒈请在答卷纸的指定位置处写明：班级、学号、姓名，否则将无法登记你的考试成绩，按缺考论；

⒉前三大题的答案写在答卷纸的相应表格里，第四题的答案则填入相应空格中，否则作无效处理；

⒊请保持答卷纸的整洁；本次考试要求闭卷、独立在120分钟内完成，本试题册不要拆开。

B表示错误）（共20分，每小题1 分）

1.hello”。

2.VB坐标系的默认刻度是像素。

3.XXX.vbp文件是用来管理构成应用程序XXX的所有文件和对象的清单。

4.文本框中的文本不能自动换行的原因是MultiLine属性采用了默认值。

5.对话框控件在程序运行时是不可见的。

6.影像框和图片框一样，也可以作为其他控件的容器。

7.将命令按钮Command1设置为缺省的活动按钮可修改该控件的Enabled属性。

8.双击工具箱上的控件与选中工具箱上的控件后，在窗体上拖曳画出完全一样。

9.不论步长是正值或负值，当循环变量的值大于终值时，结束循环。

10.控件数组与普通控件一样，但可节省编程代码。

11.在图片框中添加的控件，其Top和Left属性值是相对图片框而言的，与窗体无关。

12.表示各控件对象的变量名的属性为Caption。

13.列表框和文本框一样均没有Caption属性，但都具有Text属性。

14.用KILL语句删除文件，只能删除与指定文件名完全匹配的一个文件。

15.Visual Basic的对象包括窗体、控件及其中可访问的实物。

16.菜单中的分隔条是一个特殊的菜单项，其标题以一个“ - ”号表示。

17.同一Form窗体中的控件可以相互重叠，其显示的上下层次的次序不可以调整。

18.单选钮控件和复选框控件都具有Value属性，它们的作用完全相同。

19. Data控件的RecordSouce属性，可以指定为数据库中的表或SQL语言的Select查询语句。

20. Circle方法画圆与用Shape形状控件画圆时,要控制画笔的大小时,前者用容器的DrawWidth设置,后者用形状控件的BorderWidth 属性设置。

1 分）

1）。

A、25

B、“5*5“

C、出现错误提示

D、5*5

2、DIM A（1 TO 20）as Integer所定义的数组有多少个元素（）。

A、40

B、1

C、2

D、20

3、由For=35 TO 0 Step 3 : Next k循环语句控制的循环次数是（）。

A. 0

B.12

C.－11

D.－10

4、一个对象可以执行的动作和可被对象识别的动作分别称为（）。

A.事件、方法

B.方法、事件

C.属性、方法

D.过程、事件

5、单击滚动条两端的任一个滚动箭头，将触发该滚动条的（）事件。

A、Scroll

B、KeyDown

C、Change

D、DragOver

6、下列（）方法或函数可以调用外部的可执行文件。

A、Show

B、Shell

C、Input

D、Open

7、由“For I=1 To 16 Step 3“决定的循环结构被执行（）次。

A、4

B、5

C、6

D、7

8、在Visual Basic的“文件”菜单项中，一般列出最近打开的文件个数有（）个。

A、1

B、2

C、3

D、4

9、Abs(-2.5)的值是( )

A、 -3

B、 -2

C、 2.5

D、 2

10、选中复选框控件时，Value属性的值为（）。

A、True

B、False

C、0

D、1

11、已知A、B、C中C最小，则判断A、B、C可否构成三角形三条边长的逻辑表达式是（）。

A. A>＝B And B>= C And C>0 B A+C>B And B+ C >A And C>0

C (A+B>=C Or A-C<=C) And C>0

D A+B>C And A-B> C And C>0

12、下列控件没有Change事件的是（）。

A、盘驱动器列表框

B、目录路径列表框

C、文本框

D、定时器

13、一个菜单项是不是一个分隔条，由（）属性决定。

A. Name(名称)

B.Caption

C.Enabled

D.Visible

14、将CommonDialog通用对话框的类型设置为颜色（打开、另存为、字体、打印和帮助）对话框，可修改该控件的（）属性。

A、Color

B、Filter

C、filename

D、Action

15、设定文件列表框中所显示的文件类型，应修改该控件的（）属性。

A、Pattern

B、Path

C、FileName

D、Name

16、执行语句“Write#1,234;-34.56,”hello”;Date”后，相应的文件内被写入（）。

A、234,-34.56, hello,2001-08-03

B、”234”,”-34.56”, “hello”,”2001-08-03”

C、234,-34.56, “hello”,#2001-08-03#

D、234 -34.56 hello 2001-08-03

17、下列（）对象具有Clear方法。

A、图片框

B、窗体

C、复选框

D、列表框

18、每创建一个菜单，它的下面最多可以有（）级子菜单。

A、1

B、3

C、5

D、6

19、（）对象不能作为控件的容器。

A. Form

B.PictureBox

C.Shape

D.Frame

20、表达式-2^2的值为（）。

A、-4

B、4

C、-1

D、1

（共20 分，每小题5 分）

1上的输出结果。

Private Sub Form_Click()

Dim i As Integer

Static s As Integer

i = i + 2

s = s + i

Form1.Print "i="; i, "s="; s

End Sub

2、写出下列程序中Form1的显示结果。

Private Sub Form_Click()

Form1.Cls

w = 3

For k = 2 To 6 Step 2

Form1.Print "w="; w, "k="; k

w = w + 1

Next k

Form1.Print "w="; w, "k="; k

End Sub

3、程序运行时单击Commandl后，分别写出文本框Textl.Text2和Text 3的Text的值。

Private Sub Command1_Click()

n = 0: x = 1: y = 0

Do While x < 20

n = n + 1

y = x + y

x = x * (x + 1)

Loop

Text1.Text = "n=" & Str(n)

Text2.Text = "x=" & Str(x)

Text3.Text = "y=" & Str(y)

End Sub

4、写出程序运行时单击窗体后，Forml上的输出结果。

Private Sub Form_Click()

Dim a(2, 3) As Integer

For I = 1 To 2

For j = 1 To 3

a(I, j) = 2 * I - j

Next j, I

For h = 1 To 3

For k = 1 To 2

Form1.Print a(k, h),

Next k

Print

Next h

End Sub

分，每小格2分）

1、程序说明：本程序用于求两个等长的十进制数字字符串的对应数值之和，结果也当作一个字符串，

如：“7811801246101”+“5502450186932”=“13314251433033”

在程序中rm%表示两位数字相加所产生的进位，因此它作为下一位的一个相加对象；a$和b$

分别为被“相加”的两个字符串；l%为a$和b$的长度；c$为结果字符串。

Private Sub Form_Click()

Dim a As String, b As String, c As String

Dim pa As String, pb As String, ps As String

Dim rm As Integer, l As Integer, i As Integer

a = "7811801246101"

b = "5502450186932"

c = "": rm = 0

(1)

For i = l To 1 Step -1

pa = Mid$(a, i, 1)

pb = Mid$(b, i, 1)

pc = Str(Val(pa) + Val(pb) + (2) )

If (3) Then

rm = 1

Else

rm = 0

End If

pc = Right$(Str$(pc), 1)

c = (4)

Next i

If rm = 1 Then c = (5)

Print a; "+"; b; "="; c

End Sub

2、程序说明，在窗体上有两个命令按钮和一个文本框，名称分别为cmdstart（“开始”）、cmdend（“结束”）和Text1。文本框中的字符

个数不超过200个。程序刚开始运行时，“结束”按钮成灰色，单击“开始”按钮后，将文本框中的字符按其ASCII码值由小到大自左到右重新组合，并在窗体输出重组后的字符串，同时使“结束”按钮能响应而“开始”按钮不能响应。

Private Sub Form_Load()

Cmdend.Enabled=False

End Sub

Private Sub Cmdstart_Click()

Dim n as integer,I as integer,j as integer,p as integer

Str1=Text1.Text

n=Len(Str1)

For I=1 to n …取出单个字符放入数组A中

A(I)=Mid$(str1,I,1)

Next I

For I=1 to n-1 ‘排序

P=I

For j=1 to n

If a(p)>a(j) then (6)

Next j

If (7) then t=a(I):a(I)=a(p):a(p)=t

Next I

For I=1 to n

Print a(I);

Next I

(8)

(9)

End Sub

Private Sub Cmdend_Click()

(10)

End Sub

五、编程题10分）

1、设计一个调色板程序，如下图所示。使用三个滚动条，红：Hscroll1，绿：Hscroll2，兰：Hscroll3，作为三种基本颜色的输入工具（输入值均为0~255，LargeChange为25）。按“设置前景色”（Command1）按钮，则设置右上角标签控件（Label1）的前景色，按“设置背景色”（Command2）按钮，则设置右上角标签控件的背景色；标签中的文字

通过下面的文本框（Text1）输入，要求按回车后即可将文本框中的文字显示在标签中。所有控件的属性都取默认值，

要求通过编程实现。

2、编一程序，单击窗体后在窗体上打印下图。

第二套试题答案及评分标准

说明：⒈请在上面的指定位置处写明：班级、学号、姓名，否则将无法登记你的考试成绩，按缺考论；

⒉试题册前三大题的答案写在下面相应表格里，第四题的答案则填入相应空格中，否则作无效处理；

⒊请保持本答卷纸的整洁；本次考试要求闭卷、独立在120分钟内完成。

三、程序阅读，写出程序的功能或运行结果

四、程序填空题

（1）l = Len(a) （2）rm

（3）Val(pc) >= 10或pc >= 10 （4）pc + c

（5）"1" + c或"1" & c （6）p=j

（7）p<>i （8）Cmdend.Enabled=true

CmdStart.Enabled=false （10）End

（9）