编写如下程序： Private Sub Command1_Click() x="abcd" y="1234" For i=1 To 4 z=z+Mid(x，i，1)+Left(y，1) Next i Print z End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．abcd1234B．a1b2c3d4C．a1b1c1d1D．1234abcd
编写如下程序： Private Sub Command1_Click() x="abcd" y="1234" For i=1 To 4 z=z+Mid(x，i，1)+Left(y，1) Next i Print z End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．abcd1234
B．a1b2c3d4
C．a1b1c1d1
D．1234abcd
相关考题：
在窗体上添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub f(ByVa1 x As Integer)x=x+4End SubPrivate Sub Command1_Click()i=3Call f(1)If i＞4 Then i=i*2MsgBox iEnd Sub打开窗体运行后，单击命令按钮，则消息框的输出结果为______。
以下能够正确计算n!的程序是（ ）。A．Private Sub Command1_Click（）n=5: x=1Dox=x * II=I + 1Loop While I nPrint xEnd SubB．Private Sub Command1_Click（）n=5: x=1: I=1Dox=x * II=I + 1Loop While I nPrint xEnd SubC．Private Sub Command1_Click（）n=5: x=1: I=1Dox=x * II=I + 1Loop While I =nPrint xEnd SubD．Private Sub Command1_Click（）n=5: x=1: I=1Dox=x * II=I + 1Loop While I nPrint xEnd Sub
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮，则窗体上显示的内容是______。A．5B．120C．153D．160
有如下程序：Private Sub Command1_Click（）a$= "A WORKER IS HERE"x=Len（a$）For i=1 To x - 1b$=Mid$（a$, i, 3）If b$= "WOR" Then S=S + 1NextPrint SEnd Sub单击命令按钮，程序运行结果为（ ）A．1B．2C．3D．5
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click（）Dim i As Integer, x As IntegerFor i = 1 To 6If i = 1 Then x = iIf i = 4 Thenx = x + 1Elsex = x + 2End IfNext iPrint xEnd Sub程序运行后，单击命令按钮，其输出结果为（ ）。A．9B．6C．12D．15
在窗体上画尸-个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() For i=1 to 4 If i=1 Then x=i If i＜=4 Then x=x+1 Print x Next i End Sub 程序运行后，单击命令按钮，其输出结果为： ______。A．1 2 3 4B．2 3 4 5C．2 3 4 4D．3 4 5 6
设有如下程序：Private Sub Form_Click()Dim i As Integer，x As String,Y As Stringx=”ABCDEFG”For i=4 To 1 Step-1y=Mid(x，i，i)+yNext iPrint yEnd Sub程序运行后，单击窗体，输出结果为A．ABCCDEDEFGB．AABBCDEFGC．ABCDEFGD．AABBCCDDEEFFGG
在窗体上绘制一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim i As Integer,x As Integer For i=1 To6 If i=1 Then x=i If i= 4 Thenx=x+1 Elsex=x+2 End If Next i Print xEnd Sub 程序运行后，单击命令按钮，其输出结果为 。A．9 B．6 C．12 D．15
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim a(10)As IntegerDim x As IntegerFor i=1 To 10a(i)=iNext ix=1MsgBoxa(f(x)+x)End SubFunction f(y As Integer)y=y+2f=yEnd Function程序运行后，单击命令按钮，消息框的输出结果为______。
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub f(ByVal x As Integer)x=x+4End SubPrivate Sub Command1_Click()i=3Call f(i)If i＞4 Then i=i*2End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
设有如下程序： Private Sub Form. Click（ ） Dim i As Integer，x As String，y As String x="ABCDEFG" For i=4 To 1Step-1 y=Mid(X，i，i)+y Next i Print y End Sub 程序运行后，单击窗体，输出结果为（ ）。A.ABCCDEDEFGB.AABBCDEFGC.ABCDEFGD.AABBCCDDEEFFGG
以下能够正确计算n!的程序是A．Private Sub Command1_Chck( ) n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubB．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜n Print x End SubC．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜=n Print x End SubD．Private Sub Command1_Click( ) n=5：x=1：i=l Dox=x*i i=i+1 Loop While i＞n Print x End Sub
在窗体中添加—个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() s="ABBACDDCBA" For I=6 To 2 Step -2 x=Mid(s,I,I) y=Left(s,I) z=Right(s,I) z=x y z Next I MSgBox z End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。A．AABAABB．ABBABAC．BABBAD．BBABBA
有如下程序： Private Sub Commandl_Click( ) Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS( ) Dim x As Integer，m As String Static y，n X=X + 1 y=y + 1 m=m "*”：n=n"#" Print x，y，m，n End Sub 程序运行后，输出的结果是A．1 1 * #B．1 1 * #C．1 1 * # 1 1 * # 1 2 * #D．1 1 * # 1 1 * ## 1 2 * ##
以下能够正确计算n!的程序是A．Private Sub Command1 Click() n=5：x=1 Do x=x * I I=I + 1 Loop While I ＜ n Print x End SubB．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X*I I=I + 1 Loop While I ＜n Print x End SubC．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I＜=n Print X End SubD．Private Sub Command1_Click() n=5：X=1：I=1 Do x=x * I I=I + 1 Loop While I＞n Print X End Sub
以下能够正确计算n! 的程序是( )。A．Private Sub Command1_Click( ) n=5:x=l Do x=x*i i=i+1 Loop While i ＜ n Print x End SubB．Private Sub Command1_Click( ) n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i ＜ n Print x End SubC．Private Sub Command1_Cliek( ) n:5:x=1:i=1 Do x=x* i i:i+1 Loop While i ＜ = n Print x End SubD．Private Sub Command1_Cliek( ) n=5:x:1:i=1 Do x=x*i i=j+1 Loop While i ＞ n Print x End Sub
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = 0 n=InputBox(" ") For i = 1 To n For j=1 To i x = x + 1 Next i Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是A．3B．4C．5D．6
在窗体上绘制一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,x As Integer For i_1 T0 6 If i=1 Then x=i If i＜=4 Then x=x+1 Else x=x+2 End If Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为( )。A．9B．6C．12D．15
以下能够正确计算n!的程序是A．Privas Sub Command1_Click() n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubB．Private Sub Command1_Click() n=5：x=1：i=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubC．Private Sub Command1_Click() n=5：x=1：i=1 Do x=x*i i=i+1 Loop while i＜=n Print x End SubD．Private Sub Command1_Click() n=5：x=1：i=1 Do x=x*i i=i+1 Loop While i＞n Print x End Sub
编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是A．rehcaetB．tahreeeC．themeeD．eerthea
以下能够正确计算n!的程序是A．Private Sub Command1_Click( ) n=5: x=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubB．Private Sub Command1_Click( ) n=5: x=1: i=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubC．Private Sub Command1_Click( ) n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i＜= n Print x End SubD．Private Sub Command1_Click( ) n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i＞n Print x End Sub
下面程序的运行结果是 Private Sub Command1_Click() x＝1:y＝1 For i=1 To 3 x＝x+y:y＝y+x Next i:print x,y End SubA．6 6B．5 8C．13 21D．34 35
以下能够正确计算n!的程序是______。A．Private Sub Commeadl_Click() n=5: x=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubB．Private Sub Command1_Click() n=5: x=1: i=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubC．Private Sub Command1_Click() n=5: x=1: i=1 Do x=x*i i=i+1 Loop Whilei＜=n Print x End SubD．Private Sub Commsndl_Click() n=5: x=1: i=1 Do x=x*i i=i+1 Loop While i＞n Print x End Sub
在窗体中添加一个命令按钮，并编写如下程序： Private Sub Command1_CliCk() X=1∶Y=2∶Z=3 X=Y∶Y=Z∶Z=X Print Z End Sub 程序执行后，输出的结果是______。A．3B．0C．2D．1
设有如下程序: Private Sub Form. Click( ) Dim i As Integer,x As String,y As String x=ABCDEFGFor i=4 To 1Step-1y=Mid(X，i，i)+yNext iPrint yEnd Sub程序运行后，单击窗体，输出结果为（ ）。A.ABCCDEDEFGB.AABBCDEFGC.ABCDEFGD.AABBCCDDEEFFGG
有如下程序： Private Sub Command1_Click( ) a$="A WORKER IS OVER THERE" x=Len(a ＄) For i=1 To x-1 b$=Mid $(a $，i，2) If b $="ER"Then s=s+1 Next i Pdnt s End Sub 程序运行后的输出结果是A．1B．2C．3D．4