文档介绍：VB程序设计编程考试题及答案
输入3个数，输出最大的数
Private Sub commandl_click()
Dim max
For i = 1 To 3
n = Val(InputBox(n输入第” & i & ”个数”))
If n > max Then
max = n
End If
Next
Print na个数中最大的数是” ;max
End Sub
有一元二次方程：aX2+bX+c=0,依次输入a, b, c,判断此方程是否有实根
Private Sub Commandl_Click()
Dim a, b, c, n
a = Textl
b = Text2
c = Text3
n=b*b-4*a*c
If n >= 0 Then
Label4 = ”方程有根”
Else
Label4 = ”方程无根”
End If
End Sub
输入一个百分制的成绩，若大于等于60,则用消息框弹出，显示“恭喜！成绩通过!”, 若小于60,则弹出消息框，显示“抱歉！成绩没有通过！
Private Sub Form_Load()
Textl ="
End Sub
Private Sub Commandl_Click()
Dim n
n = Textl
If n > =60 Then
Vai (MsgBox(n恭喜！成绩通过！ ”))
Else
Vai (MsgBox(n抱歉！成绩没有通过！ ”))
End If
End Sub
输入一年份，判断它是否为闰年，并显示有关信息。(判断闰年的条件是：年份能被4整 除但不能被100整除，或者能被400整除)
Private Sub Commandl_Click()
Dim y%
y = InputBox(”请输入年份”)
If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then
Vai (MsgBox(n闰年！ ”))
Else
Vai (MsgBox(n平年！ ”))
End If
End Sub
输入学生的百分制成绩，转换输出为五级制成绩，90〜100分转换为优秀，80〜89转换 为良好，70〜79转换为中等，60〜69转换为及格，0〜60转换为不及格。
Private Sub Commandl_Click()
a = Val(InputBox(” 请输入成绩”))
Ifa> 100 Then Printn超出范围”
If a >= 90 And a <= 100 Then Print ”优秀”
If a >= 80 And a <90 Then Print n 良好”
If a >= 70 And a <80 Then Print ”中等”
If a >= 60 And a <70 Then Print ”及格”
Ifa<60 Then Print"不及格”
End Sub
随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246, 输出是642。
Private Sub Commandl_Click()
Dim x%, xl%, x2%, x3%
x = Textl
xl = x Mod 10
x2