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

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

1. 输入 3 个数，输出最大的数

Private Sub command1_click()

Dim max

For i = 1 To 3 n = Val(InputBox("输入第 "&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

判断闰年的条件是：年份能被 4 整

Private Sub Command1_Click()

Dim n

n = Text1

If n > =60 Then

Val (MsgBox("恭喜！成绩通过！ "))

Else

Val (MsgBox("抱歉！成绩没有通过！ "))

End If

End Sub

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 = Val(InputBox("请输入成绩 "))

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。