VB程序设计编程考试题及答案教学教案.doc

1
VB程序设计编程考试题及答案

输入3个数，输出最大的数
PrivateSubcommand1_click()
Dimmax
Fori=1To3
n=Val(InputBox("输入第"&i&"个数"))
Ifn>maxThen
max=n
EndIf
Next
Print"三个数中最大的数是";max
EndSub

有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根
PrivateSubCommand1_Click()
Dima,b,c,n
a=Text1
b=Text2
c=Text3
n=b*b-4*a*c
Ifn>=0Then
Label4="方程有根"
Else
Label4="方程无根"
EndIf
EndSub

输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！
PrivateSubForm_Load()
Text1=""
EndSub

PrivateSubCommand1_Click()
Dimn
n=Text1
Ifn>=60Then
Val(MsgBox("恭喜！成绩通过！"))
Else
Val(MsgBox("抱歉！成绩没有通过！"))
EndIf
EndSub
输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）

PrivateSubCommand1_Click()
Dimy%
y=InputBox("请输入年份")
IfyMod4=0AndyMod100<>0OryMod400=0Then
Val(MsgBox("闰年！"))
Else
Val(MsgBox("平年！"))
EndIf
EndSub
输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。

PrivateSubCommand1_Click()
a=Val(InputBox("请输入成绩"))
Ifa>100ThenPrint"超出范围"
Ifa>=90Anda<=100ThenPrint"优秀"
Ifa>=80Anda<90ThenPrint"良好"
Ifa>=70Anda<80ThenPrint"中等"
Ifa>=60Anda<70ThenPrint"及格"
Ifa<60ThenPrint"不及格"
EndSub

随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。

PrivateSubCommand1_Click()
Dimx%,x1%,x2%,x3%
x=Text1
x1=xMod10
x2=(xMod100)\10
x3=x\100
Label1=x1*100+x2*10+x3
EndSub
输入两个整数，求它们的最大公约数。
privateSubCommand1_Click()
n1=InputBox("输入n")
m1=InputBox("输入m")
Ifm1>n1Then
m=m1:n=n1
Else
m=n1:n=m1
EndIf
r=mModn
DoWhiler<>0
m=n
n=r
r=mModn
Loop
Print"mn的最大公约数是：";n
EndSub
编程求200--400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数，则只能加一次。。
PrivateSubCommand1_Click()
Fori=200To400
IfiMod5=0OriMod7=0Then
Sum=Sum+i
EndIf
Nexti

Fori=200To400
IfiMod5=0AndiMod7=0Then
Sum=Sum-i
EndIf
Nexti

Print“倍数之和=”;Sum
EndSub
计算100~300之间所有能被3和7整除的数之和
PrivateSubCommand1_Click()
Dimi
Sum=0
Fori=100To300
IfiMod3=0AndiMod7=0Then
Sum=Sum+i
EndIf
Nexti
PrintSum
EndSub
分别统计1-100中，满足3的倍数、7的倍数的数各有多少。
PrivateSubCommand1_Click()
Dimi,s3,s7
s3=0
s7=0
Fori=1To100
IfiMod3=0Then
s3=s3+1
EndIf
Nexti
Fori=1To100
IfiMod7=0Then
s7=s7+1
EndIf
Nexti
Print"3的倍数";s3
Print"7的倍数";s7
EndSu