2012年春江苏省VB二级笔试和上机真题及答案[1]

江苏2012计算机二级vb真题

第一部分计算机基础知识

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

Print

End Sub

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

A．AAA B．AAA

AAA 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

Do

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

Do

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

Public Function fun2(n) As Boolean

fun2 = True

For i = 2 To Sqr(n)

If n Mod i = 0 Then

（26）

Exit Function

End If

Next i

End Function

Public Function fun1(x, m) As Integer

n = 0

i = 10

Do While f * i > 0

If x(i) = 0 Then

i = i - 1

Else

n = x(i)

If fun2(m + n) Then

x(i) = 0

f = 0

Else

i = i - 1

End If

End If

Loop

If i > 0 Then fun1 = n Else fun1 = 0

End Function

16．本程序的功能是从给定的纯英文字符串（Text1中的内容）中找出最长的一个按字母顺序排列的子串，并在Text2中显示出来。程序界面参见图5。请完善下列程序。

图5

Option Explicit

Private Sub Command1_Click()

Dim st1 As String

st1 = Text1

Text2 = （27）

End Sub

Private Function max_s(st As String) As String

Dim i As Integer, sta As String, s1 As String, s2 As String

Dim tem As String

s1 = Mid(st, 1, 1)

For i = 2 To Len(st) - 1

s2 = （28）

If Asc(s2) - Asc(s1) = 1 Then

tem = tem & s1

Else

If Len(tem) > 1 And Len(tem) > Len(sta) Then

sta = tem

（29）

End If

End If

（30）

Next i

If Len(tem) > 1 And Len(tem) > Len(sta) Then

max_s = tem

Else

max_s = sta

End Function

参考答案

一、选择题：

1．D

2．A

3．C

4．D

5．B

6．B

7．A

8．B

9．A

10．C

11．C

12．C

13．C

14．C

15．C

16．C

17．D

18．D

19．B

20．C

21．A

22．B

23．B

24．A

25．B

26．C

27．A

28．B

29．D

30．A

二、填空题：（1）事件源（2）-3

（3）Image （4）Binary （5）Value

（6）2

（7）十字形图形（8）4

（9）2

（10）24

（11）39 13 5 （12）273 91 5 （13）1

（14）3

（15）55

（16）11

（17）ReDim s(k) （18）"*"

（19）k=k-1 （20）s=1 （21）(-1)*k （22）fun1=1 （23）k=2 （24）c(k)=n （25）Loop （26）fun2=False （27）max_s(st) （28）Mid(st,i,1) （29）tem="" （30）s1=s2

一、改错题（修改后程序如下）

Option Explicit

Private Sub Command1_Click()

Dim color(3) As Integer, n As Integer

Dim i As Integer, st As String

st = Text1

For i = 1 To 3

n = InStr(st, ",")

If n <> 0 Then

color(i) = Left(st, n - 1)

st = Right(st, Len(st) - n)

Else

color(i) = st

End If

Next i

For i = 1 To 3

List1.AddItem color(i) & "--" & d2h(color(i)) & "H"

Next i

End Sub

Private Function d2h(p As Integer) As String

Dim st As String, k As Integer

st = "ABCDEF"

Do

k = p Mod 16

If k >= 10 Then

d2h = Mid(st, k - 9, 1) & d2h

Else

d2h = CStr(k) & d2h

End If

p = p \ 16

Loop Until p <= 0 '修改

If Len(d2h) = 1 Then d2h = "0" & d2h

End Function

二、编程题

窗体如图

代码如下

Option Explicit

Option Base 1

Private Sub Command1_Click()

Dim a() As Integer, b() As Integer, i%, j%, st$, max% For i = Val(Text1) To Val(Text2)

ReDim Preserve b(i)

b(i) = yinzi(a(), i)

If b(i) > max Then

max = b(i)

End If

st = i & ":"

For j = 1 To UBound(a)

st = st & a(j) & ","

Next j

List1.AddItem Left(st, Len(st) - 1)

Next i

For i = Val(Text1) To Val(Text2)

If b(i) = max Then

Text3.Text = Text3.Text & i & ","

End If

Next i

End Sub

Private Function yinzi(a, n) As Integer Dim i%, count As Integer

For i = 1 To n - 1

If n Mod i = 0 Then

count = count + 1

ReDim Preserve a(count)

a(count) = i

End If

Next i

yinzi = count

End Function

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

List1.Clear

Text1.SetFocus

End Sub

VB期末考试试题及答案

二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value

7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。

全国计算机等级考试二级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上机综合测试题(十五套)

VB上机综合测试题（一） 一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分） 二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分） 三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）

