VB二级考试模拟试题2

VB 程序设计2

一．单项选择题（每题一分，共40分）

1.在计算机领域中，MIPS 通常用来描述计算机的 【A】

A运算速度 B 内存容量 C 分辨率 D主频

2.下面属于计算机输出设备的是 【A】

A显示器 B鼠标 C键盘 D扫描仪

3.微型计算机在突然断电，则 中的信息全丢失。【B】

A硬盘 B RAM C ROM D光盘

4.若X是二进制数1011，Y是十进制数13，Z是十六进制1D，则X，Y，Z从大到小的顺序是 。（X,Y,Z都是无符号数） 【A】

A Z Y X B Y Z X C X Y Z D Z X Y

5.在Windows中，下面关于删除文件的描述错误的是 【C】 A U盘上的文件被删除，不能从回收站中还原 B 可以不经过回收站直接删除文件

C 可以将文件先复制到回收站，需要时再将其从回收站还原 D 利用“清空回收站”选项可以把回收站中的文件全部删除

6.下面关于E-mail功能的描述中，错误的是 【D】 A 在发送电子邮件时，可以同时发送给多人 B 在发送电子邮件时，可以发送附件

C 在发送电子邮件时，可以将附件下载到本地计算机上 D 在发送电子邮件时，必须将附件下载到本地计算机上

7.为减少多媒体数据所占储存空间，常采用 技术。【B】 A 高速缓冲 B 数据压缩 C 多通道 D 流媒体

8. http://www.ahedu.gov.cn中“http”指的是 【C】

A 计算机主机域名 B 文件传输协议 Ｃ 超文本传输协议 Ｄ TCP/IP协议

９.下面关于计算机病毒的叙述中，正确的是 【D】

Ａ 计算机病毒不能感染安装了杀毒软件的计算机系统 Ｂ 计算机病毒只能通过网络传播

Ｃ 计算机病毒不能感染加密或压缩的文件 Ｄ 计算机病毒可以通过Ｕ盘进行传播

10.下面系统软件中，最核心是 【C】

Ａ 编译系统 Ｂ 语言处理系统 Ｃ 操作系统 Ｄ 数据库管理系统

11. 在Visual Basic6.0的设计模式下，双击窗体上的某个控件，打开的窗口是_________.【B】 A)工程资源管理窗口 B）代码窗口 C）属性窗口 D）工具箱窗口

VB 程序设计2

12. 以下叙述错误的是_______. 【C】

A) 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B）程序运行时，双击一个窗体，则出发该窗体的DblClick事件 C）Visual Basic6.0 应用程序只能以解释方式执行 D）事件可以由用户触发，也可以由系统触发

13．以下不属于Visual Basic6.0 系统的文件类型是________. 【C】

A）.Frm B）.Bas C) .Cpp D) .Vbp

14. 在Visual Basic6.0 中编写代码，如果要强制显示声明变量，可在窗体模块或标准模块的声明中加入语句________.【A】

A)Option Explicit B)Option Compare C)Option Base 0 D)Option Base 1

15.下列选项中_______不是Visual Basic常量.【B】

A) “Good Luck” B)PI C)1.5E –03 D)16.3412

16. 以下声明语句中错误的是______【B】

A）Const varl = 123 B）Dim varl =“abc” C) Public varl As Integer D）Static varl As Integer 17骰子是一个正六面体，分别用1~6代表其六个面，掷一次骰子出现的数可表示为_____【A】 A）Int（Rnd*6+1） B）Int（Rnd*6） C）Int（Rnd*7） D）Int（Rnd（6）+1）

18. 声明变量n为整型，执行语句n=4.5后，_______ 【A】 【VB存在BUG】 A）n的值为4 B）n的值为5 . C）n的值为4.5 D）出错

19. 表达式4+5\\6*7/8的值是_______ 【B】 运算次序 注： * / 优先级高于 \\ A）4 B）5 . C）6 D）7

20. MsgBox（）函数返回值的类型是_____ 【D】

A） 日期型 B）字符型 C)逻辑型 D）整型

21. 阅读下面的程序段： 【D】 x=InputBox（“请输入第一个数”） y= InputBox（“请输入第二个数”） Print x + y

当输入22和33时，程序输出为_______

A） 22 B）33. C）55 D）2233

22. 假设A=“Good Morning”，B=“Afternoon,Boys.”,下列_____表达式的结果是“Good Boys.”【A】

A）Left（A，5）+Right（B，5） B）Right（A，5）+ Left（B，5） C）Mid（A，1，5）+Mid（B，1，6） D）Right（A，5）+ Right（B，5）

23. 能正确执行的语句是_______ 【C】

VB 程序设计2

A) x=Sin45° B) x=Sin(45)

C) x=Sin(45*3.14/180) D) x= Sin(45°/180)

24. 下列正确的赋值语句是_____ 【B】

A)i+j=10 B）i=0：j=0. C）i=0；j=0 D）i=0，j=0

25 设a=6,b=-1,c=8;执行语句Print a>b>c 后， 窗体上显示的结果是_____ 【B】

A) 1 B) True C) False D) 出错

26. 可以强行中断程序运行的操作是_____ 【D】

