VB罗朝盛版习题参考答案1Word文档下载推荐.docx
《VB罗朝盛版习题参考答案1Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB罗朝盛版习题参考答案1Word文档下载推荐.docx（14页珍藏版）》请在冰豆网上搜索。
8．PictureBox和Frame
-
三、选择题
D
C
A
B
第3章习题参考答案
1、double
2、xyC@abc，15eyd，Is，#ENDX8[P]
3、变量有
（1）（4）（6）（8），
常量有
（2）字符串型（3）逻辑型（5）字符串型（7）字符串型（9）日期型（10）实型
4、
5、
（1）26
（2）3.75（3）3
6、写出下列VisualBasic表达式的值：
（1）False
（2）True（3）True（4）False（5）True
（6）True（7）False（8）False
7、将下列命题用VisualBasic布尔表达式表示：
（1）z>
xandz>
y
（2）abs（a）<
=abs（b+2）ora>
b+2
（3）pmodq=0（4）x<
-5orx>
-2andx<
2orx>
（5）x<
zandy>
zorx>
zandy<
z（6）a<
bandamod2=0
8、写出下列函数的值：
（1）-4
（2）换行符（3）–3（4）-1（5）hello
（6）ello（7）16（8）“-459.65”（9）5
1．整型、长整型、双精度型、双精度型
2．（Xmod10）*10+X\10
3．sin（1/4*3.14）+sqr（x+2*exp（y））/abs（x-y）
4．（a+b）/（c*d-sqr（1-a^2））
5．xmod5=0orxmod9=0
6．False
7．-3、2、-2、2
8．CDEF
9．x>
0andy>
0orx<
0andy<
0或x*y>
0
10．s>
=”A”ands<
=”Z”ors>
=”a”ands<
=”z”
四、编程题
1、
PrivateSubForm_Click（）
Dimx%,Ten%,hundred%
x=Val（Text1.Text）
Ten=（x\10）Mod10
hundred=x\100
Print"
百位数是:
"
&
hundred
十位数是:
Ten
EndSub
DimcharAsString*1
Form1.CurrentX=Rnd*Form1.ScaleWidth
Form1.CurrentY=Rnd*Form1.ScaleHeight
char=Chr（Int（Rnd*16）+65）
Printchar
第4章习题参考答案
三、程序阅读
写出下列各段程序执行后的输出结果。
1．78
5786
357864
13578642
2．w=4、w=13、w=135、w=31
3．此题有点错误，修改如下：
是将语句“Ifk<
Asc（"
A"
）Thenk=k+26”改为：
Ifk<
）Ork>
Z"
）Andk<
a"
）Thenk=k+26
改后的答案：
xyza12uvw&
4．A
BBB
CCCCC
DDDDDDD
EEEEEEEEE
5．此题的“IFKeyAsci=13Then”改为“IFKeyAscii=13Then”
答案是：
129
四、程序填空题
1．
（1）Sing=-1
（2）Fori=2to19
（3）Sing=-Sing
2．
（1）Len（oldsen）
（2）Mid（oldsen,i,1）
（3）Ucase（char）
（4）char
3．
（1）Len（str1）
（2）Length-1
（3）Mid（str1,i,2）
（4）Sum=0
4．
（1）Trim（Str（i））
（2）Trim（Str（i*i））
（3）Right（x2,Len（x1））=x1
5.
（1）last_one=last_two
（2）last_two=this_one
（3）i=i+1
（4）i-1
五、编程题
1．
DimR1AsDouble,R2AsDouble'
R1，R2表示两电阻值
DimRpAsDouble,RsAsDouble
R1=Val（InputBox（"
输入电阻R1=？
"
））
R2=Val（InputBox（"
输入电阻R2=？
Rp=R1*R2/（R1+R2）
Rs=R1+R2
Rp=Fix（Rp*1000+0.5）/1000'
保留小数点后3位
Rs=Fix（Rs*1000+0.5）/1000'
MsgBox"
并联电阻是：
Rp&
vbCrLf&
串联电阻是：
Rs
2．
DimNAsLong
N=Val（InputBox（"
请输入年份"
"
提示框"
If（NMod400=0）Or（NMod4=0AndNMod100<
>
0）Then'
判断条件
PrintN&
年是闰年"
Else
年不是闰年"
EndIf
Dima!
b!
c!
s!
x!
a=Val（InputBox（"
EnterA=?
b=Val（InputBox（"
EnterB=?
c=Val（InputBox（"
EnterC=?
Ifa+b>
cAndb+c>
aAnda+c>
bThen'
如果能构成三角形
x=（a+b+c）/2
s=Sqr（x*（x-a）*（x-b）*（x-c））
S="
;
s
数据有错,不能构成三角形"
4．（此题不适合使用Select语句）
PrivateSubCommand1_Click（）
DimxAsDouble,fxAsDouble
x=Val（InputBox（"
输入x=?
Ifx<
0Andx<
-3Then
fx=x*x+x-6
ElseIfx>
=0Andx<
10Andx<
2Andx<
3Then
fx=x*x-5*x+6
fx=x*x-x-1
x="
x;
f（"
x&
）="
fx
5．
DimiAsInteger
DimsAsLong,tAsLong
t=1
Fori=1To10
t=t*i
s=s+t
Nexti
S="
6．
Dimi%,s!
n!
t!
f%
i=1'
项数
s=0'
累加和
n=1'
阶乘
t=1'
通项
f=1'
系数
DoWhilet>
0.000001
s=s+f*t
i=i+1
n=n*i
t=1/n
f=-f'
表示符号
Loop
7．
'
方法一
DimiAsInteger
DimHundredAsInteger,TenAsInteger,OneAsInteger'
定义百位，十位，个位数
Fori=100To999
Hundred=i\100'
求百位数
Ten=（i\10）-Hundred*10'
求十位数
One=iMod10'
求个位数
Ifi=Hundred^3+Ten^3+One^3Then'
判断是否为素数
Printi&
是水仙花数"
方法二
ForHundred=1To9'
百位数
ForTen=0To9'
十位数
ForOne=0To9
i=Hundred*100+Ten*10+One
NextOne
NextTen
NextHundred
8．
DimaAsDouble,x0AsDouble,x1AsDouble
a=Val（InputBox（“输入a=?
”）
x0=a'
初值
x1=2/3*x0+a/（3*x0*x0）'
第一次迭代后的值
DoWhileAbs（x1-x0）>
0.000001'
控制精度
x0=
升级会员 