VB程序设计编程考试题及答案
1.输入3个数，输出最大的数
Private Sub command1_click
Dim max
For i = 1 To 3
n = ValInputBox"输入第" & i & "个数"
If n > max Then
max = n
End If
Next
Print "三个数中最大的数是" ; max
End Sub
2.有一元二次方程：aX2+bX+c=0，依次输入a,b,c，判断此方程是否有实根
Private Sub Command1_Click
Dim a, b, c, n
a = Text1
b = Text2
c = Text3
n = b  b - 4  a  c
If n >= 0 Then
Label4 = "方程有根"
Else
Label4 = "方程无根"
End If
End Sub
3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜成绩通
过”，若小于60，则弹出消息框，显示“抱歉成绩没有通过
Private Sub Form_Load
Text1 = ""
End Sub
Private Sub Command1_Click
Dim n
n = Text1
If n > =60 Then
Val MsgBox"恭喜成绩通过"
Else
Val MsgBox"抱歉成绩没有通过"
End If
vb程序设计教程答案第四版刘炳文
End Sub
4.输入一年份，判断它是否为闰年，并显示有关信息；判断闰年的条件是：年份能
被4整除但不能被100整除，或者能被400整除
Private Sub Command1_Click
Dim y%
y = InputBox"请输入年份"
If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then
Val MsgBox"闰年"
Else
Val MsgBox"平年"
End If
End Sub
5.输入学生的百分制成绩，转换输出为五级制成绩,90～100分转换为优秀,80～
89转换为良好,70～79转换为中等,60～69转换为及格,0～60转换为不及格;
Private Sub Command1_Click
a = ValInputBox"请输入成绩"
If a > 100 Then Print "超出范围"
If a >= 90 And a <= 100 Then Print "优秀"
If a >= 80 And a < 90 Then Print "良好"
If a >= 70 And a < 80 Then Print "中等"
If a >= 60 And a < 70 Then Print "及格"
If a < 60 Then Print "不及格"
End Sub
6.随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示；例如,
产生246，输出是642;
Private Sub Command1_Click
Dim x%, x1%, x2%, x3%
x = Text1
x1 = x Mod 10
x2 = x Mod 100 \ 10
x3 = x \ 100
Label1 = x1  100 + x2  10 + x3
End Sub
7.输入两个整数，求它们的最大公约数;
private Sub Command1_Click
n1 = InputBox"输入n"
m1 = InputBox"输入m"
If m1 > n1 Then
m = m1: n = n1
Else
m = n1: n = m1
End If
r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
Print "m n 的最大公约数是："; n
End Sub
8.编程求200--400范围内5的倍数或7的倍数之和；一个数如果同时是7和5
的倍数，则只能加一次;;
Private Sub Command1_Click
For i = 200 To 400
If i Mod 5 = 0 Or i Mod 7 = 0 Then
Sum = Sum + i
End If
Next i
For i = 200 To 400
If i Mod 5 = 0 And i Mod 7 = 0 Then
Sum = Sum - i
End If
Next i
Print  “倍数之和=”; Sum
End Sub
9.计算100~300之间所有能被3和7整除的数之和
Private Sub Command1_Click
Dim i
Sum = 0
For i = 100 To 300
If i Mod 3 = 0 And i Mod 7 = 0 Then
Sum = Sum + i

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。