答案： 一、 界面设计------10分 Private Sub Check1_Click() = ------5分 End Sub Private Sub Check2_Click() = 分 End Sub Private Sub Check3_Click() = ------5分 End Sub 二、 界面设计------10分 Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分 For i = 0 To 19------3分 a(i) = Int(Rnd * 1001) ------3分 sum = sum + a(i) ------3分 Next i ------2分 aver = sum / 20 ------3分 Print aver ------2分 End Sub 三、 界面设计------10分 Dim? n%------2分 Private Sub Form_Load() End Sub

VB考试题库,二级习题(含答案)

VB考试一 1、能够获得一个文本框中被选取文本的内容的属性是______。 A：SelStart B：SelLength C：SelText D：Text 参考答案：C 2、在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应当使用的语句为：______。 A：Text1.Enabled = False B：Text1.Hide C：Text1.Clear D：Text1.Visible = False 参考答案：D 3、对于语句If x=1 Then y=1, 下列说法正确的是____。 A：x=1和y=1 均为赋值语句 B：x=1和y=1 均为关系表达式 C：x=1为赋值语句，y=1为关系表达式 D：x=1为关系表达式，y=1 为赋值语句 参考答案：D 4、以下变量名中，______是不符合Visual Basic的命名规范的。 A：_mnu_Open_234 B：Abc901 C：price_ D：K 参考答案：A 5、MsgBox 函数返回值的类型是__________。 A：数值或字符串 B：字符串C：变体D：整型数值 参考答案：D 6、VB一共有设计、运行和中断三种模式，要使用调试工具应该______。 A：进入中断模式B：进入运行模式 C：进入设计模式D：不用进入任何模式 参考答案：A 7、设a=6，则执行 x=IIF(a>5,-1,0) 后，x的值为______。 A：-1 B：6 C：0 D：5 参考答案：A 8、可以同时删除字符前导和尾部空白的函数是______。 A：Mid B：Rtrim C：Trim D：Ltrim 参考答案：C 9、以下语句的输出结果是______。 Print Format$("32548.5","000,000.00")

江苏省计算机二级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上机考试模拟试题 一、程序调试题(改错或填空) （二）程序调试题 [题1] Modify.bas模块中的getanswer过程是用于计算一元二次方程的根，并将结果输出来。 Option Explicit Public Sub getanswer() '该过程是用于计算一元二次方程的根，并将结果输出来。 Dim dalt!, a#, b#, c# a = InputBox("输入系数a") b = InputBox("输入系数b") c = InputBox("输入系数c") dalt = b * b - 4 * a * c If ----1---- dalt >0 then dalt = Sqr(dalt) MsgBox Format((-b + dalt) / 2 / a), "0.00" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") Elseif ---2---- dalt =0 then MsgBox Format(-b / 2 / a, "0.00") + Chr(13) + Chr(10) + Format(-b / 2 / a, "0.00") Else dalt= ---3---- Sqr(-dalt) MsgBox Format((-b + dalt) / 2 / a, "0.00") + "+i" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") + "-i" End If End Sub [题2] 打印输出一菱形图案。 Public Sub prt() '打印由#组成的菱形图案 ' # ' ### ' ##### ' ####### ' ######### ' ####### ' ##### ' ### Dim start As String '每行起始空格数 Dim count As Integer '每行#个数 For i = 1 To 9 If i <= 5 Then '------1------ start=space(21-i) count = 2 * i - 1 Else start = Space(11 + i) '-------2------ count=19-2*i End If '------3------ form1.print start; For j = 1 To count Form1.Print "#"; Next j '------4------ form1.print Next i [题3] 过程pyramid用以打印一个数字金字塔，请在横线上填入必要的内容（将横线删除掉后填入正确的内容），使其完整。 Option Explicit Public Sub pyramid() '打印数字金字塔 ' 1 ' 222 ' 33333 ' 4444444 ' 555555555 ' 6666666 ' 77777 ' 888 ' 9 Dim i As Integer Dim j As Integer Dim start As String '每行起始空格数 Dim num As Integer '每行数字个数 For i = 1 To 9 If i <= 5 Then start = Space(20 - i) num = 2 * i - 1 Else start= '------1------ Space(10 + i) num= '------2------ 2 * (10-i) - 1 End If Form1.Print start; For j = 1 To num '------3------ form1.print trim(str(i)); Next j '------4------ form1.print Next i End Sub [题4] 改错。 Option Explicit Public Sub prt() '打印由数字组成的如下所示金字塔图案 ' 9 ' 888 ' 77777 ' 6666666 ' 555555555 ' 44444444444 ' 3333333333333 ' 222222222222222 ' 11111111111111111 Dim i As Integer, j As Integer '****** 错误1 ****** For i = 9 To 1 step -1 Form1.Print Space(i); '****** 错误2 ****** For j = 1 To 2 *(10- i) - 1 '****** 错误3 ****** Form1.Print trim(str(i)); Next j

