对窗体编写如下代码： Option Base1 Private Sub Form_Key Press（Key Ascii AsInteger） a=Array（237，126，87，48，498） m1=a（1） m2=1 IfKey Ascii=13Then ForI=2To5 Ifa（I）>mlThen m1=a（j） m2=I EndIf NextI EndIf Printm1 Printm2 EndSub 程序运行后，按回车键，输出结果为（）
有如下程序： Private Sub Command1_Click（） Fo rj=1 To 10 a=a+j\7 Next j Print a End Sub 在运行时输出a的值是（）
有如下程序： FOR j=1 TO 3 PRINT TAB（3*j）；11*（2*j-1）； NEXT j 运行后输出的结果是（）
有如下程序： INPUT TO A1 IF A1=10B1=0 ENDIFB1=1假定从键盘输入的A的值一定是数值型，那么上面条件选择程序的执行结果是（ ）。
下列程序的输出结果是（）。 P＝0 ForI=1to4 p=p*I NextI Printp
执行以下程序段，在窗体上显示的结果是___A__。PrivateSubForm_Click（）DimSAsString，iAsIntegerS="ab"Fori=Len（S）To1Step-1PrintChr（Asc（Mid（S，i，1））+i）NextIEndSub
以下程序运行的结果是（）s=0Fori=1to3s=s+inextiprints=
有如下程序：PrivateSubForm_Click()DimsAsInteger,pAsIntegerp=1Fori=1To5Forj=1Tois=s+jNextjp=p*sNextiPrintpEndSub程序运行后，单击窗体，则输出结果是______。（5.0分）
运行下面的程序，第二行显示结果是___________。PrivateSubForm_Click()DimAAsIntegerDimiAsIntegerA=5Fori=1To9Callsub1(i,A)Printi,ANextiEndSubPrivateSubsub1(xAsInteger,yAsInteger)StaticNAsIntegerDimIAsIntegerForI=3To1Step-1N=N+xx=x+2NextIy=y+NEndSub
窗体上有一个命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click()Fori=1to4Forj=4to8sum=sum+1NextjNextiPrintsumEndSub运行时，单击按钮，输出结果是（）。
设有如下程序：OptionBase1PrivateSubForm_Click()DimADimiAsIntegerA=Array(10,20,30,40,50,60,70,80,90)Fori=1To4PrintA(4+i);NextiEndSub程序运行后，单击窗体，则在窗体上显示的是________。（5.0分）
求1！+2！+……+10!的程序如下：PrivateFunctions(xAsInteger)f=1Fori=1Toxf=f*iNexts=fEndFunctionPrivateSubCommand1_Click()DimiAsIntegerDimyAsLongFori=1To10_____________NextPrintyEndSub
假定有以下程序段：Fori=1To3Forj=5To1Step－1PrintjNextj,I"Printj"的执行次数是什么。（)
在VB程序中有以下程序段：For i=10 To 1 Step －2Print"*"Nexti语句“Print"*"”的执行次数是（)。
有程序段如下: int k=10; do { k=k-1;}while（）
运行下列程序段后，x的值是（）。x=8Fori=1to5 x=x+x/3 Next
有如下VisualBasic程序段如下：（)j=0Fori=1To10Step3j=j＋iNexti该程序段运行后，变量j的值是"
有如下程序：Private Sub Form_Click（) Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 I
有如下程序段 int*p,=10,b=1 p=&=*p＋b 执行该程序段后，的值为12 B．11有如下程序段 int *p,=10,b=1 p=&=*p+b 执行该程序段后，的值为12 B．11 C．10 D．编译出错
有如下程序：Private Sub Command1_Click（）Fo rj=1 To 10a=a+j\7Next jPrint aEnd Sub在运行时输出a的值是（）
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（) Fori=1 To 4 K=4 For j=1 To 3 K=3 For k=1 To 2 K=X+6 Next k Next j Next i Print X End Sub 程序运行后，单击命令按钮，输出结果是 【14】 。
下面程序的输出结果为()PrivateSubCommand1_Click()Dima%(1To5),b%(2To10),i%,t1,t2Fori=1To5a(i)=iNextit1=tim(a())Print"t1=";t1EndSubFunctiontim(a()AsInteger)Dimt,i%t=1Fori=LBound()ToUBound()t=t*a(i)Nextitim=tEndFunction
有如下程序：Option Base 1Private Sub Form Click（）Dim arr,SumSum=0 arr=Array（1,3,5,7,9,11,13,15,17,19）For i=1 To 10If arr（i）/3=arr（i）//3 ThenSum=Sum+arr（i） En
阅读程序： Option Base 1 Private Sub Form_Click（) Dima（3)As Integer Print"输入的数据是:"； Fori=1 To 3 a（i)=InputBox（“输入数据”) Printa（i)； Next Print If a（1)＜a（2) Then t=a（1) a（1)=a（2) a（2)= [10] End If Ifa（2)＞a（3)T
