Visual Basic程序设计真题练习二共14页Word下载.docx
《Visual Basic程序设计真题练习二共14页Word下载.docx》由会员分享，可在线阅读，更多相关《Visual Basic程序设计真题练习二共14页Word下载.docx（21页珍藏版）》请在冰豆网上搜索。
Dima（5）AsByte,iAsByte
a
（1）=1
Fori=2To5
a（i）=a（i-1）+i：
Printa（i）
Nexti
显示结果：
______3______
______6______
______10______
______15______
程序2.写出运行时在文本框Text1依次按下1、2、3、4后，Text2上各次的显示结果
PrivateSubForm_Load（）
Text1.Text="
"
：
Text2.Text="
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
Text2.Text=Chr（KeyAscii）+Text2.Text
第1次______1______
第2次_____21_______
第3次_____321______
第4次____4321______
程序3.写出运行时四次单击Command1，依次输入5、12、27、-13时各次的显示结果。
PrivateSubCommand1_Click（）
DimnAsInteger,mAsInteger,ssAsString
n=InputBox（"
n="
）:
m=n:
n=Abs（n）
DoWhilen<
>
0
ss=Str（nMod2）+ss:
n=n＼2
Loop
Ifm<
0Thenss="
-"
+ss
Printss
EndSub
显示结果：
输入
5
______
输入12
输入27
输入-13
程序4.写出运行时依次输入27、243、-157、13时各次的显示结果
PrivateFunctionf（nAsInteger）AsInteger
f=0:
f=f+nMod10:
n=n＼10
EndFunction
DimmAsInteger,iAsInteger
Fori=1To4
m=InputBox（"
m="
Printf（m）
Nexti
输入27
输入243
输入-157
输入369
六、程序设计题
1.编制事件过程Form_Click，输入x值，按下式计算并输出y值。
DimxAsInteger,yAsSingle
x=InputBox（"
请输入x的值：
）
x=Val（x）
Ifx<
-3Then
y=Sin（x）+Cos（x）
ElseIfx>
=-3Andx<
=3Then
y=Log（x*x）+5*x
3Then
y=Sqr（x）
EndIf
Print"
x="
;
x;
"
y="
y
2.编制事件过程Form_Click，计算下式的和，变量x与n的数值用输入对话框输入。
'
直接算
DimsAsSingle'
保存累加和
DimtAsLong'
保存x的n次方
DimfAsLong'
保存n!
DimxAsInteger
DimnAsInteger
s=0
t=1
请输入变量x的值：
n=InputBox（"
请输入n的值：
n=Val（n）
Fori=1Ton
t=t*x
或（都是求x的n次方）
t=x^i
f=1
Forj=1Toi+1
f=f*j
Next
s=s+t/f
s="
s
如果题目没有特殊要求，只要求出题目中s的和，那么可以定义两个Function过程分别计算x的n次方，和n!
答案如下：
'
求x的n次方
Functionfactx（ByValxAsInteger,ByValnAsInteger）AsLong
DimtAsLong
factx=t
EndFunction
求n!
Functionfactf（ByValnAsInteger）AsLong
factf=1
factf=factf*i
DimsAsSingle
s=s+factx（x,i）/factf（i+1）
浙江省2009年1月高等教育自学考试部分题目
二、单项选择题
1.将VB编制的程序保存在磁盘上，至少会产生的文件其扩展名分别是（D）
A..doc与.txtB..com与.exeC..bat与.frmD..vbp与.frm
2.VB以2个字节表示Integer类型数据，其数值范围是（C）
A.0～65536B.0～255C.-32768～32767D.0～32767
3.用随机函数为整型变量x赋值一个两位整数的语句是（A）
A.x=10+Rnd*90B.x=Rnd*90C.x=Rnd*99D.x=10+Rnd*89
4.Integer类型变量n值为521，s为空字符串。
执行下列循环后，s的值是（A）
Whilen>
s=s&
nMod10∶n=n＼10
Wend
A.125B.521C.8D.1
5.当鼠标单击文本框控件Text1时，该控件的下列事件过程中不响应的是（B）
A.ClickB.ChangeC.MouseDownD.MouseMove
6.单击滚动条两端的任意一个滚动箭头，都将触发该控件的事件过程是（B）
A.KeyDownB.ChangeC.ScrollD.Dragover
7.要使图片框根据所加载的图片调整自身大小，应设置成True的属性是（B）
A.PictureB.AutoSizeC.StretchD.AutoRedraw
三、填空题
请在每小题的空格中填上正确答案。
错填、不填均无分。
1.表达式“16＼3-2^3*7Mod9”的值是____3______。
2.将条件“a与b绝对值相同符号相反”写作VB的
逻辑表达式是___a=Abs（b）anda=-b_______。
3.取字符串变量S中从第3个字符到第7个字符的子串，写作_Mid（s,3,5）_________。
4.设变量N、I值分别为30、2，执行下列循环后的输出结果是_235_________。
DoWhilen>
1
IfNModi=0ThenPrinti;
∶n=n/i∶Elsei=i+1
Loop
10.代码窗口的相关代码如下，第4次单击窗体时显示结果为____4______
PrivateStaticSubForm_Click（）
n=n+1∶Printn
EndSub
四、程序选择填空题
1.【程序说明】执行Command1_Click，输入n（若n<
1或n>
12则重新输入）后计算下式的值。
PrivateFunctionfact（
（1）nAsInteger）As
（2）
fact=1
DoWhilen>
1
fact=fact*n∶n=n-1
EndFunction
PrivateSubCommand1_Click（）
DimsAsSingle,iAsInteger
Do
1<
=n<
=12"
LoopWhile（3）
s=1
Fori=2Ton
（4）
Nexti
Prints
（1）A.ByRefB.ByVal
C.DimD.Static（B）
（2）A.LongB.Integer
C.ByteD.String（A）
（3）A.1<
=nAndn<
=12B.1<
nAndn<
13
C.1<
n<
13D.n<
1Orn>
12（D）
（4）A.s=1/fact（i）B.s=s+1/fact（n）
C.s=s+1/fact（i）D.s=1
升级会员 