VB练习题(上机)含答案

第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else

ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。

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

计算机二级VB考试题及答案计算机二级VB考试题及答案 计算机二级VB考试题及答案 1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： PrivateSubCommand1_Click() n=Val(Text1.Text) Ifn2=n/2Then f=f1(n) Else f=f2(n) EndIf Printf;n EndSub PublicFunctionf1(ByRefx) x=x*x f1=x+x EndFunction PublicFunctionf2(ByValx) x=x*x

f2=x+x+x EndFunction 程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单) A.7236 B.10836 C.726 D.273 2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： PrivateSubCommand1_Click() c="1234" Fori=1To4 c1=Trim(Str()) Printc1 Nexti EndSub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为(B)(单)

A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i) 3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： PrivateSubCommand1_Click() n=Val(Text1.Text) Fori=2Ton Forj=2Tosqr(i) IfiModj=0ThenExitFor Nextj Ifj>Sqr(i)ThenPrinti Nexti EndSub 该事件过程的功能是(C)(单) A.输出n以内的奇数 B.输出n以内的偶数 C.输出n以内的素数 D.输出n以内能被j整除的数 4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： PrivateFunctionf(mAsInteger)

计算机二级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

vb经典题目及答案

1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。

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

全国高等学校（安徽考区） 计算机水平考试试卷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）压缩的文件不会感染计算机病毒 10．计算机能直接运行的是 B 。 A）目标程序 B）机器语言程序C）汇编语言程序 D）高级语言程序 11．下列选项中是Visual Basic的合法变量名的是 C。 A）1_abc B）abc-1 C）abc_1 D）abc.1 12．对正整数X、Y，有下列表达式，不能判断X能被Y整除的是 C 。 A）X/Y=Int(X/Y) B）X Mod Y =0 C）X\Y=Fix(X/Y) D）X\Y=X/Y 13．下面可以正确定义2个整形变量和一个字符型变量的语句是 B 。 A）Dim x, y As Integer, n As String B) Dim x%, y As Integer, n As String C) Dim x%, y$, n As String D) Dim x As Integer, y, n As String 14．下面表达式中， A 的运算结果与其他三个不同。 A）Exp(-3.5) B）Int(-3.5)+0.5 C）-Abs(-3.5) D）Sgn(-3.5)-2.5 15．将任意一个正的两位整数N的个位数与十位数对换的表达式为 A 。 A）（N-Int(N/10)*10）*10+Int(N/10) B）N-Int(N)/10*10+Int(N)/10 C）Int(N/10)+(N-Int(N/10)) D）(N-Int(N/10))*10+Int(N/10) 16．执行语句s = Mid("VisualBasic",1,6)后，s的值是 A 。 A) Visual B) Basic C) 6 D) 11 17．表达式5 Mod 3+3\5*2的值是 B 。

VB上机考试习题以及答案

VB上机考试 1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。Dim a(1 To 5, 1 To 5) Private Sub Form_Click() Ran domize For i = 1 To 5 Forj = 1 To 5 a(i, j) = Int(Rnd * (999 - 100 + 1) + 100) Print a(i, j); Next j Print Next i End Sub 2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4 位四舍五入)。Private Sub Form_Click() For i = 1 To 25 a = In t(R nd * (99 - 10 + 1) + 10) Print a; s = s + a Next i Print Avg = s / 25 Print Avg End Sub 3、在窗体上按下鼠标的右键，记录其坐标。 Private Sub Form_Load() Label1.BorderStyle = 1 Label1.Alig nment = 2 End Sub Private Sub Form_MouseDow n(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle) If Butt on = 2 The n Label1.C apti on = X & "," & Y End If End Sub 4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1

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）压缩的文件不会感染计算机病毒

VB期末考试上机题编程答案

VB期末考试上机题编程答案 1.新建一个工程，编写一个找出所有四位荣幸数显示在列表框中，并将荣幸数的个数显示在文本框中。所谓荣幸数是指凡前两位数字之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“查找“按钮，则开始查找并在列表框中显示结果，并在文本框中显示荣幸数的个数； 3、单击“清除”按钮，则将列表框和文本框清空； 4、单击“退出”按钮，结束程序运行； 5、程序中应包含一个过程，用于判断一个数是否是荣幸数。 解：Private Sub Command1_Click() Dim i As Integer, a As Integer For i = 1000 To 9999 If k(i) Then i: a = a + 1 Next i = a End Sub Private Sub Command2_Click() = ““ End Sub Private Sub Command3_Click()

