0304学年第2学期VB考试题及标准答案Word格式文档下载.docx
- 文档编号:3826731
- 上传时间:2023-05-02
- 格式:DOCX
- 页数:13
- 大小:20.27KB
0304学年第2学期VB考试题及标准答案Word格式文档下载.docx
《0304学年第2学期VB考试题及标准答案Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《0304学年第2学期VB考试题及标准答案Word格式文档下载.docx(13页珍藏版)》请在冰点文库上搜索。
ASCII"
、"
ascii"
Ascii"
这三个字符串比较,最小的是。
10.数据文件按访问方式分为顺序文件和随机文件两种,顺序文件以形式存储。
二、选择题(题每题2分,共10分)
1.在程序运行过程中,要是标签能够显示所需要的文本,则在程序中应设置以下哪个属性的值()
A)CaptionB)TextC)NameD)Seltext
2.一个控件能实现选择功能的是()
A)文本框控件B)框架控件
C)命令按钮控件D)列表框控件
3.正确的VB逻辑表达式是()
A)X>
YNOTY>
ZB)X>
Y>
ZC)X>
YAND>
ZD)X>
Z
4.设a=5,b=8下列程序中能实现交换两个变量值的代码是()
A)a=bB)a=b
b=ab=a
Printa,bswap(a,b)
C)c=aD)b=a
a=ba=b
b=cPrinta,b
5.下列求两个数中最大数的代码中,正确的是()
A)max=aB)Ifb>
athen
Ifb>
athenmax=b
max=bendif
endifmax=a
PrintmaxPrintmax
C)ifa>
bthenPrintaD)max=iif(a>
b,b,a)
Printb
三、写出程序运行结果(每小题4分,共24分)
1.程序运行时从键盘输入5,则下面程序运行结果为:
DimxAsInteger,yAsInteger
x=Val(InputBox("
请输入变量的值"
))
Ifx<
0Then
Ifx>
0Then
y=x^2+1
Else
y=x^2-1
EndIf
Else
y=0
Print"
x="
;
x,"
"
y="
y
2.写出下面程序运行结果。
DimyasString,xasString
abcd"
Fori%=1TO4
Forj%=1TOi%
X=mid(y,j,1)
Printx;
Nextj%
Nexti%
3.写出下面程序运行结果。
DimsAsInteger,nAsInteger,fAsInteger
f=-1
s=0:
n=1
DoWhilen<
=10
s=s+f*n
f=-f
n=n+1
Loop
s="
s
4.写出下面程序运行结果。
Dimm%,i%,flagAsBoolean
Form=2to10
flag=True
Fori=2Tom-1
Ifm/i=m\iThen
flag=False
ExitFor
Nexti
Ifflag=TrueThenPrintm;
Nextm
5.写出下面程序运行结果。
Dima(3,3)AsInteger
Fori=1To3
Forj=1To3
Ifi=jThen
a(i,j)=1
a(i,j)=0
Nextj
Nexti
Printa(i,j);
NextI
6.写出下面程序运行结果。
DimsAsInteger
DimiAsInteger
s=0
Fori=1To3
s=s+sum(i)
Print"
sum="
Functionsum(nAsInteger)AsInteger
DimiAsInteger,fAsInteger
f=0
Fori=1Ton
f=f+i
sum=f
EndFunction
四、完善程序(每小题5分,共20分)
1.输入a,b,c三个数,输出最大的数。
a=Val(InputBox("
"
))
b=Val(InputBox("
c=
IFb>
=aThen
Max=a
Else
EndIf
IfThen
2.对给定的一组数123、32、90、13、65、8、170、51,键盘输入一个数,用顺序查找法找出该数在数组中的位置。
Dima(),m%,n%,i%
Dimx!
pAsBoolean
a=Array(123,32,90,13,65,8,170,51)
m=LBound(a)
n=
x=InputBox("
请输入要查找的数"
)
p=
Fori=mTo
Ifx=a(i)Then
p=True
Ifp=TrueThen
找到了,在数组中的位置为第"
&
i&
位"
3.已知某班学生共30人,每人有4门课程成绩,求每个学生的平均成绩,每门课平均成绩。
DIMA(30,4)
ForI=1TO30
ForJ=1To4
NextJ
NextI
ForI=1To4
ForJ=1To30
S=
NextI
ForI=1To30
T=0
T="
T/4
4.已知一列数据,要求对数据按升序排列后输出。
OptionBase1
Dima(10)AsInteger
CallArrayInput(a())
排序前的数据:
CallAarrayOutput(a())
Callsort(a())
排序后的数据:
SubAarrayInput(b())’数组赋值
Fori=1toubound(b)
EndSub
SubAarrayOutput(b())’数组输出
Subsort(b())’数组排序
Fori=1ToUBound(b)-1
Forj=ToUBound(b)
Ifb(i)>
b(j))Then
五、程序设计(共36分)
1.编程计算分段函数(8分)。
X(X<
0)
X2(0<
=X<
10)
Y=X+3(10<
30)
50-X3(30<
=X<
50)
X2+4X+5(X>
50)
2.“水仙花数”是这样一个三位整数,它的每一位数字的立方之和正好等于这个三位数。
例如153是水仙花数,因为13+53+33=153。
编写程序输出所有的“水仙花数”。
(8分)
3.已知f(a)=2*a,有一数列A的第一项是1,从第二项开始,每一项为:
An=An-1+f(An-1)求此数列的前30项(10分)。
4.打开一个名为“Student.DAT”顺序文件,存放学生成绩档案,每个学生在该档案中含有学号、姓名、英语、高数,计算机三门课的成绩。
计算每个学生平均成绩并输出计算结果。
(10分)
参考答案及评分标准
1.事件
2.变体类型
3.4
4.ConstPI=3.1415(不区分大小写)
5.Dimx%或Dimxasinteger
6.假(False或0)
7.真(True或-1)
8.Int(Rnd*51+20)本题可以有多种写法
9.ASCII
10.ASCII码
二、选择题(每题2分,共10分)ADACA
三、写出程序运行结果(每小题4分,共24分)
1.X=5y=26
2.a
ab
abc
abcd
非此不得分
3.s=-5
4.2357(有错不得分,答不全酌情扣分)
5.100
010
001
6.sum=10
四、完善程序(每小题5分,共20分)
1.c=val(inputbox(“”))(没有val也给分)
max=b
max>
c
max=c
max
2.n=ubound(a)
false
n
exitfor
print“未找到!
”
3.a(i,j)=val(inputbox(“”))
s=0
s+a(i,j)
prints/30
t=t+a(i,j)
4.b(i)=val(inputbox(“”))
printb(i)
i+1或i
交换两个变量的值,只要能完成即可。
1.多分支选择
(1)输入、输出各1分
(2)条件表达式3分
(3)数学表达式1分
(4)If或select结构2分
2.可以用三个变量循环再组合三位数,也可用一个变量循环再拆分成三个数
对于第一种方法,循环结构4分,条件表达式2分,输出2分
对于第二种方法,循环结构2分,拆分2分,条件表达式2分,输出2分
3.
(1)用自定义函数的方法
定义函数3分
Functionf(a)
f=2*a
PrivateSubCommand1_Click()
Dima!
(30),i%‘定义数组1分
a
(1)=1‘赋初值并为数组赋值3分
Fori=2To30
a(i)=a(i-1)+f(a(i-1))
Fori=1To30有正确格式输出数组值3分
PrintTab((iMod6)*15+1);
a(i);
(2)不用函数
(30),i%
a
(1)=1
Printa
(1);
a(i)=3*a(i-1)
(3)不用数组
a=1
Printa;
a=3*a
a;
以上方法思路对头但书写有误,酌情扣分。
4.
(1)输入输出均可得分
(2)有正确的打开文件语句2分
(3)有关闭语句给1分
(4)算出平均成绩给2分
(5)循环结构正确给2分
(6)有赋值语句或从读取数据语句给2分
(7)写入文件或输出到窗体语句给2分
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 0304 学年 学期 VB 考试题 标准答案