下列程序运行时输出的结果是( )。 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: 天天向上清华大学天上人间程序设计
A: 天天向上
B: 天天向上天上人间
C: 出错信息
D: 天天向上清华大学天上人间程序设计
举一反三
- 以下程序输出的结果是: Private Sub Form_Activate() Dim a a=Array(1,2,3,4,5) For i=Lbound(((A) To Ubound(((A) A(i)=i*a(i) Next i Print i, Lbound(((A) , Ubound(((A) , a(i) End Sub
- 下面程序运行后,输出结果是( )。 Private Sub mysub(b()As Integer,OptionalByValnAsInteger=2) ForI=1 to 4 b(I)=n*I NextI End Sub Private Sub Commandl_Click() Dima(1 to 4)As Integer,I As Integer Callmysub(a(),5) Mysuba() ForI=1 to 4 Print a(i); Next End Sub A: 5101520 B: 2468 C: 出错 D: 0000
- 下列程序运行后输出结果是_______. Private Sub Form_Click() K=1 For I=5 to 1 step -1 T=T*10 + K S=S+T Next I Print S End sub
- 执行下面的程序,消息框的输出结果是______。 option Base 1 PrivateSubCommandl_Click() Dima(10),P(3)As Integer K=5 Fori=1 To 10 a(i)=i Nexti Fori=1 To 3 p(i)=a(i*i) NextI Fori=1 To 3 k=k+p(i)*2 Ncxti MsgBoxk End sub
- 下列程序: Option Base 1 Private Sub Form_Click() Dim a(5,5) For i = 1 To 5 For j = 1 To 5 k = k + 1 a (i,j)= k Next j Next i For i = 1 To 5 s = s + a (i,i) Next i Print s End Sub 运行时的输出结果是( )。