End End Sub Private Function k(n As Integer) As Integer Dim i As Integer, a As Integer, s1 As Integer, s2 As Integer Dim s As String s = CStr(n) For i = 1 To Len(s) / 2 s1 = s1 + Mid(s, i, 1) s2 = s2 + Mid(s, Len(s) + 1 - i, 1) Next i If s1 = s2 Then k = True End Function 2.新建一个工程，编写求某一自然数因子和的程序。要求通过文本框获取输入的自然数，计算后将所计算得到的因子和显示在另一文本框中。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“求和“按钮，则在文本框中显示计算得到的因子和； 3、单击“清除”按钮，则将文本框清空，焦点设置在第一个文本框； 4、单击“退出”按钮，结束程序运行；

全国计算机等级考试二级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语言程序设计

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练习题(上机)含标准答案

第一部分 １在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值"）。程序运行后，单击命令按钮完成以下工作： ①随机产生20个０到10０0的整数,将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上（如下图所示) ＰrivaｔｅSub Cmd1_Cｌick（) Ｄim ａ%（１9）, i%,ｓum!, avｅr! Raｎdomizｅ Foｒｉ= 0 Ｔo１9 a(i) =Int(Rｎd * 100１） sum = sum ＋a(i） Nｅxｔi ａver = suｍ/20 Print aveｒ EnｄSub 2 请在名称为Fｏrm1的窗体上添加一个名称为Ｔext１的文本框和一个名称为C1、标题为＂转换＂的命令按钮,如下图所示。在程序运行时，单击＂转换＂按钮,可以把Tｅxｔ1中的小写字母转换为大写，把大写字母转换为小写,其他字符不变。 Prｉvate Sub Ｃ1_Clｉｃｋ() Dim ｃh As String, ch１ As String, i％ cｈ= Text1 Ｆoｒ i = 1 Ｔo Len(ｃｈ） Ｉf Aｓｃ(Mｉd（ｃh，i, 1)) >= ６5 And Aｓｃ(Mid(cｈ, i, 1)) <= 9０Theｎ ｃh１= ch1 + LCａse（Mid(cｈ, i, 1）)

Elｓｅ ｃｈ1 ＝ ch1 ＋ UCasｅ（Ｍid(ｃh, i, 1)） Enｄ If Neｘｔ i Text1 = Teｘｔ１＋ vｂCｒＬf Teｘt１＝ Text1 ＋ ch1 End Ｓub 3 在窗体上添加一个命令按钮(名称为MyCｍd1,标题为"输出最大值")。程序运行后,单击命令按钮完成以下工作： ①随机产生3０个0~100０的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Prｉvate SuｂMyCmｄ１_Ｃliｃk() Diｍa%(2９)， i%, max% Ｒandomize Fｏr i = 0 To ２9 a(i) ＝Ｉnt(Rｎd ＊ 1００1) Nｅxｔ i ｍａx = ａ(0) Foｒi ＝ 1 To 2９ Iｆ a(i) > max Ｔｈｅn max = a（i) Nｅｘt ｉ Pｒint mａｘ End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮,则对文本框中的文本内容做相应的设置。请编写适当的事件过程,完成上述功能。

安徽VB省二级笔试题目及答案

2006年全国高等学校（安徽考区） 计算机水平考试试卷 （二级Visual Basic 语言） 一、单项选择题（每题1分，共40分） 1. 下列缩写表示中，与存储设备无关的是 1 。 A）GB B）MB C）KB D）MIPS 2. 二进制数00111101转换成十进制数为 2 。 A）57 B）59 C）61 D）60 3. 能将高级语言源程序转换为目标程序的是 3 。 A）解释程序B）编辑程序C）编译程序D）连接程序 4. 计算机操作系统是 4 之间的接口。 A）主机和外设B）用户和计算机 C）系统软件和应用软件D）高级语言和计算机 5. 关于Windows系统中的窗口和对话框，说法正确的是 5 。 A）对话框能移动和改变大小B）窗口能移动和改变大小 C）对话框不能移动但能改变大小D）窗口能移动但不能改变大小 6. 多媒体技术中的“多媒体”的含义，主要是指如 6 等表示信息的形式。 A）磁盘、光盘B）声音、图像C）电缆、光纤D）声卡、音箱7. 常见的邮件传输服务器使用7 协议接收邮件。 A）HTTP B）IP C）TCP D）POP3 8. 以下不是即时通信软件的是8 。 A）微软MSN B）新浪UC C）金山WPS D）腾讯QQ 9. 下列有关计算机病毒的叙述中，正确的是9 。 A）计算机病毒是一种人为编制的特殊程序 B）严禁在计算机上玩游戏是预防病毒的唯一措施 C）计算机病毒只破坏磁盘上的数据和程序 D）计算机病毒只破坏内存中的数据和程序 10. 下面关于算法的说法，错误的是10 。 A）算法必须有输出，但不一定有输入 B）算法必须在计算机上用某种语言实现 C）算法必须在有限步执行后能结束 D）算法的每一步骤必须有确切的定义