VB期末考试考卷及答案.docx
- 文档编号:25250620
- 上传时间:2023-06-06
- 格式:DOCX
- 页数:11
- 大小:144.97KB
VB期末考试考卷及答案.docx
《VB期末考试考卷及答案.docx》由会员分享,可在线阅读,更多相关《VB期末考试考卷及答案.docx(11页珍藏版)》请在冰豆网上搜索。
VB期末考试考卷及答案
选择题
1.
VisualBasic是一种面向对象的程序设计语言,构成对象的三要素是(B)
2.
框架
组合框
6.
在文件框中输入字符时,若只显示某个字符,如(*),应设置属性是(B)
过程的传值调用是将实参的具体值传值传递给形参
过程的传址调用是将实参在内存的地址传递给形参
过程的传值调用参数是单向传递的,过程的传址调用参数是双向传递的
无论过程传值调用还是传地址调用,参数传递都是双向的
9.
某人创建1个工程,其中的窗体名为Formi,之后又添加了1个名为Form2的窗
体,并希望程序执行时先显示Form2窗体,那么,他需要做的工作是(C)
在Formi的Load事件过程中加入语句LoadForm2
在Form2的Load事件过程中加入语句Form2.Show
在“过程属性”对话框中把“启动对象”设置为Form2
在Form2的TabIndex属性设置为1,把Formi的TabIndex属性设置为2
以Output方式打开一个不存在的文件时,系统将显示出错信息
以Append方式打开的文件,既可以进行读操作,也可以进行写操作
在随机文件在,每个记录的长度是固定的
无论是顺序文件还是随机文件,其打开的语句和打开的方式都是完全相同的
10
D12
”2”
I=val(i)+val(j)
12”)
J=val(
Ifi<>jThenprinti-jElseprintj-i
B-9
C12
DimS(10)ASInteger
Fori=0to10
S(I)=2*i
Nexti
PrintS(S(3))
12
程序填空题:
1.在窗体上画一个命令按钮(Command1和一个标签(Labell),为命令按钮编写
以下事件,其功能是求数组中各元素之和,并将结果在标签上显示,请在指定位
置填上正确代码将程序补充完整。
OptionBase1
PrivateSubCommand1_Click()
Dima(3,2)ASInteger
S=0
Fori=1to3
Forj=1to2
a(I,j)=i+js=
Nextj
Nexti
2】
EndSub
3.下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中
5的倍数所占比例,请在指定位置填上正确代码将程序补充完整。
PrivateSubCommand1_Click()
Randomise
Dima(10)AsInteger
3】
Forj=1to10
a(i)=
If
4】Thenk=k+1
Printa(j)
Nextj
Printk/10
EndSub
4.以下程序运行后,在Text1中输入任意字符串,单击命令按钮,将Text1中的字
符串转换为大写,再将字符串逆置(如ABCD--DCB)在Text2中显示逆置后的
字符串。
请在指定位置填上正确代码将程序补充完整。
PrivateSubCommand1_Click()
Fori=
St=Ucase(Text1.text)
5】To1Step-1
6】,1)
S2=s2+Mid(s1,
Text2.text=s2
EndSub
5.Nexti设有如下的循环,要求程序运行时执行3次循环,请在指定位置填上正确
代码将程序补充完整。
DimxAsInteger
Do
x=x+2
Printx
LoopUntil
6.在窗体上画一个组合框(Combo)—个列表框(Listi)和一个命令按钮(Command1=
面程序的功能是在组合框中选择一个大学名称,单击命令按钮,则所选大学名
称将添加在列表框中,当组合框中没有要选的大学名称时,输入一个名称,则此
大学名称在添加列表框中的同时也会添加到组合框中,请在指定位置填上正确代
码将程序补充完整。
PrivateSubForm_Load()
Combo1.AddItem
”交通大学”
Combo1.AddItem
”理工大学”
Combo1.AddItem
”财经大学”
Combo1.AddItem
”外贸大学”
EndSub
PrivateSubCommand1_
Click()
【8】
Flag=Flase
Fori=0to
【9】
IfCombo1.List(i)=Combo1.TextThen
flag=True:
EixtFor
EndIf
10】
Nexti
IfNotflagThen
EndSub
7.下面程序的功能是对数组的元素值用选择法按递增顺序排序,请在指定位置填上
正确代码将程序补充完整。
PrivateSubCommand1_Click()
Dimia(),i%,max%,imax%.t%
Ia=Array(3,8,5,6,7,4,9)
Fori=0To5:
imax=i
Forj=i+1To6
Nextj
T=ia(i):
12】:
ia(imax)=t
Nexti
Fori=0To6:
Printia(i):
Nexti
EndSub
8.窗体上有名称为Command的命令按钮及名称为Textl、能显示多行文本的文本框。
程序运行后,如果单击命令按钮,则可打开磁盘文件c:
\test.txt,并将文件中
的内容(多行文本)显示在文本框中。
下面是实现此功能的程序,请在指定位置
填上正确代码将程序补充完整。
Text1=
13】
DoWhileNot
LineInput#1,S
Loop
15】
EndSub
mod5=0
Combo1.text
11.a(j)>imax
12.ia(i)=ia(imax)13.Eof14.S15.Close#1
三•阅读程序,在答题纸指定位置写出程序运行结果。
1.以下程序运行后,单击命令按钮,写出程序的运行结果。
PrivateSubCommand1_Click()
Dimn%,b,t
t=1:
b=1:
n=2
DoWhilen<=4
Ifb>1ThenExitDo
b=b*n:
t=t+b:
n=n+1
Loop
EndSub
2.在窗体中添加一个命令按钮Command,1并编写如下程序:
PrivateSubCommand1_Click()
X=InputBox(x)
Ifx^2<=9Theny=1/x
Ifx^2>9Theny=x^2+1
If(xA2)-7=9Theny=x
“”o
y=”&y
EndSub
程序运行后,在InputBox中输入4,单击命令按钮,写出程序的运行结果。
3.窗体上画一个命令按钮,并编写以下事件过程和子过程:
PrivateSubCommand1_Click()
DimxAsInteger,yAsIntegerx=12:
y=20
CallValue(x,y)
EndSub
PrivateSubValue(ByValmAsInteger,nAsInteger)
程序运行后,单击命令按钮,写出程序的输出结果。
4.窗体上画一个命令按钮和一个图像框,并编写以下事件过程:
PrivateSubCommand1_Click()
Dima(3,3)
Form=1To3
Forn=1To3
Ifn=mOrn=4
-mThen
a(m,n)=m+n
Else
a(m,n)=0
EndIf
Picture1.Printa(m,n)
Nextn
Picture1.Print
Nextm
程序运行后,单击命令按钮,图像框中显示的内容是什么
5.在窗体上画一个列表框和一个命令按钮Command,1然后编写如下程序:
PrivateSubCommand1_Click()
List1.RemoveItem1
List1.RemoveItem2
EndSub
PrivateSubForm_Load()
EndSub
程序运行后,单击命令按钮,写出在列表框中显示的结果。
5兰州;大学
四•编写程序:
输出(1,100)之间同时被5和7整除的数的个数及其它们的和。
答案:
PrivateSubForm1_Click()
Dims%,c%
Fori=1to100
IfiMod5=0AndiMod7=0Then
s=s+1c=c+i
EndIf
Nexti
Prints,c
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 期末考试 考卷 答案