单项选择题

设有如下程序：
Private Sub Form_Click()
Cls
a$="123456"
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() 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．32
B．33
C．34
D．35

单项选择题

有人编写了如下程序： Private Sub Form_Click() Dim s As Integer, x As Integer s=0 x=0 Do While s=10000 x=x+1 s=s+x^2 Loop Print s End Sub 上述程序的功能是：计算s=1+22+32+…+n2+…，直到s＞10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是( )。

A．把x=0改为x=1
B．把Do While s=10000改为Do While s＜=10000
C．把Do While s=10000改为Do while s＞10000
D．交换x=x+1和s=s+x^2的位置

相关试题