设有如下程序:Private Sub Form—Click()Clsa$=“ABCDFG”For i=1 T0 6Print Tab(12-i);【 】NextiEnd Sub程序运行后,单击窗体,结果如图所示,请填空。

设有如下程序:

Private Sub Form—Click()

Cls

a$=“ABCDFG”

For i=1 T0 6

Print Tab(12-i);【 】

Nexti

End Sub

程序运行后,单击窗体,结果如图所示,请填空。


相关考题:

设有如下程序: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

有如下程序:Option Base 1Private Sub Form_Click()Dim arr,SumSum=0For i=1 To 10If arr(i)/3=arr(i)\3 ThenEnd IfNext iEnd Sub程序运行后,单击窗体,消息框的输出结果为( )。

设有如下程序:Private Sub Form. Click( )Dim ary(1 To 5)As IntegerDim i As IntegerDim sum As IntegerFor i=1 To 5ary(i)=i+lsum=sum+ary(i)Next iPrint sumEnd Sub程序运行后,单击窗体,则在窗体上显示的是( )。A.15B.16C.20D.25

设有如下程序: 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

设有如下程序: Private Sub Form. Click( ) Cls a$="1234j6" For i=1 To 6 Print Tab(12-i);________ Next i End Sub 程序运行后,单击窗体,要求结果如图所示,则在______处填入的内容为( )。A.Left(a$,i)B.Mid(a$,8-i,i)C.Right(a$,i)D.Mid(a$,7,i)

设有如下程序:Private Sub Form_Click()Clsa$=”123456”For i=1 To 6Print Tab(12-i);_____Next iEnd Sub程序运行后,单击窗体,要求结果如图所示,则在_____处应填入的内容为A.Left(a$,i)B.Mid(a$,8-i,i)C.Right(a$,i)D.Mia(a$,7,i)

设有如下程序:Private Sub Form. Click( )Clsa$=1234j6For i=1 To 6Print Tab(12-i);________Next iEnd Sub程序运行后,单击窗体,要求结果如图所示,则在______处填入的内容为( )。A.Left(a$,i)B.Mid(a$,8-i,i)C.Right(a$,i)D.Mid(a$,7,i)

设有如下程序: 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

9)设有如下程序:Private Sub Form_Click( )Clsa$="ABCDFG"For i=1 To 6Print Tab(12-i); 【9】Next iEnd Sub程序运行后,单击窗体,结果如图所示,请填空。