2008年4月全国计算机等级考试vb笔试试题
私有子命令1_Click()
N=InputBox("请输入一个整数")
做
如果n模2=0,则
n=n+1
其他
n=n+2
否则如果
循环直到n=1000
末端接头
下列关于无限循环的陈述是正确的
a)只有当输入n为偶数时才会出现无限循环,否则不会。
b)只有当输入n为奇数时才会出现无限循环,否则不会。
c)只有当输入n是大于1000的整数时才会出现无限循环,否则不会。
d)输入任意整数,会出现无限循环。
(29)表单上有1个名为CommonDialog1的常规对话框、1个名为Command1的命令按钮和其他控件。程序运行时,单击命令1按钮显示文件打开对话框。选择或输入1文件名后,可以打开文件。以下是Command1_Click事件过程的两种算法。
算法1:
私有子命令1_Click()
CommonDialog1。ShowOpen
打开CommonDialog1。输入文件名为#1
末端接头
算法二:
私有子命令1_Click()
CommonDialog1。ShowOpen
IfCommonDialog1。文件名& lt& gt”“那么
打开CommonDialog1。输入文件名为#1
如果…就会结束
末端接头
以下关于这两种算法的陈述是正确的
a)如果在显示文件打开对话框后没有选择或输入文件名,算法2将出错,而算法1不会出错。
b)如果在显示文件打开对话框后没有选择或输入文件名,算法1会出错,但算法2不会。
c)两种算法的执行结果完全相同。
d)算法1允许输入文件名包含空格,但算法2不允许。
(30)表单上有1个列表框,其中输入了若干项(如图):还有2个名为Text1和Text2的文本框,1个名为Command1的命令按钮,下面的程序可用。
私有子命令1_Click()
Dim字符串作为字符串,s作为字符串,k作为整数
s=Text1
Str= " "
对于k=List1。列表计数-1到0步骤-1
If InStr(列表。List(k),s)>那么0
str = str & amp列表。名单(k)和" "
如果…就会结束
下一个k
如果str= " "那么
Text2= "没有匹配的项目"
其他
Text2=str
如果…就会结束
末端接头
程序运行时,在Text1中输入“京”,点击命令按钮,Text2中显示的内容为
a)北京b)北京南京
c)南京d)没有匹配的项目。
(31)在窗体上绘制1一个名为Command1的命令按钮,并编写以下程序。
私有子命令1_Click()
印刷乐趣(“ABCDEFG”)
末端接头
函数fun(st As String) As String
stlen=Len(st)
临时= " "
对于k=1至stlen/2
temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1)
下一个k
乐趣=温度
结束功能
当程序运行时,单击命令按钮,窗体显示
A)ABCDEFG B)非洲农业生物多样性公约C)非洲农业生物多样性公约D)非洲农业生物多样性公约
(32)在表格上画两个图片框,分别命名为Picture1和Banana。香蕉图片被添加到香蕉(见图1),并且香蕉。DragMode属性设置为1。当程序需要运行时,你可以用鼠标把banana拖到Picture1上(见图2)。可以实现该功能的事件流程是
图1图2
a)private Sub Form _ DragDrop(源作为控制,X作为单一,Y作为单一)
香蕉。移动图片1。左+X,图片1。顶部+Y)
末端接头
b)私有Sub banana _DragDrop(源作为控制,X作为单个,Y作为单个)
来源。移动图片1。左+X.Picture1。顶部+Y
末端接头
C) B)私有子图片1_DragDrop(源作为控制,X作为单个,Y作为单个)
来源。移动图片1。左+X.Picture1。顶部+Y
末端接头
D) B)私有子图片1_DragDrop(源作为控制,X作为单个,Y作为单个)
香蕉。移动香蕉。左+X,香蕉。顶部+Y
末端接头
(33)在窗体上绘制1命令按钮,然后编写以下事件过程。
选件基础1
Pribate子命令1_Click()
Dim a(5,5)为整数
对于i=1到5
对于j=1到5
a(i,j)=(i+j)*5\10
下一个j
接下来我
s=0
对于i=1到5
s=s+a(i,I)
接下来我
打印s
末端接头
程序运行后,点击命令按钮,输出结果为
a)15 B)13 C)11D)9
(34)表单上从左到右有两个文本框,Text1和Text2(见图)。程序运行时,在Text1中输入1分数,按回车键判断分数的合法性。如果分数是0~100中的1,则左右移动光标。否则光标不动,会弹出对话框显示“分数错误”。以下过程中正确的是
a)Private Sub text 1 _ _ KeyPress(KeyAscii为整数)
如果keyascii = 13,则回车的ACSII代码是13。
a=Val(Text1)
如果a & gt=0或a & lt=100
文本2。SetFocus
其他
Text1。SetFocus: MsgBox("错误的分数")
如果…就会结束
如果…就会结束
末端接头
b)Private Sub text 1 _ _ KeyPress(KeyAscii为整数)
如果keyascii = 13,则回车的ACSII代码是13。
a=Val(Text1)
如果a & gt=0且a & lt=100
Text1。SetFocus
其他
文本2。SetFocus: MsgBox("错误的分数")
如果…就会结束
如果…就会结束
末端接头
c)Private Sub text 1 _ _ KeyPress(KeyAscii为整数)
如果keyascii = 13,则回车的ACSII代码是13。
a=Val(Text1)
如果a & lt0和a & gt那就100
文本2。SetFocus
其他
Text1。SetFocus: MsgBox("错误的分数")
如果…就会结束
如果…就会结束
末端接头
d)Private Sub text 1 _ _ KeyPress(KeyAscii为整数)
如果keyascii = 13,则回车的ACSII代码是13。
a=Val(Text1)
如果a & gt=0且a & lt=100
文本2。SetFocus
其他
Text1。SetFocus: MsgBox("错误的分数")
如果…就会结束
如果…就会结束
末端接头
(35)在窗体上绘制两个命令按钮,分别命名为Command1和command2,并编写以下程序。
常数n=5,m=4
Dim a(m,n)
私有子命令1_Click()
K=1
对于i=1到m
对于j=1到n
a(i,j)=k
k=k+1
下一个j
接下来我
末端接头
私有子命令2_Click()
Summ=0
对于i=1到m
对于j=1到n
如果i=1或i=m,则
Summ=summ+a(i,j)
其他
如果j=1或j=n,则
Summ=summ+a(i,j)
如果…就会结束
如果…就会结束
下一个j
接下来我
打印摘要
末端接头
process命令1_Click()的作用是将1个m行n列的矩阵存储在二维数组A中;过程命令2_Click()的功能是
a)计算矩阵外一圈元素的累积和
b)计算除了矩阵的一个圆之外的所有元素的累积和。
c)计算矩阵第1列和最后一列元素的累积和。
d)计算矩阵第1行和最后一行元素的累积和。
二、填空(每空2分,***30分)
请将每一个空白正确答案写在答题卡上序号为1~15的横线上,并在试卷上作答。在试卷上回答,不计分。
(1)在深度为7的全二叉树中,度为2的节点数为_ _ _ 1 _ _。
(2)软件测试分为白盒(箱)测试和黑盒(箱)测试,等价类划分法属于_ _ _ _ _ _ _ _ _测试。
(3)在数据库系统中,实现各种数据管理功能的核心软件称为数据库管理系统_ _ _ _ _ _ _ _ _ _。
(4)软件生命周期可以分为几个阶段,一般分为定义阶段、开发阶段和维护阶段。编码和测试属于__4__阶段。
(5)在结构分析中使用的数据流图(DFD)中,用__5__对其中的图形元素进行了准确的解释。
(6)下面程序的作用是从键盘输入大于100的1整数m,计算并输出满足不等式的最大n。请填空
私有子命令1__Click()
将s,m,n表示为整数
M=Val(InputBox("请输入一个大于100的整数"))
n= _____6______
s=0
Do While s & ltm
N=n+1
S=s+n*n
环
打印“满足不等式的最大n是”:_ _ _ _ _ _ 7 _ _ _ _ _
末端接头
(7)下面这个程序的作用是将文件file1.txt中重复的字符写入文件file2.txt(即如果有多个字符相同,则只保留1)。请填空。
私有子命令1__Click()
Dim inchar为字符串,temp为字符串,outchar为字符串
Outchar= " "
Open="file1.txt "作为#1输入
Open="file2.txt "作为___8___输出
n=LOF( __9____)
inchar =输入美元(n,1)
对于k=1到n
temp=Mid(英寸,k,1)
如果InStr(outchar,temp)= _ _ 10 _ _ _ _,则
outchar = outchar & amp临时雇员
如果…就会结束
下一个k
打印#2,____11_____
关闭#2
关闭#1
末端接头
(8)在表单上绘制名为Text1的1文本框和名为Label1的平面标签,然后绘制名为OP1的四个单选按钮的1数组,其索引属性为0∽3,按季度排序(见图1)。在sales.txt文件中,按月顺序有某企业某年12个月的销售额。程序执行时,用鼠标点击1单选按钮,相应季度的总销售额将以Text1显示,相应的文字显示在标签上。图2显示了单击“Q3”单选按钮的结果。请填空。
Dim销售(12)一样长
私有子窗体__Load()
打开“sales.txt”输入为#1
对于k=1到12
输入#1,销售(k)
下一个k
关闭#1
末端接头
私分_ _ _ 12 _ _ _ _ _ _ _ _(指数,为整数)
点心长,k长,月长
总和=0
月=指数* ____13_____
对于k=1到3
月=月+1
总和=总和+销售额(月)
下一个k
Label1。Caption=Opl(索引)。_ _ _ _ _ _ 14 _ _ _ _ _ _ _ _ & amp;"总销售额:"
Text1=sum
末端接头
(9)有人写以下函数判断A是否是素数,如果是,函数返回True;否则返回False。
布尔函数质数(整数)
Dim k为整数,isprime为布尔值
如果a & lt2然后
isprime=False
其他
isprime=True
k=2
Do While k & lta/2和isprime
如果Mod k=0,则
isprime=False
其他
k=k+1
如果…就会结束
环
如果…就会结束
prime=isprime
结束功能
测试中发现1个非质数也被判断为质数,误判数为_ _ _ 15 _ _。