当前位置：文档库 › 2012江苏省计算机二级VB题库含答案

2012江苏省计算机二级VB题库含答案

江苏省高等学校非计算机专业学生

计算机基础及应用能力等级考试试卷

二级Visual Basic全真模拟试卷一（本试卷包括计算机基础知识部分和程序设计部分，考试时间共120分钟）

说明：

1．本试卷满分为60分，分选择题和填空题，试卷不分A、B类型。

2．选择题用答题卡答题。每一项有A、B、C、D四个可供选择的答案，请选择其中一个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。每选对一项得1分，不选或选错不得分。

3．填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行,不得换行。每填对一个答案得1分，不填或填错不得分。

4．请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正确。

第一部分计算机基础知识

1．在下列关于信息系统的叙述中，错误的是 1 。

A．广播/电视是一种双向的、点到多点的信息交互系统

B．网络聊天是一种双向的、以信息交互为主要目的的系统

C．电话是一种双向的、点对点的、以信息交互为主要目的的系统

D．Internet是一种跨越全球的多功能信息系统

2．下面关于集成电路（IC）的叙述中正确的是 2 。

A．集成电路是20世纪60年代出现的

B．按用途可分为通用和专用两大类，微处理器和存储器芯片都属于专用集成电路

C．现代微电子技术已经用砷化镓取代了硅

D．集成电路的工作速度与组成逻辑门电路的晶体管尺寸有密切关系3．交换技术是指使用交换设备实现多对终端设备之间的互连，以满足多用户通信的需要，下面对于交换技术的说法中，正确的是 3 。

A．交换技术只有电路交换和分组交换两种类型

B．分组交换方式的线路利用率很低

C．电路交换采用存储转发方式传输数据

D．目前广域网中普遍采用的交换技术是分组交换

4．计算机中的数值信息分成整数和实数（浮点数）。实数之所以能表示很大或很小的数，是由于使用了4。

A．阶码B．反码C．补码D．BCD码5．下列存储器中，速度最快的是5。

A．内存B．寄存器B．外存D．高速缓存6．下列关于USB接口的叙述中，错误的是6。

A．利用“USB集线器”，一个USB接口能连接多个设备

B．USB的中文含义是通用串行总线

C．鼠标器这样的慢速设备不能使用USB接口

D．USB接口有两种规格，2.0版的数据传输速率要比1.1版快得多7．数码相机的镜头和快门与传统相机基本相同，不同之处是它不使用光敏卤化银胶片成像，而是将影像聚焦在成像芯片（7或CMOS）上，并由成像芯片转换成电信号，再经模数转换变成数字图像。

A．BIOS B．NBC C．CCD D．ABC 8．下列关于打印机的叙述，错误的是8。

A．喷墨打印机属于非击打式打印机，它的优点是能输出彩色图像、经济、低噪音、打印效果好等

B．目前激光打印机分为黑白和彩色两种

C．针式打印机属于击打式打印机，由于打印质量不高，噪音大，现已逐渐退出市场，但其独特的平推式进纸技术，在打印存折和票据方面具有不可替代的优势

D．打印精度也就是打印机的分辨率，它用CPS来表示

9．下面几种说法中正确的是9。

A．CD-RW为可多次读但只可写1次的光盘

B．CD-R和CD-ROM类似，都只能读不能写

C．CD盘记录数据的原理为：在盘上压制凹坑，凹坑边缘表“0”，凹坑和非凹坑的平坦部分表示“1”

D．DVD采用了更有效的纠错编码和信号调制方式，比CD可靠性更高10．面向电子出版的最流行的软件是10公司的Acrobat，它使用PDF格式将文字、字型、格式、颜色、图形、图像、超文本连接、声音和视频等信息都封装在一个文件中，不仅适合于网络和电子出版，也适合于印刷出版，实现了纸张印刷和网络出版的统一。

A．Microsoft B．Macromedia C．Adobe D．IBM 11．下列关于操作系统任务管理的说法，错误的是___11___。

A．Windows操作系统支持多任务处理

B．分时是指将CPU时间划分成时间片，轮流为多个程序服务

C．并行处理可以让多个处理器同时工作，提高计算机系统的效率

D．分时处理要求计算机必须配有多个CPU

12．下面有关PCI总线的叙述中，错误的是12。

A．PCI总线是一种I/O总线

B．PCI总线的速度比ISA总线快

C．PCI总线的宽度为32位，不能扩充到64位

D．PCI总线能与其他I/O总线共存于PC系统中

13．程序中的控制成分是提供一个基本框架，从而将数据和对数据的运算组合成程序。这个框架都可以用三种基本控制结构来描述，三种结构不包括13。

A．多分支结构B．顺序结构

C．重复结构D．选择结构

14．Internet的三项主要服务项目是英文缩写是14。

A．E-mail, FTP, WWW B．Web, LAN, HTML

C．ISP, HUB, BBS D．TCP/IP, FTP, PPP/SLIP 15．下面对于广域网接入技术说法中，错误的是___15___。

Ａ．电话拨号接入一定要“猫”才行

Ｂ．FTTx＋ETTH上网速度最快

Ｃ．目前ADSL 是接入因特网的主要方式之一

Ｄ．Cable MODEM上网不仅速度快而且数据传输速率稳定

16．16把相距遥远的许多局域网和计算机用户互相连接在一起，它的作用范围通常可以从几十公里到几千公里，甚至更大的范围，也称为远程网。

A．公司网B．W AN C．LAN D．小型网17．数据库管理系统提供给用户的接口是17。

A．宿主语言B．过程化语言

C．数据库语言D．面向对象语言

18．https://www.wendangku.net/doc/3a1109947.html, 是―江苏省高等学校计算机等级考试中心‖的网址。其中，― http ‖是指___18___。

A．超文本传输协议B．文件传输协议

C．计算机主机域名D．TCP/IP 协议

19．信息系统是多种多样的，从信息处理的深度进行划分，决策支持系统属于19。

A．业务信息处理系统B．信息检索系统

C．信息分析系统D．专家系统

20．下面对Microsfot Excel（97及以后版本）的说法中，错误的是20。

A．Excel的单元格中可以是文字、数字或公式等

B．当打开一个Excel工作簿时，只是包含有数据的工作表被打开

C．Excel工作表最多有65536行

D．Excel工作表可以保存为文本文件

第二部分Visual Basic程序设计

一、选择题（用答题卡答题，答案依次填在21～30答题号内）

21．x，y是整数型变量，z产生一个范围在[y，x]之间的随机整数的语句是21。

A．z=Int(Rnd*(y-x+1))+x B．z=Int(Rnd*y) + x

C．z=Int(Rnd*x)+y D．z=Int(Rnd*(y-x)) + x 22．默认Value属性的控件是22。

A．单选框B．文本框C．标签框D．列表框23．在图1中，要在窗体Form1上部有―程序示例‖字样，窗体属性应设置为23。

图1

A．https://www.wendangku.net/doc/3a1109947.html,="程序示例" B．Form1.Enabled ="程序示例"

C．Form1.Caption="程序示例" D．Form1.Show="程序示例"

24．设整型变量a、b的当前取值分别为200与20，以下赋值与句中不能正确执行的是24。

A. Text1 = a / b * a

B. Text1 = a * a / b

C. Text1 = "200" * a / b

D. Text1 = a & b & a

25．在数据文件中，Reset语句的功能是25。

A．重新设置文件的文件号B．关闭所有用Open语句打开的文件

C．更改将要打开文件的类型D．文件指针复位

26．运行下列程序：

Private Sub form_Click()

x = 8: y = 2

Call fun1((x), y)

Print x, y

End Sub

Private Sub fun1(x, y)

s = x

x = s / y

y = s Mod y

End Sub

单击窗体后，则在窗体上显示的结果是26。

A．4 2 B．8 2 C．80 D．2 4 27．运行下列程序：

Private Sub Form_Click()

Dim y As Integer, x As Integer

Do Until x > 20

x = x + 10

y = y + x

If x > 20 Then Exit Do

Loop

Print x, y

End Sub

单击窗体后，则在窗体上显示的结果是27。

A．1020 B．3060 C．1030 D．2060 28．运行下列程序：

Private Sub Form_Click()

For i = 1 To 20

If fun1(i) Then

s = s + 1

End If

Next i

Print s

End Sub

Private Function fun1(y) As Boolean

If y Mod 2 <> 0 Then

fun1 = False

Else

