有哪位高人会解VB程序的题,我这有几道考试用,先谢了,急用!!!!（来自昆山优秀小区小区）

程序题（01） Dim x x = Int(Rnd) + 5 Select Case x Case 5 Print "优秀"Case 4 Print "良好"Case 3 Print "通过"Case Else Print "不通过"End Select该程序段显示的运行结果是_________。程序题（02）给定程序段： Dim a As Integer, b As Integer, c As Integer a=1:b=2:c=3 If a=c-b Then Print "#####"Else Print "*****"End If以上程序_________。程序题（03）Private Sub Form_Click() A = 3 If A <= 3 Then Print 3;End If If A <= 4 Then Print 4;End If If A <= 5 Then Print 5;End If If A <= 6 Then Print 6;End If PrintEnd Sub程序运行结果为________.程序题（04）有如下程序，其输出结果为________。Private Sub command1_click() x = Sqr(2) \ 2 + Sgn(2) \ 2 + Rnd(2) \ 2 y = Sqr(3) \ 3 + Sgn(3) \ 3 + Rnd(3) \ 3 If x >y Then Print "x>y"ElseIf x = y Then Print "x=y"Else Pri 收起