【单选题】运行下列程序: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
【单选题】设有下列程序 Private Sub Form. Click( ) X=50 For i=1 T0 4 y=InputBox("请输入一个整数") y=Val(v) If y Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后,单击窗体,在输入对话框中依次输入15、24、35、46,输出结果为( )。
【单选题】运行下列程序: 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,输出的结果是(...