扬州方士成就怎么开:全国计算机等级考试历年真题 2008年9月计算机二级VB语言真题==通过二级在线考试系统
来源:百度文库 编辑:偶看新闻 时间:2024/04/20 21:43:45
做题+继续做题+还是做题=通过二级
全国计算机等级考试 历年真题 2008年9月计算机二级VB语言真题
一、选择题(每题2分,共计70分)
1.一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈,然后
再依次出栈,则元素出栈的顺序是
A)12345ABCDE B)EDCBA54321
C)ABCDE12345 D)54321EDCBA
A B C D
2.
下列叙述中正确的是
A)循环队列有队头和队尾两个指针,因此,循环队列是非线性结构
B)在循环队列中,只需要队头指针就能反映队列中元素的动态变化情况
C)在循环队列中,只需要队尾指针就能反映队列中元素的动态变化情况
D)循环队列中元素的个数是由队头指针和队尾指针共同决定
A B C D
3.
在长度为n的有序线性表中进行二分查找,最坏情况下需要比较的次数是
A)O(n) B)O(n2) C)O(log2n) D)O(nlog2n)
A B C D
4.
下列叙述中正确的是
A)顺序存储结构的存储一定是连续的,链式存储结构的存储空间不一定是连续的
B)顺序存储结构只针对线性结构,链式存储结构只针对非线性结构
C)顺序存储结构能存储有续表,链式存储结构不能存储有序表
D)链式存储结构比顺序存储结构节省存储空间
A B C D
5.
数据流图中带有箭头的线段表示的是
A)控制流 B)事件驱动
C)模块调用 D)数据流
A B C D
6.
在软件开发中,需求分析阶段可以使用的同居是
A)N-S图 B)DFD图 C)PAD图 D)程序流程图
A B C D
7.
在面向对象方法中,不属于“对象”基本特点的是
A)一致性 B)分类性 C)多态性 D)标识唯一性
A B C D
8.
一间宿舍可以住多个学生,则实体宿舍和学生之间的联系是
A)一对一 B)一对多 C)多对一 D)多对多
A B C D
9.
在数据管理技术发展的三个阶段中,数据共享最好的是
A)人工管理阶段 B)文件系统阶段
C)数据库系统阶段 D)三个阶段相同
A B C D
10.有三个关系R、S、和T如下:
由关系R和S通过运算得到关系T,则所使用的运算为
A)笛卡尔积 B)交 C)并 D)自然连接
A B C D
11.
在设计窗体时双击窗体的任何地方,可以打开的窗口是
A)代码窗口 B)属性窗口
C)工程资源管理器窗口 D)工具箱窗口
A B C D
12.
若变量a未实现定义而直接使用(例如:a=0),则变量a的类型是
A)Integer B)String C)Boolean D)Variant
A B C D
13.
把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为
A)Dim pi As Integer B)Dim pi(7) As Integer
C)Dim pi As Single D)Dim pi As Long
A B C D
14.
表达式2*3^2-4*2/2+3^2的值是
A)30 B)31
C)49 D)48
A B C D
15.
以下不能输出“Program”的语句是
A)Print mid("VBProgram"3,7) B)Print Right("VBProgram",7)
C)Print Mid("VBProgram",3) D)Print Left("VBProgram",7)
A B C D
16.
窗体上有一个名称为Frame1的框架(如图),若要把框架上显示的"Frame1"改为
汉字“框架”,下面正确的语句是
A)Frame1.Name="框架" B)Frame1.Caption="框架"
C)Frame1.Text="框架" D)Frame1.Value="框架"
A B C D
17.
以下叙述中错误的是
A)在通用过程中,多个形式参数之间可以用逗号作为分隔符
B)在Print方法中,多个输出项之间可以用逗号作为分隔符
C)在Dim语句中,所定义的多个变量可以用逗号作为分隔符
D)当一行中有多个语句时,可以用逗号作为分隔符
A B C D
18.
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表
项内容的是
A)List1.List B)List1.ListIndex
C)List1.Text D)List1.Index
A B C D
19.
设a=4,b=5,c=6,执行语句Print aA)True B)False C)出错信息 D)0
A B C D
20.
执行下列语句
strInpug=InputBox("请输入字符串","字符串丢画框","字符串)
将显示输入对话框。如果此时直接点击"确定"按钮,则变量strInput的内容是
A)"请输入字符串" B)"字符串对话框"
C)"字符串" D)空字符串
A B C D
21.
窗体上有Command1、Command2两个命令按钮。现编写以下程序:
Option Base 0
Dim a() As Integer
Private Sub Command1_Click()
m = InputBox("请输入一个正整数")
ReDim a(m)
End Sub
Private Sub Command2_Click()
m = InputBox("请输入一个正整数")
ReDim a(m)
End Sub
运行程序是,单击Command1后输入整数10,再单击Command2后输入整数5,则数组
a中元素的个数是
A)5 B)6 C)10 D)11
A B C D
22.
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写
如下的事件过程
Private Sub Command1_Click()
conter = 0
For I = 1 To 4
For J = 6 To 1 Step -2
conter = conter + 1
Next J
Next I
Label1.Caption = Str(conter)
End Sub
程序运行后,单击命令按钮,标签中显示的内容是
A)11 B)12 C)16 D)20
A B C D
23.
在窗体上画一个名为command1的命令按钮,然后编写以下程序:
Private Sub Command1_Click()
Dim M(10) As Integer
For k = 1 To 10
M(k) = 12 - k
Next k
x = 8
Print M(2 + M(x))
End Sub
运行程序,单击命令按钮,在窗体上显示的是
A)6 B)5 C)7 D)8
A B C D
24.
以下关于过程及过程参数的描述中,错误的是
A)调用过程时可以用控件名称作为实际参数
B)用数组作为过程的参数是,使用的是“传地址”方式
C)只有函数过程能够将过程中处理的信息传回到调用的程序中
D)窗体(Form)可以作为过程的参数
A B C D
25.
在窗体上画一个名为Command1的命令按钮,再画两个名称分别为Label1、Label2
的标签,然后编写如下程序代码:
Private X As Integer
Private Sub Command1_Click()
X = 5: Y = 3
Call proc(X, Y)
Label1.Caption = X
Label2.Caption = Y
End Sub
Private Sub proc(a As Integer, ByVal b As Integer)
X = a * a
Y = b + b
End Sub
程序运行后,单击命令按钮,则两个标签中显示的内容分别是
A)25和3 B)5和3 C)25和6 D)5和6
A B C D
26.在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令
按钮。运行后的窗体外观如图所示。
设有如下的类型和变量生命
Private Type Person
name As String * 8
major As String * 20
End Type
Dim p As Person
设文本框中的数据已正确地赋值给Person类型的变量p,当单击“保存”按钮时,能头
正确地把变量中的数据写入随机文件Test2.dat中的程序段是
A)Open "c:\Test2.dat" For Output As #1
Put #1,1,p
Close #1
B)Open "c:\Test2.dat" For Random As #1
Get #1,1,p
Close #1
C)Open "c:\Test2.dat" For Random As #1 Len=Len(p)
Put #1,1,p
Close #1
D)Open "c:\Test2.dat" For Random As #1 Len=Len(p)
Get #1,1,p
Close #1
A B C D
27.
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编
写如下事件过程:
Private Sub Command1_Click()
Dim i As Integer, n As Integer
For i = 1 To 50
i = i + 3
n = n + 1
If i > 10 Then Exit For
Next
Text1.Text = Str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是
A)2 B)3 C)4 D)5
A B C D
28.
假定有以下循环结构
Do Until 条件表达式
循环体
Loop
则以下正确的描述是
A)如果“条件表达式”的值是0,则一次循环体也不执行
B)如果“条件表达式”的值不是0,则至少执行一次循环体
C)不论“条件表达式”的值是否为“真”,至少要执行一次循环体
D)如果“条件表达式”的值恒为0,则无限次执行循环体
A B C D
29.
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim I, Num
Randomize
Do
For I = 1 To 1000
Num = Int(Rnd * 100)
Print Num
Select Case Num
Case 12
Exit For
Case 58
Exit Do
Case 65, 68, 92
End
End Select
Next I
Loop
End Sub
上述事件过程执行后,下列描述中正确的是
A)Do循环执行的次数为1000此
B)在For循环中产生的随机数小于或等于100
C)当所产生的随机数为12时结束所有循环
D)当所产生的随机数为65,68或92时窗体关闭、程序结束
A B C D
30.
在窗体上画一个名为Command1的命令按钮,然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4)
j = 1
For I = 4 To 1 Step -1
s = s + a(I) * j
j = j * 10
Next I
Print s
End Sub
运行上面的程序,其输出结果是
A)1234 B)12 C)34 D)4321
A B C D
31.
设有如下通用过程
Public Function Fun(xStr As String) As String
Dim tStr As String, strL As Integer
tStr = ""
strL = Len(xStr)
I = 1
Do While I <= strL / 2
tStr = tStr & Mid(xStr, I, 1) & Mid(xStr, strL - I + 1, 1)
I = I + 1
Loop
Fun = tStr
End Function
在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程:
Private Sub Command1_Click()
Dim S1 As String
S1 = "abcdef"
Print UCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,输出结果是
A)ABCDEF B)abcdef C)AFBECD D)DEFABC
A B C D
32.
某人为计算n!(0Private Function fun(n As Integer) As Long
Dim p As Long
p = 1
For k = n - 1 To 2 Step -1
p = p * k
Next k
fun = p
End Function
在调试时发现该函数过程产生的结果是错误的,程序需要修改。下面的修改方案中有3
种是正确的,错误的方案是
A)把p=1改为p=n
B)把For k=n-1 To 2 Step -1 改为 For k=1 T0 n-1
C)把For k=n-1 To 2 Step -1 改为 For k=1 T0 n
D)把For k=n-1 To 2 Step -1 改为 For k=2 T0 n
A B C D
33.
假定有以下函数过程:
Function Fun(S As String) As String
Dim s1 As String
For I = 1 To Len(S)
s1 = LCase(Mid(S, I, 1)) + s1
Next I
Fun = s1
End Function
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1 = InputBox("请输入一个字符串")
Str2 = Fun(Str1)
Print Str2
End Sub
程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确定”
按钮后在窗体上的输出结果为
A)ABCDEFG B)abcdefg C)GFEDCBA D)gfedcba
A B C D
34.
为计算a的n次方的值,某人编写了函数power如下:
Private Function power(a As Integer, n As Integer) As Long
Dim p As Long
p = a
For k = 1 To n
p = p * a
Next k
power = p
End Function
在调试时发现是错误的,例如Print power(5,4)的输出值应该是625,但实际输出是3125。
程序需要修改。下面的修改方案中有3个是正确的,错误的一个是
A)把For k=1 To n 改为For k=2 To n
B)把p=p*a 改为p=p^n
C)把For k=1 To n 改为For k=2 To n-1
D)把p=a 改为p=1
A B C D
35.
某人编写了下面的程序
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = InputBox("请输入整数")
b = InputBox("请输入整数")
pro a
pro b
Call pro(a + b)
End Sub
Private Sub pro(n As Integer)
While (n > 0)
Print n Mod 10;
n = n \ 10
Wend
Print
End Sub
但调试时发现只输出了前2行(即2个数的反序),而未输出第3行(即2个数之和的
反序),程序需要修改。下面的修改方案中正确的是
A)把过程pro的形式参数n As Integer 改为ByVal n As Integer
B)把Call pro(a+b) 改为pro a+b
C)把n=n\10改为n=n/10
D)在pro b语句之后增加语句c%=a+b,再把Call pro(a+b)改为pro c
A B C D
二、填空题(每空2分,共计30分)
1.对下列二叉树进行中序遍历的结果是【1】
输入答案,中间不含空格:
2.
按照软件测试的一般步骤,继承测试应在【2】测试之后进行。
输入答案,中间不含空格:
3.
软件工程三要素包括方法、工具和过程,其中,【3】支持软件开发的各个环节
的控制和管理。
输入答案,中间不含空格:
4.
数据库设计包括概念设计、【4】和物理设计。
输入答案,中间不含空格:
5.
在二维表中,元组的【5】不能再分成更小的数据项。
输入答案,中间不含空格:
6.
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和
Command1,然后编写如下两个事件过程:
Private Sub Command1_Click()
S$ = InputBox("请输入一个字符串")
Text1.Text = S$
End Sub
Private Sub Text1_Change()
Label1.Caption = UCase(Mid(Text1.Text, 7))
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串
“VisualBasic”,则在标签中显示的内容是【6】。
输入答案,中间不含空格:
7.
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
a$ = "National Computer Rank Examination"
n = Len(a$)
S = 0
For I = 1 To n
b$ = Mid(a$, I, 1)
If b$ = "n" Then
S = S + 1
End If
Next I
Print S
End Sub
程序运行后,单击命令按钮,输出结果是【7】。
输入答案,中间不含空格:
8.
为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picture1,所使用的语句为【8】
输入答案,中间不含空格:
9.
设有如下程序:
Private Sub Form_Click()
Cls
a$ = "ABCDFG"
For I = 1 To 6
Print Tab(12 - I); 【9】
Next I
End Sub
程序运行后,单击窗体,结果如图所示,请填空。
输入答案,中间不含空格:
10.
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim Arr
Arr = Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72)
pos = 0
neg = 0
For k = 1 To 10
If Arr(k) > 0 Then
【10】
Else
【11】
End If
Next k
Print pos, neg
End Sub
以上程序的功能是,计算并输出数组Arr中10个数的正数之和pos与负数之和neg,请填空
输入答案,中间不含空格:
11.
上一题【11】的答案为
输入答案,中间不含空格:
12.
在窗体上画一个名为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_Click()
Dim i As Integer
Sum = 0
n = InputBox("Enter a number")
n = Val(n)
For i = 1 To n
Sum = 【12】
Next i
Print Sum
End Sub
Function fun(t As Integer) As Long
p = 1
For i = 1 To t
p = p * i
Next i
【13】
End Function
以上程序的功能是,计算1!+2!+3!+...+n!,其中n从键盘输入,请填空。
输入答案,中间不含空格:
13.
上面第【13】空的答案是:
输入答案,中间不含空格:
14.
在窗体上画一个文本框,名称为Text1,然后编写如下程序:
Private Sub Form_Load()
Open "d:\temp\dat.txt" For Output As #1
Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If UCase(Text1.Text) = 【14】 Then
Close #1
End
Else
Write #1, 【15】
Text1.Text = ""
End If
End If
End Sub
输入答案,中间不含空格:
15.
上一题【15】答案是
输入答案,中间不含空格:
Hi,亲爱的朋友,欢迎光临Passtwo! 您想做点什么呢?
I Want....查询等级考试成绩下载等级考试模拟题下载历年计算机二级试题查找二级考试答案
热门软件下载
实用电子地图 本站隆重推荐自主开发的VFP上机模拟系统免费下载使用
二级vfp上机模拟系统
全国计算机等级考试 历年真题 2008年9月计算机二级VB语言真题
一、选择题(每题2分,共计70分)
1.一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈,然后
再依次出栈,则元素出栈的顺序是
A)12345ABCDE B)EDCBA54321
C)ABCDE12345 D)54321EDCBA
A B C D
2.
下列叙述中正确的是
A)循环队列有队头和队尾两个指针,因此,循环队列是非线性结构
B)在循环队列中,只需要队头指针就能反映队列中元素的动态变化情况
C)在循环队列中,只需要队尾指针就能反映队列中元素的动态变化情况
D)循环队列中元素的个数是由队头指针和队尾指针共同决定
A B C D
3.
在长度为n的有序线性表中进行二分查找,最坏情况下需要比较的次数是
A)O(n) B)O(n2) C)O(log2n) D)O(nlog2n)
A B C D
4.
下列叙述中正确的是
A)顺序存储结构的存储一定是连续的,链式存储结构的存储空间不一定是连续的
B)顺序存储结构只针对线性结构,链式存储结构只针对非线性结构
C)顺序存储结构能存储有续表,链式存储结构不能存储有序表
D)链式存储结构比顺序存储结构节省存储空间
A B C D
5.
数据流图中带有箭头的线段表示的是
A)控制流 B)事件驱动
C)模块调用 D)数据流
A B C D
6.
在软件开发中,需求分析阶段可以使用的同居是
A)N-S图 B)DFD图 C)PAD图 D)程序流程图
A B C D
7.
在面向对象方法中,不属于“对象”基本特点的是
A)一致性 B)分类性 C)多态性 D)标识唯一性
A B C D
8.
一间宿舍可以住多个学生,则实体宿舍和学生之间的联系是
A)一对一 B)一对多 C)多对一 D)多对多
A B C D
9.
在数据管理技术发展的三个阶段中,数据共享最好的是
A)人工管理阶段 B)文件系统阶段
C)数据库系统阶段 D)三个阶段相同
A B C D
10.有三个关系R、S、和T如下:
由关系R和S通过运算得到关系T,则所使用的运算为
A)笛卡尔积 B)交 C)并 D)自然连接
A B C D
11.
在设计窗体时双击窗体的任何地方,可以打开的窗口是
A)代码窗口 B)属性窗口
C)工程资源管理器窗口 D)工具箱窗口
A B C D
12.
若变量a未实现定义而直接使用(例如:a=0),则变量a的类型是
A)Integer B)String C)Boolean D)Variant
A B C D
13.
把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为
A)Dim pi As Integer B)Dim pi(7) As Integer
C)Dim pi As Single D)Dim pi As Long
A B C D
14.
表达式2*3^2-4*2/2+3^2的值是
A)30 B)31
C)49 D)48
A B C D
15.
以下不能输出“Program”的语句是
A)Print mid("VBProgram"3,7) B)Print Right("VBProgram",7)
C)Print Mid("VBProgram",3) D)Print Left("VBProgram",7)
A B C D
16.
窗体上有一个名称为Frame1的框架(如图),若要把框架上显示的"Frame1"改为
汉字“框架”,下面正确的语句是
A)Frame1.Name="框架" B)Frame1.Caption="框架"
C)Frame1.Text="框架" D)Frame1.Value="框架"
A B C D
17.
以下叙述中错误的是
A)在通用过程中,多个形式参数之间可以用逗号作为分隔符
B)在Print方法中,多个输出项之间可以用逗号作为分隔符
C)在Dim语句中,所定义的多个变量可以用逗号作为分隔符
D)当一行中有多个语句时,可以用逗号作为分隔符
A B C D
18.
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表
项内容的是
A)List1.List B)List1.ListIndex
C)List1.Text D)List1.Index
A B C D
19.
设a=4,b=5,c=6,执行语句Print aA)True B)False C)出错信息 D)0
A B C D
20.
执行下列语句
strInpug=InputBox("请输入字符串","字符串丢画框","字符串)
将显示输入对话框。如果此时直接点击"确定"按钮,则变量strInput的内容是
A)"请输入字符串" B)"字符串对话框"
C)"字符串" D)空字符串
A B C D
21.
窗体上有Command1、Command2两个命令按钮。现编写以下程序:
Option Base 0
Dim a() As Integer
Private Sub Command1_Click()
m = InputBox("请输入一个正整数")
ReDim a(m)
End Sub
Private Sub Command2_Click()
m = InputBox("请输入一个正整数")
ReDim a(m)
End Sub
运行程序是,单击Command1后输入整数10,再单击Command2后输入整数5,则数组
a中元素的个数是
A)5 B)6 C)10 D)11
A B C D
22.
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写
如下的事件过程
Private Sub Command1_Click()
conter = 0
For I = 1 To 4
For J = 6 To 1 Step -2
conter = conter + 1
Next J
Next I
Label1.Caption = Str(conter)
End Sub
程序运行后,单击命令按钮,标签中显示的内容是
A)11 B)12 C)16 D)20
A B C D
23.
在窗体上画一个名为command1的命令按钮,然后编写以下程序:
Private Sub Command1_Click()
Dim M(10) As Integer
For k = 1 To 10
M(k) = 12 - k
Next k
x = 8
Print M(2 + M(x))
End Sub
运行程序,单击命令按钮,在窗体上显示的是
A)6 B)5 C)7 D)8
A B C D
24.
以下关于过程及过程参数的描述中,错误的是
A)调用过程时可以用控件名称作为实际参数
B)用数组作为过程的参数是,使用的是“传地址”方式
C)只有函数过程能够将过程中处理的信息传回到调用的程序中
D)窗体(Form)可以作为过程的参数
A B C D
25.
在窗体上画一个名为Command1的命令按钮,再画两个名称分别为Label1、Label2
的标签,然后编写如下程序代码:
Private X As Integer
Private Sub Command1_Click()
X = 5: Y = 3
Call proc(X, Y)
Label1.Caption = X
Label2.Caption = Y
End Sub
Private Sub proc(a As Integer, ByVal b As Integer)
X = a * a
Y = b + b
End Sub
程序运行后,单击命令按钮,则两个标签中显示的内容分别是
A)25和3 B)5和3 C)25和6 D)5和6
A B C D
26.在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令
按钮。运行后的窗体外观如图所示。
设有如下的类型和变量生命
Private Type Person
name As String * 8
major As String * 20
End Type
Dim p As Person
设文本框中的数据已正确地赋值给Person类型的变量p,当单击“保存”按钮时,能头
正确地把变量中的数据写入随机文件Test2.dat中的程序段是
A)Open "c:\Test2.dat" For Output As #1
Put #1,1,p
Close #1
B)Open "c:\Test2.dat" For Random As #1
Get #1,1,p
Close #1
C)Open "c:\Test2.dat" For Random As #1 Len=Len(p)
Put #1,1,p
Close #1
D)Open "c:\Test2.dat" For Random As #1 Len=Len(p)
Get #1,1,p
Close #1
A B C D
27.
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编
写如下事件过程:
Private Sub Command1_Click()
Dim i As Integer, n As Integer
For i = 1 To 50
i = i + 3
n = n + 1
If i > 10 Then Exit For
Next
Text1.Text = Str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是
A)2 B)3 C)4 D)5
A B C D
28.
假定有以下循环结构
Do Until 条件表达式
循环体
Loop
则以下正确的描述是
A)如果“条件表达式”的值是0,则一次循环体也不执行
B)如果“条件表达式”的值不是0,则至少执行一次循环体
C)不论“条件表达式”的值是否为“真”,至少要执行一次循环体
D)如果“条件表达式”的值恒为0,则无限次执行循环体
A B C D
29.
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim I, Num
Randomize
Do
For I = 1 To 1000
Num = Int(Rnd * 100)
Print Num
Select Case Num
Case 12
Exit For
Case 58
Exit Do
Case 65, 68, 92
End
End Select
Next I
Loop
End Sub
上述事件过程执行后,下列描述中正确的是
A)Do循环执行的次数为1000此
B)在For循环中产生的随机数小于或等于100
C)当所产生的随机数为12时结束所有循环
D)当所产生的随机数为65,68或92时窗体关闭、程序结束
A B C D
30.
在窗体上画一个名为Command1的命令按钮,然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4)
j = 1
For I = 4 To 1 Step -1
s = s + a(I) * j
j = j * 10
Next I
Print s
End Sub
运行上面的程序,其输出结果是
A)1234 B)12 C)34 D)4321
A B C D
31.
设有如下通用过程
Public Function Fun(xStr As String) As String
Dim tStr As String, strL As Integer
tStr = ""
strL = Len(xStr)
I = 1
Do While I <= strL / 2
tStr = tStr & Mid(xStr, I, 1) & Mid(xStr, strL - I + 1, 1)
I = I + 1
Loop
Fun = tStr
End Function
在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程:
Private Sub Command1_Click()
Dim S1 As String
S1 = "abcdef"
Print UCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,输出结果是
A)ABCDEF B)abcdef C)AFBECD D)DEFABC
A B C D
32.
某人为计算n!(0
Dim p As Long
p = 1
For k = n - 1 To 2 Step -1
p = p * k
Next k
fun = p
End Function
在调试时发现该函数过程产生的结果是错误的,程序需要修改。下面的修改方案中有3
种是正确的,错误的方案是
A)把p=1改为p=n
B)把For k=n-1 To 2 Step -1 改为 For k=1 T0 n-1
C)把For k=n-1 To 2 Step -1 改为 For k=1 T0 n
D)把For k=n-1 To 2 Step -1 改为 For k=2 T0 n
A B C D
33.
假定有以下函数过程:
Function Fun(S As String) As String
Dim s1 As String
For I = 1 To Len(S)
s1 = LCase(Mid(S, I, 1)) + s1
Next I
Fun = s1
End Function
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1 = InputBox("请输入一个字符串")
Str2 = Fun(Str1)
Print Str2
End Sub
程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确定”
按钮后在窗体上的输出结果为
A)ABCDEFG B)abcdefg C)GFEDCBA D)gfedcba
A B C D
34.
为计算a的n次方的值,某人编写了函数power如下:
Private Function power(a As Integer, n As Integer) As Long
Dim p As Long
p = a
For k = 1 To n
p = p * a
Next k
power = p
End Function
在调试时发现是错误的,例如Print power(5,4)的输出值应该是625,但实际输出是3125。
程序需要修改。下面的修改方案中有3个是正确的,错误的一个是
A)把For k=1 To n 改为For k=2 To n
B)把p=p*a 改为p=p^n
C)把For k=1 To n 改为For k=2 To n-1
D)把p=a 改为p=1
A B C D
35.
某人编写了下面的程序
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = InputBox("请输入整数")
b = InputBox("请输入整数")
pro a
pro b
Call pro(a + b)
End Sub
Private Sub pro(n As Integer)
While (n > 0)
Print n Mod 10;
n = n \ 10
Wend
End Sub
但调试时发现只输出了前2行(即2个数的反序),而未输出第3行(即2个数之和的
反序),程序需要修改。下面的修改方案中正确的是
A)把过程pro的形式参数n As Integer 改为ByVal n As Integer
B)把Call pro(a+b) 改为pro a+b
C)把n=n\10改为n=n/10
D)在pro b语句之后增加语句c%=a+b,再把Call pro(a+b)改为pro c
A B C D
二、填空题(每空2分,共计30分)
1.对下列二叉树进行中序遍历的结果是【1】
输入答案,中间不含空格:
2.
按照软件测试的一般步骤,继承测试应在【2】测试之后进行。
输入答案,中间不含空格:
3.
软件工程三要素包括方法、工具和过程,其中,【3】支持软件开发的各个环节
的控制和管理。
输入答案,中间不含空格:
4.
数据库设计包括概念设计、【4】和物理设计。
输入答案,中间不含空格:
5.
在二维表中,元组的【5】不能再分成更小的数据项。
输入答案,中间不含空格:
6.
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和
Command1,然后编写如下两个事件过程:
Private Sub Command1_Click()
S$ = InputBox("请输入一个字符串")
Text1.Text = S$
End Sub
Private Sub Text1_Change()
Label1.Caption = UCase(Mid(Text1.Text, 7))
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串
“VisualBasic”,则在标签中显示的内容是【6】。
输入答案,中间不含空格:
7.
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
a$ = "National Computer Rank Examination"
n = Len(a$)
S = 0
For I = 1 To n
b$ = Mid(a$, I, 1)
If b$ = "n" Then
S = S + 1
End If
Next I
Print S
End Sub
程序运行后,单击命令按钮,输出结果是【7】。
输入答案,中间不含空格:
8.
为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picture1,所使用的语句为【8】
输入答案,中间不含空格:
9.
设有如下程序:
Private Sub Form_Click()
Cls
a$ = "ABCDFG"
For I = 1 To 6
Print Tab(12 - I); 【9】
Next I
End Sub
程序运行后,单击窗体,结果如图所示,请填空。
输入答案,中间不含空格:
10.
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim Arr
Arr = Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72)
pos = 0
neg = 0
For k = 1 To 10
If Arr(k) > 0 Then
【10】
Else
【11】
End If
Next k
Print pos, neg
End Sub
以上程序的功能是,计算并输出数组Arr中10个数的正数之和pos与负数之和neg,请填空
输入答案,中间不含空格:
11.
上一题【11】的答案为
输入答案,中间不含空格:
12.
在窗体上画一个名为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_Click()
Dim i As Integer
Sum = 0
n = InputBox("Enter a number")
n = Val(n)
For i = 1 To n
Sum = 【12】
Next i
Print Sum
End Sub
Function fun(t As Integer) As Long
p = 1
For i = 1 To t
p = p * i
Next i
【13】
End Function
以上程序的功能是,计算1!+2!+3!+...+n!,其中n从键盘输入,请填空。
输入答案,中间不含空格:
13.
上面第【13】空的答案是:
输入答案,中间不含空格:
14.
在窗体上画一个文本框,名称为Text1,然后编写如下程序:
Private Sub Form_Load()
Open "d:\temp\dat.txt" For Output As #1
Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If UCase(Text1.Text) = 【14】 Then
Close #1
End
Else
Write #1, 【15】
Text1.Text = ""
End If
End If
End Sub
输入答案,中间不含空格:
15.
上一题【15】答案是
输入答案,中间不含空格:
Hi,亲爱的朋友,欢迎光临Passtwo! 您想做点什么呢?
I Want....查询等级考试成绩下载等级考试模拟题下载历年计算机二级试题查找二级考试答案
热门软件下载
实用电子地图 本站隆重推荐自主开发的VFP上机模拟系统免费下载使用
二级vfp上机模拟系统
全国计算机等级考试二级VF历年真题
哪儿能免费下到历年全国计算机等级考试三级网络技术的真题
求全国计算机等级考试 三级网络技术 真题
全国计算机等级考试二级 VB 历年考题
我想打印04、05年全国计算机等级考试三级网络技术真题
求05年4月全国计算机等级考试二级VF真题及答案!!
求05年4月全国计算机等级考试二级VF真题及答案!!
求全国计算机等级考试二级VFP的真题!
全国计算机等级考试二级ACCESS的全真模拟题
求全国计算机等级考试二VF上机考试真题?
那个出版社,出售全国英语等级考试历年真题
那个出版社,出售全国英语等级考试历年真题
全国护士执业资格考试历年真题及答案
全国计算机等级考试操作题
我想要全国计算机等级考试二级access的笔试历年试卷
急求四川省计算机等级考试二级VF的复习资料和历年真题!
谁能为我提供国家计算机等级考试二级VFP的历年考试真题?
2005年湖南省计算机等级考试二级真题
小升初历年真题
哪儿能下载计算机等级考试历年真题及答案,主要是二级C和三级网络,小弟急需啊
全国计算机等级考试二级ACCESS的全真模拟题哪里有卖?
2005年9月全国计算机等级考试VFP考试试卷
06年9月全国计算机等级考试什么时候报名??
急:全国计算机等级考试VB教程(2006年9月考生)!!!