算法VB程序必修3学习.docx
- 文档编号:5376717
- 上传时间:2022-12-15
- 格式:DOCX
- 页数:14
- 大小:38.08KB
算法VB程序必修3学习.docx
《算法VB程序必修3学习.docx》由会员分享,可在线阅读,更多相关《算法VB程序必修3学习.docx(14页珍藏版)》请在冰豆网上搜索。
算法VB程序必修3学习
算法VB程序
1.2.1输入语句、输出语句和赋值语句
1三元一次函数求值
x=InputBox(prompt,tittle)(相当于INPUT“x=”x)
y=x^3+3*x^2-24*x+30
printy
2计算平均值
a=InputBox(prompt,tittle)
b=InputBox(prompt,tittle)
c=InputBox(prompt,tittle)
Print"theaverage=";(Val(a)+Val(b)+Val(c))/3
3给一个变量重复赋值
A=10
A=A+15
PrintA
4交换数字
a=InputBox(prompt,tittle)
b=InputBox(prompt,tittle)
Printa,b
x=b
b=a
a=x
Printa,b
练习题
1温度
c=InputBox(prompt,tittle)
f=(c-32)*(5/9)
Printf
2加减乘除
a=InputBox(prompt,tittle)
b=InputBox(prompt,tittle)
Print"sum=";Val(a)+Val(b)
Print"diff=";Val(a)-Val(b)
Print"pro=";Val(a)*Val(b)
Print"qvo=";Val(a/b)
3海伦秦九韶公式
a=InputBox(prompt,tittle)
b=InputBox(prompt,tittle)
c=InputBox(prompt,tittle)
p=(1/2)*(Val(a)+Val(b)+Val(c))
s=(p*(p-Val(a))*(p-Val(b))*(p-Val(c)))^(1/2)
Printp,s
4应用题
a=InputBox(prompt,tittle)
b=InputBox(prompt,tittle)
c=InputBox(prompt,tittle)
p=10.4*Val(a)+15.6*Val(b)+25.2*Val(c)
Printp
1.2.2条件语局
1求绝对值
方法一
x=InputBox(prompt,tittle)
Ifx>=0Then
Printx
Else
Print-x
EndIf
方法二
x=InputBox(prompt,tittle)
Ifx<0Then
x=-x
EndIf
Printx
2二元一次方程
a=InputBox(prompt,tittle)
b=InputBox(prompt,tittle)
c=InputBox(prompt,tittle)
d=b^2-4*a*c
Ifd>=0Then
p=-b/(2*a)
q=Sqr(d)/(2*a)
Ifd=0Then
Print"x1=x2=";p
Else
Print"x1,x2=";p+q,p-q
EndIf
Else
Print"norealroot"
3大小排序
a=InputBox(prompt,tittle)
b=InputBox(prompt,tittle)
c=InputBox(prompt,tittle)
d=b^2-4*a*c
Ifb>aThen
t=a
a=b
b=t
EndIf
Ifc>aThen
t=a
a=c
c=t
EndIf
Ifc>bThen
t=b
b=c
c=t
EndIf
Printa,b,c
endif
练习题
1图1.1-10三角形的三边的关系
a=InputBox(prompt,tittle)
b=InputBox(prompt,tittle)
c=InputBox(prompt,tittle)
If((Val(a)+Val(b))>Val(c))And((Val(c)+Val(b))>Val(a))And((Val(a)+Val(c))>Val(b))Then
Print"存在这样的三角形"
Else
Print"不存在这样的三角形"
EndIf
2阅读程序
Print"pleaseinputaninteger:
";x
x=InputBox(prompt,tittle)
If(x>9)And(x<100)Then
a=x\10
b=xMod10
x=10*b+a
Printx,a,b
EndIf
3编写一个程序,判断任意输入的整数的奇偶性
x=InputBox(prompt,tittle)
r=(Val(x)Mod2)
Ifr=0Then
Print"x是偶数"
Else
Print"x是奇数"
EndIf
4闰年
方法一
Print"请输入年份"
y=InputBox(prompt,tittle)
r=Val(y)Mod400
l=Val(y)Mod100
k=Val(y)Mod4
If(r=0)Or(((l><0))And(k=0))Then
Print"y是闰年"
Else
Print"y不是闰年"
EndIf
方法二
Print"请输入年份"
y=InputBox(prompt,tittle)
If(yMod4)=0Then
Print"y是闰年"
Else
If(yMod100)=0Then
Print"y不是闰年"
Else
If(yMod400)=0Then
Print"y是闰年"
Else
Print"y不是闰年"
EndIf
EndIf
EndIf
1.2.3循环语句
1.从1加到100
i=1
s=0
Do
s=s+i
i=i+1
LoopUntili>100
Prints
i=1
s=0
Whilei<=100
s=s+i
i=i+1
Wend
Prints
2.函数
n=1
Do
x=InputBox(prompt,tittle)
y=x^3+3*x^2-24*x+30
Printy,n
n=n+1
LoopUntiln>11
3.二分法
a=InputBox(prompt,tittle)
b=InputBox(prompt,tittle)
d=InputBox(prompt,tittle)
Do
m=(Val(a)+Val(b))/2
g=a^2-2
f=m^2-2
Ifg*f<0Then
b=m
Else
a=m
EndIf
LoopUntilAbs(a-b) Printm,g,f 练习题 1.判断大于2的数是否为质数 n=InputBox(prompt,tittle) i=2 Do r=nModi i=i+1 LoopUntil(i>n-1)Or(r=0) Ifr=0Then Print"n不是质数" Else Print"n是质数" EndIf 2.计算n的阶数 n=InputBox(prompt,tittle) i=1 s=1 Do s=s*i i=i+1 LoopUntili>Val(n) Prints 习题1.2 A组 1.阅读程序 x=InputBox(prompt,tittle) Ifx<0Then y=-x+1 Else Ifx=0Then y=0 Else y=x+1 EndIf EndIf Printy End 2.编写一个程序,输入梯形的上底、下底和高的值,计算并输出其面积。 a=InputBox(prompt,tittle) b=InputBox(prompt,tittle) h=InputBox(prompt,tittle)相当于INPUT“a,b,c=”a,b,c s=(1/2)*(Val(a)+Val(b))*h Prints End 3.编写一个程序,计算下面n个数的和 n=InputBox(prompt,tittle) i=1 s=0 Do s=s+((i+1)/i) i=i+1 LoopUntili>Val(n) Prints End B组 1.编写一个程序,,计算二元一次方程组 的解。 a1=InputBox(prompt,tittle)(相当于INPUTa1) b1=InputBox(prompt,tittle)(相当于INPUTb1) c1=InputBox(prompt,tittle)(相当于INPUTc1) a2=InputBox(prompt,tittle)(相当于INPUTa2) b2=InputBox(prompt,tittle)(相当于INPUTb2) c2=InputBox(prompt,tittle)(相当于INPUTc2) x=((b2)*(c1)-(b1)*(c2))/((a1)*(b2)-(a2)*(b1)) y=((a1)*(c2)-(a2)*(c1))/((a1)*(b2)-(a2)*(b1)) Printx,y End 2.某牛奶厂2002年初有资金1000万元,由于引进了先进生产设备,资金年平均增长率可达到50%。 请你设计一个程序,计算这家牛奶厂2008年底的资金总额。 s=1000 i=2002 Do i=i+1 s=s*(1+0.5) LoopUntili>2008 Prints End 3.编写一个程序,对于函数 , 输入x的值,输出相应的函数值。 x=InputBox(prompt,tittle) Ifx<1Then y=x Else If(x>=1)And(x<10)Then y=2*x-1 Else y=3*x-11 EndIf EndIf Printy EndSub 4.编写一个程序,计算 (例如 共5个数相加)的值,其中 且 要求输入数字 和相加的数的根数n. a=InputBox(prompt,tittle) n=InputBox(prompt,tittle) Sum=0 i=1 t=a Do Sum=Sum+t t=t+a i=i+1 LoopUntili>Val(n) PrintSum End 方法二 a=InputBox(prompt,tittle) n=InputBox(prompt,tittle) Sum=0 i=1 t=a Do Sum=Sum+t t=10*t+Val(a) i=i+1 LoopUntili>Val(n) PrintSum End 1.3算法案例 1.转展相除法 m=InputBox(prompt,tittle) n=InputBox(prompt,tittle) Do r=Val(m)ModVal(n) m=n n=r LoopUntilr=0 Printm End 方法二 m=InputBox(prompt,tittle) n=InputBox(prompt,tittle) Do r=mModn m=n n=r LoopUntilr=0 Printm 方法3 m=InputBox(prompt,tittle) n=InputBox(prompt,tittle) r=mModn Whiler<>0 m=n n=r r=mModn Wend Printn end 2.更相减损术 m=InputBox(prompt,tittle) n=InputBox(prompt,tittle) Do r=m-n IfVal(r)>Val(n)Then m=r Else m=n n=r EndIf LoopUntilm-n=r Printm End 方法二 m=InputBox(prompt,tittle) n=InputBox(prompt,tittle) Do r=m-n IfVal(r)>Val(n)Then m=r Else m=n n=r EndIf LoopUntilm-n=0 Printn 秦九韶算法 Print"请输入n,an,x=" n=InputBox(prompt,tittle) a=InputBox(prompt,tittle) x=InputBox(prompt,tittle) v=a i=n-1 Whilei>=0 Printi ai=InputBox(prompt,tittle) v=v*x+a i=i-1 Wend Printv EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 算法 VB 程序 必修 学习