》》》》》》历年考试真题《《《《《《
》》》》》》历年考试真题《《《《《《
》》》》》》历年考试真题《《《《《《
1输入半径,求圆面积和球体积。
PrivateSubForm_Load()
DimrAsSingle,sAsSingle,vAsSingle
r=InputBox(请输入半径r：,输入数据)
s=3.14*r^2
v=4/3*r^3*3.14
Print圆面积为:;s
Print球体积为:;v
MsgBox(圆面积为:sSpace(2)球体积为:v)
EndSub
2输入两个数存放在x和y中，比较大小，保证大数放在x中，小的数放在Y中。
PrivateSubCommand1_Click()
Print比较前:
X=InputBox(请输入X)
Y=InputBox(请输入Y)
PrintX=;X,Y=;Y
IfXYThen
Z=Y
Y=X
X=Z
EndIf
Print比较后:
PrintX=;X,Y=;Y
EndSub
3判断一个整数的奇偶性
PrivateSubForm_Click()
x=Val(InputBox(请输入一个数;))
IfxMod2=0Then
MsgBox(x是偶数)
Else
MsgBox(x是奇数)
EndIf
EndSub
4帐号和密码
PrivateSubCommand1_Click()
IfText1.Text=12345Then
IfText2.Text=12345Then
MsgBox登录成功,64+1,登录
Else
MsgBox密码错误,请重新输入,16
EndIf
Else
MsgBox用户不存在,16+1,登录
EndIf
EndSub
5判断一个数是整数还是小数，如果是整数再判断其奇偶性。
PrivateSubForm_Click()
x=InputBox(请输入一个数;)
IfInStr(1,x,.)=0Then
IfxMod2=0Then
MsgBox(x是整数,是偶数！)
Else
MsgBox(x是整数,是奇数！)
EndIf
Else
MsgBox(x是小数)
EndIf
EndSub
6书店优惠售书
PrivateSubCommand1_Click()
DimxAsSingle,yAsSingle
x=Val(Text1.Text)
SelectCasex
CaseIs=100
y=x*0.8
CaseIs=200
y=x*0.7
CaseIs=300
y=x*0.5
CaseElse
y=x*0.3
EndSelect
Label3.Caption=y元
EndSub
7设计一个计程车收费程序
PrivateSubCommand1_Click()
X=Val(Text1.Text)
SelectCaseX
CaseIs=3
Label3.Caption=6
CaseIs=30
Label3.Caption=6+(X-3)*1.5
CaseElse
Label3.Caption=6+27*1.5+(X-30)*2
EndSelect
EndSub
8输入10个数，输出累加之和。
PrivateSubCommand1_Click()
DimSAsSingle,iAsInteger,xAsSingle
S=0
Fori=1To10
x=Val(InputBox(请输入第i个数))
Print第i个数x
S=S+x
Nexti
Print十个数累加之和为S
EndSub
9输入10个数，输出偶数之和。
PrivateSubCommand1_Click()
DimSAsSingle,xAsSingle
DimnAsInteger,iAsInteger
S