湖南省计算机二级vb题库
56、以下定义的函数（）是按“传值”方式传递参数的。
A. Public Function Sum(x,y)
B. Public Function Sum(ByVal x, ByVal y)
C. Public Function Sum(x as Integer,y as Integer)
D. Public Function Sum(x%, y%)
57、以下函数的定义中，（）是错误的。
A. Public Function Sum(x ; y)
B. Public Function Sum(ByVal x, ByVal y)
C. Public Function Sum(x as Integer,y as Integer)
D. Public Function Sum(x%, y%)
58、以下递归函数中，正确的是（）。
A. Public Function Fn(n as Integer)
If n=0 Then Fn=1 Else Fn=Fn*n
End Function
B. Public Function Fn(n as Integer)
If n=0 Then Fn=1 Else Fn=Fn(n)*n
End Function
C. Public Function Fn(n as Integer)
If n=0 Then Fn=1 Else Fn=Fn(n-1)*n
End Function
D. Public Function Fn(n as Integer)
If n=0 Then Fn=1 Else Fn=Fn(n+1)*n
End Function
59、已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（）。
Public Function Fun(x, y)
Fun = 1
For i = 1 To y
Fun = Fun * x
Next i
End Function
Private Sub Command1_Click()
Print Fun(3, 4)
End Sub
A. 3
B. 4
C. 81
D. 256
60、已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本显示的文字为（）。
Private Sub Command1_Click()
Text1.Text =”湖南省” & “计算机” + “等级考试”
Text1.ForeColor = vbRed
Text1.BackColor = vbGreen
Text1.FontBold = True
End Sub
A. 湖南省计算机等级考试
B. 计算机
C. 等级考试
D. 计算机等级考试
61、VB提供的三种访问文件的模式中，不包括（）。
A. 顺序文件
B. 数据库文件
C. 随机文件
D. 二进制文件
62、以下VB语句中，（）的功能是复制指定文件。
A. Kill
B. FileCopy
C. Name
D. MkDir
63、以下是Command1的单击事件，单击Command1后，在当前目录下创建了一个名为a.txt的文件，该文件内容为（）。
Private Sub Command1_Click()
Open “a.txt” For Output As #1
Print #1, “计算机”；”等级考试”
Close #1
End Sub
A. 等级考试
B. 计算机等级考试
C. 计算机
D. 计算机；等级考试
64、已知一名为“Student.txt”的文件，其内容如下：
张小三，98，87，99
李四明，77，88，93
陈大光，89，56，65
则以下程序段执行的结果为（）。
Private Sub Command1_Click()
Open “student.txt” For Input As #1
While (Not EOF(1))
Input #1, Nam, Chn, Eng, Cmp
Sum = Chn + Eng + Cmp
Print Sum;
Wend
Close #1
End Sub
A. 284 258 210
B. 98 87 99
C. 77 88 93
D. 89 56 65
65、以下关于while-wend循环的说法中正确的为（）。
A、与do while-loop循环完全一致
B、不能用do while-loop循环来代替
C、其循环中不能使用exit while 退出循环
D、 while-wend不能实现所有循环要求
66、For语句的格式如下，下列说法错误的是（）。
for <循环变量>=<初值> to <终值> [step <步长>]
[<循环体>]
[exit for]
next [<循环变量>]
A、步长只能为正数，不能为负数
B、步长为1时，可略去不写
C、初值、终值和步长都是数值表达式
D、 next后的循环变量与for语句中的循环变量必须相同
67、要控制窗体启动时，在屏幕上的位置，可通过（）属性来设置。
A. Top 和 Left
B. Left 和 Right
C. StartUpPosition
D. WindowState
68、窗体中的鼠标指针形状，可以通过（）属性来设置。
A. MouseIcon
B. MousePointer
C. Picture
D. Icon
69、若要将窗体隐藏起来，实现的方法为（）。
A. Unload
B. Cls
C. WindowState
D. Hide
70、在窗体中利用Print方法输出文本信息时，信息的输出位置由（）属性设置。
A. Left
B. Top
C. x,y
D. CurrentX,CurrentY
71、当窗体的大小被调整时，将会发生的事件有（）
A. Move
B. Resize
C. Paint
D. Click
72、若要将一普通窗体设置为MDI窗体的子窗体，应将（）属性值设为True。
A. Enabled
B. Visible
C. MdiChild
D. Moveable
73、关闭MDI窗体时，会触发的事件是（）。
A. Load
B.Click
C. Resize
D. QueryUnload
74、菜单设计器中，要将当前菜单项下移一个位置，应按（）按钮。
A. “左箭头”
B. “右箭头”
C. “上箭头”
D. “下箭头”
75、活弹出式菜单的命令是（）。
A. Load
B. Show
C. SetFocus
D. PopupMenu
76、要将菜单项的某字母设置为热键，在菜单设计中，应在菜单项的标题的该字母前加（）字符。
A. /
B. @
C. &
D. \
77、要想通过单击Form2上的Command1，从内存中清除Form2窗体，则可在Command1的单击事件中，使用（）命令。
A. Load Form2
B. Form2.Show
C. Unload Form2
D. Form2.hide
78、要想通过单击Form2上的Command1，从屏幕（而非内存中）上清除Form2窗体，则可在Command1的单击事件中，使用（）命令。
A. Load Form2
B. Form2.Show
C. Unload Form2
D. Form2.hide
79、要想通过Form2窗体中的过程调用Form1窗体中的Public 变量Stu，则可用（）方式实现。
A. Form1.Stu
B. Form2.Stu
C. Stu
D. Form2.Form1.Stu
80、若要在图片框中绘制一个椭圆，可使用（）方法来实现。
A. Circle
B. Line
C. Point
D.Pset
81、若要获得某一点的颜色值，可通过（）方法来实现。
A. Circle
B. Line
C. Point
D.Pset
82、以下关于VB中的图形坐标的度量单位的说法正确的是（）。
A. 只有一种单位：Twip
B. 只有一种单位：Cm
C. 只有一种单位：Point
D. 可以有多种单位
二、程序填空
【试题1】出售金鱼的问题：商人将养的一缸金鱼分五次出售，第一次卖出全部的一半加二分之一条；第二次卖出余下的三分之一加三分之一条；第三次卖出余下的四分之一条；第四次卖出余下的五分之一加五分之一条；最后卖出余下的11条。问原来渔缸中共有几条鱼？
Private Sub cmdSaleGoldFish_Click()
Dim i, j, n, x As Integer
n = 0
i = 23
Do
x = i
j = 1
Do While j <= 4 And x >= 11
If ((x + 1) Mod (j + 1) = 0) Then
x = _____________________
Else
x = 0
___________________
End If
j = j + 1
Loop
If (j = 5 And x = 11) Then
Print Tab(5); “开始金鱼数为：”; i
n = 1
End If
i = i + 2
Loop While (n = 0)
End Sub
【答案】59
【试题2】在窗体上画一个命令按钮，其名称为Command1，程序如下，先填上相应的语句，然后程序运行，单击命令按钮，并输出结果。
Function M(x As Long,y As Long)As Long
M=IIf(x>y,x,____________)
End Function
Private Sub ____________________
Dim a As Long,b As Long
FontSize = 14: FontBold = True
Print: Print: Print
a=131421
b=211314
Print tab(5);M(a,b)
End Sub
【答案】211314
【试题3】设某四位数的各位数字的平方和等于100，共有多少个这种四位数？Private Sub cmdFourSqr_Click()
Dim a, b, c, d, i, count As Integer
count = 0
i = 1111
FontSize = 14: FontBold = True
Print: Print: Print
Do Until ________________
a = i \ 1000
b = (i Mod 1000) \ 100
c = Int((i – a * 1000 – b * 100) \ 10)
d = i Mod 10
If 100 = a ^ 2 + b ^ 2 + c ^ 2 + d ^ 2 Then ___________________
i = i + 1
Loop
Print Tab(5); “满足条件的四位数数目为：”; count
End Sub
【答案】49
【试题4】求方程51X-21Y=3，在|X|≤201，|Y|≤81内共有多少组整数解? Private Sub cmdIntegerRoot_Click()
Dim count As Integer
FontSize = 14: FontBold = True
Print: Print: Print
For x = -201 To 201
For y = -81 To 81
If _________________ Then count = count + 1
Next ________________
Print Tab(5); “符合条件的数的数目为：”; count
End Sub
【答案】10
【试题5】用e^x ≈1＋x＋x^2/2!+x^3/3!+x^4/4!……+x^n/n!的公式求近似值，设x=9,n＝25；
Private Sub Form_click()
‘用e^x ≈1＋x＋x^2/2!+x^3/3!+x^4/4!……+x^n/n!
Dim n As Integer, x As Integer
Dim i As Integer
Dim xpower As Single
Dim y As Single
x = Val(InputBox(“请输入x：”))
n = Val(InputBox(“请输入n：”))
y = 1
factor = 1
For i = 1 To n
factor = factor * i
xpower = x ^ i
y = y + xpower / factor
Next i
Print “e^”; x; “=”; y
End Sub
【答案】8103.059
【试题6】已知菲波纳契数列{ X }中,X(1)=0,X(2)=1,X(n)=X(n-1)+X(n-2)，编程求数列前30个数中，所有质数的和。
Private Sub Form_Click()
Dim s As Long
Dim I As Integer
Dim No(30) As Long
No(1) = 0
No(2) = 1
No(3) = 1
s = 2
For I = 4 To 30
No(I) = No(I – 1) + No(I – 2)
j = 2: k = Int(No(I) / 2)
Do While j <= k
If No(I) Mod j = 0 Then Exit Do
j = j + 1
Loop
If j > k Then s = s + No(I)
Next I
Print “前三十个菲波纳契数中质数和是：”; s
End Sub
【答案】544830
【试题7】求27090，21672，11352，8127的最大公约数。
Option Base 1
Private Function GreatestCommonDivisor(ByVal m As Long, ByVal n As Long) As Long
Dim t As Long
Dim r As Long
If m < n Then t = m: m = n: n = t
Do
r = m Mod n
m = n
n = r
Loop Until r = 0
GreatestCommonDivisor = m
End Function
Private Sub Form_Click()
Dim a, gcd&, i As Byte
a = Array(27090, 21672, 11352, 8127)
gcd = a(1)
For i = 1 To UBound(a)
gcd = GreatestCommonDivisor(gcd, a(i))
Next
Print gcd
End Sub
三、程序改错
VB二级改错题
1．下面程序是输出100-200之间的所有素数个数，程序中有两行有错误。改正错误，使它能输出正确的结果。
Private Sub Form_Click()
Number = 0
For x = 101 To 199 Step 2
i = 2
k = Int(x / 2)
Do While i <= k
If x Mod i = 0 Then Exit For
i = i + 1
Loop
If i < k Then
Number = Number + 1
End If
Next x
Print Number
End Sub
2．下面程序是解决猴子吃桃问题。猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。问第1天共摘了多少桃子。程序中有两行有错误。改正错误，使它能输出正确的结果。
Option Explicit
Private Sub Form_Click()
Dim day As Integer, sum As Integer
day = 10; sum = 1
Do While day > 0
sum = sum * 2
day = day – 1
Loop
Print sum
End Sub
3．一个两位数的正整数，如果将其个位数与十位数字对调所生成的数称为其对调数，如28是82的对调数。现给定一个两位的正整数，请找到另一个两位的整数，使这两个数之和等于它们的各自的对调数之和。这样的另一个两位数有多少个。程序中有两行有错误（从键盘输入的两位数为46）改正错误，使它能输出正确的结果。
Option Explicit
Private Sub Form_Click()
Dim x As Integer, y As Integer，number as Integer
Dim xf As Integer, yf As Integer
Number = 0
Do
x = Val(InputBox(“请输入一个2位正整数：”))
Loop While (x < 9) Or (x > 99)
xf = (x Mod 10) * 10 + Int(y / 10)
For y = 10 To 99
yf = y Mod 10 + Int(y / 10)
If x + y = xf + yf Then
Print x; “+”; y; “=”; xf; “+”; yf; “=”; x + y
Number = Number + 1
End If
Next y
Print Number
End Sub
4．下面程序解决的问题是：已知24有8个正整数因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。求[100,300]之间能被其因子数目整除的数中最大的数。程序中有两行有错误。改正错误，使它能输出正确的结果。
Private Sub Command1_Click()
Dim N As Integer
Dim s As Integer
Dim i As Integer
For N = 300 To 100
s = 0
For i = 1 To N
If N Mod i = 0 Then
s = s + 1
End If
Next i
If s Mod N = 0 Then
Print N
Exit For
End If
Next N
End Sub
5．下面程序的功能是求若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。例如：由于
7396=86^2，且7+3+9+6=25=5^2，则称7396是“四位双平方数”。求所有“四位双平方数”中最小的一个“四位双平方数”。程序中有行两有错误。改正错误，使它能输出正确的结果。
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim x As Integer
For x = 1000 To 9999
a = Int(x / 1000)
b = Int(x / 100) – a * 100
c = Int(x / 10) – a * 100 – b * 10
d = x – a * 1000 – b * 100 – c * 10
If Sqr(x) = Int(Sqr(x)) And Sqr(a + b + c + d) = Sqr(a + b + c + d) Then Print x
Exit For
End If
Next x
End Sub
6．下面程序的功能是：用下面的公式求的近似值，直到最后一项的绝对值小于指定的数（参数num）为止。程序中有两行有错误。改正错误，使它能输出正确的结果。
Private Sub Command1_Click()
Print Format(fun(0.0001), “#.####”)
End Sub
Private Function fun(num As Single) As Single
Dim s As Integer, n As Integer
Dim pi As Single, t As Single
pi = 0: t = 1: s = 1: n = 1
While (t >= num)
pi = pi + t
n = n + 2
s = -s
t = s% n
Wend
pi = pi * 4
fun = pi
End Function
7．下面程序的功能是：有这样一个三位数，其尾数不大于2。若将尾数移到首位后（其余二个数字次序不变，依次后推），新三位数将是原三位数的两倍多。求这三位数。程序中有错误，改正错误，使程序能输出正确的结果。
Private Sub Command1_Click()
Dim i%, j%, k%, n%, m%
For i = 1 To 9
For j = 0 To 9
For k = 1 To 9
n = 100 * i + 10 * k + j
m = 100 * k + 10 * j + i
If n >= 2 * m Or n <= 3 * m Then Print m
Next k
Next j
Next i
End Sub
四、程序设计
1. 编写程序，求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是0~9之间的一位整数。
2. 问[100,200]之间有奇数个不同因子的整数共有多少个？
3. 求[500,2500]之间按递增顺序的素数中的第25大的素数。
4. A,B,C三个正整数，当满足1/A^2+1/B^2=1/C^2关系时，称为倒勾股数。求130 5. 已知正整数A,B(假定A 6. 编写程序，求在四位数的偶数中，所有各位数字之和是6的倍数的数的和。 7. 编写程序，统计1000~9999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，其第1位与第3位数字之和为12，第2位与第4位数字之积为24。 8. 编写程序，统计200~300之间的所有满足三个数字之积为24，三个数字之和为10的数的个数。 9. 求一正整数等差数列的前三项的和，该数列前四项之和是26、之积是880。 10. 从100米高度落下一球,每次落地后反弹高度为上一次下落高度的3/4,求该球第10次落地时,前后所经过的路径长度. 11. 当n=20时，求 S=1+(1+2^0.5)+(1+2^0.5+3^0.5)+…+(1+2^0.5+3^0.5+…+n^0.5)的值。要求：按四舍五入的方式精确到小数点后第二位。 12. 已知Fibonacci数列：1,1,2,3,5,8,……,它可由下面公式表述： F(1)=1 if n=1 F(2)=1 if n=2 F(n)=F(n-1)+F(n-2) if n>2 试求F(2)+F(4)+F(6)+……+F(50)值。 提示：最好使用递推法求解，因为使用递归调用很可能超出某些语言的递归深度。” 13. 求[500,1999]之间的十位数字为7的素数的个数。 14. 50个小学生按１至50序号顺时针围成一圈，做出局游戏，老师站在圈外逆时针从最后一个人数起，每数到5时，这人从圈里出来，继续数1,2,3,4,5,数到第5个学生时，他就出局，已出局的位置不再参加计数，直至所有的学生出局为止，问最后一个出局的学生序号是多少号。 15. 编写程序，求共有几组I,j,k符合算式ijk+kji=1534,其中I,j,k是[0,9]之间的一个整数。 16. 已知A 17. 已知24有8个正整数因子（即：1，2，3，4，6，8，12，24），而24正好能被其因子数8整除，求正整数[10，100]之间有多少个正整数能被其因子的个数整除。 18. 自然数对是指两个自然数的和与差都是平方数，如8和17的和8+17=25与其差17-8=9都是平方数，则称8和17是自然数对（8，17）。假定（A，B）与（B，A）是同一个自然数对且假定A>=B，求所有小于或等于100（即：A<=100,B<=100）的自然数对中A之和。 19. 当m的值为50时，计算下列公式的值： T=1-1/2-1/3-1/4-…-1/m 要求：按四舍五入的方式精确到小数点后第四位。 20. 当m的值为50时，计算下列公式的值： T=1-1/2+1/3-1/4+…-1/m 要求：按四舍五入的方式精确到小数点后第四位。 21. 编程求取：从6开始的前6个同构数的和(若某数与其本身的平方数低位部分相等，则称之同构数，如：6，其平方数为36，则6为一个同构数)。 22. 猴吃桃：有一天小猴子摘下了若干个桃子，当即吃掉一半，还觉得不过瘾，又多吃了一个。第二天接着吃了剩下的桃子中的一半，仍不过瘾，又多吃了一个。以后每天都是吃尚存桃子的一半零一个。到第30天早上小猴子再去吃桃子时，看到只剩下一个桃子了。问小猴子第一天共摘下了多少个桃子。 23. 编写程序，求出9到499之间的所有非偶数非素数的数之和。 24. 在[100，999]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数; 求有多少个这样的数？ 25. 已知一个数列的前三项为0，0，1，以后各项都是其相邻的前三项之和，求该数列前30项之和。 26. 已知f(n)=f(n-1)+2f(n-2)-5f(n-3),f(0)=1,f(1)=2,f(2)=3,求 f(0)+f(1)+…f(30)。 27. 取[100，900]之间相差为12的相邻素数对的个数。 28. 求1/2+2/3+3/5+5/8+……的前1000项的和(注：该数列从第二项开始，其分子等于前一项的分母，而其分母等于前一项分子与分母之和)。要求：按四舍五入的方式精确到小数点后第二位。 29. 编程序求1~55的平方根的和并输出结果。（保留小数点两位） 30. 编程序求出1~100所有整数的立方和并输出结果。 31. 编程序求出100到600之间同时满足除3余2和除5余3条件的数的个数。 32. 编程序求出1到8000之间的能被5整除的前若干个偶数之和，当和大于750时退出并输出结果。 33. 当k值为20时，求S的值。 (2^2/(1*3))+(4^2/(3*5))+(6^2/(5*7))+…+(2k)^2/((2k-1)(2k+1)) 33.（按四舍五入的方式精确到小数点后第三位） 34. S1=1，S2=1+3，S3=1+3+5，S4=1+3+5+7，…，SN=1+3+5+7+…+（2N-1），N 为正整数。编程求S1+S2+S3+S4+…+SN的值<20000时的N的最大值。 35. 把一张一元钞票,换成一分、二分和五分硬币,每种至少11枚,问有多少种方案? 36. 编程求区间[500，2500]中按递增顺序第25个素数。 37. 编程求取：[121,140] 之间的弦数的个数（若某正整数的平方等于另两个正整数平方之和，则称该数为弦数. 例如:3^2+4^2=5^2, 因此5是弦数） 38. 编程求取：S=1/2+2/3+3/5+5/8+……的前30项的和（注：该级数从第二项开始，其分子是前一项的分母，其分母是前一项的分子与分母的和）。要求：按四舍五入的方式精确到小数点后第二位。 39. 编程求取：从6开始的前6个同构数的和(若某数与其本身的平方数低位部分相等，则称之同构数，如：6，其平方数为36，则6为一个同构数)。 40. 编程序求1~600能被11整除的个数。 湖南省高校计算机等级考试模拟试题Visual Basic部分一、单项选题1、从功能上讲，Visual Basic 6.0有3种版本，下列不属于这3种版本的是 ( ) 。A、学习版 B、标准版 C、专业版 D、企业版 2、为了同时改变一个活动控件的高度和宽度，正确的操作是（）。A、拖拉 控件4个角上的某个小方块B、只能拖拉位于控件右下角的小方块C、只 能拖拉位于控件左下角的小方块D、不能同时改变控件的高度和宽度 3、VB把开发一个应用程序视为一项工程，用创建工程的方法来创建一个应用程序，并利用（）窗口来管理工程。 A、工程资源管理 器 B、属性C、窗体 D、窗体 布局 4、下列哪个是“面向对象的程序设计”的缩写。A、OLE B、OOP C、OCX D、ODBC 5、不属于VB三种工作模式的是 （）：A、设计模式 B、运行模式 C、调试模式 D、中 断模式 6、关于VB中程序运行的方式，以下说法正确的是（）。A、只 能使用解释运行模式B、只能使用编译运行模式C、既不能使用解释运行 模式，也不能使用编译运行模式D、既能使用解释运行模式，又能使用编译运行模式 7、在VB6.0的集成开发环境中调试程序时，用户可直接在（）窗口中用Print方式或直接在程序中用Debug.print方法显示表达式的 值。 A、代码 B、属性C、窗 体 D、立即 8、一个VB工程中工程文件的扩展名是（）。 A、.vbp B、.frm C、.frx D、.bas 9、 下列关于VB6.0的安装，说法错误的是（）。A、有三种安装方式：典型安装、自定义安装和最小安装B、 VB6.0可从Visual Studio6.0产品的第 一张盘上安装C、 VB6.0的联机帮助文件会随VB6.0系统而自动安装D、系 统安装好后，可根据需要添加或删除某些组件 10、下列语句有语法错误的 是（）。A、a＝5 B、b＝a C、b=“a” D、5=a 11、执行下面的语句后，所产生的信息框的标题是（）。 a=MsgBox(“aaaa”,5 ,”bbbb”)A、bbbb B、aaaa C、空 D、5 12、假定Picture1,Form1，text1，label1分别为图 片框、窗体、文本框、标签的名称，程序代码如下，单击图片框时，清除 下列哪个对象的内容（）。Private Sub Picture1_Click()ClsEnd SubA、Picture1 B、text1 C、Form1 D、Label1 13、语句x=inputbox(“please input a number”,”input”,3)的作用为（）。 A、此句含有语法错误，无法判断 B、显示一个输入框，其默认值为3 C、用于信息输出 D、显示一个对话框，可以同时输入3个值 14、下列语句中，（）语句可以使窗体移动到（200,40），并将高度设置为3000，宽 度为6000。A、 Command1.Move 200,40,6000,3000B、 Move 200,40,6000,3000C、 Move 40,200,6000,3000D、 Move 200,40,3000,6000 15、StrReverse（”abcD”）的值为（）。A、dCBA B、dcba C、Dcba D、DABC 16、关于逻辑型数据，下列说法错误的是（）。A、逻辑型数据只有两种可能值：True或者FalseB、当把逻辑值转换为数值时False转为0，True转为1C、当把其他类型数据 转换为逻辑数据时，非0数转换为True，0转换为FalseD、逻辑型数据 以2个字节存储 17、产生大于等于10且小于20的随机整数的表达式为（）。 A、Int(Rnd(10)＋10) B、Int(Rnd*10+10) C、Int(Rnd*10+11) D、Int(Rnd*20-10) 18、数学式子sin25。写成VB表达式是（）。A、sin25 B、sin(25) C、 sin(25。) D、sin(25*3.14/180) 19、“＋”用作字符串连接符时，下列说法正确的是（）。A、连接符两旁的操作符只能为数值型B、连接符两旁的操作符只能为字符型C、连接符两旁的操作符既可为数值型，也可为字符型D、连接符两旁的操作符既不能为数值型，也不能为字符 型 20、“&”用作字符串连接符时，下列说法正确的是（）。A、连接符两旁的操作符只能为数值型B、连接符两旁的操作符只能为字符型C、连接符两旁的操作符既可为数值型，也可为字符型D、连接符两旁的操作符既 不能为数值型，也不能为字符型 21、在标准模块的声明部分中，下列语句的作用为（）。Option ExplicitA、一个可执行语句，无特殊作用B、规定此模块中的任何变量都需要先声明再使用C、表明此模块为标准模块D、无特殊作用，可删除 22、对于定义Dim my1,my2,my3 as single，以下说法中正确的为（）。A、 my1，my2与my3都被定义为单精度型B、 my1被定义为变体类型，my2,my3被定义为单精度型C、 my1,my2被定义为变体 类型，my3被定义为单精度型D、 my1，my2，my3都被定义为变体类型 23、若要使标签成为透明，可通过设置（）属性来实现。A. BackCOlor B. BackStyle C. BorderStyle D. ForeColor 24、运行时，若要获得文本框中所选定的文本，可通访问（）属性来实现。A. SelStart B. SelLength C. Text D. SelText 25、户在组合框中所输入的数据，可通过访问组合框对象的（）属性来获得。A. Text B. List C. List index D. ListCount 26、要将文本框中的字体设为“粗体”，可设置（）的属性为True。A. FontBold B. BackItalic C. FontName D. FontSize27、要将文本框前景颜色设为蓝色，可设置（）的属性为vbBlue。A. ForColor B. BackColor C. BackStyle D. BorderStyle28、本框的双击事件是（）。A. Value B. DblClick( ) C. Name D. Click( ) 29、若要将命令按钮设置为默认按钮，可设置（）属性为True 来实现。A. Cancel B. Value C. Enabled D.Default 30、标签的边框由（）属性的设置来决定。 A. BackCOlor B. BackStyle C. BorderStyle D. AutoSize 31、要使标签的大小自动与所显示的文本相适应，可通过设置（）属性的值为True来实现。A. AutoSize B. Alignment C. Apperance D. Visible 32、本框中内容的对齐方式，由（）属性值决定。A. Text B. Name C. Caption D. Alignment 33、若要设置文本框最大可接收的字符数，可通设置（）属性值来实现。A. Mulltline B. Length C. Min D. MaxLenght 34、要求向文本框输入密码时，只在文本框中显示&号，则应当在此文本框的属性窗口中设置（）。A. Text属性值为 & B. Caption属性值为 & C. password属性值为 空 D. Passwordchar属性值为 & 35、要获得垂直滚动条Vscrollbar控件所能表示的最大值，可通过调用该控件的（）属性来实现。A. Value B. Max C. Min https://www.360docs.net/doc/932231633.html,rgeCHange 36、要获得滚动条的当前值，可通过访问（）属性来实现。A. Text B. Value C. Max D.Min 37、要设置定时器的定时间隔设为10秒，应将（）属性值设为10000。A. Interval B. Value C. Enabled D. Text 38、图片框(PictureBox)中显示的图形，由对象的（）属性决定。A. Picture B. Image C. Icon D. LoadPic 39、要将图片”D:\PIC\CAR.JPG”载入到当前的图片框(PictureBox)中，应用（）命令。A. LoadFile B. LoadPicture C. LoadPic D. LoadJPG 40、要获得当前列表项的数目，可通过访问（）属性来实现。A. Columns B. Text C. ListIndex D. ListCount 41、检查框（复选框）的当前状态可通过（）属性来访问。A. Value B. Checked C. Selected D. Caption 42、打开通用对话框的“另存为”对话框的方法是（）A. ShowOpen B. ShowSave C. ShowColor D. ShowFont 43、以下（）可从通用对话框的“打开”对话框中返回用户选择的文件名。A. FileName B. Path C. FontName D. Color 44、语句：dim student(10,5,4) 定义的是一个（）维数组。 A. 1 B. 2 C. 3 D. 4 45、语句：dim S(-1 to 5) 定义的数组有（）个元素。A. 7 B. 6 C. 5 D. 4 46、已知Eng(1)=90，Math(1)=80， Comp(1)=95，Total(1)= Eng(1)+Math(1)+Comp(1)，则Total(1)=（）。 A. 265 B. 90 C. 80 D. 95 47、下面的数组定义语句正确的是（）。 A. Dim a[3,4] B. Dim a[3;4] C. Dim a(3,4) D. Dim a(3;4) 48、用于遍历对象集合所有元素的语句是（）。 A. Do while…Loop B. For Each…Next C. While… Wend D. For… Next 49、有以下数组声明语句：Option Base 1: Dim A(3,2 to 4)，则数组A有（）个元素。 A. 3 B. 4 C. 12 D. 9 50、已知一命令按钮的单击事件的代码如下，第一次单击该按钮输出的值为2，第三次 单击该按钮输出的值为（）。Private Sub Command1_Click()Static Stu(3) As IntegerFor i = 2 To 3 Stu(i) = Stu(i) + iNext iPrint Stu(2);End Sub A. 2 B. 4 C. 6 D. 8 51、已知在“通用”代码有以下语 句： Dim tt( ) as Integer 则，在某一事件代码中使用（）是正确的。 A. Redim tt(3,4) as boolean B. Redim tt(4) as String C. Redim tt(10) D. Redim tt( ) 52、以下过程是窗体Form1的（）事件。Prviate Sub Form_Click( )……End Sub A. 单击 B. 双击 C. 装载 D. 按键 53、在以下事件过程中，Private表示（）。 A. 此过程可以被任何其它过程调用 B. 此过程只可以被本窗体模块中的其它过程调用 C. 此过程不可以被任何其它过程调用 D. 此过程不可以被本工程中的任何 过程调用Private Sub txtName_Change()……End Sub 54、在以下事件过程中，Public表示（）。 A. 此过程不可以被本模块中的过程调用B. 此过程只可以被本窗体模块中的其它过程调用 C. 此过程不可以被任何其它过程调用 D. 此过程不可以被本工程中的任何模块调 用 Public Sub txtName_Change() …… End Sub 55、在子过程中的任意位置要退出当前子过程，应用（）命令。 A. End Function B. Exit C. Exit Function D. Exit Sub 56、以下定义的函数（）是按“传值”方式传递参数的。A. Public Function Sum(x,y) B. Public Function Sum(ByVal x, ByVal y)C. Public Function Sum(x as Integer,y as Integer) D. Public Function Sum(x%, y%) 57、以下函数的定义中，（）是错误的。A. Public Function Sum(x ; y) B. Public Function Sum(ByVal x, ByVal y)C. Public Function Sum(x as Integer,y as Integer) D. Public Function Sum(x%, y%) 58、以下递归函数中，正确的是（）。A. Public Function Fn(n as Integer) If n=0 Then Fn=1 Else Fn=Fn*n End Function B. Public Function Fn(n as Integer) If n=0 Then Fn=1 Else Fn=Fn(n)*n End FunctionC. Public Function Fn(n as Integer) If n=0 Then Fn=1 Else Fn=Fn(n-1)*n End FunctionD. Public Function Fn(n as Integer) If n=0 Then Fn=1 Else Fn=Fn(n+1)*n End Function 59、已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（）。Public Function Fun(x, y) Fun = 1 For i = 1 To y Fun = Fun * x Next iEnd FunctionPrivate Sub Command1_Click() Print Fun(3, 4)End SubA. 3 B. 4 C. 81 D. 256 60、已知一窗体上命令按钮Command1的Click事件代码如下，则单击 Command1后，文本显示的文字为（）。Private Sub Command1_Click() Text1.Text =”湖南省” & “计算机” + “等级考试” Text1.ForeColor = vbRed Text1.BackColor = vbGreen Text1.FontBold = TrueEnd SubA. 湖南省计算机等级考试B. 计算机C. 等级考试D. 计算机等级考试 61、VB提供的三种访问文件的模式中，不包括（）。A. 顺序文件 B. 数据库文件 C. 随机文件 D. 二进制文件 62、以下VB语句中，（）的功能是复制指定文件。A. Kill B. FileCopy C. Name D. MkDir 63、以下是Command1的单击事件，单击Command1后，在当前目录下创建了一个名为a.txt的文件，该文件内容为（）。Private Sub Command1_Click()Open “a.txt” For Output As #1Print #1, “计算机”；”等级考试”Close #1End SubA. 等级考 试 B. 计算机等级考试 C. 计算机 D. 计算机；等级考试 64、已知一名为“Student.txt”的文件，其内容如下：张小三，98，87，99李四明，77，88，93陈大光，89，56，65 则以下程序段执行的结果为（）。Private Sub Command1_Click() Open “student.txt” For Input As #1 While (Not EOF(1)) Input #1, Nam, Chn, Eng, Cmp Sum = Chn + Eng + Cmp Print Sum; Wend Close #1End SubA. 284 258 210 B. 98 87 99C. 77 88 93D. 89 56 65 65、以下关于while-wend循环的说法中正确的为（）。A、与do while-loop循环完全一致B、不能用do while-loop循环来代替C、其循环中不能使用exit while 退出循环D、 while-wend不能实现所有循环要求 66、For语句的格式如下，下列说法错误的是（）。 for <循环变量>=<初值> to <终值> [step <步长>] [<循环 体>] [exit for] next [<循环变量>]A、步长只能为正数，不能为负数B、步长为1时，可略去不写C、初值、终值和步长都是数值表达式D、 next后的循环变量与for语句中的循环变量必须相同 67、要控制窗体启动时，在屏幕上的位置，可通过（）属性来设置。A. Top 和 Left B. Left 和 Right C. StartUpPosition D. WindowState 68、窗体中的鼠标指针形状，可以通过（）属性来设置。A. MouseIcon B. MousePointer C. Picture D. Icon 69、若要将窗体隐藏起来，实现的方法为（）。A. Unload B. Cls C. WindowState D. Hide 70、在窗体中利用Print方法输出文本信息时，信息的输出位置由（）属性设置。A. Left B. Top C. x,y D. CurrentX,CurrentY 71、当窗体的大小被调整时，将会发生的事件有（）A. Move B. Resize C. Paint D. Click 72、若要将一普通窗体设置为MDI 窗体的子窗体，应将（）属性值设为True。A. Enabled B. Visible C. MdiChild D. Moveable 73、关闭MDI 窗体时，会触发的事件是（）。A. Load B.Click C. Resize D. QueryUnload 74、菜单设计器中，要将当前菜单项下移一个位置，应按（）按钮。A. “左箭头” B. “右箭头” C. “上箭头” D. “下箭头” 75、活弹出式菜单的命 令是（）。A. Load B. Show C. SetFocus D. PopupMenu 76、要将菜单项的某字母设置为热键，在菜单设计中，应在菜单项的标题的该字母前加（）字符。A. / B. @ C. & D. \ 77、要想通过单击Form2上的Command1，从内存中清除Form2窗体，则可在Command1的单击事件中，使用（）命令。A. Load Form2 B. Form2.Show C. Unload Form2 D. Form2.hide 78、要想通过单击Form2上的Command1，从屏幕（而非内存中）上清除Form2窗体，则可在Command1 的单击事件中，使用（）命令。A. Load Form2 B. Form2.Show C. Unload Form2 D. Form2.hide 79、要想通过Form2窗体中的过程调用Form1窗体中的Public 变量Stu，则可用（）方式实现。A. Form1.Stu B. Form2.Stu C. Stu D. Form2.Form1.Stu 80、若要在图片框中绘制一个椭圆，可使用（）方法来实现。A. Circle B. Line C. Point D.Pset 81、若要获得某一点的颜色值，可通过（）方法来实现。A. Circle B. Line C. Point D.Pset 82、以下关于VB中的图形坐标的度量单位的说法正确的是（）。A. 只有一种单位：Twip B. 只有一种单位：Cm C. 只有一种单位：PointD. 可以有多种单位二、程序填空【试题1】出售金鱼的问题：商人将养的一缸金鱼分五次出售，第一次卖出 全部的一半加二分之一条；第二次卖出余下的三分之一加三分之一条；第三次卖出余下的四分之一条；第四次卖出余下的五分之一加五分之一条；最后卖出余下的11条。问原来渔缸中共有几条鱼？ Private Sub cmdSaleGoldFish_Click() Dim i, j, n, x As Integer n = 0 i = 23 Do x = i j = 1 Do While j <= 4 And x >= 11 If ((x + 1) Mod (j + 1) = 0) Then x = _____________________ Else x = 0 ___________________ End If j = j + 1 Loop If (j = 5 And x = 11) Then Print Tab(5); “开始金鱼数为：”; i n = 1 End If i = i + 2 Loop While (n = 0) End Sub【答案】59【试题2】在窗体上 画一个命令按钮，其名称为Command1，程序如下，先填上相应的语句，然后程序运行，单击命令按钮，并输出结果。 Function M(x As Long,y As Long)As Long M=IIf(x>y,x,____________) End Function Private Sub ____________________ Dim a As Long,b As Long FontSize = 14: FontBold = True Print: Print: Print a=131421 b=211314 Print tab(5);M(a,b) End Sub 【答案】211314【试题3】设某四位数的各位数字的平方和等于100，共有多少个这种四位数？ Private Sub cmdFourSqr_Click() Dim a, b, c, d, i, count As Integer count = 0 i = 1111 FontSize = 14: FontBold = True Print: Print: Print Do Until ________________ a = i \ 1000 b = (i Mod 1000) \ 100 c = Int((i –a * 1000 –b * 100) \ 10) d = i Mod 10 If 100 = a ^ 2 + b ^ 2 + c ^ 2 + d ^ 2 Then ___________________ i = i + 1 Loop Print Tab(5); “满足条件的四位数数目为：”; count End Sub【答案】49【试题4】求方程51X-21Y=3，在|X|≤201，|Y|≤81内共有多少组整数解? Private Sub cmdIntegerRoot_Click() Dim count As Integer FontSize = 14: FontBold = True Print: Print: Print For x = -201 To 201 For y = -81 To 81 If _________________ Then count = count + 1 Next ________________ Print Tab(5); “符合条件的数的数目为：”; count End Sub【答案】10【试题5】用e^x ≈1＋x＋x^2/2!+x^3/3!+x^4/4!……+x^n/n!的公式求近似值，设 x=9,n＝25；Private Sub Form_click() ’用e^x ≈1＋x＋ x^2/2!+x^3/3!+x^4/4!……+x^n/n! Dim n As Integer, x As Integer Dim i As Integer Dim xpower As Single Dim y As Single x = Val(InputBox(“请输入x：”)) n = Val(InputBox(“请输入n：”)) y = 1 factor = 1 For i = 1 To n factor = factor * i xpower = x ^ i y = y + xpower / factor Next i Print “e^”; x; “=”; yEnd Sub 【答案】8103.059【试题6】已知菲波纳契数列{ X } 中,X(1)=0,X(2)=1,X(n)=X(n-1)+X(n-2)，编程求数列前30个数中，所有质数的和。Private Sub Form_Click() Dim s As Long Dim I As Integer Dim No(30) As Long No(1) = 0 No(2) = 1 No(3) = 1 s = 2 For I = 4 To 30 No(I) = No(I – 1) + No(I – 2) j = 2: k = Int(No(I) / 2) Do While j <= k If No(I) Mod j = 0 Then Exit Do j = j + 1 Loop If j > k Then s = s + No(I) Next I Print “前三十个菲波纳契数中质数和是：”; sEnd Sub【答案】544830【试题7】求27090，21672，11352，8127的最大公约数。Option Base 1Private Function GreatestCommonDivisor(ByVal m As Long, ByVal n As Long) As Long Dim t As Long Dim r As Long If m < n Then t = m: m = n: n = t Do r = m Mod n m = n n = r Loop Until r = 0 GreatestCommonDivisor = mEnd FunctionPrivate Sub Form_Click() Dim a, gcd&, i As Byte a = Array(27090, 21672, 11352, 8127) gcd = a(1) For i = 1 To UBound(a) gcd = GreatestCommonDivisor(gcd, a(i)) Next Print gcdEnd Sub 三、程序改错VB二级改错题1．下面程序是输出100-200之间的所有素数个数，程序中有两行有错误。改正错误，使它能输出正确的结果。Private Sub Form_Click()Number = 0For x = 101 To 199 Step 2 i = 2 k = Int(x / 2) Do While i <= k If x Mod i = 0 Then Exit For i = i + 1 Loop If i < k Then Number = Number + 1 End If Next x Print Number End Sub2．下面程序是解决猴子吃桃问题。猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。问第1天共摘了多少桃子。程序中有两行有错误。改正错误，使它能输出正确的结果。Option ExplicitPrivate Sub Form_Click()Dim day As Integer, sum As Integerday = 10; sum = 1Do While day > 0 sum = sum * 2 day = day –1 Loop Print sumEnd Sub3．一个两位数的正整数，如果将其个位数与十位数字对调所生成的数称为其对调数，如28是82的对调数。现给定一个两位的正整数，请找到另一个两位的整数，使这两个数之和等于它们的各自的对调数之和。这样的另一个两位数有多少个。程序中有两行有错误（从键盘输入的两位数为46）改正错误，使它能输出正确的结果。Option ExplicitPrivate Sub Form_Click()Dim x As Integer, y As Integer，number as IntegerDim xf As Integer, yf As IntegerNumber = 0Dox = Val(InputBox(“请输入一个2位正整数：”))Loop While (x < 9) Or (x > 99)xf = (x Mod 10) * 10 + Int(y / 10)For y = 10 To 99yf = y Mod 10 + Int(y / 10)If x + y = xf + yf Then Print x; “+”; y; “=”; xf; “+”; yf; “=”; x + y Number = Number + 1 End IfNext y Print NumberEnd Sub4．下面程序解决的问题是：已知24有8个正整数因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。求[100,300]之间能被其因子数目整除的数中最大的数。程序中有两行有错误。改正错误，使它能输出正确的结果。Private Sub Command1_Click()Dim N As IntegerDim s As IntegerDim i As IntegerFor N = 300 To 100s = 0 For i = 1 To N If N Mod i = 0 Then s = s + 1 End If Next i If s Mod N = 0 Then Print N Exit For End If Next NEnd Sub5．下面程序的功能是求若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。例如：由于7396=86^2，且 7+3+9+6=25=5^2，则称7396是“四位双平方数”。求所有“四位双平方数”中最小的一个“四位双平方数”。程序中有行两有错误。改正错误，使它能输出正确的结果。Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim x As IntegerFor x = 1000 To 9999a = Int(x / 1000)b = Int(x / 100) – a * 100c = Int(x / 10) – a * 100 – b * 10d = x – a * 1000 – b * 100 – c * 10If Sqr(x) = Int(Sqr(x)) And Sqr(a + b + c + d) = Sqr(a + b + c + d) Then Print x Exit ForEnd IfNext xEnd Sub6． 一级VF程序设计题库及答案（第19页） 181已知：非等腰三角形最长边是60，其它两边的长度都是正整数，且三边之和能被3整除，试编程求取这类三角形的个数（注意：两边的长度交换构成的三角形算作同一个三角形，如：其它两边的长度为30,40的三角形与长度为40,30的三角形视为同一个三角形）。271 clea s=0 for a=2 to 59 for b=1 to 58 if a>b and a+b>60 and (a+b+60)%3=0 s=s+1 endif endfor endfor ?s 182 统计[100,10000]之间有多少个这样的整数,其各位数字之和能被7整 除 1408 clea s=0 q=0 for n=100 to 10000 do case case n<1000 a=int(n/100) b=int(n/10)%10 c=n%10 q=a+b+c case n<10000 d=int(n/1000) e=int(n/100)%10 f=int(n/10)%10 g=n%10 q=d+e+f+g endcase if q%7=0 s=s+1 endif endfor ?s 第七章理论复习题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 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个，依次比较，直到比较 站长提醒广大考生：下面的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 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 一．选择题 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．设计时的第一个窗体 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 计算机等级考试二级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 编写一个复制字符串的程序，如图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中显示转换后的字符串。 * （此题要求上载窗体文件，不要求填写程序运行结果） 编写程序： 一、基本操作题 下面出现的“考生文件夹”均为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() 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。窗体中已经给出了所有控件，如图所示。 江苏省高等学校非计算机专业学生 计算机基础及应用能力等级考试试卷 二级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上机试题 全国计算机等级考试二级VB上机题库(第一套) 一、基本操作题（2小题，每小题15分，共计30分） 1．在名称为Form1的窗体上画一个文本框，其名称为T1,宽度和高度分别为1400和400；在画两个按钮，其名称分别为C1和C2，标题分别为“显示”和“扩大”，编写适当的事件过程。程序运行后，如果单击C1命令按钮，则在文本框中显示“等级考试”，如图1所示，如果单击C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩大到原来的3倍，如图2所示。 注意： 要求程序中不得使用变量。 存盘时必须放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 图2 解析：（大家请注意，以下分析加入我个人的理解和方法，都已通过上机验证，有的题方法不止一种，大家可以和我互相交流，我的邮箱：hero_chenxi@https://www.360docs.net/doc/932231633.html,，QQ:313691262，也可从论坛讨论https://www.360docs.net/doc/932231633.html,） 这道题没什么难度，主要考你窗体、按钮及文本框的基本属性，所以大家一定要熟练掌握常用控件的基本属性。打开VB(不用我说了吧)，新建一个工程（标准的EXE），单击控件面板的“TextBox”控件（也可双击，直接在窗体建立），在属性面板中将“名称”修改为T1，“Width”修改为1400，“Height”修改为400。然后单击控件面板的“CommanButton”添加两个命令按钮，在属性面板中将“名称”分别修改为C1和C2，“Caption”分别修改为显示和扩大。 接下来双击显示按钮，进入代码编写窗口，键入：（按钮的Click事件）T1.text=”等级考试” 双击扩大按钮，键入：（按钮的Click事件） T1.width=T1.width+1400 T1.Height=T1.Height+400 T1.fontsize=T1.fontsize*3 最后单击保存按钮，工程命名为sjt1.vbp,窗体命名为sjt1.frm。 总结：这道题只要错一点就没有分，主要考大家仔细认真及属性设置的熟练程度，大家一定了解Caption、Text等属性在不同控件含义是不同，有的控件有这个属性，而那个控件没有，名称属性是不能在运行期间改变的等等。以上限于时间原 三、基本编程 3.1. 编写程序，计算并输出下面数列前n（设n=45）项中所有偶数项的和。 1×2×3,2×3×4,3×4×5,……,n×(n+1)×(n+2),…… 要求：在运行程序时，采用适当的方式进行输入（n）和输出（计算结果）。Dim n As Integer Private Sub Command1_Click() Dim s As Long n = Val(InputBox("输入n的值")) For i = 2 To n Step 2 s = s + i * (i + 1) * (i + 2) Next i Print "数列中的偶数项和是："; s End Sub 3.2. 编写程序,计算并输出下面数列前35项的和。 1×2×3,-2×3×4,3×4×5,-……,+(-1)^(n-1)×(n×(n+1)×(n+2)) （其中：(-1)^(n-1)表示-1的(n-1)次方） 要求：在运行程序时，采用适当的方式进行输入（n）和输出（计算结果）。Dim n As Integer Private Sub Command1_Click() Dim s As Long n = Val(InputBox("输入n的值")) s=0 For i = 1 To n s = s + (-1) ^ (i - 1) * i * (i + 1) * (i + 2) Next i Print "数列中前35项的和是："; s End Sub 3.3. 编写程序，求下面数列前50项的和。结果取4位小数。 1,1/(3×3),1/(5×5),1/(7×7),……,1/((2n-1)×(2n-1)),…… 要求：在运行程序时，采用适当的方式进行输入（n）和输出（计算结果）。Dim n As Integer Private Sub Command1_Click() Dim s As Long n = Val(InputBox("输入n的值")) s=0 For i = 1 To n s = s + 1/((2 * i-1)*(2 * i-1)) Next i s =Int(s * 10000 + 0.5)/10000 Print "数列中的前50项和是："; s End Sub 3.4. 编写程序，计算并输出下面数列中前n(设n=8)项的和。结果取4位小数。 1/1!,1/2!,1/3!,1/4!,……,1/n!,……（其中，! 表示求阶乘） 要求：在运行程序时，采用适当的方式进行输入（n）和输出（计算结果）。 计算机二级《V B》选择题题库及答案2017选择题 (1)下列符号常量的声明中不合法的是 = =5+8 ="25" =”OK” 【答案】C 【解析】定义符号常量的一般格式：Const常量名[As数据类型]=表达式，“常量名”参数就是给常量命名。“数据类型”表示常量的数据类型，一般可以省略，这时由后面的“表达式”参数来指明常量的数据类型。表达式可以是数值型常量、字符型常量、布尔型常量和日期型常量。 (2)以下合法的VB变量名是 #b 【答案】D 【解析】VB中变量的命名规则为：①必须以字母或汉字开头②由字母、汉字、数字 或下划线组成③不能使用VB的保留字。-X不能以一下划线开头，不合法;2y不能以数字 开头，不合法;a#b中有#，不合法;D选项符合命名规则，故D.选项正确。 (3)为把圆周率的近似值存放在变量pi中，应 该把变量pi定义为 (7)AsInteger 【答案】C 【解析】单精度Single或双精度Double型的变量能够保存浮点型小数，整型 Integer和长整型Long的变量只能保存整型数据。本题中圆周率为，小数，可定义一个Single或Double型变量来保存。故选C.。 (4)下列符号常量的声明中不合法的是 ： =5+8 =“25” =“OK” 【答案】c 【解析】定义符号常量的一般格式：Const常量名[As数据类型]=表达式，“常量名”参数就是给常量命名。“数据类型”表示常量的数据类型，一般可以省略，这时由后面的“表达式”参数来指明常量的数据类型。表达式可以是数值型常量、字符型常量、布尔型常量和日期型常量。 (5)对于语句DimVarl#，Var2AsInteger，下列说法中正确的是 #和Var2都被定义为整型变量 被定义为双精度型变量，Var2被定义为整型变量 被定义为长整型变量，Var2被定义为整型变量 #被定义为变体变量，Var2被定义为整型变量 【答案】B 【解析】定义变量时.可在定义变量时指定其类型，也可用类型说明符定义变量。在 语句DimVarl#，中，Varl采用类型说明符定义变量，#是双精度型的类型说明符，其类型名为Double，Varl是双精度变量。Var2在定义变量时指定的类型，为整型变量。故选项 B正确，A、C和D项错误。 2006年9月二级VisualBasic程序设计笔试试卷及答案 一、单项选择 (1)下列选项中不符合良好程序设计风格的是_____ 。 A) )源程序要文档化B)数据说明的次序要规范化 C) )避免滥用goto 语句D)模块设计要保证高耦合、高内聚 (2)从工程管理角度，软件设计一般分为两步完成，它们是_____ 。 A) )概要设计与详细设计B)数据设计与接口设计 C) )软件结构设计与数据设计D)过程设计与数据设计 (3)下列选项中不属于软件生命周期开发阶段任务的是_____ 。 A) )软件测试B)概要设计C)软件维护D)详细设计 (4)在数据库系统中，用户所见的数据模式为_____ 。 A) )概念模式B)外模式C)内模式D)物理模式 (5)数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和_____ 。 A) )编码设计B)测试阶段C)运行阶段D)物理设计 (6)设有如下三个关系表： 下列操作中正确的是_____ 。 (7)下列叙述中正确的是_____ 。 A) )一个算法的空间复杂度大，则其空间复杂度也必定大 B) )一个算法的空间复杂度大，则其时间复杂度必定小 C) )一个算法的时间复杂度大，则其空间复杂度必定小 D) )上述三种说法都不对 (8)在长度为64 的有序线性表中进行顺序查找，最坏情况下需要比较的次数为_____ 。 A) ) 63 B) 64 C) 6 D) 7 (9)数据库技术的根本目标是要解决数据的_____ 。 A) )存储问题B)共享问题C)安全问题D)保护问题 (10)对下列二叉树： 进行中序遍历的结果是_____ 。 A) ) ACBDFEG B) ACBDFGE C) ABDCGEF D) FCADBEG (11)以下叙述中正确的是_____ 。计算机二级VB第7章选择题及答案
全国计算机等级考试二级VB笔试试题及答案
省二级VB编程题目
2016年计算机二级《VB》基础练习题及答案(2)
计算机二级VB考试试题
2013年3月全国计算机等级考试二级VB无纸化上机题题库及答案解析(4)
计算机二级VB编程题目含答案
江苏省计算机二级VB试题库
二级VB历年真题
计算机等级考试二级VB模拟试题四及答案解析
计算机二级考试题库：VB程序题
全国计算机二级VB上机题库(题+答案)word版
2013计算机二级(VB)考试机试题库
2012江苏省计算机二级VB试题库及答案
全国计算机等级考试VB二级上机题库,有答案
二级vb编程题3很典型很有帮助—基本编程
计算机二级VB题库
计算机等级考试二级_VB笔试真题及答案