执行下面的程序，消息框的输出结果是______。 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

在窗体上添加一个命令按钮，然后编写如下事件过程： Phvate Sub Commanl_Click() Dima(10)As Integer Dimp(3)As InteSer 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 Nexti Printk End Sub 该程序的运行结果为( )。 A: 35 B: 33 C: 31 D: 29

执行了下面的程序后，组合框中数据项的值是( )。 PrivateSubForm_Click() Fori=1 To 6 Comb01.Addltem i Nexti Fori=1 To 3 Combol．Removeltem i Nexti End Sub A: 1 5 6 B: 1 3 5 C: 4 5 6 D: 2 4 6

"下列程序段中，语句i=i+1执行了（）次。Fori=1to5i=i+1Nexti

以下程序的运行结果是（） Subs1(b()AsInteger) Fori=1To4 b(i)=2*i Nexti EndSub PrivateSubCommand1_Click() Dima(1To4)AsInteger Fori=1To4 a(i)=i+5 Nexti s1a() Fori=1To4 Printa(i) Nexti EndSu A: 12141618 B: 6789 C: 2468 D: 1234

以下程序的输出结果为()。　　Dimi，c(10)，p(3)　　k=5　　Fori=0To10　　　c(i)=i　　Nexti　　Fori=0To2　　　p(i)=c(i*(i+1))　　Nexti　　Fori=0To2　　　　k=k+p(i)*2　　Nexti　　Printk A: 20 B: 21 C: 56 D: 32

下面程序段的运行,变量i结果为()Fori=1To10Step4i=i+1Nexti A: 11 B: 12 C: 13 D: 14

18，有如下语句，执行后该段语句的循环次数是( )。 Dims,i,j as integer Fori=1 to 3 Forj=3 to 1 Step-1 s=i*j Nextj Nexti A: 9 B: 10 C: 3 D: 4

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

下面程序运行后，输出结果是( )。 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