下列程序输出结果为()。
PrivateSubCommand1_Click()
Fori=1To3
GetValue(i)
Nexti
PrintGetValue(i)
EndSub
PrivateFunctionGetValue(ByValaAsInteger)
DimsAsInteger
s=s+a
GetValue=s
EndFunction
PrivateSubCommand1_Click()
Fori=1To3
GetValue(i)
Nexti
PrintGetValue(i)
EndSub
PrivateFunctionGetValue(ByValaAsInteger)
DimsAsInteger
s=s+a
GetValue=s
EndFunction
举一反三
- 单击命令按钮时，下列程序的执行结果为（）。 PrivateFunctionP(NAsInteger) Staticsum ForI=1ToN sum=sum+1 NextI P=sum EndFunction PrivateSubCommand1_Click() S=P(1)+P(2)+P(3)+P(4) PrintS; EndSub
- 执行下列程序段后，程序的运行结果为()。 s = 1 For i = 1 To 3 For j = 0 To i - 1 s = s + s * j Next j Print s; Next i
- 以下程序的运行结果是（） 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
- 以下程序运行后的输出结果是#includemain(){inta[5]={1,2,3,4,5},b[5]={0,2,1,3,0},i,s=0;for(i=1;i<3;i++)s=s+a[b[i]];printf(“%d”,s);}
- 执行下面的程序，消息框的输出结果是______。 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