vb实验三答案Word下载.docx
《vb实验三答案Word下载.docx》由会员分享，可在线阅读，更多相关《vb实验三答案Word下载.docx（18页珍藏版）》请在冰点文库上搜索。
;
若总脚数为"
则"
（3）例4-7
Dimx$,y$
x=UCase（Text1.Text）
Ifx="
O"
Then
y="
O型血人意志坚强，充满自信"
ElseIfx="
AB"
AB型血人的长处是思想思想敏锐，所以反省"
B"
B型血人快活，积极，喜欢交际"
A"
A型血人的优点是温顺，慎重，细心"
EndIf
Label2.Caption=y
（4）输入x的值，计算y的值,y
等于根号下X
Dimx!
y!
x=Text1.Text
y=Sqr（x）
Command1.Caption=y
（5）求四个数a,b,c,d的绝对值最大数。
Dima!
b!
c!
d!
x!
a=Text1.Text
b=Text2.Text
c=Text3.Text
d=Text4.Text
IfAbs（a）>
Abs（b）Then
x=Abs（a）
Else:
x=b
IfAbs（c）>
y=Abs（c）
y=Abs（d）
Ifx>
yThen
Printx
Printy
（6）给出一个月份，判断季节（用IF语句）
Dimx!
12"
Orx="
1"
2"
Print"
冬"
3"
4"
5"
春"
6"
7"
8"
夏"
9"
10"
11"
秋"
（7）给出一个月份，判断季节（用selectcase语句）
y$
x=Val（InputBox（"
请输入月份"
））
SelectCasex
Case1,2,12
CaseIs=3,Is=4,Is=5
Case6To8
Case9To11
EndSelect
季节为"
y
（8）判优，给一个百分制的成绩，要求输出成绩的等级，90分以上的为'
A’，80分以上的为’B’，70分以上为’C’，60分以上的为’D’，60分以下的为’E’。
要求输入的分数在[0，100]范围内，否则给出错误提示。
Y$
x=Val（Text1.Text）
Ifx>
=90Then
Y="
a"
ElseIfx>
=80Then
b"
70Then
c"
=60Then
d"
Else:
e"
EndIf
Label2.Caption="
成绩等级为"
+Y
IfText1.Text<
0OrText1.Text>
100Then
MsgBox"
输入错误，请重新输入！
！
"
Text1.SetFocus
（9）例4-12
DimdAsDate,xAsInteger,yAsString
d=Date
x=Weekday（d）
y=Choose（x,"
日"
一"
二"
三"
四"
五"
六"
）
星期"
+y
（10）求S=1－2＋3－4＋5－．．．－100
Dims%,n%,m%
s=1:
m=1:
n=1
DoWhilen<
100
m=（m+1）*（-1）^n
n=n+1
s=s+m
Loop
1+2+3+...+100="
s
（11）求1！
+2！
+3！
+。
。
+100！
Dimi,nAsInteger,sAsDouble,JCAsDouble
s=0
DoWhilen<
JC=1
Fori=1Ton
JC=JC*i
Nexti
s=1*JC
n=n+1
Loop
Text1="
N="
+Trim（n）
Text2="
S="
+Trim（s）
（12）找出1----1000之间的同构数
DimiAsInteger,nAsLong
Fori=1To1000
n=i^2
If（n-i）Mod10^（Len（Trim（Str（i））））=0ThenPrinti;
Nexti
（13）例4-14
n%
x=13
n=o
DoWhilex<
18
y=x*（1+0.05）
x=y
经过"
n&
年后，产值达到或超过"
亿"
（14）求自然对数e的近似值，当任意项的值小于10-4时结束计算，近似公式如下：
结果用Print方法输出。
（15）4-16
p!
q!
a=InputBox（"
请输入二次项系数"
b=InputBox（"
请输入一次项系数"
c=InputBox（"
请输入常数项系数"
Ifa=0Then
Ifb=0Then
Ifc=0Then
无数解"
Else
无解"
一元一次方程解，rootis"
-c/b
Else
d=b^2-4*a*c
p=-b/（2*a）
q=Sqr（Abs（d））/（2*a）
Ifd<
0Then
复数解1：
p&
+"
q&
i"
复数解2：
-"
ElseIfd>
实数解x1"
p+q
实数解x2"
p-q
方程有两个相等实根"
p
（16）4-17（打印九九乘法表）
PrintTab（30）;
九九乘法表"
String（14,"
*"
Fori=1To9
Forj=1To9
PrintTab（（j-1）*8+2）;
i&
x"
j&
="
i*j;
Nextj
（17）4-19
Dimx%,y%,z%
Forx=1To20
Fory=1To33
z=100-z-y
s=5*x+3*y+z/3
Ifs=100ThenPrintx,y,z
Nexty
Nextx
（18）键盘键入10个数，找出其中最小数
Dimmin!
i%,x!
min=Val（InputBox（"
sdf"
Printmin;
Fori=2To10
Printx;
Ifmin>
xThen
min=x
Print
Printmin
（19）（参考4-22）输出100-300之间的素数
Dimm%,i%
m=100
DoWhilem<
=300
Fori=2Tom-1
Ifm/i=m\iThen
ExitFor
Ifi=mThen
j=j+1
PrintTab（（（j-1）Mod10）*10+2）;
m;
m=m+1
（20）4-21（求两个数的最大公约数和最小公倍数）
Dimm%,n%
m=InputBox（"
请输入第1个数m:
n=InputBox（"
请输入第2个数m:
Ifm<
nThent=m:
m=n:
n=t
Forx=mTom*n
IfxModm=0AndxModn=0Then
最小公倍数为:
x
Fory=nTo1Step-1
IfmMody=0AndnMody=0Then
最大公约数为:
Nexty
（21）求斐波那契（Fibonaccii）数列签20项的和
a=1:
b=1:
s=2
Printa;
b;
Fori=3To20
c=a+b
s=s+c
Printc;
a=b
b=c
Prints
选作
（22）如果我国人口以每年平均1.5%的速度增长，问多少年后我国人口达到或超过18亿，设现在我国人口为13亿。
DimxAsSingle,nAsInteger
n=0
DoUntilx>
=18
x=x*（1+0.015）
MsgBox"
年以后，人口达到或超过"
（23）设计滚动字幕板。
使滚动字幕内容“海阔凭鱼跃，天高任鸟飞”在窗体从右向左循环移动
升级会员 