第一章环境和程序设计初步
一.选择题
1.在Visual 的集成开发的环境中，下面不属于该环境编程语言的是（C）。
++ C. Pascal D. J#
2.在集成开发环境中有两类窗口，浮动窗口和固定窗口，下面不属于浮动窗口的是（D）。
A.工具箱窗口
B.属性窗口
C.解决方案管理器窗口
D.窗体窗口
3.在中，在窗体上显示控件的文本，用（A）属性设置。
A. Text
B. Name
C. Enabled
D. Image
4.不论何种控件，共同具有的属性是( B)。
A. Text
B. Name C．ForeColor D．Text
5．对于窗体，可改变窗体的边框性质的属性是（B）。
A.MaxButton
B. FormBorderStyle
C. Name
D. Left
6.若要使标签控件显示时不要覆盖窗体的背景图案，要对（A）属性进行设置。
A．BackColor B. BorderStyle C．ForeColor
7．若要使命令按钮不可操作，要对（A）属性进行设置。
A. Enabled C. BackColor D. Text
8.要使文本框中的文字不能被修改，应对（D）属性进行设置。
A. Locked
B. Visible
C. Enabled
D. ReadOnly
9.要使当前Form1 窗体的标题栏显示“欢迎使用”，以下（B）语句是正确的。
A.=“欢迎使用”
B. Me. Text=“欢迎使用”
欢迎使用”D. Name=“欢迎使用”
10.当运行程序时，系统自动执行启动窗体的（A）事件过程。
A. Load
B. Click
C. UnLoad
D. GotFocus
11.当文本框的ScrollBars属性设置了非None值，却没有效果，原因是（B）。
A.文本框没有内容
B.框的MulitLine属性为False
C.框的MulitLine属性为True
D.本框的Locked属性True
12．要判断在文本框中是否按了Enter键，应在文本框的（D）事件中判断。
A. TextChanged
B. LostFocus
C. Click
D. KeyPress
13.在集成环境中创建应用程序时，除了工具箱窗口、窗体窗口和属性窗口外，必不可少的窗口是（C）。
A.窗体布局窗口
B.立即窗口
C.代码窗口
D.监视窗口
14．当创建一个项目名为“引例”的项目时，该项目的所有代码文件将保存在（C）文件夹下。
A．My Documents B．C．\引例D．Windows
15．将调试通过后生成的.exe 可执行文件放到其他机器上不能运行的主要原因是（A）。
A .运行的机器上面无系统
B .缺少. frm 窗体文件 C. 该可执行文件有病毒 D. 以上原因都不对
16.对初学者而言,调试程序方便,有效的手段是( A)。
A. 在可疑的代码处设置断点，逐语句跟踪
B. 查看资料
C. 通过”立即”窗口显示变量的值
D. 找老师问原因
17. 在代码窗口,代码下方有蓝色波浪线表示(B ) 。
A .对代码设置了格式 B. 编译语法错误 C. 逻辑错误 D. 运行时错误
二.填空题
是完全面向对象的程序设计语言，其最大的特点是____引入了框架_____
可视化编成技术____技术能让编程人员不必编写代码就可以创建GUI（图形用户界面）。
解决方案____是由一个或几个项目组成的程序。
4.当___自动隐藏___特性设置后，浮动窗口将自动隐藏。
5.当进入集成环境，发现没有显示“工具箱”窗口，应选择___视图___菜单的___工具箱___。
6．要同时保存解决方案中的每个文件，最方便的方法是单击工具栏的____全部保存_____按钮。
7．对象属性是指____对象的性质来描述和反应对象特征的参数_____。
8．对象的方法是指________对象的动作、行为______。
9．在刚建立项目时，使窗体上的所有控件具有相同的字体格式，应对__Form窗体__的___Font___属性进行设置。
10．属性窗口的属性可以按照_____分类顺序______和_____字母顺序_____顺序排列。
11．当对命令按钮的Image属性装入.bmp图形文件后，按钮上并没有显示所需的图形，原因是对__FlatStyle__属性设置为_____System____。
12．若已建立了Form1，Form2两个窗体，默认启动窗体为Form1。通过__项目__菜单的__属性___的__常规__选项卡，可将启动对象设置为Form2。
13．在文本框中，通过_____SelectionStart_____属性能获得当前插入点所在的位置。
14．要对文本框中已有的内容进行编辑，按下键盘上的按钮，就是不起作用，原因是设置了__ReadOnly__的属性为True。
15．在窗体上已建立多个控件，如TextBox1，Label1，Button1，若要使程序一运行焦点就定位在Button1控件上，应对Button1控件设置____TabIndex_____属性的值为_____0_____。
第二章语言基础和顺序结构
一.选择题
1.在一个语句内写多条语句时，每个语句之间用（B）符号分隔。
A．， B. ： C.、 D. ；
2. 一语句要在下一行继续写，用（C）符号作为续行符。
A . +
B . - C. _ D . …
3. 下面属于合法的变量名的是（A）。
B. 123abc C .Integer
4.下面属于不合法的整常数的是( D).
B. &O100
C. &H100
D. %100
5.下面属于合法的字符常数的是( B) 。
$ B. “ABC” C. ‘ABC’
6. 下面属于合法的单精度型变量的是（A）。
A. mun！
B. sum% D. xinte$ D. mm#
7.下面属于不合法的双精度常数的是（D）。
# +2 表达式16/4-2＾5 * 8/4 Mod 5\2 的值为(B)。
Ａ.１４Ｂ.４Ｃ.２０Ｄ.２
9.数学关系表达式３≤x＜10表示成正确的表达式为( B)。
A．3<=x<10 B. 3<=x AND x<10 C. x>=3 OR x<10 <=x AND <10
10.\、/、Mod、* 四个算术运算符中，优先级别最低的是（C）。
A.\
B. /
C. Mod
D.*
11.与数学表达式ab/(3cd)对应，的不正确表达式是（D）。
A. a*b/(3*c*d) 3*b/c/d C. a*b/3/c/d D. a*b/3*c*d
函数不可能为下列（B）值。
A. 0 C. D.
*100+/100的值是（C）。
A. 198
14.已知A$=“”，则表达式Val(Mid(A,1,4)+Mid(A,4,2))的值为（B）。
(DateAdd(“m”,2，#1/28/2005#))语句显示结果是（A）。
A. 2005-3-28 C. 2007-1-28 D. 2003-1-28
16.表达式DateDiff(“y”,#12/30/1999#,#1/13/2000#)的结果是（C）。
A. 1
B. 11
17.表达式Len（“123程序设计ABC”）的值是（A）。
A．10
18．下面正确的赋值语句是（C）。
A．x+y=30 B .y=∏*r*r; C. y=x+30 D. 3y=x
19. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是（A）。
=1:y=1:z=1 =1,y=1,z=1 C. x=y=z=1 =1
20.赋值语句“a=123+MID(“123456”,3,2)”执行后，a变量中的值是（D）。
A. “12334”
21．赋值语句“a=123 & MID(“123456”,3,2)”执行后，a变量中的值是（A）。
A. “12334”
22.已知a=12，b=20，复合赋值语句“a*=b+10”执行后，a变量中的值是（D）。
二.填空题
1．在中，1234%，123456!，+5三个常数分别表示_____整型____，___单精度型____，____双精度型____类型。2．整型变量x中存放了一个两位数，要将两位数交换位置，例如，13变成31，实现表达式是_____（x mod 10）*10+x\10____。
3．表示x是5的倍数或是9的倍数的逻辑表达式为____x mod 5 =0 Or x mod 9 =0_____。
4.已知a=，b=，c=，d=True，则表达式a>=0 AND a+c>b+3 OR NOT d的值是___False____。
、Int、Fix、Fix、Round的值分别是__-4__、__3__、__-3_、__3_、__-4_、__4_。
6.表达式UCase（Mid（“abcdefgh”，3，4））的值是____CDEF_____。
7.在直角坐标系中，x、y是坐标系中任意点的位置，用x和y表示在第一象限或第三象限的表达是_____x >0 and y >0 Or x<0 and y<0_____。
8. 要显示当前机器内日期，函数为____Now_____。
9. 计算离你毕业（假定2008年6月30日毕业）还有多少个星期的函数表达式是_____DateDiff(“w”,Now,#6/30/2008#)_____。
10. 表示s字符变量是字母字符（大小写字母不区分）的逻辑表达式为_____UCase(s) >= “A”and Ucase(s) <= “Z”______。
11.下面程序随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。
Sub Button1_Click(......) Handles
Dim x, y As Integer
x=Int (____Rnd()*900 + 100_____)
y=(x Mod 10)*100+____((x mod 100)\10)*10____+x\100
MsgBox(“x=”& x & x &“y=” &y)
End Sub.
第三章选择结构
一、选择题：
1．提供了结构化程序设计的三种基本结构，三种基本结构是（D）。
A.递归结构，选择结构，循环结构
B.选择结构，过程结构，顺序结构
C.过程结构，输入输出结构，转向结构
D.选择结构，循环结构，顺序结构
2．按照结构化程序设计的要求，下面（C）语句是非结构化程序设计语句。
A．if语句 B. For语句 C. GoTo语句 D. Select Case语句
3.下面程序段运行后，显示的结果是（A）。
Dim x%
If x Then MsgBox(x) Else MsgBox(x+1)
D.显示出错信息
4．语句“If x=1 Then y=1”下列说法正确的是（C）。
A. “x=1”和“y=1”均为赋值语句
B．“x=1”和“y=1”均为关系表达式
C．“x=1”为关系表达式“y=1”为赋值语句
D．“x=1”为赋值语句“y=1”为关系表达式
5．下面程序段显示的结果是（A）。
Dim x%
x=Int(Rnd)+5
Select Case x
Case 5
MsgBox(“优秀”)
Case 4
MsgBox(“良好”)
Case 3
MsgBox(“通过”)
Case Else
MsgBox(“不通过”)
End Select
A. 优秀
B. 良好
C. 通过
D. 不通过
6.下面If 语句统计满足性别（sex）男、职称（duty）为副教授以上、年龄（age）小于40岁条件的人数，正确的语句是（A）。
A.If sex= “男” And age<40 And InStr(duty, “教授”)>0 Then n=n+1
B.If sex= “男” And age<40 And duty=“教授” or duty= “副教授”Then n=n+1
C.If sex= “男” And age<40 And Right(duty,2)= “教授” Then n=n+1
D.If sex= “男” And age<40 And duty= “教授”And duty= “副教授” Then n=n+1
7.下面程序段求两个数中的大数，（D）不正确。
A. Max1=IIf(x>y, x, y)
B. If x>y Then Max1=x Else Max1=y
C. Max1=(x, y)
D. If y>=x Then Max1=y Max=x
8.下面三个程序设计段计算学生外语附加分：外语6级（lang6）为“优秀”加15分，“通过”加10分；外语4级（lang4）为“优秀”加8分，“通过”加4分。外语附加分只能计一次最高的分数。（A）能正确计算。
A. If lang6=“优秀”Then
langf=15
ElseIf lang6=“合格”Then
langf=10
ElseIf lang4= “优秀”Then
langf=8
ElseIf lang4=“合格”Then
langf=4
End if
B If lang4= “合格”Then
langf=4
ElseIf lang4=“优秀”Then
langf=8
ElseIf lang6=“合格”Then
langf=10
ElseIf lang6=“优秀”Then
langf=15
End if
C. If lang6=“优秀”Then langf=15
If lang6=“合格”Then langf=10
If lang4=“优秀”Then langf=8
If lang4= “合格”Then langf=4
D. If lang4= “合格”Then langf=4
If lang4=“优秀”Then langf=8
If lang6=“合格”Then langf=10
If lang6=“优秀”Then
langf=15
Else
langf=0
End if
9.下面语句执行后，变量w中的值是（B）。
w= Choose (Weekday(“2005,5,1”), “Red”, “Green” , “Blue”, “Yellow”)
A. Nothing
B. “Red”
C. “Green”
D. “Yellow”
二.填空题
1．当C字符串变量中第三个字符是“C”时，利用MsgBox显示“Yes”，否则显示“No”。
（1）If____Mid(c，3，1) = “C”_____Then MsgBox(“yas”) Else MsgBox(“No”)
2.程序运行后输出的结果是___7____。
x=Int(Rnd)+3
If x^2>8 Then y=x^2+1
If x^2=9 Then y=x^2-2
If x^2<8 Then y=x^3
MsgBox(y)
3.下面程序的功能是______分别统计输入若干数的奇数和、偶数和，存放在m，n中_____。
Dim n%, m%
Sub TextBox1_KeyPress(......)Handles
If Asc=13 Then
If IsNumeric Then
Select Case Val Mod 2
Case 0
n=n+Val
Case 1
m=m+Val
End Select
End If
=””
( )
End If
End Sub
<注意>该题中统计括号个数的变量m,n若在过程内声明，程序会产生什么结果(2)
4．下面的程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结果。本程序在文本框中输入表达式，边输入边统计，以输入回车符作为表达式输入结束，然后显示结果，如下图所示。
Dim count1%
Sub TextBox1_KeyPress( ……………)Handles
If__________=“(”Then
count1+1
ElseIf ____ ____=“)” Then
count1=___ count1-1______
End If
If Asc=13 Then
If____ count1=0_____ Then
MsgBox(“左右括号配对”)
ElseIf count1>0 Then
MsgBox(_____“左括号多于右括号” & count1 & “个”_____)
Else
MsgBox(“右括号多于左括号”& count1 & “个”)
End If
End If
End Sub
<注意>该题中统计括号个数的变量count1若在过程内声明，程序会产生什么结果
5．输入若干个字符，统计有多少个元音字母，有多少个其他字母，直到按Enter键结束，显示结果，大、小写不区分。其中CountY中放元音字母个数，CountC中放其他字符数。
Dim CountY% , CountC%
Sub TextBox1_KeyPress (……………) Handles
Dim c As Char
c=________
If “A”<=c And c<= “Z”Then
Select Case_________
Case_________
CountY=CountY+1
Case Else
CountC=CountC+1
End Select
End If
If ______ __ Then
MsgBox(“元音字母有”& CountY & “个”)
MsgBox(“其他字母有”& CountC & “个”)
End If
End Sub
6.用If语句，Select Case语句两种计算方法计算分段函数
x^2+3x+2 当x>20
y=sqrt(3x)-2 当10<=x<=20
1/2+|x| 当x<10
Sub Button1_Click(....) Handles
Dim x! , y!
x=Val
If___x>20_____ Then
y=x*x+3*x+2
ElseIf____x<10_____ Then
y=1/2+(x)
Else
y=(3*x)-2
End If
MsgBox(“y=”& y)
End Sub
Sub Button1_Click(....) Handles
x=Val
Select Case x
Case_____Is>20_____
y=x*x+3*x+2
Case_____Is<10_____
y=1/2+(x)
Case Else
y=(3*x)-2
End Select
MsgBox(“y=”& y)
End Sub
7.输入三角形的三边a、b、c的值，根据其数值，判断能否构成三角形。若能，还要显示三角形的性质：等边三角形、等腰三角形、直角三角形、任意三角形。
Sub Button1_Click(....) Handles
Dim x%, y%, z%
x= Val(InputBox(“input x”))
y= Val(InputBox(“input x”))
z= Val(InputBox(“input x”))
If_____X+y>z and x+z>y and y+z>x_____ Then
Msgbox(“能构成三角形”)
If_____ X=y and y=z____ Then
Msgbox (“是等边三角形”
ElseIf ____ X=y Or y=z Or x=z____ Then
Msgbox (“是等腰三角形”)
ElseIf Sqrt(x*x+y*y)=z Or (y*y+z*z)=x Or (x*x+z*z)=y Then
Msgbox (“是直角三角形”)
Else
____X=y Or y=z Or x=z_____
End If
Else
MsgBox (“不能构成三角形”)
End If
End Sub
8．输入一个年份，判断它是否为闰年，并显示是否是闰年的有关信息。判断闰年的条件是：年份能被4整除但不能被100整除，或能被400整除。同时请用日期型变量的IsLeepYear成员来验证。
Sub Button1_Click(....) Handles
Dim d As Date
d=Now
If__ mod 4 = 0 and mod 100 <> Or Mod 400=0 Then
MsgBox & “是闰年”)
Else
MsgBox & “是平年”)
End If
If （________）Then
MsgBox & “是闰年”)
Else
MsgBox & “是平年”)
End If
End Sub
第四章循环结构选择题
一.选择题
1.以下（B）是正确的For...Next结构。
A.For x=1 To Step 10 x=3 To -3 Step -3
... ...
Next x Next x
C. For x=1 To 10
D. For x=3 To 10 Step 3
re:... If i=10 Then GoTo re
Next x ...
Next y
2.下列循环体能正常结束的是（C）。
A. i=5
Do
i=i+1
Loop Until i<0
B.i=1
Do
i=i+2
Loop Until i=10
C.i=10
Do
i=i+1
Loop Until i>0
D.i=6
Do
i=i-2
Loop Until i=1
3.下面程序段的运行结果为（B）。
= “”
For i=3 To 1 Step -1
&=Space(5-i)
For j=1 To 2*i-1
&=”*”
Next j
&=vbCrLf
Next i
A. *
B. *****
C.*****
D. *****
*** *** *** ***
***** * * * 4.当在文本框输入“ABCD”四个字符时，窗体上显示是（C）。
Sub TextBox1_TextChanged(.....) Handles
&=
End Sub
A. ABCD
B. A
B AB
C ABC
D ABCD
5.下列程序段不能分别正确显示1！、2！、3！、4！的值的是（B）。
A. For i=1 To 4
B. For i=1 To 4
n=1 For j=1 To i
For j=1 To i n=1
n=n*j n=n*j
Next j Next j
MsgBox(n) MsgBox(n)
Next i Next i
C. n=1
D. n=1
For j=1 To 4 j=1
n=n*j Do While j<=4
MsgBox(n) n=n*j
Next j MsgBox(n)
j=j+1
二. 填空题Loop
1．要使下列For语句循环执行20次，循环变量的初值应当是：
For k=__33__ To -5 Step -2
2.下面程序段显示_10_个“*”。
For i=1 To 5
For j=2 To i
MsgBox(“*”)
Next j
Next i
3.下列第40句共执行了__4__次，第41句共执行了_12__次。
30 For j=1 To 12 Step 3
40 For k=6 To 2 Step -2
41 MsgBox(j & “” & k)
42 Next k
43 Next j
4.输入任意长度的字符串，要求将字符顺序倒置。例如，将输入的“ABCDEFG”变换成“GFEDCBA”。
Sub Button1_Click(......) Handles
Dim a$, I%, c$, d$, n%
a=InputBox$(“输入字符串”)
n=____Len(a)____
d=””
For I=1 To____n____
c=Mid(a,I,1)
d=c & d
Next I
MsgBox(d)
End Sub
5．找出被3、5、7除，余数为1的最小的5个正整数。
Sub Button1_Click(......) Handles
Dim CountN% , n%
CountN=0
n=1
Do
n=n+1
If____n mod 3 =1 and n mod 5 =1 and m mod 7 =1_____ Then
MsgBox(n)
countN=CountN+1
End If
Loop____while CountN < 5____
End Sub
6.有个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步
跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当每步跨7阶时恰好走完，显示这个阶梯至少要有多少阶。<提示>利用其肯定是7的倍数这个条件，然后根据同时满足除n余m（n=2，3，4，5，6；m=1，2，3，4，5）的逻辑关系即可。
Sub Button1_Click(......) Handles
Dim n%, m%
For n=7 To 10000 Step 7
If n Mod 2=1 And __n mod 3=2 and n mod 4=3 and n mod 5=4 and n mod 6=5___ Then
MsgBox(n)
_______Exit For________
End If
Next
End Sub
7.某班在一周中6天内考三门分别为x、y、z的考试课程，规定一天只能考一门，先考x，后考y，最后考z，最后一门最早周五考。用计算机排考试，列出满足条件的方案数。
Sub Button1_Click(......) Handles
Dim x%, y%, z%, n%
n=0
= “”
For x=1 To 4
For y=____X+1____To 5
For z=5 To 6
If____X &=x & space(9) & y & Space(9) & z & vbCrlf _____n=n+1_______ End If Next &=___ “满足条件的方案为；” & n End Sub 8某次大奖赛，有7个评委打分，以下程序是针对一名参赛者，输入7个评委的打分分数，去掉一个最高分、一个最低分，求出平均分，为该参赛者的得分。 Sub Button1_Click(......) Handles Dim mark!,aver!,max1!,min1! aver=0 For i=1 To 7 mark=InputBox(“输入第”& i & “位评委的打分”) If i=1 Then max1=mark:_____Min1=mark_____ Else If mark _____Min1=mark______ ElseIf mark>max1 Then ______Max1=mark_____ End If End If _____Aver=aver + mark______ Next i aver=____(aver-max1-min1)/5______ MsgBox(aver) End Sub 第五章数组 一.选择题 1．如下数组声明语句中正确的是（B）。 A. Dim a[3,4] As Integer B. Dim a(3,4) As Integer C. Dim a{3,4} As Integer D. Dim a(3 4) As Integer 2.如下数组声明语句中正确的是（B）。 A. Dim (9) As Single={1,2,3,4,5,6,7,8,9,10} B. Dim a( ) As Single={1,2,3,4,5,6,7,8,9,10} C. Dim a( ) As Single={1,“a”, “bc”2. ,4,5,6,7,8,9,10} D. Dim a(,) As Integer={1,2,3,4,5,6,7,8,9,10} 3.如下数组声明语句中，数组a包含元素的个数有（C）。Dim a(3,0,5) 4.如下程序输出的结果是（D）。 Dim a() As Integer={1,2,3,4,5,6,7} For i=0 To UBound(a) a(i)a=(i)*a(i) Next i MsgBox(a(i)) C.不确定 D.程序出错 5．如下程序输出的结果是（D）。 Sub Button1_Click(... ...) Handles Dim i%, j% Dim a( ) As Integer={0,1,2,3,4,5,6,7,8,9},b(3,3) As Integer = “” For i=1 To 3 &=Space(i*3) For j=i To3 b(i,j)=a(i*j) &=Space(6-Len(b(i,j)) & b(i,j) Next j &=vbCrLf Next i End Sub 2 3 4 7 D. 1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 9 二.填空题 1．在一维数组中利用移位的方法显示如图所有的结果。 Sub Button1_Click(.....) Handles Dim a(7) As Integer, i%, t%, j% = “” For i=1 To 7 a(i)=i &=a(i) & “” Next i &=vbCrLf For i=1 To 7 t=______a(7) _______ For j=6 To 1 Step -1 _____a(j+1)=a(j)_____ Next j a(1)=_____a(1)=t______ For j=1 To 7 &=a(j) & “” Next j &=____vbcrlf _____ Next i End Sub 2.下面程序对已知数组a（），删除数组中某个元素。 Sub Button1_Click(... ...) Handles Dim a() As Integer={1,6,8,3,5,9,10,2,7,4} ,Key%, i%, j% Key=Val(InputBox(“输入要删除的值”)) For i=0 To UBound(a) If____key=a(i)_____ Then For j=i+1 To UBound(a) _______a(j-1)=a(j)_______ Next j ReDim _______Preserve a(Ubound(a)-1)_____ MsgBox(“删除完成”) Exit Sub End If Next i MsgBox(“找到不要删除的元素”) End Sub 3.矩阵相乘 两个矩阵能相乘的必要条件是：前一个矩阵的列数等于后一个矩阵的行数。例如，已知A为n×k的矩阵，B为k ×m的矩阵，A×B的结果C矩阵为n×m，即： 5 10 15 5 20 350 800 A= B= 10 25 C= 20 25 30 15 30 800 1925 Sub Button1_Click(.....) Handles Dim a%(2,3),b%(3,2),c%(2,2),i%, j%, n%, k% =“” n=5 For i=1 To 2 For j=1 To 3 a(i,j)=n ________b(j,i)=n________ n=______n+5______ Next j Next i For i=1 To 2 For j=1 To 2 c(i,j)=0 For k=1 To 3 c(i,j)=c(i,j)+___a(i,k)*b(k,j)___ Next k &=c(i,j) & “” Next j &=vbCrLf Next i End Sub 4.下面的程序是将输入的一个数插入到递减的有序数列中，插入后使该序列仍有序。 Sub Button1_Click(.....) Handles Dim i% , n% ,m% Dim a() As Integer={9,17,15,13,11,9,7,5,3,1} n=UBound(a) ReDim ______Preserve a(n+1)________ m= Val(InputBox(“输出欲插入的数”)) For i=UBound(a) -1 To 0 Step -1 If m>=a(i) Then ________a(i+1) = a(i)________ If i=0 Then a(i)=m Else ______a(i+1)=m____ Exit For End If Next i For i=0 To ____Ubound(a)_______ &=a(i) & “” Next i End Sub 5. 改进的冒泡法排序。 在教材中已介绍选择法、冒泡法。上例使用了插入法排序。本例使用改进的冒泡法排序，冒泡法排序在每一轮排序时将相邻的两个数比较，当次序不对就交换位置，出了内循环，最大数已沉底，小数上浮；每一轮仅使沉底的数确定了位置，有个n个数，外循环要进行n-1轮排序。为了提高效率，若在某一轮排序时，未发生排序位置交换，说明欲排序的序列已有序，排序就可以结束。在程序中增加一个逻辑变量来进行判断即可。程序如下：Sub Button1_Click(... ...) Handles Dim Tag As Boolean ,n%, j%, i%, t% Dim a( ) As Integer={1,5,6,7,4,13,23,26,31,51} n=UBound(a) For i=0 To n-1 Tag=False For j=0 To n-1-i If a(j)>a(j+1) Then ____Tag = True_______ _____t = a(j)______ ______a(j)=a(j+1)_____ a(j+1)=t End If Next j If Not Tag Then ______Exit For_____ Next i For i=0 To UBound(a) &=a(i) & “” Next i End Sub` 6.随机产生15个不重复的A-Z之间的字母（包括A，Z的大写字母），存放在字符数组中。实现的思想是，每产生一个字母，在数组中查找已产生的字母。若找到，刚产生的字母作废，重新产生；如果找不到，则产生字母放入数组中。 Sub Button1_Click(.....) Handles Dim s(14) As Char ,c As Char, n%, j%,flag as boolean s(0)=Chr(Int(Rnd()*26+65)) For n=1 To 14 flag=true Do c=_____Chr(Int(Rnd()*26 +65))_____ For j=0 To _____n-1_____ ‘若找到有重复字母,重新产生 If s(j)=c Then ______flag=false_____ Exit for End if Next j Loop while flag=false s(n)=_____c____‘没有重复的加入数组中 Next n For j=0 To 14 &=s(j) & “” Next j End Sub 7.随机产生15个A-J的大写字母，按字母降序排序后，将连续出现的字母用压缩的形式显示。例如，连续5个H字母显示为5*H，如图所示。数组a（）用于存储随机产生字母。 Sub Button1_Click(.....) Const N=14 Dim a(N) As Char ,c As Char Dim count%, i%,j%, k% = “” For i=0 To N a(i)=_____Chr(Int(Rnd()*10 +65))______ &=a(i) & “” Next i &=vbCrLf For i=0 To N-1 k=i For j=i+1 To N If a(j)>a(k) Then____k=j_____ Next j c=a(i) :_____a(i)=a(k)_____ :a(k)=c Next i For i=0 To N ‘输出排序的结果 &=a(i) & “” Next i &=vbCrLf i=0 Do While i<=N ‘压缩显示相同元素 count=1 If i Do While a(i)=a(j) count=_____count+1______ If j Loop If count=1 Then &=a(i) & “” Else &=____Count & “*” & a(i) & “”_____ End If i=____i+count_____ Loop End Sub 第七章理论复习题1、阅读下列程序： Private Sub Form_Click() Dim m As Integer Static n As Integer For i = 1 To 3 n = n + i m = m + i ^ 2 Next Print m, n End Sub 运行时两次单击窗体结果为（）。 A、14 6 14 6 B、14 6 14 12 C、14 6 28 6 D、14 6 28 12 2、窗体上的命令按钮编写如下事件过程：Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i, j As Integer For i = 2 To 4 For j = 3 To 5 array1(i, j) = i * j Next j Next i Print array1(2, 4) + array1(3, 4) End Sub 运行时，单击命令按钮后输出的结果是（）。 A、9 B、13 C、程序出错 D、20 5、以下数组声明语句中数组a包含的元素个数为（）。Dim a(3,-2 to 1,5) A、96 B、75 C、60 D、13 6、有声明Dim a(-3 to 1,3) As Integer，则下列叙述中正确的是（）。 A、数组a是二维动态数组 B、数组a共有20个元素 C、a（0,0）不是该数组的元素 D、a（1,1）是该数组的第十个元素 7、下列叙述中错误的是（）。 A、控件数组的每一个元素共享同样的事件过程 B、控件数组的每一个元素都有与之相关联的下标值 C、控件数组的每一个元素都有不同的name属性作为标识 D、可在运行过程中删除控件数组的某个元素 8、能使一维数组arr(6)元素个数加1，但保留数组中原有元素的语句是（）。 A、R eDim arr(7) B、R eDim Preserve arr(7) 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.数据库管理系统是（）。 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考试一 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") 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协议实现全球范围的计算机网络互连，连接在因特网上的每一台主机 站长提醒广大考生：下面的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考试题及答案计算机二级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) 2013年3月全国计算机等级考试二级VB上机题库题干 —1— 第六十一套题干61 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为C1、标题为"改变颜色"的命令按钮，窗体标题为"改变窗体背景色"。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图1所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为"图形控件"。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图2所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 图2 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入正整数。在"除数"框架中选择一个单选按钮，然后单击"处理数据"按钮，将大于文本框中的正整数且能够被所选除数整除的5个数添加到列表框List1中，如图3所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp。程序运行后，单击"开始"按钮，图片自上而下移动，同时滚动条的滑块随之移动，每0.5秒移动一次。当图片顶端移动到距窗体的下边界的距离少于200时，再回到窗体顶部，重新向下移动，如图4所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 图4 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，窗体如图5所示。运行程序时，从数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，并统计不及格、60～69、70～79、80～89及90～100各分数段的人数，将统计结 果显示在相应的文本框中。结束程序之前，必须单击"保存"按钮，保存统计结果。 注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按"保存"按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。 图5 第六十二套题干62 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为C1、标题为"变宽"的命令按钮，窗体名称为"改变按钮大小"。编写程序，使得单击命令按钮时，命令按钮水平方向的宽度增加100。程序运行后的窗体如图1所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在名称为Form1的窗体上画一个名称Shape1的形状控件，画一个名称为L1的列表框，并在属性窗口中设置列表项的值为1、2、3、4、5。将窗体的标题设为"图形控件"。单击列表框中的某一项，则按照所选的值改变形状控件的形状。例如，选择3，则形状控件被设为圆形，如图2所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 图2 二、简单应用题 (1)在考生文件夹中有一个工程文件sjt3.vbp，窗体控件布局如图3(a)所示。程序运行时，在文本框Text1中输入一个正整数，选择"奇数和"或"偶数和"，则在Label2中显示所选的计算类别。单击"计算"按钮时，将按照选定的"计算类别"计算小于或等于输入数据的奇数和或偶数和，并将计算结果显示在Label3中。程序的一次运行结果如图3(b)所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (a) (b) 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp。程序运行后，如果单击"开始"按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每0.5秒移动一次。当图片完全移出窗体的右边界时，立即再从窗体的左边界开始重新移动，若单击"停止"按钮，则图片停止移动，如图4所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 —2— ⑴不得增、删窗体上的控件，不得改变窗懺和控件的名執 ⑵不得删改两行' “之间90代码左 ⑶ 不得删改模藝Jb鬧中的代码； ⑷编程后’需运行理序，并在运行后关闭程序窗口。 1、打开芳生文件夹下工程文件Qpfh.vtp潘加适当的事件过程代码'买现以下功鉉 在上边文本框中输入正整数W的值*单击"计算”‘按钮.则在下边文本框中显示平疔和S的值H S = *片2彳十…十矿 Private Sub Comma nd1_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 A 2 Next i Text2.Text = s End Sub 2.打开着生文件夹下工程文件Qtds.vhp,祈加适当的雪件过程代码，实现以下功能* 单击“逮数据”按钮，读入考生交件表下的泸町 E 丈件中的10个整数，存入吕数组中：单主*特定值”披迅求出敢组中所有被？除后余2的数，并昱示在文朮框中. Private Sub Comma nd1_Click() '''不得删除本行注释 Dim i As In teger Ope n App.Path & "\" & "yssj.txt" For In put As #1 Fori = 1 To 10 In put #1, a(i) Next i Close #1 End Sub Private Sub Comma nd2_Click() '''不得删除本行注释 Dim i As In teger Text1.Text ="" Fori = 1 To 10 If a(i) Mod 3 = 2 The n Text1.Text = Text1.Text & Str(a(i)) End If Next i End Sub 全国高等学校（安徽考区） 计算机水平考试试卷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 。 一．选择题 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．设计时的第一个窗体 -+ 懒惰是很奇怪的东西，它使你以为那是安逸，是休息，是福气；但实际上它所给你的是无聊，是倦怠，是消沉;它剥夺你对前途的希望，割断你和别人之间的友情，使你心胸日渐狭窄，对人生也越来越怀疑。 —罗兰 全国高等学校（安徽考区） 计算机水平考试试卷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）压缩的文件不会感染计算机病毒 2012年3月全国计算机等级考试二级笔试试卷 Visual Basic语言程序设计 （考试时间90 分钟，满分100分） 一、选择题（每小题2分，共70分） 下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。 （1）下列叙述中正确的是（）。 A）循环队列是队列的一种链式存储结构B）循环队列是队列的一种顺序存储结构 C）循环队列是非线性结构D）循环队列是一种逻辑结构 【解析】队列的存储表示有两种：一种是基于数组的存储表示，另一种是基于链表的存储表示。队列的基于数组的存储表示亦称为顺序队列，它是利用一个一维数组作为队列元素的存储结构。为了充分地利用数组的存储空间，把数组的前端和后端连接起来，形成一个环形的表，称为循环队列。因此循环队列是队列的一种顺序存储结构。 队列不管采用链式存储结构还是顺序存储结构，它都是线性结构。循环队列作为队列的特殊情况，它也是线性结构。 循环队列是在队列的基础上，将队列的头和尾接到一起形成一个环状，它给出了数据的逻辑结构在计算机内部的存储形式，因此是一种存储结构。 答案：B （2）下列叙述中正确的是 A）栈是一种先进先出的线性表B）队列是一种后进先出的线性表 C）栈与队列都是非线性结构D）以上三种说法都不对 【解析】栈是一种后进先出（Last In First Out）或先进后出（First In Last Out）的线性表，它的一端封闭（称为栈底），在另一端进行插入和删除操作，允许插入和删除的一端称为栈顶。 队列（queue）是指允许在一端进行插入、而在另一端进行删除的线性表。允许插入的一端称为队尾，通常用一个称为尾指针（rear）的指针指向队尾元素，即尾指针总是指向最后被插入的元素；允许删除的一端称为排头（也称为队头），通常也用一个排头指针（front）指向排头元素的前一个位置。显然，在队列这种数据结构中，最先插入的元素将最先能够被删除，最后插入的元素最后才能被删除。因此，队列又称为“先进先出”（First In First Out，FIFO）或“后进后出”（Last In Last Out，LILO）的线性表，它体现了“先来先服务”的原则。 栈与队列都是线性结构。 答案：D （3）一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的结点数为 A）16B）10 C）6 D）4 【解析】设二叉树结点数为n，度为2的结点数为n2，度为1的结点数为n1，度为0（即叶子结点）的结点数为n0。则有n=n2+n1+n0。另外，在二叉树中，度为0的结点数是度为2的结点数加1，因此有n0=n2+1。此题中，n=25，n0=5，则n2=n0-1=5-1=4，因此n1=n-n2-n0=25-4-5=16。 答案：A 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 ．简化数据维护 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属性设置 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）算法的每一步骤必须有确切的定义 一、基本操作题 下面出现的“考生文件夹”均为c:\wexam\20060001。 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 1．在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”两个主菜单项（名称分别为vbFile和vbHelp），其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项（名称分别为vbOpen、vbClose和vbExit）。只建立菜单，不必定义其事件过程。 注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。2．在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。编写适当的事件过程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上显示“数理化”；如果单击“不喜欢”命令按钮，则在窗体上显示“政史地”。程序中不能使用任何变量，直接显示字符串。 注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。 一、基本操作题答案 1．【解题步骤】 （1）打开“菜单编辑器”。 （2）菜单设计见表4-1。 表4-1 标题名称内缩符号 文件vbFile 0 打开vbOpen 1 关闭vbClose 1 退出vbExit 1 帮助vbHelp 0 （3）按要求设计含有“文件”和“帮助”的菜单栏。 （4）为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。 （5）设计完成之后，按规定方式存盘。 2．【解题步骤】 （1）建立界面和控件并设置控件属性。程序中用到的控件及其属性见表4-2。 表4-2 控件属性设置值 按钮Name Cmd1 Caption 喜欢 按钮Name Cmd2 Caption 不喜欢 （2）编写程序代码。 参考代码： Private Sub Cmd1_Click() Print"数理化" End Sub Private Sub Cmd2_Click() 江苏省高等学校非计算机专业学生 计算机基础及应用能力等级考试试卷 二级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的中文含义是通用串行总线计算机二级VB第7章选择题及答案
全国计算机等级考试二级VB笔试试题及答案
省二级VB编程题目
VB考试题库,二级习题(含答案)
江苏省计算机二级VB考试真题及参考答案
计算机二级VB考试试题
计算机二级VB考试题及答案
2013年3月全国计算机等级考试二级VB无纸化上机题题库及答案解析(4)
计算机二级VB编程题目含答案
最新[考试中心]安徽省计算机二级VB笔试权威模拟试题及答案2
江苏省计算机二级VB试题库
zlegfa考试中心安徽省计算机二级VB笔试权威模拟试题及复习资料
二级VB历年真题
全国计算机等级考试二级VB语言笔试试题与答案
全国计算机等级考试二级笔试试卷VB语言程序设计
安徽VB省二级笔试题目及答案
全国计算机二级VB上机题库(题+答案)word版
2012江苏省计算机二级VB试题库及答案
相关主题
文本预览