VB编程题目和.doc

精品文档
精品文档
1
精品文档
入3个数，出最大的数
有一元二次方程：aX2+bX+c=0，依次入a，b，c，判断此方程是否有根
入一个百分制的成，若大于等于60，用消息框出，示“恭贺！成通！”，
若小于60，出消息框文档
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( )
精品文档
精品文档
4
精品文档
'5.

输入学生的百分制成绩，变换输出为五级制成绩，

90～100分变换为优异，

80～89变换为优异，

70～
精品文档
精品文档
12
精品文档
79变换为中等，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)
精品文档
精品文档
12
精品文档
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( )
精品文档
精品文档
7
精品文档
'--400范围内5的倍数或
Dimsum1%,sum2%
sum1=0:sum2=0
Fori=200To400
IfiMod5=0Then
sum1=sum1+i
ElseIfiMod7=0Then
sum2=sun2+i
EndIf
i,sum1,sum2
Nexti
MsgBox("5的倍数之和sum="&sum1)
MsgBox("7的倍数之和sum="&sum2)
EndSub
PrivateSubCommand3_Click( )

7的倍数之和。

(一个数如果同时是

7和5的倍数，则只能加一次。
精品文档
精品文档
12
精品文档
'9.

计算

100~300之间所有能被

3和7整除的数之和
精品文档
精品文档
12
精品文档
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
EndIf
Nexti
MsgBox("3的倍数个数="&n)
MsgBox("7的倍数个数="&m)
EndSub
PrivateSubCommand5_Click( )
'，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法