fun1 = True

End If

End Function

单击窗体后，则在窗体上显示的结果是28。

A．110 B．10 C．0 D．20 29．运行下列程序：

Private Sub Form_Click()

Dim a As Integer

a = 1

For i = 1 To 5

Call fun1(a)

Next i

Print a

End Sub

Private Sub fun1(x)

y = 2

x = x + y

Loop Until x > 10

End Sub

单击窗体后，则在窗体上显示的结果是29。

A．5 B．1234 5 C．19 D．7

30．运行下列程序：

Dim b

Private Sub Form_Click()

a = 1:

b = 1

Call fun1(a)

Print "X = "; a; ",Y = "; b

End Sub

Private Sub fun1(a)

b = 2 * a

a = 3 * b

End Sub

单击窗体后，则在窗体上显示的结果是30。

A．X = 1，Y = 1 B．X = 2，Y = 6

C．X = 6，Y = 2 D．X = 6，Y = 1

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分）

1．VB6.0的赋值语句为变量或属性赋值，为对象引用赋值必须使用（1）。

2．设Label控件的边框样式，可用的属性是（2）。

3．标签控件中，要更改文字对齐方式的属性项是（3）。

4．若要求从文本框中输入密码时在文本框中只显示―*‖号，则应当在此文本框的属性窗口中设置（4）属性值为―*‖。

5．运行下列程序：

Private Sub Form_Click()

Dim s1 As String, s2 As String

x1 = "1": x2 = "2"

x3 = "3": x4 = "4"

s1 = x1 + x3

s2 = x2 + x4

Debug.Print s1; Val(s2)

End Sub

单击窗体后，则在立即窗口上输出的结果是（5）。

6．下列程序运行时，单击Command1命令按钮，在窗体上打印的结果是（6）。

Private Sub Command1_Click()

Dim a As Integer, i As Integer, c As Integer

a = 1

c = 38

For i = 1 To 2

Select Case c \ 10

Case 0

c = a * 10 + c

Case 1 To 9

c = a * 100 + c

Case 10 To 99

c = a * 1000 + c

End Select

Next i

Print c

End Sub

7．下列程序运行时，单击Command1命令按钮，在窗体上打印的结果是（7）。

Private Sub Command1_Click()

Dim a As Integer, b As Integer, r As Integer

a = 45:

b = 18

Print fun1(a, b)

End Sub

Private Function fun1(x As Integer, y As Integer) As Integer

Dim r As Integer

r = x Mod y

Do While r <> 0

x = y: y = r

r = x Mod y

Loop

fun1 = y

End Function

8．下列程序运行时，单击Command1命令按钮，在窗体上打印结果的第一行、第二行和第三行分别是（8）、（9）和（10）。

Private Sub Command1_Click()

a = 2

b = 3

a = a + b

Print a

b = b + 1

If a >= 10 Then

Exit Do

End If

Loop While b <= 10

End Sub

9．执行下面的程序后，单击按钮 Command1后，在窗体上显示的结果为（11）。当把子函数中A语句和B语句的位置交换以后，则在窗体上显示的结果又为（12）。

Option Explicit

Dim t As Integer

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x = 1: y = 1

For t = 1 To 5

If t Mod 2 = 0 Then

y = fun(t, x) + x

Else

x = fun(t, y) + y

End If

Next t

Debug.Print t; x; y

End Sub

Private Function fun(n As Integer, m As Integer) As Integer

m = n - 1 + t ?A语句

n = m + n – t ?B语句

fun = m * n

End Function

10．下列程序的功能是：由系统产生10个10～99之间的无序数，在图片框Picture1中显示出来。对其去掉一个最大数和最小数，然后求其平均值，在文本框中Text1中显示出来。运行后如图2所示，给定的程序不完整，将程序补充完整。

Option Base 1

Private Sub Form_Click()

Dim i As Integer, Max As Integer, Min As Integer

Dim a(10) As Integer, sum As Integer

Randomize

For i = 1 To UBound(a)

a(i) =（13）

Picture1.Print a(i);

Next i

Max = a(1): Min = a(1): sum = a(1)

For i = 2 To UBound(a)

If Max < a(i) Then Max = a(i)

If Min > a(i) Then Min = a(i)

sum = sum + a(i)

Next i

sum = sum - Max - Min

Text1.Text = "去掉最大数和最小数后的平均值=" & （14）

End Sub

图2

11．下列程序的功能是：用对话框分别输入三个正整数后，在图片框Pic1中显示三个由大到小排序的数据。给定的程序不完整，将程序补充完整。

Private Sub Form_Click()

Dim a As Integer, b As Integer, c As Integer

a = InputBox("请输入一个正整数a")

b = InputBox("请输入一个正整数b")

c = InputBox("请输入一个正整数c")

If（15）Then

t = a

a = b

b = t

End If

If（16）Then

t = b

b = c

c = t

End If

If（17）Then

t = a

a = b

b = t

End If

Pic1.Print a; b; c

End Sub

12．在下列程序中，数组s为某门课程的分数，程序功能是统计各个分数段的人数，统计后结果如图3所示。给定的程序不完整，将程序补充完整。

图3

Option Base 1

Private Sub Command1_Click()

Dim age As Integer

Dim a(10) As Integer

Dim n, s

s = Array(75, 86, 63, 87, 94, 51, 72, 93, 82, 70, 45, 88)

For i = 1 To UBound(s)

a(s(i) \ 10) =（18）

Next i

For i = UBound(a) To 1 Step -1

List1.AddItem Str((i - 1) * 10) & "～" & Str(i * 10) & "分的人数为" & （19）

Next i

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

13．下列程序执行结束后，a(1，1)的值是（20），a(2，2)的值是（21），a(3，3)的值是（22）。

Option Base 1

Private Sub Form_Click()

Dim i As Integer, j As Integer

Dim a() As Integer, n As Integer

n = 3

ReDim a(n, n)

For i = 1 To n

For j = 1 To n

a(i, j) = i + j

Next j

Next i

Call Sub1(a, n)

End Sub

Private Sub Sub1(y() As Integer, n As Integer)

Dim i As Integer, j As Integer

Dim t As Integer

For i = 1 To n

For j = 1 To n

t = y(i, j)

y(i, j) = y(n + 1 - j, n + 1 - j)

y(n + 1 - j, n + 1 - j) = t

Next j

Next i

End Sub

14．下列程序的功能是，随机产生6×6个具有两位数的矩阵，并找出每行最大数，如图4所示。给定的程序不完整，将程序补充完整。

图4

Private Sub Command1_Click()

Dim a(6, 6) As Integer

Randomize

For i = 1 To 6

For j = 1 To 6

a(i, j) = Int(90 * Rnd) + 10

Next j

Next i

For i = 1 To 6

Max =（23）

pic1.Print Max;

For j = 2 To 6

pic1.Print a(i, j);

If Max < a(i, j) Then （24）

Next j

pic1.Print "|"; Max

Next i

End Sub

15．英国大数学家哈代(G.H.Hardy，1877～1947)曾经发现过一种有趣的现象：153=13+53+33371=33+73+13370=33+73+03407=43+03+73它们都是三位数且等于各位数字的三次幂之和，被称为3次幂回归数。下列程序是验证改现象的结果，如图5所示。给定的程序不完整，将程序补充完整。

图5

Option Base 1

Private Sub Command1_Click()

Dim b(3) As Integer

For i =（25）

Call fun1(b, i)

s = b(1) ^ 3 + b(2) ^ 3 + b(3) ^ 3

If s = i Then

Pic1.Print i; "="; b(1); "^3 + "; b(2); "^3 + "; b(3); "^3"

End If

Next i

End Sub

Public Sub fun1(b, （26）)

For i = 1 To 3

b(i) = 0

Next i

k = 1

b(k) = x Mod 10

x = x \ 10

（27）

Loop While x > 0

End Sub

16．下列程序的功能是：找出2～100之间所有的既是素数，又是降序数，并在列表框List1中输出，所谓降序数是指低位数字小于高位数字的数。例如31、41均是降序数，17不是降序数，程序执行后如图6所示。给定的程序不完整，将程序补充完整。

图6

Private Sub Form_Click()

Dim n As Long, m As Long, k As Integer

For n = 2 To 100

If fun1(n) = True Then

flg = 1

（28）

a = m Mod 10

Do While m <> 0

m = m \ 10

b = m Mod 10

If b < a And m <> 0 Then flg = 0: （29）

