举一反三
- 在窗体上添加一个命令按钮，然后编写如下事件过程： 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
- 以下程序的输出结果为()。 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
- 执行了下面的程序后，组合框中数据项的值是( )。 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
- 以下程序的输出结果是 main() { int i, k, a[10], p[3]; k=5; for (i=0;i<10;i++) a[i ]=i; for (i=0;i<3;i++) p[i ]=a[i *(i+1)]; for (i=0;i<3;i++) k+=p[i] *2; printf("%d\n",k); }
内容
- 0
以下程序的运行结果是（） 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
- 1
下列程序: 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 运行时的输出结果是( )。
- 2
下列程序的输出结果是（）。 P＝0 ForI=1to4 p=p*I NextI Printp A: 24 B: 4 C: 0 D: 10
- 3
以下程序段的输出结果为( ) Dim a(10),p(3) k=5 For i=0 To 10 a(i)=i Next i For i=0 To 2 p(i)=a(i+(i+1)) Next i For i=0 To 2 k=k+p(i)+2 Next i Print k A: 20 B: 21 C: 56 D: 32
- 4
阅读程序： Option Base 1 Sub P(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Form_Click() Dim a(4)As Integer For i=1 To 4 a(i)=i+4 Next i P a For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击窗体，输出结果为 A: 2 4 6 8 B: 5 6 7 8 C: 10 12 14 16 D: 4 8 12 16