文档库

最新最全的文档下载
当前位置:文档库 > 省二VB笔试样卷

省二VB笔试样卷

《VisualBasic程序设计》笔试样卷学号:姓名:专业:

省二VB笔试样卷

一、选择题(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# B) x=date("3/14/2013 ")

C) x=# "3/14/2013"# D) x=format(" m/d/yy ", "3/14/2013 ")

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

A) Val("234qaz") & 1000 B) Val("234qaz")+1000

C) Str(234) & 1000 D) Str(234) + "1000"

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

A) 179 B) 012356 C) 12356 D) 190

6. 执行语句x=InputBox("您好!", 1, "2014"),所产生的对话框的标题是 6 。D

A) 您好!B) 2014 C) 0 D) 1

7. 下面4个运算符中,优先级别最低的是7 。C

A) \ B) Not C) & D) >

8. 表达式Int(18.55*100+0.5)/100的值是8 。C

A) 19 B) 19.05 C) 18.55 D) 18.5

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时,通过鼠标和键盘对窗体的操作都被禁止

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 "北京",0

C) List1.AddItem "北京",1 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(123

4.5678*100+0.5), "0000,0.00")的输出结果是(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

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

7. 在VB中,可以使用通用对话框控件(CommonDialog)的(8) 方法来显示字体对话框。Showfont

8. 下列程序的功能是将当前目录下的顺序文件ksj.txt的内容读入内存并在文本框Text1中显示出来,请将程序补充完整。

Private Sub Form_Click()

Dim ida As String

Text1.Text = ""

Open ".\ksj.txt" (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 "s="; s

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

省二VB笔试样卷

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 "x="; x, "y="; y, "z="; z

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

no = no + 1

End Select

Next

Print "正数的个数为"; nz; "负数的个数为"; nf; "零的个数为"; no

End Sub

2.某工程文件设计界面和运行界面如下:(10分)

省二VB笔试样卷

省二VB笔试样卷

请编写单击命令按钮Command1(删除数字字符)的事件驱动代码,其作用是删除文本框Text1中的所有数字字符,并将结果显示在文本框Text2中。

Private Sub Command1_Click()

zm = ""

For i = 1 To Len(Text1.Text)

s = Mid(Text1.Text, i, 1)

If s < "0" Or s > "9" Then zm = zm & s

Next

Text2 = zm

End Sub