a = b

Loop

If flg = 1 Then List1.AddItem n

End If

Next n

End Sub

Private Function fun1(n As Long) As Boolean

Dim m As Integer

For m = 2 To Sqr(n)

If n Mod m = 0 Then Exit Function

Next m

（30）

End Function

二级Visual Basic全真模拟试卷一参考答案

一、选择题：

1．A2．D3．D4．A5．B6．C7．C8．D9．D10．C11．D12．C13．A14．A15．D16．B17．C18A19C20B 21．A22．A23．C24．B25．B26．C27．B28．B29．C30．C

二、填空题：

（1）Set语句（2）Borderstyle（3）Alignment（4）passwordchar（5）13 24（6）1138（7）9（8）5 （9）9 （10）14（11）8 7 56（12）10 170 17（13）Int(Rnd*90)+10（14）Str(sum/8)（15）a

（29）Exit Do（30）fun1=True

江苏省高等学校非计算机专业学生

计算机基础及应用能力等级考试试卷

二级Visual Basic全真模拟试卷二

（本试卷包括计算机基础知识部分和程序设计部分，考试时间共120分钟）

说明：

1．本试卷满分为60分，分选择题和填空题，试卷不分A、B类型。

3．填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行,不得换行。每填对一个答案得1分，不填或填错不得分。

4．请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正确。

第一部分计算机基础知识

1．数据通信中的数据传输速率是最重要的性能指标之一，它指单位时间传送的二进位数目，下面是一些计量单位

（1）Kb/s （2）MB/s （3）Mb/s （4）Gb/s

其中常用的是1。

A．（1）B．（2）和（4）

C．（1）、（2）、（3）和（4）D．（1）、（3）和（4）2．下面有关于微电子技术的说法，错误的是2。

A．集成电路将永远遵循Moore定律

B．IC卡是“集成电路卡”的缩写

C．现代PC机所使用的电子元件都是超大规模和极大规模集成电路

D．现代集成电路使用的半导体材料通常是硅（Si）

3．下列关于PC机主板的叙述中，错误的是3。

A．CPU和RAM存储器均通过相应的插座安装在主板上

B．芯片组是主板的重要组成部分，所有控制功能几乎都集成在芯片组内

C．软盘驱动器也安装在主板上

D．为便于安装，主板的物理尺寸已标准化

4．已知X的补码为10011000，其原码为4。

A．11101000 B．11100111 C．10011000 D．11100110 5．5是一种新型的非易失性存储器，但又像RAM一样能快速方便地写入信息。

A．DRAM B．FlashRAM C．SRAM D．CACHE 6．下列4项中，错误的IP地址是6。

A．202.22.201.10 B．60.268.24.128 C．123.45.67.09

D．111.57.0.49

7．一幅1280×1024的24位真彩色图像，如果未经压缩，则它的数据量为7。

A．3.75MB B．768KB C．24KB D．1.44MB 8．目前许多外部设备（如打印机、数码相机、扫描仪等）采用了USB接口。下面关于

USB的叙述中，错误的是8。

A．USB接口有两种规格，2.0版的数据传输速度要比1.1版快得多

B．主机不能通过USB连接器引脚向外设供电

C．利用“USB集线器”，一个USB接口能连接多个设备

D．USB属于一种串行接口

9．下列说法中，错误的是9。

A．硬盘安装在机箱内，属于主机的组成部分

B．硬盘驱动器和盘片是密封在一起的，不能随意更换盘片的

C．硬盘是多张盘片组成的盘片组

D．硬盘的技术指标除容量外，另一个是转速

10．下列属于应用软件的是10。

①Word ②Windows XP ③Linux

④Visual Basic ⑤MSN Messenger 7.5 ⑥图书管理系统

A．①③④⑤B．①④⑤⑥

C．①⑤⑥D．①⑥

11．在下列有关Ｗindows98／2000／XP操作系统的叙述中，错误的是11。

A．它们都支持即插即用（ＰnＰ）功能

B．它们都支持支持FAT32文件系统

C．优盘中被删除的文件可从―回收站‖中回复出来

D．它们都是32位操作系统

12．下列各条中，对计算机操作系统的作用完整描述的是12。

A．它是用户与计算机的界面

B．它对用户存储的文件进行管理，方便用户

C．它管理计算机系统的全部软、硬件资源，合理组织计算机的工作流程，以达到充分发挥计算机资源的效率，为用户提供使用计算机的友好界面

D．它执行用户键入的各类命令

13．比较算法和程序，以下说法中正确的是13。

A．程序中的指令和算法中的运算语句都必须用高级语言表示

B．算法和程序都必须满足有穷性

C．算法可采用“伪代码”或流程图等方式来描述

D．算法就是程序

14．14由两部分组成，第一部分指出客户端希望得到主机提供的哪一种服务，第二部分是主机名和网页在主机上的位置。

A．HTTP B．TELNET C．URL D．WWW 15．在数据库系统中，最常用的一种基本数据模型是关系数据模型。在这种模型中，表示实体集及实体集之间联系的结构是15。

A．网络B．图C．二维表D．树16．发送邮件时，邮件传送程序必须与远程的邮件服务器建立TCP连接，并按照16协议传输邮件。如果接受方邮箱在服务器上确实存在，才进行邮件的发送，以确保邮件不会丢失。

A．POP3 B．TCP C．SMTP D．IP 17．在中文Windows 98/2000/XP环境下，设有一段文本，该文本中有4个汉字和2个西文字符，则这段文字的内码，最有可能是17。

A．CB F5 D0 B4 50B．9B 95 90 94 50 43 8A 87 D6 B8

C．CB 45 D0 B4 50 43 CA C7 46 B8 D．CB F5 D0 B4 50 43 CA C7 D6 B8 18．在下列有关声卡的描述中，错误的是18。

A ．声卡的主要功能是控制波形声音和MIDI 声音的输入输出

B ．波形声音的质量与量化位数、采样频率有关

C ．声卡中数字信号处理器在完成数字声音的解码及编辑操作中起着重要作用

D ．声卡所要求的数据率不高，用ISA 总线进行传输 19．信息分析系统是一种高层次的信息系统，为管理决策人员掌握企事业单位运行规律和趋势、制订规划、进行决策的辅助系统，可分为 19 和经理支持系统。

A ．信息处理系统

B ．决策支持系统

C ．学生信息系统

D ．图书管理系统

20．在使用Excel 97/2000/2003处理数据时，下列叙述中不正确的是 20 。

A ．在Excel 中提供了许多内置函数, 函数范围包括数据库、数学和三角函数、查

询与引用函数等

B ．在默认情况下，每一个工作簿文件会打开3个工作表文件，分别以Sheet1、Sheet2、

Sheet3来命名

C ．每个工作表中的行和列数量是没有限制的

D ．在Excel 中，输入公式前要先输入一个等号“＝”才行

第二部分 Visual Basic 程序设计

一、选择题（用答题卡答题，答案依次填在21～30答题号内）

