vb编程题.docx
- 文档编号:29458188
- 上传时间:2023-07-23
- 格式:DOCX
- 页数:18
- 大小:16.90KB
vb编程题.docx
《vb编程题.docx》由会员分享,可在线阅读,更多相关《vb编程题.docx(18页珍藏版)》请在冰豆网上搜索。
vb编程题
1.求园的面积(要求判断半径是否合理)
PrivateSubForm_Click()
cls
r=val(Inputbox("r="))
Ifr>0then
S=pi()*r*r
Print"s=",s
Else
Print’半径错误!
’
Endif
EndSub
2.求分段函数Y的值
2x+5x>0
xx=0
|x|x<0
PrivateSubForm_Click()
cls
x=val(Inputbox("x="))
Ifx>0then
Y=2*x+5
Else
Ifx=0then
Y=x
Else
Y=abs(x)
Endif
Endif
Print"Y=",Y
EndSub
3.输入一个百分制成绩判断其等级(优/良/中/及格/不及格)
PrivateSubForm_Click()
cls
cj=val(Inputbox("cj="))
Docasecj
Caseis>=90
Print"优"
Caseis>=80
Print"良"
Caseis>=70
Print"中"
Caseis>=60
Print"及格"
Case0to59
Print"不及格"
Endcase
EndSub
4.求S=1+2+3......+100
PrivateSubForm_Click()
cls
S=0
Fori=1to100
S=S+i
Next
Print"S=",S
EndSub
5.求p=1×2×3......×100
PrivateSubForm_Click()
cls
p=1
Fori=1to100
p=p*i
Next
Print"p=",p
EndSub
6.求S=1+3+5......+99
PrivateSubForm_Click()
cls
S=0
Fori=1to99step2
S=S+i
Next
Print"S",S
EndSub
7.求S=1-2+3-4......-100
PrivateSubForm_Click()
cls
s=0
f=1
Fori=1to100
t=i*f
s=s+t
f=-f
Next
Print"s=",s
EndSub
8.求S=1+1/2+2/3+3/5......前10项之和
PrivateSubForm_Click()
cls
s=0
a=1
b=1
Fori=1to10
s=s+a/b
t=a
a=b
b=t+b
Next
Print"s=",s
EndSub
9.求S=1!
+2!
+3!
......+10!
PrivateSubForm_Click()
cls
S=0
P=1
Fori=1to10
P=p*i
S=s+p
Next
Print"s=",s
EndSub
10.
11.
******************
******************
******************
******************
输出图形
PrivateSubForm_Click()
cls
Fori=1to4
Forj=1toi
Print"*";⑴
Next
Next
EndSub
PrivateSubForm_Click()
cls
Fori=4to1step-1
Forj=1toi
Print"*";⑵
Next
Next
EndSub
PrivateSubForm_Click()
cls
Fori=1to4⑶
Forj=1to4-i
Print"";
Next
Fork=1to2*i-1
Print’*’;
Next
Next
EndSub
PrivateSubForm_Click()
cls
Fori=4to1step-1⑷
Forj=1to4-i
Print"";
Next
Fork=1to2*i-1
Print’*’;
Next
Next
EndSub
PrivateSubForm_Click()
cls
Fori=1to4
Forj=1to4-i
Print""⑸
Next
Fork=1toi
Print"*";
Next
Next
EndSub
PrivateSubForm_Click()
cls
Fori=4to1step-1
Forj=1to4-i
Print""⑹
Next
Fork=1toi
Print"*";
Next
Next
EndSub
12.判断一个整数是否素数
PrivateSubForm_Click()
cls
x=Inputbox("x=")
Fori=2tox-1
Ifmod(x,i)=0then
Exitfor
Endif
Next
Ifi>=x
Printx,"是素数"
Else
Printx,"不是素数"
Endif
EndSub
13.判断十个整数是否素数
PrivateSubForm_Click()
cls
Forj=1to10
x=val(Inputbox("x="))
Fori=2tox-1
Ifmod(x,i)=0then
Exitfor
Endif
Next
Ifi>=xthen
Printx,"是素数"
Else
Printx,"不是素数"
Endif
Next
EndSub
14.找出两个数的大数和小数
PrivateSubForm_Click()
cls
x=val(Inputbox("x="))
y=val(Inputbox("y="))
Ifx>ythen
Max=x
Min=y
Else
Max=y
Min=x
Endif
Print"最大值:
",max
Print"最小值:
",min
EndSub
15.找出三个数的最大数和最小数
PrivateSubForm_Click()
cls
x=val(Inputbox("x="))
y=val(Inputbox("y="))
z=val(Inputbox("z="))
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 编程