A)按Ctrl + C键 B)按Ctrl + Z键 C)按Ctrl + V键 D)按Ctrl + Break键

27. 当用户单击滚动条的空白处时，滑块移动的增量由其_____属性决定。【B】

A ) Small Change B ) Large Change C ) Min D ) Max

28. 以下叙述中正确的是_____ 【A】

A)窗体的Name属性指定窗体的名称，用来标识一个窗口。 B)窗体的Name属性的值是显示在窗体标题栏中的文本。 C)可以在运行期间改变对象的Name属性值。 D)对象的Name属性值可以为空。

29．以下能够触发文本框 Change 事件的操作是_____ 【D】

A)文本框失去焦点 B)文本框获得焦点 C）设置文本框的前景色 D）改变文本框的内容

30. 要在命令按钮上显示图片，应设置其_____属性和Picture属性 【C】

A)Caption B)Name C)Style D)Appearance

31. 时钟控件只有一个_____事件 【C】

A)Click B)Interval C)Timer D)Time

32. 移除列表框List1 的第3项“张三”，应使用_____语句 【A】

A)List1.RemoveItem 2 B）List1.RemoveItem 3

C) List1.RemoveItem “张三” ，2 D) List1.RemoveItem “张三” ，3

33. 设置图像框Image 1的_____属性，可以自动调整装入图形的大小以适应图像框的尺寸。【D】

A)AutoSize B)Appearance C)Align D)Stretch

34. 下列对象中不能获得焦点的是_____ 【B】

A)命令按钮控件 B)标签控件 C)文本框控件 D)单选按钮控件

VB 程序设计2

35. 控件数组的元素是通过_____属性来区分的。【C】

A)Name B)TabIndex C)Index D)Enabled 36. 下列叙述中错误的是_____ 【A】

A)Sub过程能通过其过程名返回值

B)Dim可以用于声明模块级变量或过程级变量

C)静态变量是一种过程级变量，当所在的过程执行结束时，其值依然存在 D)Public定义变量时，只能出现在通用声明段

37. 下列叙述中正确的是_____ 【B】

A)一个Sub过程至少要有一个Exit Sub语句 B)一个Sub过程中定义一个End Sub语句

C)可以在Sub过程中定义一个Function过程，但不能定义Sub过程

D)可以在Function过程中定义一个Sub过程，但不能定义Function过程

38.设菜单项名称为Menult,为了在运行时使该菜单项失效（变灰），应使用的语句为 _____ 【B】

A) Menult.Enabled = True B) Menult.Enabled = False C) Menult.Visible = True C) Menult.Visible = False

39.关于语句Open”D:\\Text.txt”For Output As #1,以下叙述中错误的是 _____ 【C】

A)若D盘根目录下无Text.txt文件，则该语句创建此文件 B)该语句用文件号1打开D盘根目录下的文件Text.txt

C)该语句打开磁盘D已存在的Text.txt,之后就可以从文件中读取信息

D)执行该语句后，就可以通过Print语句或Write语句向Text.txt中写入信息

40.以下能判断文件指针是否到达文件尾的函数是 _____ 【D】

A) BOF B) LOC C) LOF D) EOF

二、填空题（每空2分，共20分）

ab?1.数学表达式

cd?e 的Visual Basic6.0表达式为 _a/(b+c/(d+sqr(e)))____

2.表达式100 + 25 Mod 10 \\ 4 + Int(3.14)的值是 _104____ \\ 高 Mod 低

3.已知Fibonacci 数列定义如下：f(1) = 1,f(2) = 1,f(n) = f(n – 1) + f(n-2),n >2。下列程序的功能是计算并输出此数列前20个数并求和，切要求每行输出5个数，试填空完成以下程序。 Option Explicit

Private Sub Form_Click()

Dim f(20) As Integer

Dim n As Integer, s As Integer f(1) = 1 : f(2) = 1 : s = 2 Print f(1) ; f(2) ;

VB 程序设计2

For n = 3 To 20

f(n) = f(n – 1) + f(n – 2)

s = __s+f(n)________ ‘求和 Print f(n); If n Mod 5 = 0 Then ___Print___ ‘打印5个数后换行

Next n Print”s = “; s End Sub

4.随机产生10个1~999（包括1和999）之间的整数，找出其最大值、最小值和平均值，试填空完成以下程序。 Option Explicit

Private Sub Form_Click() Cls

Dim a(1 To 10) As Integer, s As Single

Dim m_max As Integer, m_min As Integer, I As Integer

Randomize For i = 1 To 10

a(i) = Int(Rnd *__999___+1) ?产生随机数并存入数组a Print a(i) ?打印数组元素 Next i

For i = 1 To 10

If a(i) > m_max Then m_max =a(i) ?找最大值 If a(i) < m_min then__m_min=a(i)_ ?找最小值 s = s + a(i) ?10个数相加 Next i

Print”最大数是:” ; m_max ?输入最大值 Print”最小数是:” ; m_min ?输入最小值 Print “平均值是:”; s / 10 ?输入平均值 End Sub

