vb实验三答案Word下载.docx
- 文档编号:143828
- 上传时间:2023-04-28
- 格式:DOCX
- 页数:18
- 大小:219.01KB
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
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)设计滚动字幕板。
使滚动字幕内容“海阔凭鱼跃,天高任鸟飞”在窗体从右向左循环移动
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 实验 答案