0512模拟考试参考答案.docx
- 文档编号:29379637
- 上传时间:2023-07-22
- 格式:DOCX
- 页数:17
- 大小:44.15KB
0512模拟考试参考答案.docx
《0512模拟考试参考答案.docx》由会员分享,可在线阅读,更多相关《0512模拟考试参考答案.docx(17页珍藏版)》请在冰豆网上搜索。
0512模拟考试参考答案
天津中医药大学2008-2009学年第二学期
VisualBasic程序设计课程模拟考试及参考答案
2009-5-12
专业__________姓名__________学号__________
一、选择题(30*2=60)
1.窗体文件的扩展名是____
A..basB..cls
C..frmD..res
答案C
2.下列表述中不能判断x是否为偶数的是____
A.x/2=Int(x/2)B.xMod2=0
C.Fix(x/2)=x/2D.x\2=0
答案D
3.设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是____
A.窗体的Click事件过程的过程名是Myform_Click
B.命令按钮的Click事件过程名是C1_Click
C.命令按钮的Click事件过程的过程名是Command1_Click
D.上述3种名称都是错误的
答案B
4.1个二维数组可以存放1个矩阵.在程序开始有语句OptionBase0,则下面定义的数组中正好可以存放1个4*3矩阵(即只有12个元素)的是
A.Dima(-2To0,2)ASInteger
B.Dima(3,2)ASInteger
C.Dima(4,3)ASInteger
D.Dima(-1To-4,-1To-3)ASInteger
答案B
5.若设置了文本框的属性PasswordChar="$",则运行程序时向文本框中输入8个任意字符后,文本框中显示的是____
A.8个"$"B.1个"$
C.8个"*"D.无任何内容
答案A
6.设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是____
A.Combo1.RemoveItemCombo1.Text
B.Combo1.RemoveItem4
C.Combo1.RemoveItemCombo1.ListCount
D.Combo1.RemoveItem5
答案B
7.在窗体上画2个命令按钮,名称分别为Command1、command2,并编写如下程序
Constn=5,m=4
Dima(m,n)
PrivateSubCommand1_Click()
K=1
Fori=1Tom
Forj=1Ton
a(i,j)=k
k=k+1
Nextj
Nexti
EndSub
PrivateSubCommand2_Click()
Summ=0
Fori=1Tom
Forj=1Ton
Ifi=1Ori=mThen
Summ=summ+a(i,j)
Else
Ifj=1Orj=nThen
Summ=summ+a(i,j)
EndIf
EndIf
Nextj
Nexti
Printsumm
EndSub
过程Command1_Click()的作用是二维数组a中存放1个m行n列的矩阵;过程Command2_Click()的作用是____
A.计算矩阵外围一圈元素的累加和
B.计算矩阵除外一圈以外的所有元素的累加和
C.计算矩阵第1列和最后一列元素的累加和
D.计算矩阵第1行和最后一行元素的累加和
答案A
8.以下循环语句中在任何情况下都至少执行一次循环体的是____
A.DoWhile<条件>循环体LoopB.While<条件>循环体Wend
C.Do循环体LoopUntil<条件>D.DoUntil<条件>循环体Loop
答案C
9.已知有下面的过程
PrivateSubproc1(aAsInteger,bAsString,OptionalxAsBoolean)
……
EndSub
正确调用此过程的语句是____
A.Callprocl(5)B.Callproc15,"abc",False
C.proc1(12,"abc",True)D.proc15,"abc"
答案D
10.在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮,要求在程序执行时,每单击命令按钮一次,文本框向右移动一定距离。
下面能够正确实现上述功能的程序是
PrivateSubCommand1_Click()
____
EndSub
A.Text1.Left=100B.Text1.Left=Text1.Left-100
C.Text1.MoveText1.Left+100D.Text1.Move.Text1.Left
答案C
11.为计算1+3+5+……+99的值,某人编程如下
k=1
s=0
Whilek<=99
k=k+2:
s=s+k
Wend
Prints
在调试时发现运行结果有错误,需要修改。
下列错误原因和修改方案中正确的是
A.While/Wend循环语句错误,应改为Fork=1To99…Nextk
B.循环条件错误,应改为Whliek<99
C.循环前的赋值语句k=1错误,应改为k=0
D.循环中两条赋值语句的顺序错误,应改为s=s+k:
k=k+2
答案D
12.下面程序在调试时出现了死循环
PrivateSubCommand1_Click()
n=InputBox("请输入一个整数")
Do
IfnMod2=0Then
n=n+1
Else
n=n+2
EndIf
LoopUntiln=1000
EndSub
下面关于死循环的叙述中正确的是____
A.只有输入的n是偶数时才会出现死循环,否则不会
B.只有输入的n是奇数时才会出现死循环,否则不会
C.只有输入的n是大于1000的整数时才会出现死循环,否则不会
D.输入任何整数都会出现死循环
答案D
13.窗体上有1个名称为List的列表框,其中已经输入了若干个项目(如图所示):
还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序
PrivateSubCommand1_Click()
DimstrAsString,sAsString,kAsInteger
s=Text1
Str=""
Fork=List.ListCount-1to0Step-1
IfInStr(List.List(k),s)>0then
str=str&List.List(k)&""
EndIf
Nextk
Ifstr=""Then
Text2="没有匹配的项目"
Else
Text2=str
EndIf
EndSub
程序运行时,在Text1中输入"京",单击命令按钮,则在Text2中显示的内容是____
A.京B.北京南京
C.南京北京D.没有匹配的项目
答案C
14.在窗体上画1一个名称为Command1的命令按钮,并编写以下程序
PrivateSubCommand1_Click()
Printfun("ABCDEFG")
EndSub
Functionfun(stAsString)AsString
stlen=Len(st)
temp=""
Fork=1tostlen\2
temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1)
Nextk
fun=temp
EndFunction
程序运行时,单击命令按钮,则窗体上显示的是____
A.ABCDEFGB.AGBFCE
C.GFEDCBAD.AGBFCED
答案B
15.下面可以正确定义2个整形变量和1个字符串变量的语句的是____
A.Dimn,mASInteger,sASString
B.Dima%,b$,cASString
C.DimaASInteger,b,cASString
D.Dimx%,yASInteger,zASString
答案D
16.在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程
OptionBase1
PribateSubCommand1_Click()
Dima(5,5)AsInteger
Fori=1To5
Forj=1To5
a(i,j)=(i+j)*5\10
Nextj
Nexti
s=0
Fori=1To5
s=s+a(i,i)
Nexti
Prints
EndSub
程序运行后,单击命令按钮,输出结果是____
A.15B.13
C.11D.9
答案A
17.单击命令按钮时,下列程序的执行结果为____
PrivateSubCommand1_Click()
DimxAsInteger,yAsInteger
x=50:
y=78
CallPPP(x,y)
Printx;y
EndSub
PublicSubPPP(ByValnAsInteger,ByValmAsInteger)
n=n\10
m=m\10
EndSub
A.08B.5078
C.450D.7850
答案B
18.下列可以启动VisualBasic的方法是____
A.打开"我的电脑",找到存放VisualBasic所在系统文件的硬盘及文件夹,双击"VB6.exe"图标
B.在DOS窗口中,键入VisualBasic的路径,执行VisualBasic可执行文件
C.利用"开始"菜单中的"程序"命令可启动VisualBasic
D.A)和C)
答案D
19.在VisualBasic中,要使标签的标题栏居中显示,则将其Alignment属性设置为____
A.0B.2
C.1D.3
答案B
20.下面程序段执行结果为____
x=Int(Rnd()+3)
SelectCasex
Case5
Print"excellent"
Case4
Print"good"
Case3
Print"pass"
CaseElse
Print"fail"
EndSelect
A.excellentB.good
C.passD.fail
答案C
21.下列程序段的执行结果为____
a=1
b=5
Do
a=a+b
b=b+1
LoopWhilea<10
Printa;b
A.15B.127
C.abD.1025
答案B
22.在运行程序时,在文本框中输入新的内容,或在程序代码中改变Text的属性值,相应会触发到____事件
A.GotFocusB.Click
C.ChangeD.DblClick
答案C
23.在VisualBasic中,组合框是文本框和____特性的组合
A.复选框B.标签
C.列表框D.目录列表框
答案C
24.用InputBox函数设计的对话框,其功能是____
A.只能接收用户输入的数据,但不会返回任何信息
B.能接收用户输入的数据,并能返回用户输入的信息
C.既能用于接收用户输入的信息,又能用于输出信息
D.专门用于输出信息
答案B
25.有如下事件过程:
PrivateSubCommand1_Click()
b=10
DoUntilb=-1
a=InputBox("请输入a的值")
a=Val(A)
b=InputBox("请输入b的值")
b=Val(b)
a=a*b
Loop
Printa
EndSub
程序运行后,依次输入数值30,20,10,-1,输出结果为____
A.6000B.-10
C.200D.-6000
答案B
26.下列程序段的执行结果为____
I=4
x=5
Do
I=I+1
x=x+2
LoopUntilI>=7
Print"I=";I;
Print"x=";x
A.I=4x=5B.I=7x=15
C.I=6x=8D.I=7x=11
答案D
27.下面的数组声明语句中正确的是____
A.Dimgg[1,5]AsString
B.Dimgg[1To5,1To5]AsString
C.Dimgg(1To5)AsString
D.Dimgg[1:
5,1:
5]AsString
答案C
28.标签控件能够显示文本信息,文本内容只能用____属性来设置
A.AlignmentB.Caption
C.VisibleD.BorderStyle
答案B
29.如果一个变量未经定义就直接使用,则该变量的类型为____
A.IntegerB.Byte
C.BooleanD.Variant
答案D
30.下列程序段的执行结果为____
a=75
Ifa>60ThenI=1
Ifa>70ThenI=2
Ifa>80ThenI=3
Ifa<90ThenI=4
Print"I=";I
A.I=1B.I=2
C.I=3D.I=4
答案D
二、填充题(15*2=30)
1.若VB的执行程序在C:
\VB文件夹内,App.Path可返回_____________。
答案C:
\VB
2.要对文本框中已有的内容进行编辑,按下键盘上的按键,就是不起作用,原因是设置了__________的属性为True。
答案Locked
3.窗体的Activate事件在_____________事件后被触发。
答案load
4.表达式Len("VB程序设计")的值是_____________。
答案6
5.若在程序中使用Dima,bAsString*4声明a、b两个变量,则变量a的类型是_____________
答案Variant或变体型
6.请在_________处填入适当的内容,使程序的输出结果是3。
PrivateSubCommand1_Click()
num=0
DoWhile_________
num=num+1
Loop
Printnum
EndSub
答案num<=2或num<3
7.Print"";Tab(3);st语句中的st将从第_____________列开始打印。
答案3
8.程序中自动测试数组的上界用________函数来实现。
答案UBound()
9.声明一个整型类型的动态数组A的语句是____________。
答案DimA()AsInteger
10.在过程的定义中,若形参是数组,该形参只能是传_______方式。
答案址
11.VisualBasic中有三种类型的模块,它们分别是:
类模块、标准模块和________。
答案窗体模块
12.滚动条响应的重要事件有__________和Change。
答案Scroll
13.在程序运行过程中,通常使用__________方法来清除列表框中的所有内容。
答案Clear
14.VisualBasic提供了三种对数据文件的访问方式,它们是顺序访问方式__________和二进制访问方式。
答案随机访问方式
15.要覆盖一个已存在的顺序文件中原有的数据,在Open语句中以______________模式打开。
答案output
三、程序填充(10*1=10)
1.函数myfun()的功能是统计字符串s中非数字字符的个数。
主调程序的功能是在文本框中任意输入一个字符串,单击按钮Command1后,调用函数myfun(),在标签中显示非数字字符的个数。
Functionmyfun(ByVals$)Asstring
Dimc$,i%,count%
Fori=1To_____
(1)_____
_____
(2)_____=Mid(s,i,1)
Ifc<"0"_____(3)_____c>"9"Thencount=count+1
Next
_____(4)_____=count
EndFunction
PrivateSubCommand1_Click()
Dims$,k%
s=Text1.Text
Label1.Caption="小写字母:
"&_____(5)_____
EndSub
答案
(1)Len(s)
(2)c(3)OR(4)myfun(5)myfun(text1.text)或myfun(text1)
2.下列程序完成如下功能:
在a数组中随机生成5个10~30(包括10、30)的数,在文本框中输入数值并按回车键后,从数组中查找,删除掉第一个相同的数。
Dima()AsInteger
PrivateSubForm_Load()
ReDima(4)
Fori=0To4
a(i)=_____
(1)_____
Printa(i);
Nexti
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
If____
(2)____AndIsNumeric(Text1)Then
x=Val(Text1)
n=UBound(a)
Fori=0Ton
If____(3)____Then
Forj=iTon-1
____(4)____
Nextj
______(5)_____
ExitFor
EndIf
Nexti
EndIf
EndSub
答案
(1)Int(Rnd*21+10)
(2)KeyAscii=13(3)x=a(i)(4)a(j)=a(j+1)(5)ReDimPreservea(n-1)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 0512 模拟考试 参考答案