1 / 14
文档名称:

VB编程题目及.docx

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

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

文档介绍:精品文档
精品文档

1
精品文档

.

输入3个数,输出最大的数
有一元二次方程:aX2+bX+c=0,依次输入a,b,c,判断此方程是否有实根
输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示“恭贺!成绩经过!”gBox("无解")

EndIf

EndSub

PrivateSubCommand13_Click( )
'3.输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示"恭贺!成绩经过!",若小于60,则
弹出消息框,显示"对不起!成绩没有经过!"
X=Val(InputBox("input"))
IfX>=60Then
MsgBox("恭贺!成绩经过!")
精品文档
精品文档

4
精品文档



.
精品文档
精品文档

14
精品文档

.

Else
MsgBox("对不起!成绩没有经过!")
EndIf

EndSub

PrivateSubCommand14_Click( )
'4.输入一年份,判断它是否为闰年,并显示相关信息。(判断闰年的条件是:年份能被4整除但不能被
100整除,或许能被400整除)
yes=Val(InputBox("year"))
IfyesMod4=0AndyesMod100<>0OryesMod400=0Then
MsgBox(yes&"是闰年")
Else
MsgBox(yes&"不是闰年")
EndIf

EndSub

PrivateSubCommand15_Click( )
'5.输入学生的百分制成绩,变换输出为五级制成绩,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( )
'6.随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示。比方,产生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( )
'7.输入两个整数,求它们的最大合约数
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( )
'8.编程求200--400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数,则只能加一次。
Dimsum1%,sum2%
sum1=0:sum2=0
Fori=200To400
IfiMod5=0Then
sum1=sum1+i
ElseIfiMod7=0Then
sum2=sun2+i
EndIf
Debug.Printi,sum1,sum2
Nexti
MsgBox("5的倍数之和sum="&sum1)
MsgBox("7的倍数之和sum="&sum2)
EndSub
PrivateSubCommand3_Click( )
'9.计算100~300之间所有能被3和7整除的数之和
精品文档
精品文档

8
精品文档



.
精品文档
精品文档

14
精品文档

.

Dimsum%
sum=0
Fori=100To300
IfiMod3=0AndiMod7=0Then
sum=sum+i
EndIf
Nexti
MsgBox("sum="&sum)

EndSub

PrivateSubCommand4_Click( )
'10.分别统计1-100中,知足3的倍数、7的倍数的数各有多少
m=0:n=0
Fori=1To100
IfiMod3=0Then
n=n+1
ElseIfiMod7=0Then
m=m+1
End

分享好友

预览全文

VB编程题目及.docx

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

下载得到文件列表

VB编程题目及.docx

相关文档