21．代数式

)ln(1a d

c b a +++

对应的Visual Basic6.0表达式是 21 。 A ．sqr((1+(s+t)/(x+y))/log(s)) B ．(1+(s+t)/(x+y))/log(s)/2 C ．sqr((1+(s+t)/(x+y))/ln(s)) D ．sqr((1+s+t/x+y)/log(s))

22．设变量D 为Date 型、A 为Integer 型、S 为String 型、L 为Long 型，下面赋值语句中不能执行的是 22 。

A ．D=#11:30:00 PM#

B ．A= "182" * 182

C ．S=Date

D ．L="5487D4"

23．在窗体上有一个框架框(名称为Frame1)，一个计时器(名称为Timerl)，计时器的时间间隔属性Interval=100，在图片框中有一个复选按钮(名称为Check1)和一个命令按钮(名称为Command1)，用户界面如图1所示。

图1

其中，计时器有Timer1_Timer 事件过程如下：

Private Sub Timer1_Timer()

If Frame1.Left >= Form1.Width Then Frame1.Left = 0 Frame1.Move Frame1.Left + 50 End Sub

运行后，窗体中的现象是 23 。

A ．仅框架框移动

B ．框架框携带复选按钮和命令按钮同时移动

C．框架框携带复选按钮同时移动

D．框架框携带命令按钮同时移动

24．Loc函数作用是，返回一个24。

A．Long型数据，在已打开的文件中指定当前读／写位置

B．Long型数据，计算其文件长度

C．Integer型数据，表示文件号的范围

D．Long型数据，表示用Open语句打开的文件的大小

25．文件操作的一般顺序是25。

A．操作→关闭文件

B．打开文件→操作→关闭文件

C．打开文件→操作

D．打开文件→关闭文件→操作

26．运行下列程序：

Private Sub Form_Click()

For i = 0 To 2

Print Tab(4 - i); String(i * 2 + 1, "A")

Next i

End Sub

单击窗体后，则在窗体上显示的结果是26。

A．AAA B．AAA

AAA AAA

C． A D．AAA

AAA AAA

AAAAA AAA

27．运行下列程序：

Private Sub form_Click()

x = InputBox("请输入一个数：")

Select Case x

Case Is > 0: y = x + 1: x = y + 1

Case Is = 0: y = x + 2: x = y + 2

Case Else: y = x + 3: x = y + 3

End Select

Print x; y

End Sub

从键盘输入1，输出的结果是27。

A．3 2 B．2 3 C．2 2 D．1 4 28．在当前窗体有一个文本框Text1，在D盘的根目录存在数据文件data.txt，数据文件的内容是

abc 10 20 30

efg 40 50 60

若运行程序，要在文本框中显示的内容是28。

Private Sub Form_Click()

Open "d:\data.txt" For Input As #10

Do Until EOF(10)

Line Input #10, lines

Text1.Text = Text1.Text + Mid(lines, 5, 2)

Loop

Close #10

End Sub

A．abc B．1040 C．efg D．10 20 29．运行下列程序：

Private Sub form_Click()

Dim x

x = 0

Do While x < 10

x = x + 3

Loop

MsgBox x

End Sub

单击窗体后，则在窗体上显示的结果是29。

A．0 B．3 C．10 D．12 30．运行下列程序：

Private Sub form_Click()

s = InputBox("请输入一个字符A：")

Select Case Asc(s)

Case Is > 65

n = String(3, UCase(s))

Case Is = 65

n = String(3, LCase(s))

Case Else

n = s

End Select

Print n

End Sub

从键盘输入A，输出的结果是30。

A．aaa B．AAA C．65 D．a

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分）

1．由Visual Basic系统中，引发事件的对象叫做（1）。

2．在VB6.0中，CInt(-3.4)的函数值是（2）。

3．Stretch的属性只使用于（3）控件。

4．在用Open语句打开文件时，设定为二进制访问模式是（4）。

5．指示复选框处于选定、未选定或禁止状态(暗淡的)中的属性是（5）。

6．下列程序运行时，单击鼠标的右键时，窗体上打印出的数值是（6）。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Cls

Print Button

End Sub

7．下列程序运行后，输出的图形是一个（7）。

Private Sub Form_Click()

Dim Cx, Cy

Cx = ScaleWidth / 2

Cy = ScaleHeight / 2

Line (Cx, 0)-(Cx, ScaleHeight)

Line (0, Cy)-(ScaleWidth, Cy)

End Sub

8．运行下列程序,单击Command1命令按钮后，则在窗体上显示第一行和第二行的结果分别是（8）和（9）。

Private Sub Command1_Click()

t = 1: x = 2: y = 3: z = 4

If t > 0 Or t = x And x <> y Or y > z Then

t = fun1(t, z)

Print t

Else

t = fun1(x, y)

Print t

End If

Print x

Print y

End Sub

Function fun1(ByVal x As Integer, ByVal y As Integer) As Integer

Do While y <> 0

t = x \ y

x = y

y = t

Loop

fun1 = x

End Function

9．当下列程序运行，单击窗体后，分别输入72和24，信息框上显示的结果是（10）。

Private Sub Form_Click()

Dim x As Integer, y As Integer

x = Val(InputBox("输入整数72"))

y = Val(InputBox("输入整数24"))

z = fun1(x, y)

MsgBox Str(z)

End Sub

Private Function fun1(ByVal a As Integer, ByVal b As Integer) As Integer

r = a Mod b

a = b

b = r

Loop Until r = 0

fun1 = a

End Function

10．运行下列程序，单击窗体后，则在窗体上显示第一行和第二行的结果分别是（11）和（12）。

Private Sub Form_Click()

x = 3: y = 7: z = 2: t = 5

y = y + x

x = x + y

Call sub1(x, y, z, t)

Print x; z; t

Loop While x < 54

End Sub

Private Sub sub1(x, y, z, ByVal w)

z = x

y = z

w = x + y + z

x = w

End Sub

11．下列程序运行后，在窗口显示结果的第二行和第三行分别是（13）和（14）。

Option Base 1

Private Sub Command1_Click()

Dim a

a = Array(1, 2, 3, 4, 5)

Call sub1(a, 3)

For i = 1 To 5

Print a(i)

Next i

End Sub

Public Sub sub1(x, n)

If n > 1 Then

t = x(1)

x(1) = x(n - 1)

x(n - 1) = t

Call sub1(x, n - 1)

End If

End Sub

12．下列程序的窗口上有一个列表框List1，程序运行单击窗体后列表框最后一行的值为（15），List1.ListCount的值为（16）。

Option Base 1

Private Sub form_Click()

For i = 1 To 10

List1.AddItem i

Next i

Sum = 0

For i = 0 To List1.ListCount - 1

Sum = Sum + List1.List(i)

Next i

List1.AddItem Sum

End Sub

13．下列程序运行后，在对话框内输入4后，结果如图2所示。给定的程序不完整，将程序补充完整。

图2

Private Sub form_Click()

Dim s()

t = Val(InputBox("请输入整数4"))

k = 2 * t

（17）

For i = 0 To 2 * t Select Case i

Case Is = 0, 2 * t

s(i) = String(2 * t, " ") + （18） Case Is < t

s(i) = String(k, " ") & "*" & String(2 * i - 1, " ") & "*" Case Else

s(i) = String(i, " ") & "*" & String(2 * k - 1, " ") & "*" End Select （19） Next i

For i = 0 To 2 * t Print s(i) Next i End Sub

14．有下列程序，利用下列公式，即级数求和的方法，求cos(x)值。

+-+-=!6!4!21)cos(6

42x x x x 计算精度为1×10－6

。程序运行后的结果如图3所示。给定的程序不完整，将程序补充完整。

图3

Option Base 1

Private Sub Command1_Click()

Dim x As Single, n As Long, sum As Single x = Val(Text1.Text) sum = 1 k = -1 n = 2

（20） Do

s = s * x * x t = s / fun1(n) sum = sum + k * t n = n + 2

k = （21） Loop Until t < 0.000001 Text2.Text = sum End Sub

Private Function fun1(n As Long) As Long Dim i As Long

If n = 0 Or n = 1 Then （22）

Else

fun1 = n * fun1(n - 1)

End If

End Function

15．将1～20的自然数围成一圈，使其相邻的两数之和均为素数。程序中数组a存放1～20中的奇数，数组b存放1～20中的偶数，c数组存放最后结果(即有上述性质的圈)。程序实现将1(奇数)放入c，从b中选一偶数放入c，使该两数之和为素数，然后再从a中选一奇数放入c，使相邻两数之和为素数，重复此过程直至c中放到20个为止。程序运行后的结果如图4所示。给定的程序不完整，将程序补充完整。

图4

Option Base 1

Private Sub Command1_Click()

Dim a(10) As Integer, b(10) As Integer, c(21) As Integer

Dim i, j, k, m, n

For i = 1 To 10

a(i) = 2 * i - 1

b(i) = 2 * i

Next i

c(1) = a(1)

m = c(1)

a(1) = 0

（23）

Do While k <= 20

If m Mod 2 <> 0 Then

n = fun1(b, m)

Else

n = fun1(a, m)

End If

If n > 0 Then

（24）

k = k + 1

m = n

Else

Print "fail"

End If

（25）

If fun2(c(1) + n) Then

t = 0

For i = 1 To 20

pic1.Print c(i);

t = t + 1

If t Mod 10 = 0 Then pic1.Print

Next i

End If

End Sub

全国计算机等级考试二级VB笔试试题及答案

2009年9月全国计算机等级考试二级VB笔试试题及答案一、选择题（每小题2分，共70分）一、选择题 1．下列数据结构中，属于非线性结构的是（）。 A. 循环队列 B.带链队列 C.二叉树 D.带链栈答案C Array解析树均是非线性结构 2. 下列数据结构中,能够按照”先进后出”原则存取数据的是（）。 A. 循环队列 B.栈 C.队列 D.二叉树答案B 解析:栈是先进后出或后进先出的线性表 3. 对于循环队列,下列叙述中正确的是（）。 A.队头指针是固定不变的 B.队头指针一定大于队尾指针 C.队头指针一定小于队尾指针 D.队头指针可以大于队尾指针，也可以小于队尾指针答案D 解析:如果队头指针大于队尾指针说明队列已经循环存放数据了,如果队头指针小于队尾指针说明没有进行循环存放 4. 算法的空间复杂度是指（）。 A.算法在执行过程中所需要的计算机存储空间 B.算法所处理的数据量

C.算法程序中的语句或指令条数 D.算法在执行过程中所需要的临时工作单元数答案A 解析:算法的空间复杂度是指执行算法所需要的内存空间,包括算法程序所占空间,输入的初始数据所占空间和执行过程中所需要的额外空间. 5. 软件设计中划分模块的一个准则是（）。 A. 低内聚低耦合 B. 高内聚低耦合 C. 低内聚高耦合 D. 高内聚高耦合答案B 解析:模块内部各元素之间的联系要紧密,高内聚,模块间的连接的紧密程度要低,低耦合,这样可以提高模块的独立性. 6.下列选项中不属于结构化程序设计原则的是（）。 A.可封装 B.自顶向下 C.模块化 D.逐步求精答案A 7.软件详细设计产生的图如下该图是( ). A.N-S图 B. PAD图 C. 程序流程图 D.E-R图答案C 8.数据库管理系统是（）。

江苏省计算机二级VB考试真题及参考答案

2007年秋季vb考试真题 1．下面关于比特的叙述中，错误的是( 1 ) A．比特是组成数字信息的最小单位 B．比特只有“0”和“1”两个符号 C．比特既可以表示数值和文字，也可以表示图像和声音 D. 比特”1”总是大于比特“0” 2．在下列有关集成电路的叙述中，错误的是( 2 ) A．现代集成电路使用的半导体材料主要是硅 B．大觑模集成电路一般以功能部件、子系统为集成对象 C．我国第2代居民身份证中包含有IC芯片 D? 目前超大规模集成电路中晶体管的基本线条已小到l纳米左右 3．在下列有关通信技术的叙述中，错误的是( 3 ) A.通信的基本任务是传递信息，因而至少需由信源、信宿和信道组成 B.通信可分为模拟通信和数字通信，计算机网络属于模拟通信 C.在通信系统中，采用多路复用技术的目的主要是提高传输线路的利用率 D?学校的计算机机房一般采用5类无屏蔽双绞线作为局域网的传输介质 4.下面是关于PC机主存储器的一些叙述，其中正确的是( 4 ) A.主存储器是一种动态随机存取存储器(RAM) B.主存储器的基本编址单位是字(即32个二进位) C.目前市场上销售的PC机，其内存容量可达数十GB D.所有PC机的内存条都是通用的：可以互换 5．现行PC机中，IDE(或SATA)接口标准主要用于( 5 ) A．打印机与主机的连接C．声卡与主机的连接 B．显示器与主机的连接D．硬盘与主机的连接 6. 下列有关PC机的CPU、内存和主板的叙述中，正确的是( 6 ) 。 A．大多数Pc机只存一块CPu芯片，即使是“双核”CPU也是一块芯片 B．所有Pentium系列微机的内存条相同，仅有速度和容量大小之分 C．主板上芯片组的作用是提供存储器控制功能，I/O控制与芯片组无关 D．主板上CMOS芯片用于存储CMOS设置程序和一些软硬件设置信息 7.下列有关目前Pc机辅助存储器的叙述中，错误的是( 7 ) A．硬盘的容量越来越大，这是因为硬盘中磁盘碟片的数目越来越多 B．硬盘的内部传输速率一般小于外部传输速率 c．优盘采用Flash存储器技术，属于半导体存储器 D．目前常见COMBO光驱是一种将CD-RW和DVD-ROM组合在一起的光驱 8.下面有关Windows操作系统，(95以后版本)的叙述中，错误的是( 8 ) 。A．Windows操作系统支持系统中多个任务的并发执行 B．利用Whldows附件“系统工具”中的“系统信息”可以查看内存的工作情况 C．系统规定文件名最多由128个字符组成 D．Vista是Microsoft公司推出的Windows XP操作系统的后继版本 9.算法设计是编写程序的基础。下列关于算法的叙述中，正确的是( 9 ) 。 A．算法必须产生正确的结果C．算法可以没有输出 B．算法必须具有确定性D．算法的表示必须使计算机能理解 10．因特网使用TCP／IP协议实现全球范围的计算机网络互连，连接在因特网上的每一台主机

计算机二级VB考试题及答案

计算机二级VB考试题及答案为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是搜索的计算机二级VB考试题及答案，供参考练习，预祝考生们考出自己理想的成绩! 1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click( ) n = Val(Text1.Text) If n2 = n/2 Then f = f1(n) Else f = f2(n) End If

Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)

