1 / 12
文档名称:

VB编程题目和.doc

格式:doc   大小:74KB   页数:12页
下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

VB编程题目和.doc

上传人:花双韵芝 2022/5/17 文件大小:74 KB

下载得到文件列表

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个评委对某个参赛者的打分数,按照去掉一个最高分和一个最低分的计算办法