单项选择题

下列程序的执行结果为( )。　　Private Sub Commandl_Click() 　　　　Dim s1 As String ,s2 As String 　　　　s1= "abcd" 　　　　Call Transfer(sl，s2) 　　　　Print s2 　　End Sub 　　Private Sub Transfer (ByVal xstr As String，ystr As String) 　　　　Dim tempstr As String 　　　　ystr=tempstr 　　End Sub

A． dcba
B． abdc
C． abcd
D． dabc

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click()strText = InputBox( 请输入 )Text1.Text = strTextEnd SubPrivate Sub Text1_Change()Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是

A．空
B．abcdef
C．abc
D．def

单项选择题

有如下事件过程，当同时按下转换键Shift和功能键F5时其最后输出的信息是（）。Const ShiftKey=1Const CtrlKey=2Const Key_F5=&H74Const Key_F6=&H75Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)If KeyCode=Key_F5 And Shift=ShiftKey ThenPrint Press Shift+F5 ElseIf KeyCode=Key_F6 And Shift=CtrlKey ThenPrint Press Ctrl+F6 End IfEnd Sub

A．无任何信息
B． Press Shift+F5
C． Press Ctrl+F6
D．程序出错

相关试题