单选

请阅读程序:

Private Sub Form. Click(  )

 m=1

 For i=4To 1 Step-1

   Print Str(m);

m=m+1

For j=1 To i

Print"*":

Next j

Print

Next i

End Sub

程序运行后,单击窗体,则输出结果是(  )。

  • A.1****    2***    3**    4*
  • B.4****    3***    2**    1*
  • C.****    ***    **    *
  • D.*    **    ***    ****
参考答案
您可能感兴趣的试题

现有如下一段程序:

Option Base 1

Privalc Sub Command1 Click(  )

 Dim a

  • a=Array(3,5,7,9‘)    x=1
  • For i=4,10 j Step-1    s=s+a(i)*X    x=x*10    Next i    Print s
  • End Sub    执行程序,单击Command1命令按钮键,执行上述事件过程,输出结果是(  )。
  • A.9753
  • B.3579
  • C.35
  • D.79

下列可以打开随机文件的语句是(  )。

  • A.Open"file 1.dat"For Input As#1
  • B.Open"file1.dat"For Append As#1
  • C.Open"file1.dat"For Output As#1
  • D.Open"file1.dat"For Randow As#1 Len=20

下列关于线性链表的叙述中,正确的是(  )。

  • A.各数据结点的存储空间可以不连续,但它们的存储顺序与逻辑顺序必须一致
  • B.各数据结点的存储顺序与逻辑顺序可以不一致,但它们的存储空间必须连续
  • C.进行插入与删除时,不需要移动表中的元素
  • D.以上三种说法都不对
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服