A.72 36 B.108 36 C.72 6 D.27 3 2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) c = "1234" For i = 1 To 4 c1 = Trim(Str( )) Print c1

Next i End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 12 123 1234 则在下划线处应填入的内容为(B)(单) A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i)

2016年计算机二级《VB》基础练习题及答案(2)

2016年计算机二级《VB》基础练习题及答案(2) 1[简答题]在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求： ①Text2可以显示多行文本，并且有垂直和水平两个滚动条; ②程序运行时在Textl中显示输入的字符为“*”。程序运行后的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。参考解析：【考点分析】本题考点有：窗体的Caption属性，文本框的Name、Width、Hei【ght、PasswordChar、Text、MuhiLine、ScrollBars属性。【解题思路】文本框控件的MuhiLine属性用于设置文本框是否显示多行文本，值为Tr ue表示是，值为False则表示否。ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、l、2和3这4个值，0表示没有滚动条(默认值)，1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条。文本框的PasswordChar属性常用于设置用某字符(如“*”)屏蔽用户在文本框中键入的内容，常用于口令输入。【操作步骤】步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3.8和表3.9。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。【易错提示】由于ScrollBars属性的设置值较多，易混乱，请考生牢记4个值分别设置的文本框滚动条属性。 2[单选题]在下列模式中，能够给出数据库物理存储结构与物理存取方法的是()。 A.外模式 B.内模式 C.概念模式 D.逻辑模式参考答案：B 参考解析：数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部数据描述。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，所以选择B。 3[单选题]以下关系表达式中，其值为True的是()。 A.1f.XYZ”>”XYz” B.”VisualBasic”<>”visualbasic” C.P the-.=’’there·t D.”Integer”<”Int” 参考答案：B 参考解析：用关系运算符比较两个操作敷时，如果两个操作数是字符型的，按字符的A SCIl码从左到右一一比较，即先比较第1个，若相同再比较第2个，依次比较，直到比较

(完整word版)计算机二级VB编程题目含答案

Private Sub Command1_Click() Dim n As Integer, i As Integer, s As Double n = Val(Text1.Text) s = 0 For i = 1 To n s = s + i ^ 2 Next i Text2.Text = s End Sub Private Sub Command1_Click() ''' 不得删除本行注释 Dim i As Integer Open App.Path & "\" & "yssj.txt" For Input As #1 For i = 1 To 10 Input #1, a(i) Next i Close #1 End Sub Private Sub Command2_Click() ''' 不得删除本行注释 Dim i As Integer Text1.Text = "" For i = 1 To 10 If a(i) Mod 3 = 2 Then Text1.Text = Text1.Text & Str(a(i)) End If Next i End Sub

Private Sub command1_Click() '''不得删除本行注释 Dim a As Integer, b As Double, i As Integer, n As Integer n = Val(Text1.Text) a = 0 b = 0 For i = 1 To n a = a + i b = b + a Next i Text2.Text = b End Sub Private Sub Command1_Click() '''不得删除本行注释 Dim i%, xh$, xm$ Open App.Path & "\" & "Xhxm.txt" For Output As #1 For i = 1 To 3 xh = InputBox("请输入学号") xm = InputBox("请输入姓名") Write #1, xh, xm Next i Close #1 End Sub Private Sub Command2_Click() '''不得删除本行注释 Dim s as string Open App.Path & "\" & "Xhxm.txt" For Input As #2 Do While Not EOF(2) Line Input #2, s Text1.Text = Text1.Text & s & vbCrLf Loop Close #2 End Sub

