在窗体上添加一个命令按钮，然后编写如下事件过程： 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
A: 35
B: 33
C: 31
D: 29
举一反三
- 执行下面的程序，消息框的输出结果是______。 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
- 以下程序的输出结果为()。 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
- 下面程序运行后，输出结果是( )。 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
- 在窗体上画一个命令按钮(其Name属性为Commandl)，然后编写如下代码： Private Sub Commandl_Click() Dima(5) Fori=0 To 4 A(i)=i+1 t=i+1 If t=3 Then Print a(i) A(t-1)=a(i-2) Else A(t)=a(i) End If Ifi=3 Thena(i+1)=a(t-4) A(4)=1 Printa(i) NextI End Sub 程序运行后，单击命令按钮，输出结果是上______。
- 执行了下面的程序后，组合框中数据项的值是( )。 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