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
内容
- 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
在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，显示结果为（ ）。
- 2
有以下程序： Private Sub Form_Activate() Fori=1 to 3 x=3 For i=i to 2 x=x+6 Next Next Print X End Sub 程序运行后，窗体上显示的结果为 (10)
- 3
在窗体上画一个命令按钮＜其名称为Command1)，然后编写如下事件过程： Private Sub Command1 Click() For i=1 T04 If i=1 Thenx=i If i＜=4 Then x=x+1 Print x Next i End Sub 程序运行后，单击命令按钮；其输出结果为 ______。 A: A) 1 2 3 4 B: B) 2 3 4 5 C: C) 2 3 4 4 D: D) 3 4 5 6
- 4
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