计算机二级VB考试试题

站长提醒广大考生：下面的138道题目，在二级考试中命中率极高。一、选择题 (1) 下面叙述正确的是(C) A. 算法的执行效率与数据的存储结构无关 B. 算法的空间复杂度是指算法程序中指令（或语句）的条数 C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止 D. 以上三种描述都不对 (2) 以下数据结构中不属于线性数据结构的是(C) A. 队列 B. 线性表 C. 二叉树 D. 栈 (3) 在一棵二叉树上第5层的结点数最多是(B) 注：由公式2k-1得 A. 8 B. 16 C. 32 D. 15 (4) 下面描述中，符合结构化程序设计风格的是(A) A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑 B. 模块只有一个入口，可以有多个出口 C. 注重提高程序的执行效率 D. 不使用goto语句 (5) 下面概念中，不属于面向对象方法的是(D) 注：P55-58 A. 对象 B. 继承 C. 类 D. 过程调用 (6) 在结构化方法中，用数据流程图（DFD）作为描述工具的软件开发阶段是(B) A. 可行性分析 B. 需求分析 C. 详细设计 D. 程序编码 (7) 在软件开发中，下面任务不属于设计阶段的是(D) A. 数据结构设计 B. 给出系统模块结构 C. 定义模块算法 D. 定义需求并建立系统模型 (8) 数据库系统的核心是(B) A. 数据模型 B. 数据库管理系统 C. 软件工具 D. 数据库 (9) 下列叙述中正确的是(C) A.数据库是一个独立的系统，不需要操作系统的支持 B.数据库设计是指设计数据库管理系统 C.数据库技术的根本目标是要解决数据共享的问题 D.数据库系统中，数据的物理结构必须与逻辑结构一致 (10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) 注：P108

2017年计算机二级考试VB重点-VisualBasic的特点

2017年计算机二级考试VB重点:Visual Basic的特点一、Visual Basic的特点和版本 (一)Visual Basic 的特点 Visual Basic是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。总的来看，Visual Basic有以下主要特点： 1.可视化编程 2.面向对象的程序设计 3.结构化程序设计语言 4.事件驱动编程机制 5.访问数据库 6.动态数据交换(DDE) 7.对象的链接与嵌入(OLE) 8.动态链接库(DLL) 9.建立用户自己的ActiveX 控件 10.建立ActiveX 文档

11」nternet 组件下载 12.枚举类型 (二)Visual Basic 的版本 Visual Basic6.0包括3种版本，分别为学习版、专业版和企业版。 (1)学习版:Visual Basic的基础版本，可用来开发Windows应用程序。该版本包括所有的内部控件(标准控件)、网络(Grid)控件、Tab对象以及数据绑定控件。 (2)专业版:该版本为专业编程人员提供了一整套用于软件开发、功能完备的工具。它包括学习版的全部功能，同时包括ActiveX控件、In ternet 控件、Crystal Report Writer 和报表控件。 (3)企业版:可供专业编程人员开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能，同时具有自动化管理器、部件管理器、数据库管理工具、Microsoft Visual SourceSafe 面向工程版的控制系统等二、Visual Basic的启动与退出开机并进入中文Win dows 后，可以用多种方法启动Visual Basic。第一种方法：使用“开始”菜单中的“程序”命令。操作如下： (1)单击Windows 环境下的“开始”按钮，弹出一个菜单，把光标移到“程序”命令上，将弹出下一个级联菜单； (2)把光标移到“ Microsoft Visual Basic6.0 中文版”，弹出下一个级联菜单，即Visual Basic6.0程序组；

计算机二级考试《VB》模拟试题及答案

