VB罗朝盛版习题参考答案1Word文档下载推荐.docx
《VB罗朝盛版习题参考答案1Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《VB罗朝盛版习题参考答案1Word文档下载推荐.docx(14页珍藏版)》请在冰豆网上搜索。
![VB罗朝盛版习题参考答案1Word文档下载推荐.docx](https://file1.bdocx.com/fileroot1/2022-11/15/ab13a85c-da9d-430e-825b-36ae083a0b07/ab13a85c-da9d-430e-825b-36ae083a0b071.gif)
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=