itgle.com

下列程序 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. 天天向上天津大学天上人间程序设计

题目

下列程序 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. 天天向上天津大学天上人间程序设计


相似考题
更多“下列程序 Private Sub Form_Click() Dim a a = Array("天天向上", "天津大学 ”相关问题
  • 第1题:

    给出下面程序的代码: byte[ ] array1, array2[ ]; byte array3[ ][ ]; byter[ ][ ] array4; 下列数组操作语句中不正确的是( )。

    A.array2=array1

    B.array2=array3;

    C.array2=array4

    D.array3=array4


  • 第2题:

    下列程序运行时输出的结果是( )。 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.天天向上清华大学天上人间程序设计


    正确答案:B

  • 第3题:

    模块级变量的声明既可以用关键字Private,也可以用关键字Dim。( )

    此题为判断题(对,错)。


    正确答案:正确

  • 第4题:

    在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Private Sub Commandl_Click() Dim() a=Array(”机床”,”车床”,”钻床”,”轴承”)Printa(2)EndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。

    A.机床

    B.车床

    C.钻床

    D.轴承


    正确答案:C
    暂无解析,请参考用户分享笔记

  • 第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)。