运行下列程序:
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
B.65
C.Basic
D.出错
运行下列程序:
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
B.65
C.Basic
D.出错
A
VIP截止日期:2025-01-02 10:52:33
←请使用支付宝扫码支付VIP截止日期:2025-01-02 10:52:33
←请使用微信扫码支付