单击命令按钮时，下列程序段的执行结果为( )。 Private Sub Command1_Click() Dim FirstStr As String FirstStr="abcdef" Print PickMid(FirstStr) End Sub Private Function PickMid(xStr As String)As String Dim tempStr As String,strLen As Integer TempStr=" " strLen=Len(xStr) i=1 Do While i＜=strLen/2 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1) i=i+1 Loop PickMid=tempStr End FuncfionA．abcdefB．fedC．fedcbaD．defabc
单击命令按钮时，下列程序段的执行结果为( )。 Private Sub Command1_Click() Dim FirstStr As String FirstStr="abcdef" Print PickMid(FirstStr) End Sub Private Function PickMid(xStr As String)As String Dim tempStr As String,strLen As Integer TempStr=" " strLen=Len(xStr) i=1 Do While i＜=strLen/2 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1) i=i+1 Loop PickMid=tempStr End Funcfion
A．abcdef
B．fed
C．fedcba
D．defabc
相关考题：
应用程序窗体的名称属性为Frm1，窗体上有一个命令按钮，其名称属性为Cmd1，单击窗体和命令按钮的事件过程名分别为______。A．form_ Click() Command1_Click()B．Frm1_ Click() Command1_ Click()C．form_ Click() Cmd1_ Click()D．Frm1_ Click() Cmd1_ Click()
在窗体上有一个名称为Command1的命令按钮，并有如下程序：程序执行时，单击命令按钮Command1三次后，窗体上显示的结果为（ ）。A. 5 16B. 5 6C. 15 15D. 15 6
若看到程序中确以下事件过程，则可以肯定的是，当程序运行时（ ）。 Private Sub Click—MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Print"VB Program" End SubA.用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程C.用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程D.用鼠标左键或右键单击名称为“Click”的命令按钮时，执行此过程
单击命令按钮时，下列程序代码的执行结果为______。 Private Function PickMid(xStr As String) As String Dim tempStr As String Dim strLen As Integer tempStr=“” strLen=Len(xStr) i=1 Do While i＜=strLen/2 tempStr=tempStr+Mid(xStr，i，1)+Hid(xStr，strLen-i+1，1) i=i + 1 Loop PickMid=tempStr End Function Private Sub Command1_Click() Dim FirstStr As String FirstStr=“abcdef” Print PickMid(FirstStr) End SubA．abcdefB．afbecdC．fedcbaD．defabc
若看到程序中确以下事件过程，则可以肯定的是，当程序运行时（ ）。Private Sub Click—MouseDown(Button As Integer，Shift As Integer，X As Single，YAs Single)PrintVB ProgramEnd SubA.用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程C.用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程D.用鼠标左键或右键单击名称为“Click”的命令按钮时，执行此过程
单击命令按钮时，下列程序段的执行结果为( )。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10 m=m\10 End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer x=12;y=34 Call Procl(x,y) Print x;y End SubA．12 34B．2 34C．2 3D．12 3
单击命令按钮时，下列程序代码的执行结果为( )。 Private Function PickMid(xStr As String)As Sting Dim tempStr As String Dim strLen As Integer TempStr=" " StrLen=Len(xStr) i=1 Do While i＜=strLen/2 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1) i=i+1 Loop PickMid=tempStr End Function Private Sub Command1_Click() Dim FirstStr As String FirstStr="abcdef" Print PickMid(FirstStr) End SubA．abcdefB．afbecdC．fedcbaD．defabc
单击命令按钮，下列程序段的输出结果为______。 Private Sub Command1_Click() Dim n As Integer n = 5 While n ＜= 10 n = n + 2 Print n; Wend End SubA．5 7 9 11B．6 8 10C．7 9 11D．6 8 10 12