5.用一元纸币兑换一分,二分和五分的硬币；要求兑换硬币的总数为50枚。试填空完成以下程序,列出所有可能的兑换方案。

提示：采用穷举法。一元等于100分，考虑5分最多20枚，二分最多50枚，余下是1分硬币。

Private Sub Form_Click

Dim i as Integer ,J As Integer ,k As Integer ?该函数的功能是计算m的阶乘 For i =0 to 20 ?i表示分5硬币数量

For j =0 To 50 ?j表示分2硬币数量

k =100 -5*i -__2*j____ ?k表示分1硬币数量 If i+ j +k =___50_____ Then Print i ,j ,k

End If Next j Next i

VB 程序设计2

End Sub

6. 试填空完成以下程序，使其能够计算 1+1/1! +1/2! +1/3!····+1/N!+····,直到最后一项小于10-5为止

Function fact(m As Integer) As Long Dim x As Single, i As Integer x = 1

For i = 1 To m ?求乘积 x=___x*i_____ Next i fact = x End Function

Private Sub Form_Click()

Dim e As Single, t As Single, i As Single e = 1 :n = 1 Do

t=___1/fac(n)______ ?调用函数fact计算数列的单项值 e = e + t n = n + 1

Loop Until t < 0.00001 Print e End Sub

三．阅读理解题（每小题4分，共20分）

1.执行下列程序后，输出的结果是 x=182 n=3 。 Private Sub Form_Click()

Dim x As Integer, n As Integer 分析 x = 0: n = 0 n Do While x<50 0 x = (x+1)*(x+2) 1 n = n+1 2 Loop 3 Print “x=”; x, “n=”; n End Sub

2.执行下列程序后，输出的结果是 s=2468 。 Private Sub Form_Click()

分析 Dim a , s As Integer

i Dim i As Integer ,j As Integer

a = Array(2,4,6,8)

3 j = 1 : s = 0

2 For i = 3 To 0 Step -1

1 s = s + a(i)*j

0 j = j*10

x 0 2 12 182 j 1 10 100 1000 10000 a(i) a(3)=8 a(2)=6 a(1)=4 a(0)=2 s 0 8 68 468 2468 VB 程序设计2

Next i

Print “s =” ; s End Sub

3. 执行下列程序后，输出的结果是 5 。 Private Sub Form_Click() Dim M(10) As Integer

分析 Dim k As Integer , x As Integer

M(k) For k = 1 To 10 ’给数组M赋值 k 1 M(1)=10 M(k) = 11 – k

2 M(2) = 9 Next k

x = 8

10 M(10)=1 Print M(3 + M(x))

M(3+M(8)) = M(3+3)=5 End Sub

4. 执行下列程序后，输出的结果是 s=64 。 Private Sub Form_Click()

Dim a(1 To 10) As Integer , b(4) As Integer Dim i As Integer, s As Integer s = 4

For i = 1 To 10 ’给数组10个元素赋值 a(i) = i Next i

For i= 1 To 4

b(i) = a(i + i) ’给b数组4个元素赋值 Next i For i = 1 to 4

s = s + b(i) * a(i) Next i

Print \End Sub

5.运行下列程序，单击命令按钮后的结果是___5___。m=8 n=10 m=32 n=10 Private Sub Command1_Click() Dim m As Integer, n As Integer m = 4: n = 10 Call proc(m, n)

Print \Call proc(m, n)

Print \End Sub

Private Sub proc(a As Integer, ByVal b As Integer)

Static c As Integer '定义c为静态变量

VB 程序设计2

c = c + 2 a = a * c b = b * c End Sub

四、编程题 (共20分)

1．编程计算以下分段函数的值，自变量x的值由InputBox函数输入。 （6分 ）

3x – 5 1≤ x ＜2

y = 2cosx + 1 2≤ x ＜4

2

x – 4x + 5 其他

Private Sub Form_Click()

x = Val(InputBox(\请输入x \If x < 2 And x >= 1 Then y = 3 * x - 5

ElseIf x < 4 And x >= 2 Then y = 2 * Cos(x) + 1 Else

y = x * x - 4 * x + 5 End If Print y End Sub

2.设计一个程序，找出100～900范围内所有能同时被7和8整除的自然数并在列表框List1中显示。（ 7分 ） 窗体上添加List1

Private Sub Form_Click() For i = 100 To 900

If i Mod 7 = 0 And i Mod 8 = 0 Then List1.AddItem i End If Next i End Sub

3.如下图所示，在文本框Text1中输入一个1900年以后的年份，判断并用消息框输出该年份所对应的生肖。已知1900年对应的生肖是鼠；12生肖的顺序是：鼠牛虎兔 龙蛇马羊 猴鸡狗猪。 （ 7分 ）

提示：用Array函数把12生肖字符存入一个数组中。将输入的年份与1900的差值与12求余，按余数读取组对应的元素，便可求得对应的生肖。 （ 7分 ）

VB 程序设计2

Private Sub Command1_Click() Dim a

a = Array(\鼠\牛\虎\兔\龙\蛇\马\羊\猴\鸡\狗\猪\ y = Val(Text1) If y >= 1900 Then

MsgBox \您是\出生的\您的生肖是:\ End If End Sub

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