【单选题】运行下列程序: Private Sub Form_Click( ) a = 3 t = InputBox("请输入一个整数") Select Case t Case Is > 0 b = a + l Case Is = 0 b = a + 2 Case Else b = a + 5 End Select Print a; b End Sub 从键盘输入5,在窗体上显示的结果是( )。
【单选题】运行下列程序: Private Sub form_Click( ) For i = 1 To 2 x = 1 For j = 1 To 3 x = 5 For k = 1 To 4 x = x + 2 Next k Next j Next i Print x End Sub 单击窗体后,则输出结果是( )。
【单选题】运行下列程序:Private Sub Command1_Click( )s1 = 'Basic'For i = 1 To Len(s1)t =
A.
运行下列程序: Private Sub Command1_Click( ) s1 = "Basic" For i = 1 To Len(s1) t = Mid(s1, i, 1) s2 = s2 + Chr(Asc(t) + 1) Next i Debug.Print s2 End Sub 单击Command1命令按钮后,则在立即窗口上输出结果是( )。 A.Cbtjd
【单选题】(28)阅读下列程序: Private Sub Commandl_Click() Dim i As Integer,k As Integer k=2 For i=1 To 3 PrintH(K); Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+jEnd Function 单击命令按钮,执行程序,输出结果...
【单选题】运行下列程序: Private Sub form_Click() t = Val(InputBox('请输入一个数:')) x = t - 1 Select Case t Case 1 To 10 y = 4 * t Case Is > 10 y = 3 * t Case Else y = 2 * t End Select Print x; y End Sub 运行时,从键盘输入4,输出的结果是(...