计算机二级考试《VB》模拟试题及答案 2016计算机二级考试《VB》模拟试题及答案一、基本操作题 (1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。运行后的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl.vbp，窗体文件名为sjtl.frm。 (2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。再画两个标题分别为“椭圆”和“圆”的命令按钮。如下图所示。要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjr2.vbp，窗体文件名为sjr2.frm。二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp。窗体Forml上有两个标题分别是“读数据”和“查找”的命令按钮。请画1个名称为Textl、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。程序功能如下。 ①在考生文件夹下的in.3.dat文件中存有100个正整数。单击“读数据”按钮，则将文件in3.dat中的数据读入数组a中。 ②单击“查找”按钮，则查找数组a中所有为7的倍数的数据，并将这些数据顺次显示在Textl文本框内(数据之间用空格隔开)。

“读数据”按钮的Click事件过程已经给出，请编写程序完成“查找”按钮的Click事件过程，实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须使用“查找”按钮完成查找过程，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后将程序按原文件名存盘。 (2)考生文件夹下有一个工程文件sit4.vbp。在窗体Forml上有两个名称为Commandl和Command2、标题分别为“重输”和“查找”的命令按钮。程序功能如下。单击“重输”按钮，则清空Textl中的`内容，等待用户输入由空格隔开的若干个英文单词;单击“查找”按钮，则找出Textl中最长的单词，并将其显示在Text2中。某一次的运行效果如图所示。请将“查找”按钮的Click事件过程中的注释符去掉，把?改为正确内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。三、综合应用题考生文件夹下有一个工程文件sjt.s.vbp。在窗体Forml上有两个标题分别是“产生数据”和“重新排列”的命令按钮，有两个标题为“原始数据”和“排列数据”的标签。程序功能如下。 ①单击“产生数据”按钮，则随机产生20个一位整数，存人数组a中，并同时显示在Textl中。 ②单击“重新排列”按钮，则重新排列数组a中的元素：使等值的元素相邻存放，并且保持它们在数组a中首次出现的相对次序;最后将排列结果显示在Text2中。某一次运行结果如图所示。请将“重新排列”按钮的Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。

全国计算机等级考试二级笔试试卷VB语言程序设计

2011年9月全国计算机等级考试二级笔试试卷VB语言程序设计一、选择题 1、下列叙述中正确的是 A、算法就是程序 B、设计算法时只需要考虑数据结构的设计 C、设计算法时只需要考虑结果的可靠性 D、以上三种说法都不对 2、下列关于线性链表的叙述中，正确的是 A、各数据结点存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致 B、各数据结点的存储顺序可以不一致，但它们的存储空间必须连续 C、进行插入与删除时，不需要移动表中的元素 D、以上三种说法都不对 3、下列关于二叉树的叙述中，正确的是 A、叶子结点总是比度为2的结点少一个 B、叶子结点总是比度为2的结点多一个 C、叶子结点数是度为2的结点数的两倍 D、度为2的结点数是度为1的结点数的两倍 4、软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。 A、学生成绩管理系统 B、C语言编译程序 C、UNIX操作系统D 5 该系统总体结构图的深度是 A、7 B、6 C、3 D、2 6、程序调试的任务是 A、设计测试用例 B、验证程序的正确性 C、发现程序中的错误 D、诊断和改正程序的错误 7、下列关于数据库设计的叙述中，正确的是 A、在需求分析阶段建立数据字典 B、在概念设计阶段建立数据字典 C、在逻辑设计阶段建立数据字典 D、在物理设计阶段建立数据字典 8、数据库系统的三级模式不包括 A、概念模式 B、内模式 C、外模式 D、数据模式 9、有三个关系R、S和T如下： R S 则由关系R和S得到关系T的操作是 A、自然连接 B、差 C、交 D、并 10、下列选项中属于面向对象设计方法主要特征的是 A、继承 B、自顶向下 C、模块化 D、逐步求精 11、以下描述中错误的是 A、窗体的标题通过其Caption属性设置

计算机等级考试二级VB模拟试题四及答案解析

计算机等级考试二级VB模拟试题四及答案解析一、选择题 (1)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private SubCommand1_Click() Move 500,500 End Sub 程序运行后，单击命令按钮，执行的操作为 A)命令按钮移动到距窗体左边界、上边界各500的位置 B)窗体移动到距屏幕左边界、上边界各500的位置 C)命令按钮向左、上方向各移动500 D)窗体向左、上方向各移动500 正确答案: B (2)在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是 A)TabStop B)Enabled C)Visible D)TabIndex 正确答案: D (3)以下定义数组或给数组元素赋值的语句中，正确的是 A)Dim a As Variant a=Array(1,2,3,4,5) B)Dima(10)As Integer a=Array(1,2,3,4,5) C)Dim a%(10) a(1)="ABCDE" D)Dim a(3),b(3)As Integer a(0)=0 a(1)=1 a(2)=2 b=a 正确答案: A (4)在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 A)For i=0 ToList1.ListCount-1 …… Next B)For i=0 To List1.Count-1 …… Next C)For i=1 To List.ListCount …… Next

D)For i=1 ToList1.Count

计算机二级考试题库：VB程序题

编写一个复制字符串的程序，如图x_17.jpg 所示。 * 界面要求： * 使用文本框、命令按钮完成。 * 运行要求： * 1、点击“清除”按钮，将所有的文本框内容清空； * 2、点击“复制”按钮，如上面文本框有选中的文本，则将选中的文本复制到下面文本框中， * 否则，将上面文本框所有内容复制到下面文本框中。 * （此题要求上载窗体文件，不要求填写程序运行结果）编写程序： * 使用冒泡法，对数组ia(1)=8,ia(2)=6,ia(3)=9,ia(4)=3,ia(5)=2,ia(6)=7 * 从小到大排序，并以紧凑格式在一行上输出。编写一个秒表程序，如图K_309.jpg 所示。 * 界面要求： * 使用一个标签、两个命令按钮、一个时钟控件完成。 * 运行要求： * 1、点击“开始计时”按钮，开始计时，标签中显示时间，时间精度是百分之一秒； * 2、点击“结束计时”按钮，停止计时。 * 3、未计时时，“开始计时”按钮可用，“结束计时”按钮不能用。 * 计时过程中，“开始计时”按钮不可用，“结束计时”按钮能用。 * （此题要求上载窗体文件，不要求填写程序运行结果）编写程序： * 利用随机函数产生20个10～99之间（包括10和99）的随机整数存入一维数组A，* 找出其中的最大值和最小值。编写程序： * 求出斐波那契数列前9项的和。 * 提示：前两项为：0，1，从第3项开始，每一项均为其前两项的和（即：0+1+1+2+3+5+...）。编写一个字母转换的程序，如图K_401.jpg 所示。 * 界面要求： * 使用文本框、命令按钮控件完成。 * 运行要求： * 在文本框1中输入任意字符串； * 点击“字母转换”按钮，将小写字母转换成大写字母，大写字母转换成小写字母，其余字母不变， * 并在文本框2中显示转换后的字符串。 * （此题要求上载窗体文件，不要求填写程序运行结果）编写程序：

zlegfa考试中心安徽省计算机二级VB笔试权威模拟试题及复习资料

-+ 懒惰是很奇怪的东西，它使你以为那是安逸，是休息，是福气；但实际上它所给你的是无聊，是倦怠，是消沉;它剥夺你对前途的希望，割断你和别人之间的友情，使你心胸日渐狭窄，对人生也越来越怀疑。 —罗兰全国高等学校（安徽考区）计算机水平考试试卷B （二级Visual Basic 语言）一、单项选择题（每题1分，共40分） 1．计算机硬件系统中最核心的部件是 C 。 A）内存储器B）输入/输出设备C）CPU D）硬盘 2．计算机最早的应用领域是 A 。 A）科学计算B）图形处理C）过程控制D）人工智能3．下列属于文字处理软件的是 B 。 A）Windows B）Word C）PowerPoint D）Excel 4．在计算机系统内部，所有数据都是采用 D 表示。 A）十六进制B）十进制C）八进制D）二进制 5．在Windows系统中，下面文件命名合法的是 B 。 A）A*.DOC B）AB.DOC C）A?.DOC D）A>.DOC 6．计算机可以播放DVD等音像制品, 主要运用的是 A 技术。 A）多媒体B）人工智能C）数据库D）数据挖掘7．将文件从FTP服务器传输到本地计算机的过程称为 D 。 A）上传B）浏览C）查找D）下载 8．下列IP地址中，错误的是 C 。 A）219.231.10.155 B）192.168.5.1 C）219.260.20.12 D）192.10.6.7 9．下列关于计算机病毒的叙述中，正确的是 C 。 A）加密文件不会感染计算机病毒 B）系统软件不会感染计算机病毒 C）有防火墙的计算机系统也会感染病毒 D）压缩的文件不会感染计算机病毒

2013计算机二级(VB)考试机试题库

2013年VB题库第01套简单应用题（1）在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有一个标签Label1，请添加一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1、2，标题依次为"飞机"、 "火车"、"汽车"，再添加一个名称为Text1的文本框。窗体文件中已经给出了Op1的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击"飞机"或"火车"单选按钮时，在Text1中显示"我坐飞机去"或"我坐火车去"，单击"汽车"单选按钮时，在Text1中显示"我开汽车去"，如图所示。注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 Private Sub Op1_Click(Index As Integer) Dim a As String, b As String, c As String a = "我坐" b = "我开" ' Select Case ? ***** Index ***** Case 0 Text1.Text = a + Me.Op1(0).Caption + "去" Case 1 ' Text1.Text = ? + Me.Op1(1).Caption + "去" ***** a ***** Case 2 Text1.Text = b + Me.Op1(2).Caption + "去" End Select End Sub （2）在考生文件夹下有一个工程文件sjt4.vbp，Form1窗体中有一个文本框，名称为Text1；请在窗体上添加两个框架控件，名称分别为F1、F2，标题分别为"性别"、"身份"；在F1中添加两个单选按钮控件Op1、Op2，标题分别为"男"、"女"；在F2中添加两个单选按钮控件Op3、Op4，标题分别为"学生"、"教师"；再添加一个命令按钮，名称为C1，标题为"确定"。如图所示。请编写适当的事件过程，使得在运行时，在F1、F2中各选一个单选按钮，然后单击"确定"按钮，就可以按照下表把结果显示在文本框中。性别身份在文本框中显示的内容男学生我是男学生男教师我是男教师女学生我是女学生女教师我是女教师最后把修改后的文件以原来的文件名存盘。注意：考生不得修改窗体文件中已经存在的程序和Text1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。 … ***** 请考生编写程序***** If op1 and op3 then Text1.Text=”我是男学生” If op1 and op4 then Text1.Text=”我是男教师” If op2 and op3 then Text1.Text=”我是女学生” If op2 and op4 then Text1.Text=”我是女教师” *****第01套综合应用题以下数列：1，1，2，3，5，8，13，21，…，的规律是从第3个数开始，每个数都是其前面两个数之和。在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图所示。

全国计算机等级考试二级VB语言笔试试题与答案

2005年9月全国计算机等级考试二级笔试试卷公共基础知识和Visual Basic 语言程序设计 (考试时间90 分钟，满分100 分) 一、选择题 (每小题 2 分,共 70 分 ) 下列各题A) 、 B) 、C)、 D) 四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1）下列叙述中正确的是 A ．程序设计就是编制程序 C．程序经调试改错后还应进行再测试C。 B．程序的测试必须由程序员自己去完成 D．程序经调试改错后不必进行再测试（2）下列数据结构中，能用二分法进行查找的是A ．顺序存储的有序线性表 B ．线性链表 A C．二叉链表。 D．有序线性链表（3）下列关于栈的描述正确的是C。 A．在栈中只能插入元素而不能删除元素 B．在栈中只能删除元素而不能插入元素 C．栈是特殊的线性表，只能在一端插入或删除元素 D．栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素（4）下列叙述中正确的是D。 A．一个逻辑数据结构只能有一种存储结构 B．数据的逻辑结构属于线性结构，存储结构属于非线性结构 C．一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率 D．一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率（5）下列描述中正确的是C。 A．软件工程只是解决软件项目的管理问题 B．软件工程主要解决软件产品的生产率问题 C．软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D．软件工程只是解决软件开发中的技术问题（6）在软件设计中，不属于过程设计工具的是D。 A ． PDL( 过程设计语言 ) B ．PAD 图C． N-S 图 D． DFD 图（7）下列叙述中正确的是A。 A ．软件交付使用后还需要进行维护B．软件一旦交付使用就不需要再进行维护C．软件交付使用后其生命周期就结束D．软件维护是指修复程序中被破坏的指令（8）数据库设计的根本目标是要解决A。 A ．数据共享问题B．数据安全问题C．大量数据存储问题 D ．简化数据维护

计算机等级考试(二级VB)模拟试题二

计算机等级考试（二级VB）模拟试题二第一部分计算机基础知识 1．是我国安全部开发的一种检测和消除计算机病毒的杀毒软件。 A．Kill B．Scan C．Vsafe D．WPS 2．用n位二进制来表示一个整数的补码，用最高位作为符号位，其整数的表示范围是. A．-2n-1～+2n-1-1 B．-2n-1+1～+2n-1 B．-2n-1～+2n-1D．-2n～+2n-1 3．下列四个数中最大的数是。 A．十进制数1789 B．十六进制数IFF C．二进制数10100001 D．八进制数227 4．存储器体系由不同类型的存储器组成多层结构，按存取速度从快到慢的是。 A．快存、辅助、主存、海量存储器B．光盘、主存、辅助、海量存储器 C．快存、主存、辅助、海量存储器D．DVD、主存、辅助、海量存储器 5．高级语言采用解释方式时的执行速度与采用编译方式时的执行速度相比，下列是正确的。 A．相等B．前者快C．前者慢D．不能确定 6．设汉字字库包括全角符号和一、二级汉字共8000个，进入汉字操作系统调用16x15点阵汉字库，且全部常驻内存中，则内存开销约为。 A．640KB B．1.47KB C．240KB D．70KB 7．下列软件中，不属于应用软件的是。 A．字表处理软件B．财务管理软件 C．股市分析软件D．高级语言编译程序 8．传送速率单位“bps”代表的意义是。 A．Bytes Per Second B. Bits Per Second C．Band Per Second D. Billion Per Second 9．软件需求分析一般应确定的是用户对软件的。 A. 功能需求 B. 非功能需求 C. 性能需求 D. 功能需求和非功能需求 10．计算机网络中的拓扑结构是一种。 A．实现异地通信方案B．理论概念 C．设备在物理上的连接形式D．传输信道的分配 11．E-mail地址中@后面的内容是指。 A．收信服务器名称B．寄信服务器名称 C．帐号D．密码 12．如果用户正在用到3个文件夹，每个文件夹至少含有4个文件，若想不移动文件，工作却更方便，应当。 A．在桌面上右击鼠标，为这些文件夹建立快捷键 B．把这些文件夹增加到快捷文件夹中去

江苏省计算机二级VB试题库

一．选择题 1．窗体上有多个控件，在Form_Activate()事件过程中添加____ B______语句，就可确保每次运行程序时，都将光标定位在文本框Text1上。 A．Text1．Text="" B．Text1．SetFocus C．Form1．SetFocus D．Text1．Visible=True 2．语句Print "5*20"输出的结果是______C___。 A．"5*20" B．出现错误信息 C．5*20 D．100 3．不能打开代码窗口的操作是______B__。 A．双击窗体设计器的任何地方 B．按下F4键 C．单击工程窗口中的“查看代码”按钮 D．选择“视图”下拉菜单中的“代码窗口” 4．在VB中可以作为容器的是______B__。 A．Form、TextBox、PictureBox B．Form、PictureBox、Frame C．Form、TextBox、Label D．PictureBox、TextBox、ListBox 5．能被对象所识别的动作与对象可执行的活动分别称为对象的___D_____。 A．方法、事件B．过程、方法 C．事件、属性D．事件、方法 6．计算下面的表达式，其值是_____B___。 CInt(4.5) * Fix(-3.81) + Int(4.1) * (5 Mod 3) A．-7 B．-4 C．-8 D．6 7．以下有关对象属性的说法中正确的是___D_____。 A．对象所有的属性都罗列在属性窗口列表中 B．不同对象不可能有同名属性 C．不同对象的同名属性取值一定相同 D．对象的某些属性既可在属性窗口中设置，也可通过程序代码设置或改变 8．要使定时器控件可以使用，需设置的属性是____B_____。 A.Interval B. Enabled C. Value D. Text 9．在某过程中已说明变量a为Integer类型、变量s为String类型，过程中的以下四组语句中，不能正常执行的是 ___D_____。 A．s=2*a+1 B．s="237" & ".11":a=s C．s=2*a>3 D．a=2:s=16400*a 10．在程序代码中，将图片文件“abc.jpg”装入图片框Picture1的语句是_____C___。 A．Picture1.Picture = "abc.jpg" B．Picture1.image = "abc.jpg " C．Picture1.Picture = LoadPicture("abc.jpg") D．LoadPicture("abc.jpg") 11．多窗体程序由多个窗体组成。在缺省情况下，VB在执行应用程序时，总是把_______B__指定为启动窗体。 A．不包含任何控件的窗体 B．设计时的第一个窗体

计算机二级考试VB一般程序设计习题

般程序设计习题 '〖第1题〗:(事件)单击窗体。 '(响应)求100以内偶数的和，并将结果输出在窗体上。 '将结果存入变量SUM中 '答案：DimiAsInteger Fori=ITolOO lfiMod2=0Then sum=sum+i EndIf Next Printsum '〖第2题〗:(事件)双击窗体。 '(响应)求s=1+1X 2+1 X 2X 3+…+1X 2 X 3X …X 10, '并将结果存到变量S中答案：DimijAsInteger DimkAsLong k=1 s=0 Fori=1To10 Forj=1Toi k=k*j Next s=s+k k=1 Next Print(CStr(s)) '〖第3题〗:(事件)单击窗体。 '(响应)求1+2+3+……+100的值，并把结果输出在窗体上。'结果存入变量SUM中o '答案：DimiAsInteger Fori=1To100 sum=sum+i Next Printsum '〖第4题〗：判断一个数是否是素数。 '答案：DimiAsInteger Prime=True Fori=2ToInt(Sqr(m)) lfmModi=0ThenPrime=False:ExitFor Nexti '〖第5题〗:(事件)单击窗体。 '(响应)求1-1/2+1/3-1/4+ ……+1/99-1/100 的值。 '将结果存入变量J中。 DimiAsInteger Fori=1To100 IfiMod2=1Then j=j+1/i ElseIfiMod2=0Then j=j-1/i EndIf Next Printj ”〖第6题〗:(事件)单击窗体。 '(响应)求200~300之间既能被3整除又能被7整除的数 '并求出所有数之和存入变量SUM中 '答案：DimiAsInteger Fori=2 0仃o300 If((iMod3)=0)And((iMod7)=0)Then Print(CStr(i)) sum=sum+i

计算机二级考试VB一般程序设计习题

一般程序设计习题 '〖第1题〗：(事件)单击窗体。 ' (响应)求100以内偶数的和，并将结果输出在窗体上。 ' 将结果存入变量SUM中 '答案：Dim i As Integer For i = 1 To 100 If i Mod 2 = 0 Then sum = sum + i End If Next Print sum '〖第2题〗：(事件)双击窗体。 ' (响应)求s=1+1×2+1×2×3+...+1×2×3× (10) ' 并将结果存到变量S中答案：Dim i, j As Integer Dim k As Long k = 1 s = 0 For i = 1 To 10 For j = 1 To i k = k * j Next s = s + k k = 1 Next Print (CStr(s)) '〖第3题〗：(事件)单击窗体。 ' (响应)求1+2+3+……+100的值，并把结果输出在窗体上。' 结果存入变量SUM中。 '答案：Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum '〖第4题〗：判断一个数是否是素数。 '答案：Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i '〖第5题〗：(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。 ' 将结果存入变量J中。 Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j ''〖第6题〗：(事件)单击窗体。 ' (响应)求200~300之间既能被3整除又能被7整除的数。' 并求出所有数之和存入变量SUM中 '答案：Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum '〖第7题〗：(事件)单击窗体。

2012江苏省计算机二级VB题库含答案

全国计算机等级考试二级VB笔试试题及答案

江苏省计算机二级VB考试真题及参考答案

计算机二级VB考试题及答案

2016年计算机二级《VB》基础练习题及答案(2)

(完整word版)计算机二级VB编程题目含答案

计算机二级VB考试试题

2017年计算机二级考试VB重点-VisualBasic的特点

计算机二级考试《VB》模拟试题及答案

最新[考试中心]安徽省计算机二级VB笔试权威模拟试题及答案2

全国计算机等级考试二级笔试试卷VB语言程序设计

计算机等级考试二级VB模拟试题四及答案解析

计算机二级考试题库：VB程序题

zlegfa考试中心安徽省计算机二级VB笔试权威模拟试题及复习资料

2013计算机二级(VB)考试机试题库

全国计算机等级考试二级VB语言笔试试题与答案

计算机等级考试(二级VB)模拟试题二

江苏省计算机二级VB试题库

计算机二级考试VB一般程序设计习题

计算机二级考试VB一般程序设计习题