VB编程题目及.docx

精品文档
精品文档
1
精品文档
.
输入3个数，输出最大的数
有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根
输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭贺！成绩经过！”gBox("无解")
EndIf
EndSub
PrivateSubCommand13_Click( )
'，若大于等于60，则用消息框弹出，显示"恭贺！成绩经过！"，若小于60，则
弹出消息框，显示"对不起！成绩没有经过！"
X=Val(InputBox("input"))
IfX>=60Then
MsgBox("恭贺！成绩经过！")
精品文档
精品文档
4
精品文档
.
精品文档
精品文档
14
精品文档
.
Else
MsgBox("对不起！成绩没有经过！")
EndIf
EndSub
PrivateSubCommand14_Click( )
'，判断它是否为闰年，并显示相关信息。（判断闰年的条件是：年份能被4整除但不能被
100整除，或许能被400整除）
yes=Val(InputBox("year"))
IfyesMod4=0AndyesMod100<>0OryesMod400=0Then
MsgBox(yes&"是闰年")
Else
MsgBox(yes&"不是闰年")
EndIf
EndSub
PrivateSubCommand15_Click( )
'，变换输出为五级制成绩，90～100分变换为优异，80～89变换为优异，70～
变换为中等，60～69变换为及格，0～60变换为不及格。
score=Val(InputBox("input"))
SelectCasescore
CaseIs>=90
MsgBox("优异")
CaseIs>=80
MsgBox("优异")
CaseIs>=70
MsgBox("中")
CaseIs>=60
MsgBox("及格")
CaseElse
MsgBox("不及格")
EndSelect
EndSub
PrivateSubCommand16_Click( )
'，然后逆序输出，产生的数与逆序数同时显示。比方，产生246，输出是642。
a="645"
n=Len(a)
Fori=1ToInt(n/2)
c=Mid(a,i,1)
精品文档
精品文档
6
精品文档
.
精品文档
精品文档
14
精品文档
.
Mid(a,i,1)=Mid(a,n-i+1,1)
Mid(a,n-i+1,1)=c
Nexti
MsgBox(a)
EndSub
PrivateSubCommand1_Click( )
'，求它们的最大合约数
m=Val(InputBox("inputm值"))
n=Val(InputBox("inputn值"))
Ifn>mThen
t=n
n=m
m=t
EndIf
r=mModn
DoWhiler<>0
m=n
n=r
r=mModn
Loop
MsgBox("最大合约数="&n)
EndSub
PrivateSubCommand2_Click( )
'--400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数，则只能加一次。
Dimsum1%,sum2%
sum1=0:sum2=0
Fori=200To400
IfiMod5=0Then
sum1=sum1+i
ElseIfiMod7=0Then
sum2=sun2+i
EndIf
,sum1,sum2
Nexti
MsgBox("5的倍数之和sum="&sum1)
MsgBox("7的倍数之和sum="&sum2)
EndSub
PrivateSubCommand3_Click( )
'~300之间所有能被3和7整除的数之和
精品文档
精品文档
8
精品文档
.
精品文档
精品文档
14
精品文档
.
Dimsum%
sum=0
Fori=100To300
IfiMod3=0AndiMod7=0Then
sum=sum+i
EndIf
Nexti
MsgBox("sum="&sum)
EndSub
PrivateSubCommand4_Click( )
'-100中，知足3的倍数、7的倍数的数各有多少
m=0:n=0
Fori=1To100
IfiMod3=0Then
n=n+1
ElseIfiMod7=0Then
m=m+1
End