设有如下程序: 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 Form. Click( ) Dim i As Integer,x As String,y As String x="
设有如下程序：
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.ABCCDEDEFG
B.AABBCDEFG
C.ABCDEFG
D.AABBCCDDEEFFGG
相关考题：
设有如下程序：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
下面程序： Private Sub Form. _Click () Dim x, y, z As Integer x=5 y=7 z=0 Call P1(x, y, z) Print Str (z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer , c As Integer) c= a+b End Sub 运行后的输出结果为______。A．0B．12C．Str(z)D．显示错误信息
设有如下程序： Private Sub Form. Click（ ） Dim s As Long，f As Long Dim n As Integer，i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（ ）。A.32B.33C.34D.35
在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command4 Click() Dim a As Integer，b As Integer a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x＞y，x，y) End Function 程序运行后，单击命令按钮，输出结果为A．lB．2C．5D．8
单击命令按钮时，下列程序代码的执行结果为______。 Private Sub Proe1 (n As Integer，ByVa1 m As Integer) n=n Mod 10 m=m\ 10 End Sub Private Sub Command1_Click() Dim x As Integer Dim y As Integer x= 12 y = 34 Call Proe1 (x, y) Print x; y End SubA． 12 34B．2 34C．2 3D．12 3
下列程序的执行结果为 Private Sub Command1_Click Dim FirStr As String FirSt="abcdef" Print Pat(FirStr． End Sub Private Function Pat(xStr As String．As String Dim tempStr As String, strLen As Integer tempStr="" strLen=Len(xStr． i=1 Do While i=Len(xStr．-3 tempStr=tempStr+Mid(xStr, i, 1)+Mid(xStr, strLen -i+1, 1) i=i+1 Loop Pat=tempStr End FunctionA.abcdefB.afbecdC.fedcbaD.defabc
设有如下程序： 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
Command1_Click()事件代码如下： Private Sub Command1_Click() Dim x As Integer, Y As Integer x = 6 : Y : 8 Call ABC(X, Y) Print X; Y End Sub Private Sub ABC(ByVal X As Integer，Y As Integer) X = X + 4 Y = Y = 2 End Sub 事件发生后，X和Y的值分别为 ______。A．6, 8B．10, 10C．10, 8D．6, 10
有如下程序： 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 * ##
有如下事件过程： Private Sub Commaild1_Click( ) Dim i As Integer For i =1 To 2 DC Next i End Sub Sub DC( ) 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 * # 1 1 * #B．1 1 * # 1 2 * #C．1 1 * # 1 1 * ##D．1 1 * # 1 2 * ##
在窗体上画一个名称为Commana1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func = Y End Function Private Sub Form. MouseDown(Button As Integer,_ Shift As Integer,X As Single, Y As Single) SW = False End Sub Private Sub Form_MouseUp( Button As Integer,_ Shift As Integer ,X As Single, Y As Single) SW = True End Sub Private Sub Commandl_Click( ) Dim intNum As Integer intNum = InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为A．输出0B．输出25C．输出45D．无任何输出
编写如下事件过程： 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
在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1和．Text2，然后编写如下程序： Private Sub Command1_Click() Dim x As String，y As String， C As String，d As String x = Text1．Text ： y = TextText c = LCase(x)：d = UCase(y) Print c； d End Sub 程序运行后，在文本框Texn、Text2中分别输入AbC和efG，结果是A．abcEFGB．abcefgC．ABCefgD．ABCEFG
单击命令按钮时，下列程序代码的执行结果为______。 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
设有如下程序： Option Base 1 Private Sub Form. Click（ ） Dim a(5)As String，i As Integer For i=1 To 5 a(i)=Chr(Asc("A")+i) Call f(a，i) Next i End Sub Sub f(ta（ ）As String，n As．Integer) Dim i As Integer For i=1 To n Print ta(i)； Next i Print End Sub 对上述程序．以下叙述中正确的是（ ）。A.程序有错，因为在过程f的定义中数组参数格式不正确B.程序可正常运行，输出内容的第一行是一个字母“A”C.程序可正常运行，输出内容的第一行是一个字母“B”D.程序可正常运行，输出内容的第一行是数字65
编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是A．6B．12C．24D．47
单击窗体时，下列程序的执行结果是 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 SubA．abcdefB．afbecdC．fedcbaD．defabc
有如下程序： Private Type stu X As String Y As Integer End Type Private Sub Command1 Click（ ） Dim a As stu X="ABCD" Y=12345 Print a End Sub 程序运行时出现错误，错误的原因是（ ）。A.Type定义语句没有放在标准模块中B.变量声明语句有错C.赋值语句不对D.输出语句Print不对
阅读下面的程序； Function Func(x As Integer，y As Integer)As Integer Dim n As Integer Do While n ＜ = 4 x=x + y n = n + 1 Loop Func=x End Function Private Sub Command1_Click() Dim x As Integet, y As Integer Dim n As Integer，z As Integer x=1 y=1 For n = 1 To 6 z=Func(x，y) Next n Print z End Sub 程序运行后，单击命令按钮，输出的结果为．A．16B．21C．26D．31
设有如下程序：Private Sub Form. Click（ ）Dim s As Long，f As LongDim n As Integer，i As Integerf=1n=4For i=1 To nf=f*is=s+fNext iPrint sEnd Sub程序运行后，单击窗体，输出结果是（ ）。A.32B.33C.34D.35
下列程序的执行结果为 Private Sub Command1_Click() Dim FirStr As String FtrSt="abcdef" Print Pat(FirStr) End Sub Private Function Pat(xStr As String)As String Dim tempStr As String，strLen As Integer tempStr="" strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr，strLen -i+1,1) i=i+1 Loop Pat=tempStr End FunctionA．abcdefB．afbecdC．fedcbaD．defabc
设有如下程序： Private Sub Form. Click（ ） Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+l sum=sum+ary(i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是（ ）。A.15B.16C.20D.25
下列程序的执行结果为 Ptivate Sub Commandl_Click() Dim FirStr As String FirStr="abcdef" Print Pct (FirStr) End Sub Private Function Pct(xStr As String)As String Dim tempStr As String,strLen As Integer tempStr="" strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr=tempStr + Mid(xStr，i，l) + Mid(xStr，strLen - i+i ，1) i=i + 1 Loop Pct=tempStr End FunCtionA．abcdefB．afbecdC．fedcbaD．defabc
运行下列程序:Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = 12345For x = 1 To Len(y)z = Mid(Left(y, x), 1)Next xPrint zEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.1B.11111C.55555D.12345
运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x 运行下列程序：Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x 20x = x + 10y = y + xIf x 20 Then Exit DoLoopPrint x, yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.10 20B.30 60C.10 30D.20 60
设有Function过程:Private Function f(a As Integer, b As Integer) As Integera = a * a:b = b * bf = CInt(Sqr(a - b))End Function则如下程序段的运行结果是( )。Private Sub Command1_Click()Dim X As Integer, Y As IntegerX = 5: Y = 4a = f(X, Y)Print aEnd SubA. 5B. 4C. 3D. 9
下列程序打印结果为 ______。Private Sub Command1_ Click() Dim a(5)As String Dim b As Integer Dim i As Integer for i = 0 To 5 a(i)= i +1 Print a(i); Next iEnd SubA．12345B．6C．1 2 3 4 5 6D．0