省二VB笔试样卷(1)

《VisualBasic程序设计》笔试样卷

学号： 姓名： 专业：

考试日期： 年 月 日 题号 得分 阅卷人 一 二 三 四 总分 复核人 一、选择题（40分，每题2分）

1. 下面4个选项中，不是窗体属性的是 1 。C

A) BorerStyle

B) Caption

C) Unload

D) MinBotton

2. 设计窗体时，双击窗体的任意位置将打开 2 。D

A) 工具箱窗口 B) 属性窗口 C) 窗口设计器 D) 代码窗口 3. 若将变量x声明为Date类型，下列给变量x正确赋值的语句是 3 。A

A) x=#3/14/2013# C) x=# \

4. 下列表达式的值为1234的是 4 。B

A) Val(\C) Str(234) & 1000

B) Val(\D) Str(234) + \

B) x=date(\

D) x=format(\

5. 已知s= \，则表达式Val(Left(s,4)) + Val(Mid(s,6,2))的值是 5 。A

A) 179 B) 012356 C) 12356 D) 190 6. 执行语句x=InputBox(\您好！\，所产生的对话框的标题是 6 。D A) 您好！ B) 2014 C) 0 D) 1 7. 下面4个运算符中，优先级别最低的是 7 。C A) \\ B) Not C) & 8. 表达式Int(18.55*100+0.5)/100的值是 8 。C

A) 19

B) 19.05

C) 18.55

D) 18.5

D) >

9. 一条语句要分行书写，需用的续行符是 9 。C A) ， B) + C) _

D) :

10. 语句Dim a(2,-1 To 1,4) As Integer定义的数组A包含的元素个数是 10 。C A) 24 B) 16 C) 45 D) 30 11. 下列关于窗体的描述，错误的是 11 。 A

A) 执行Unload Form1语句后，窗体Form1消失，但仍在内存中 B) 窗体的Load事件在加载窗体时发生

C) 当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止

1 / 5

D) 窗体的Height、Width属性用于分别设置窗体的高和宽 12. 结构化程序设计的三种基本结构是 12 。C

A) 输入、处理、输出 B) 树状、网状、环状

C) 顺序、选择、循环

D) 主调程序、子程序、过程

13. 对于窗体Form1，执行了Form1.Top = Form1.Top -1100语句后，该窗体将 13 。A A) 上移 B) 下移 C) 左移 D) 右移 14. 水平滚动条HScroll1的LargeChange属性值为20，表示 14 为20。D A) 该滚动条的最小值 B) 该滚动条的最大值

C) 单击滚动条两端箭头时滚动条值的变化量

D) 单击滚动条两端箭头和滑块之间的空白处时滚动条值的变化量 15. 下列控件中，没有Caption属性的是 15 。A

A) 图片框 B) 框架 C) 复选框

D) 窗体

16. 将数据项\北京\添加到列表框List1中作为第一项，应使用的语句是 16 。B A) List1.AddItem 0,\北京\B) List1.AddItem \北京\

C) List1.AddItem \北京\

D) List1.AddItem 1,\北京\

17. 如果每秒触发20次Timer事件，那么计时器控件的Interval属性应设为 17 。B

A) 20

B) 50

C) 200

D) 2000

18. 下列控件可以作为容器的是 18 。 A A) Picture图片框控件 B) 文本框控件

C) 复选框控件

D) 组合框控件

19. 下面有关标准模块的叙述，错误的是 19 。D A) 标准模块中可以声明全局变量

B) 标准模块的文件扩展名为.bas C) 标准模块中可以包含一些Public过程

D) 标准模块不完全由代码组成，还可以包含窗体 20.下面说法错误的是 20 。C

A) 随机文件中各条记录的长度是相同的

B) 打开随机文件时采用的文件存取方式是Random C) 向随机文件中写数据应使用“print #文件号”

D) 打开随机文件与打开顺序文件一样，都使用Open语句 二、填空题（20分，每空2分）

1. VB6.0是基于面向对象的程序设计方法，采用 (1) 驱动的编程机制。事件

2. 变量声明后未经赋值就引用，此时数值型变量的值为 (2) 0 ，字符型变量的值为 (3) 空 3. 执行语句Print Format(Int(1234.5678*100+0.5), \的输出结果是 (4) 。123457.00 4.一个控件对象在窗体上的位置由 (5) 属性和Top属性决定。left

5. 设a=3,b=4,c=5,d=6,执行语句y=IIf(a>b and c>d,12,23)后，变量y的值是 (6) 。23

2 / 5

6. 若一个过程直接或间接调用自身，这种调用称为 (7) 调用。递归

7. 在VB中，可以使用通用对话框控件（CommonDialog）的 (8) 方法来显示字体对话框。Showfont 8. 下列程序的功能是将当前目录下的顺序文件ksj.txt的内容读入内存并在文本框Text1中显示出来，请将程序补充完整。

Private Sub Form_Click() Dim ida As String

Text1.Text = \

Open \ (9) As #1 （for input） Do While (10) not eof（1） Input #1, ida

Text1.Text = Text1.Text & ida Loop Close #1 End Sub

三、阅读程序题（20分，每题5分）

1．执行下面程序后，输出的结果是 1 。33

Private Sub Form_Click()

Dim s As Integer, n As Integer, i As Integer s = 0 n = 1

For i = 1 To 4 n = n * i s = s + n Next i

Print \ End Sub

2．执行下面程序后，输出的结果是 2 。5 11 14 23 27 35 35 58 76

Option Base 1

Private Sub Form_Click()

Dim i As Integer, j As Integer, t As Integer a = Array(11, 5, 23, 14,76, 35, 27, 58, 35) For i = 1 To 8 For j = i To 9

If a(i) > a(j) Then

t = a(i): a(i) = a(j): a(j) = t End If Next j Next i

For i = 1 To 9 Print a(i); Next i End Sub

3 / 5

3．执行下面程序后，输出的结果是 3 。

Private Sub Form_Click() Dim i%, j%

For i = -3 To 3

For j = 1 To Abs(i)

Print \ ' 输出一个空格 Next j

For j = 1 To 7 - 2 * Abs(i) Print \ Next j Print Next i End Sub

4．程序运行后，连续单击窗体三次，输出的结果是 4 。3 0 11

Dim x As Integer

Private Sub Form_Click() Static y As Integer Dim z As Integer z = 1

Call tem(z, y)

Print \End Sub

Public Sub tem(a As Integer, ByVal b As Integer) a = a + 10 b = a *b x = x + 1 End Sub

四、程序设计题（20分）

1．输入100个数，分别统计其中正数、负数和零的个数并输出。（10分）

Private Sub Command1_Click()

For i = 1 To 100 n = Val(InputBox(\ Select Case Sgn(n) Case 1

nz = nz + 1 Case -1 nf = nf + 1 Case Else

4 / 5

no = no + 1

End Select Next

Print \正数的个数为\负数的个数为\零的个数为\End Sub

2．某工程文件设计界面和运行界面如下：（10分）

文本框Text1中的所有数字字符，并将结果显示在文本框Text2中。

Private Sub Command1_Click() zm = \

For i = 1 To Len(Text1.Text) s = Mid(Text1.Text, i, 1)

If s < \ Next Text2 = zm End Sub

请编写单击命令按钮Command1（删除数字字符）的事件驱动代码，其作用是删除

5 / 5

本文来源：https://www.bwwdw.com/article/at3t.html