下列程序运行时输出的结果是( )。 Private Sub Form_Click() Dima a=Array("天天向上"，"清华大学"，"天上人间"，"程序设计") forI=Lbound(a，1) to Ubound(a，1) ifleft(a(i)，1)="天"then print a(i)； nextI End SubA．天天向上B．天天向上天上人间C．出错信息D．天天向上清华大学天上人间程序设计

题目

下列程序运行时输出的结果是( )。 Private Sub Form_Click() Dima a=Array("天天向上"，"清华大学"，"天上人间"，"程序设计") forI=Lbound(a，1) to Ubound(a，1) ifleft(a(i)，1)="天"then print a(i)； nextI End Sub

A．天天向上

B．天天向上天上人间

C．出错信息

D．天天向上清华大学天上人间程序设计

相似考题

1.窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4,5) Fork=1 To 4 s=s+a(k) Next k Print s End Sub A.10 B.14 C.15 D.120

2.有如下程序：#included<iostream>using namespace std；class CD{public：～CD(){cout<<’C’；)private：char name[80]；}；int main()(CD a，*b，d[2]；return 0；}运行时的输出结果是A．CCCCB．CCCC．CCD．C

3.下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array("天天向上"，"清华大学"，"天上人间"，"程序设计") For i=LBound(a,1)to UBound(a,1) If Left(a(i),1)="天"Then Print a(i)； Next End SubA．天天向上B．天天向上天上人间C．出错信息D．天天向上清华大学天上人间程序设计

4.下列程序 Private Sub Form_Click() Dim a a = Array("天天向上", "天津大学", "天上人间", "程序设计") For i = LBound(a) To UBound(a) If Left(a(i), 1) = "天" Then Print a(i); Next i End Sub 运行时输出的结果是()。：A. 天天向上B. 天天向上天津大学天上人间C. 出错信息D. 天天向上天津大学天上人间程序设计

参考答案和解析
正确答案：B
更多“下列程序运行时输出的结果是()。Private Sub Form_Click()Dimaa=Array("天天向上","清华大学","天 ”相关问题

  • 第1题：

    窗体上有一个命令按钮，命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next Print S End Sub 运行程序后，单击命令按钮，输出结果是

    A．10

    B．14

    C．15

    D．120


    正确答案：B
    解析：考查考生对数组定义的掌握程度。
      [解题要点] Array函数在默认的情况下，数组的下标从O开始，所以s=a(1)+a(2)+a(3)a(4)=2+3+4+5=14
      [考点链接] 数组的定义、赋值和应用。

  • 第2题：

    下列程序的输出结果是( )。 Dim a a=Array(1，2，3，4，5，6，7，8) i=0 For k=100 To 90 Step-2 s=a(i)^2 If a(i)＞3 Then Exit For i=i+1 Next k Print k；i；s

    A．88 6 36

    B．88 1 2

    C．90 2 4

    D．94 3 16


    正确答案：D
    解析：本题定义了一个数组，并给数组元素a(0)～a(7)分别赋值1～8，给变量i赋值0，然后执行For循环：首先给循环变量k赋初值100，没有在变化方向上超过终值，执行循环体，给s赋值a(0)的平方为1，判断If语句后的条件“a(0)＞3”为假，执行后面的i=i+1，i的值变为1，循环变量k增加一个步长变成98，没有超过终值，接着执行循环；同样分析可知第二次循环结束时s的值为4，i的值为2，循环变量k增加一个步长变成96，没有超过终值，接着执行循环；同样分析可知第三次循环结束时s的值为9，i的值为3，循环变量k增加一个步长变成94，没有超过终值，接着执行循环；给s赋着a(3)的平方为16，判断If后面的条件“a(3)＞3”为True，退出循环。此时输出的循环变量k的值为94，i的值为3，s的值为16。

  • 第3题：

    下列程序的输出结果是( )。 Dima a=Array(1，2,3,4,5,6,7,8) i=0 ForK=100 To 90 Step-2 s=a(i)^2 If a(i)＞3 Then Exit For i=i+1 Nextk Printk；a(i)；s

    A．88 6 36

    B．88 1 2

    C．90 2 4

    D．94 4 16


    正确答案：O

  • 第4题：

    下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”) For i=LBound(a，1)to UBound(a，1) If Left(a(i)，1)=“天”Then Print a(i)； Next End Sub

    A．天天向上

    B．天天向上天上人间

    C．出错信息

    D．天天向上清华大学天上人间程序设计


    正确答案：B
    解析：通过LBound和UBound函数来返回一个数组中指定维的上界和下界，该程序的作用是找出并返回第一个字是天字的成语，选B。

  • 第5题：

    下列程序运行时输出的结果是

    Private Sub Form_Click()

    Dim x

    x=Array("天天向上","清华大学","天上人间","程序设计")

    For i=LBound(a,1) to UBound(a,1)

    If Left(a(i),1)="天"Then Print a(i);

    Next

    End Sub

    A．天天向上

    B．天天向上天上人间

    C．出错信息

    D．天天向上清华大学天上人间程序设计


    正确答案：B
    解析：考查数组Lbound和Ubound函数的概念和使用方法。通过LBound和UBound函数来返回一个数组中指定维的上界和下界,该程序的作用是找出并返回第一个字是天字的成语,故选B)。

相关内容