单击窗体时，下列程序的执行结果是 Private Sub Invert(By Val xstr As String，ystr As String) Dim tempstr AS String Dim I AS Integer I=Len(xstr) Do While I＞=1 tempstr=tempstr + Mid(xstr，I，1) I=I - 1 Loop ystr=tempStr End Sub Private Sub Form_Click( ) Dim s1 As String，s2 As String S1="abcdef" Invert S1，S2 Print S2 End Sub

A．abcdef

B．afbecd

C．fedcba

D．defabc

[单选题]执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 PRIVATE SUB FORM_CLICK() DIM STR AS STRING, K AS INTEGER STR="AB" FOR K = LEN(STR) TO 1 STEP -1 STR=STR&CHR(ASC(MID(STR, K, 1)) +K) NEXT K MSGBOX STR END SUBA．ABCEB．ABCDC．ABDBD．ABFB

[单选题]单击窗体时，下列程序代码的执行结果为______ 。 Private Sub Test (x As Integer) x=x*2+1 If x ＜ 6 Then Call Test(x) End If x-x*2+1 Print x; End Sub Private Sub Command1_ Click () Test 2 End SubA．23 47B．5 11C．10 22D．23 29

[单选题]单击命令按钮时，下列程序的执行结果是 Private Sub Book( x As Integer) x=x*2+1 If x＜6 Then Call Book(x) End If x=x * 2 + 1 Print x; End Sub Private Sub Command2_Click( ) Book 2 End SubA．23 47B．10 36C．22 44D．24 50

[单选题]单击窗体时，下列程序段的执行结果为( )。 Private Sub Form_Crick() Line(200,200)-(400,400) Print"+++++++++++++++++++" Print"*******************" End SubA．在窗体上画一斜线，从斜线终点处开始打印两行符号B．在窗体上画一斜线，从斜线起点处开始打印两行符号C．在窗体上画一斜线，从窗体左上角开始打印两行符号D．从窗体左上角开始打印两行符号，从符号结束处开始画一斜线

[单选题]单击命令按钮，下列程序的执行结果是 Private Sub Blck (x As Integer) x = x * 2 + l If x ＜6 Then Call Blck(x) End If x = x * 2 + 1 Print x； End Sub Private Sub Commandl_Click() Blck 2 End SubA．23 47B．10 36C．22 44D．24 50

[单选题]单击命令按钮时，下列程序的执行结果是Private Sub Commandl_Click()D．im a As Integer，b As Integer，c As Integera=3:b=4:c=5Print SecProc(c，b，A)End SubF．unction FirProc(x As Integer，y As Integer，z As Integer)F．irProc=2*x+y+3*zE．nd FunctionF．unction SecProc(x As Integer，y As

[单选题]单击命令按钮时,下列程序的执行结果是Private Sub Command1_Click()B．T 4E．nd SubPrivate Sub BT(x As Integer)x=x*2 + 1If x < 6 ThenC．all BT(x)E．nd Ifx=x  2Print x;E．nd SubA．15B．16C．17D．18

[单选题]单击命令按钮时,下列程序的执行结果是Private Sub Command1_Click()D．im a As Integer, b As Integer, c As Integera=3∶b=4∶c=5Print SecProc(c, b, a)E．nd SubF．unction FirProc(x As Integer, y As Integer, z As Integer)F．irProc=2 * x + y + 3 * z+2E．nd FunctionF．unction SecProc(

[单选题]单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() Dim a As Integer，b As Integer，C As Integer a=3 b=4 c=5 Print SecProc(c，b，A)End Sub Function FirProc (x As Integer，y As Integer，z As Integer) FirProc=2 * x + y + 3 * z+2 End Function Function SecProc (x

[单选题]单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click( ) Dim a As Integer，b As Integer，c As Integer a=3 b=4 C=5 Print SecProc(c，b，A)End Sub Function Fir Proc(x As Integer，y As Integer，z As Integer) Fir Proc=2*x+y+3*z End Function Function SecProc(x As Intege