未分类题

设有如下程序：
Private Sub Form_Click()
Dim i As Integer，x As String,Y As String
x=”ABCDEFG”
For i=4 To 1 Step-1
y=Mid(x，i，i)+y
Next i
Print y
End Sub
程序运行后，单击窗体，输出结果为

A.ABCCDEDEFG
B．AABBCDEFG
C．ABCDEFG
D．AABBCCDDEEFFGG


【参考答案】

A
解析：本题Mid函数的功能是从第i个字符开始取i个，当i=4时，从字母D开始取到G，并加在y的开头，当i=3......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
<上一题 目录 下一题>
热门 试题

未分类题
设有如下程序： 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(j)=i+1 sum=sum+ary(i) Next 1 Print sum Eud Sub 程序运行后，单击窗体，则在窗体上显示的是
未分类题
有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即 0，1，1，2，4，7，13，24，…… 要求编写程序输出该数列中所有不超过1000的数。 某人编写程序如下： Private Sub Form_Click() Dim i As Integer，a As Integer，b As Integer Dim C As Integer，d As Integer a=0：b=1：c=1 d=a+b+C i=5 While d<=1000 Print d； a=b：b=C：C=d d=a+b+c i=i+1 Wend End Sub 运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是A．把While d<=1000改为While d>1000B．把i=5改为i=4C．把i=i+1移到While d<=1000的下面D．在i=5的上面增加一个语句：Print a；b；c；
相关试题