以下程序的运行结果是（） 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
A: 12141618
B: 6789
C: 2468
D: 1234
举一反三
- 下列程序的输出结果是（）。 P＝0 ForI=1to4 p=p*I NextI Printp A: 24 B: 4 C: 0 D: 10
- 执行下面的程序，消息框的输出结果是______。 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
- 下面程序运行后，输出结果是( )。 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
- 执行了下面的程序后，组合框中数据项的值是( )。 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
- 在窗体上添加一个命令按钮，然后编写如下事件过程： 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