有如下程序：PrivateSubForm_Click()DimsAsInteger,pAsIntegerp=1Fori=1To5Forj=1Tois=s+jNextjp=p*sNextiPrintpEndSub程序运行后，单击窗体，则输出结果是______。（5.0分）
相似题目
-
行政程序法有如下哪些特征？（）
-
执行以下程序段，在窗体上显示的结果是___A__。PrivateSubForm_Click（）DimSAsString，iAsIntegerS="ab"Fori=Len（S）To1Step-1PrintChr（Asc（Mid（S，i，1））+i）NextIEndSub
-
运行下面的程序，单击窗体后，从键盘上输入字符串6，窗体上显示的输出结果为________。PrivateSubForm_Click()DimnAsIntegerDims1AsStrings1=InputBox(输入一个字符串)n=Val(s1)PrintFact(n)EndSubPrivateFunctionFact(mAsInteger)AsLongDimsAsLongIfm=1Thens=1Elses=Fact(m-1)*mEndIfFact=sEndFunction
-
运行下面的程序，第二行显示结果是___________。PrivateSubForm_Click()DimAAsIntegerDimiAsIntegerA=5Fori=1To9Callsub1(i,A)Printi,ANextiEndSubPrivateSubsub1(xAsInteger,yAsInteger)StaticNAsIntegerDimIAsIntegerForI=3To1Step-1N=N+xx=x+2NextIy=y+NEndSub
-
运行下列程序，单击窗体后在窗体上显示的结果是_______。PrivateSubForm_Click()DimxAsInteger,yAsIntegerx=-5y=-4IfNotx>0Thenx=y-1Elsey=x+4EndIfPrintx-yEndsub（5.0分）
-
程序运行后，单击窗体，在输入对话框中依次输入25、26、35、45，输出结果为______。PrivateSubForm_Click()x=50Fori=1To4y=InputBox(\请输入一个整数\)y=Val(y)IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNextiPrintaEndSub（5.0分）
-
如下程序，运行的结果是()PrivateSubForm_Click()DimmAsInteger,IAsInteger,x(10)AsIntegerForI=0to4x(I)=I+1NextIForI=1to2Callproc(x)NextIForI=0to4Printx(I);NextIEndSubPublicSubproc(a()AsInteger)StaticIAsIntegerDoa(I)=a(I)+a(I+1)I=I+1LoopWhileI＜2EndSub
-
设有如下程序：PrivateSubForm_Click（） DimjAsInteger,sumAsInteger j=1 sum=0 Whilejif j mod 3=0 then sum=sum+jj=j+1 wendprint sumEndSub 程序运行后，单击窗体，输出结果
-
有如下代码片断,将导致程序错误的行是（）
-
有如下程序： include＜iostream＞using（）
-
有如下程序段：运行这个程序段时，输出字符‘的个数是（）
-
设程序中有如下数组定义和过程调用语句：如下过程定义中正确的是（）
-
有如下程序：运行程序时出现错误，错误之处是（）
-
有如下程序段：其中会产生编译错误的语句是（）
-
有如下程序：下列关于程序的描述中，正确的是（）
-
有如下程序 该程序的执行结果是_____
-
若有如下程序：
-
有如下程序：运行时的输出结果是（）
-
有如下程序：运行上述程序，外层Do循环执行的次数为（）
-
在窗体中有一个文本框Text1，编写事件代码如下：PrivatesubForm_Click（）X=val（Inputbox（"输入x的值"））Y=1IfX＜＞0ThenY=2Text1.Value=YEndSub打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是（）
-
有如下程序：程序运行时，输入1234＜回车＞，则输出结果是（）
-
有如下程序：运行这个程序的输出结果是（）
-
有如下程序段：运行时的输出结果是（）
-
有如下程序 程序运行时,从键盘输入:13<回车>后,程序输出结果为（）
推荐题目
- 常用清水煮的药物是（）
- 用于高温管道上的铬镍奥氏体、铁镍合金、镍合金铸造管和臂厚12mm以上的高压管的坡口应进行（），发现缺陷应及时消除。
- 计算机病毒是（）
- 中国地方政府改革的最根本的内部动力是（）.
- 计算题：15吨水经加热器后，它的焓从245.5kJ/kg增至487.4kJ/kg，求其在加热器内吸收的热量是多少？
- 使用漏油式油尺时（）
- 中央银行是政府的银行
- 金融机构应当履行金融产品或者营销宣传中的基本程序和标准，加强对营销宣传行为的监测和管控，这要求金融机构必须建立（)。
- 曹某，45岁，失血性休克，正在进行扩容疗法，中心静脉压监测为0.49kPa （5cmH，血压9.3/ 6. 7kPa（70 /50mmHg），应（）
- （)对于体积较大、较厚的混酥类制品需要低温、长时间的烘烤才能很好成熟。