niusouti.com

运行以下程序段后，输出结果为【 】。For I=1 To 3CisPrint"I=",I;Next

题目

运行以下程序段后，输出结果为【 】。

For I=1 To 3

Cis

Print"I=",I;

Next

相似考题

1.下面程序段的运行结果是【 】。Option Base 1Private Sub swap(a()As InteSer)For I=1 to 10\2t=a(i)a(i)=a(10-1+1)a(10-1+1)=tNext1End SubPrivate Sub Form_Click()Dim x(10)As IntegerFor I=1 to 10x(i)=I*2Next1Swap x()For1=1 to 10Print x (i)Next IEnd Sub

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

3.运行以下程序段后，输出结果为【 】。For I=1 To 3ClsPrint "I=",I；Next@答案@I=3@解析@本题考查Cls语句的功能。Cis语句的功能是清除窗体或其他对象上的所有输出，因此，本题在运行中虽然对I=1和I=2有输出，但都被清除，最后只剩下I=3时的输出值。

4.设有如下程序：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

参考答案和解析
正确答案：I=3
I=3 解析：本题考查Cis语句的功能。Cis语句的功能是清除窗体或其他对象上的所有输出，因此，本题在运行中虽然对I-1和1=2有输出，但都被清除，最后只剩下I=3时的输出值。
更多“运行以下程序段后,输出结果为【】。ForI=1 To 3CisPrint"I=",I;Next ”相关问题

  • 第1题：

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


    正确答案：A
    A。【解析】本题也是考查字符串的取值，当i=4时，y=Mid(x，4，4)+y=DEFG，当i=3时，Y=Mid(X，3，3)q-y=CDEDEFG，当i=2时，y=Mid(X，2，2)+y=BCCDEFG，当i=1时，y=Mid(x，1，1)+Y=ABCCDEFG，所以答案选择A。

  • 第2题：

    运行以下程序后，输出的结果是 for i=1 to 3 cls print" i=",i； Next

    A．123

    B．3

    C．i=1i=2i=3

    D．i=3


    正确答案：D
    解析：cls语句的功能是清除窗体或其他对象上的所有输出，因此，本题中开始输出的i=1和i=2都被清除，只剩下i=3。答案为选项D。

  • 第3题：

    下列程序段的输出结果为（）。 Dim A（5) For i=1 to 5 A（i)=i*i Next i Print A（i)

    A．55

    B．0

    C．18

    D．下标越界出错信息


    下标越界出错信息

  • 第4题：

    以下程序段运行后消息框的输出结果为______。

    s＝"Access"

    Dim str As String

    For i＝1 To Len(s)

    str＝UCase(Mid(S,I,I))+str

    Next i

    MsgBox str


    正确答案：SSECCA
    SSECCA 解析：本题考查有关字符串函数的知识。在VBA中有很多字符串函数，其中Mid函数可以实现在任何位置取任何长度的子串3Len函数返回字符串的长度；UCase函数强制把字符转换成大写字母。本题中应该注意到，虽然循环变量i是逐次递增也就是正向循环，但是每一次使用Mid函数取得的一个字符都连接到原来的str前面，实际上就是实现字符串的逆序存放。结合其他函数可知最后结果为“SSECCA”。

  • 第5题：

    以下程序运行后，Text1的输出结果是___________ 。 Dim a%（5), i% For i = 0 To 5 a（i) = 2 * i + 1 Text1.Text = a（i) Next i

    A．程序出错

    B．1 3 5 7 9 11

    C．11

    D．9

    E．1


    11

相关内容