vb程序题00道.docVIP

vb程序题100道 程序题（1） Dim x x = Int(Rnd) + 5 Select Case x Case 5 Print 优秀 Case 4 Print 良好 Case 3 Print 通过 Case Else Print 不通过 End Select 该程序段显示的运行结果是_________。 程序题（2） 给定程序段： 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 以上程序_________。 程序题（3） 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 Print End Sub 程序运行结果为________. 程序题（4） 有如下程序，其输出结果为________。 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 xy ElseIf x = y Then Print x=y Else Print xy End If End Sub 程序题（5） 输入x和a的值，按 分段函数： 当-axa时，y=a-x 当x=a或x=-a时，y=0 当xa或x-a时，y=x-1 ， 计算y的值，把下列程序补充完整 Private Sub Command1_Click() Dim x!, a%, y# x = InputBox(x=) a = InputBox(a=) If ___________ Then y = 0 Else If x-a And xa Then y =a-x Else y = x - 1 End If End If Print y=; y End Sub 程序题（6） 下面事件过程的功能是：输入三个整数x、y和z，按从大到小顺序输出这三个数，在横线上填上适当内容。 Private Sub Command1_Click() Dim x!, y!, z! x = InputBox(x=) y = InputBox(y=) z = InputBox(z=) If ___________Then t = x: x = y: y = t If xz Then t = x: x = z: z = t If yz Then t = y: y = z: z = t Print x, y, z End Sub 程序题（7） Private Sub Form_click() A = 0 For j = 1 To 10 A = A + j \ 2 + j Mod 3 Next j Print A End Sub 运行后，输出的结果是_______。 程序题（8） Private Sub form_click() A$ = 54321 b$ = abcde For j = 1 To 5 Print Mid$(b$, j, 1) + Mid$(A$, 6 - j, 1); Next j Print End Sub 运行后，输出的结果是_______。 程序题（9） 下面事件过程的功能是求Ｓ＝１＋（１＊２）＋（１＊２＊３）＋…＋（１＊２＊…＊n）的值， 根据选择答案在横线上填上适当内容。 Private Sub Command1_Click() Dim n%, i%, j, s n = InputBox(n=) j = 1: s = 0 For i = 1 T