下面程序的运行结果为 _____ 。 For i=3 To 1 Step -1 Print Spc(5 - i); For j = 1 To 2 * i - 1 Print "*"; Next j Print Next i: * * * * * * * * *|* * * * * * * * *|* * * * * * * * *|* * * * * * * * *

有如下事件过程： Private Sub Form Active （) Dim Score （1 to 3) As Integer Dim i As Integer Dim t As Variant Fori=3 To 1 step-1 Score （i) = 2 * i Next For Each t In Score Print t Next End Sub 程序运行后窗体上显示的值为 【1 下面程序的运行结果（）System.out.println（1+1+”1″） 阅读下列程序，写出程序运行结果：【程序1清单】C=”三号教学楼”FORI=1TOLEN（C）/2IFMOD（I,2）=1SUBS（C,2*I-1,2）ENDIFENDFOR 18，有如下语句，执行后该段语句的循环次数是（)。 Dims,i,j as integer Fori=1 to 3Forj=3 to 1 Step-1 s=i*jNextj Nexti 以下程序的运行结果是（）。Functionf(mAsInteger)AsIntegerb=1StaticcAsIntegerb=b+1c=c+1f=m*b*cEndFunctionPrivateSubCommand1_Click（）DimaAsIntegera=2Sum=0Fori=1To3Sum=Sum+f（）NextiPrintSumEndSub 下列程序代码的运行结果为（ ）。 Private Sub Command1_Click() For m = 1 To 10 Step 2 a = 10 For n = 1 To 20 Step 2 a = a + 2 Next n Next m Print a End Sub 设有如下程序：第4行，1和Step之间加个空格程序运行后，单击窗体，输出结果为（） 下列程序执行后，输出结果是( )。 For n=3 To 1 Step-1 x＄=String＄(n,"#") Print x＄ Next n 执行如下程序段后,Intsum的值为.Intsum=0ForI=1To17Step2Forj=2To6Step2If（IModj）0ThenIntsum=Intsum+jNextjNextI（） 下面程序段的运行结果是。i=1;s=3;do{s+=i++;if（） 下面程序的运行结果是（） main()?{ int?a[][]={{1,2,3},{4,5,6}}; System.out.printf("%d",?a[1][1]); } 下列程序段的执行结果为.DimM（2）Fori=lTo2M（i）=0Nextik=2Fori=1TokForj=1TokM（j）=M（i）+1PrintM（k）;NextjNexti（） 下面程序运行后，输出结果是（)。 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 下列程序输出结果（）。PrivateSubCommand1_Click（）Fori=1To10GetValueiNextiPrintGetValue(i)EndSubPrivateFunctionGetValue(ByValaAsInteger)StaticSAsIntegerS=S+aGetValue=SEndFunction 下面程序段的运行结果是() 1=1;b=2;c=2; while(a 下面程序运行结果是( ) main( ) { int a[6],i; for(i=1;i3))%5; printf(“-”,a[i]); } } 下列程序段的执行结果为______。 N=0 For I=1 To 3For J=5 To 1 Step-1N=N+1NextJ NextI PrintN;J;I PR[1]=[20，-50，15，10，180，-90]，PR[2]=PR[1]，PR[2，3]=PR[1，3]+50，则?PR[2]的值为（???） 执行下列语句后，i和j的值分别为j=0;Fori=1To10Step2;i=i+3;j=j+1;Nexti（） 下面运行程序后，单击命令按钮，输出的结果是______。 Private Sub Commandl_clck（) Dim a%（1 To 4)，b%（3 To 6)，i%，s1，s2 Fori=1 To 4a（i)=i Nexti For i=3 To 6b（i)=i Nexti s1=YAS（a) S2=YAS（b) Printt"s1="；S1"S2="；s2 End Sub Function