网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
设有如下程序：
Private Sub Form—Click()
Cls
a$=“ABCDFG”
For i=1 T0 6
Print Tab(12-i)；【 】
Nexti
End Sub
程序运行后，单击窗体，结果如图所示，请填空。
参考答案
更多 “ 设有如下程序：Private Sub Form—Click()Clsa$=“ABCDFG”For i=1 T0 6Print Tab(12-i)；【 】NextiEnd 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程序运行后，单击窗体，结果如图所示，请填空。
热门标签
最新试卷