设有如下程序 Private Sub Fom1_Click（) Dim s As Integer，b As Integer a=20：b=50 p1 a，b p2 a，b p3 a，b Print"a="；a，"b=";bEnd Sub Sub pl（x As Integer，ByValy As Integer) x=x+10 y=y+20 End Sub Sub p2（ByVal x As I

设有如下程序：Private Sub Form_Click（)Clsa＄="ABCDFG"For i=1 To 6Print Tab（12-i)；【 】Next iEnd Sub程序运行后，单击窗体，结果如图所示，请填空。 设有如下程序： Option Base 1 Private Sub Form Click()Dim arrarr = Array(10, 20, "ABCDE")For i = 3 To 1 Step -1 Print arr(i);Next i End Sub程序运行后，单击窗体，在窗体上显示的内容为______ 。 有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。 设有如下程序： Private Sub Form_Click（) a=32548.56 Print Format（Int（（a*10+0.5))/10，"000，000.00") End Sub 程序运行后，单击窗体，输出结果为 【7】 。 设有如下程序：程序运行后单击窗体，输出结果是（） 设有如下程序：对上述程序，以下叙述中正确的是（） 设有如下程序：第4行，1和Step之间加个空格程序运行后，单击窗体，输出结果为（） 设有如下程序：Option Base 1Private Sub Command1_Click（)Dim a（10) As IntegerDim n As Integern=InputBox（“输入数据”)If n<10 ThenCall GetArray（a，n)End IfEnd SubPrivate Sub GetArray（b（)As Integer，n As Integer)Dim c 设有如下程序：以上程序的功能是（）。程序运行后，单击窗体，输出结果为（）。 设有如下程序Option Base 1Private Sub Form_Click（)Dim a（5) As String , i As IntegerFor i=1 To 5a（i)=Chr（Asc（“A”)+i)Call f（a,i)Next iEnd SubSub f（ta（) As String , n As Integer)Dim i As IntegerFor 设有如下程序：程序运行后，单击窗体，则在窗体上显示的是（） 设有如下程序： Private Sub Form_Click（) Dim a As Integer， s As Integer n=8 s=0 Do s=s+n n=n-1 Loop While n＞0 Print s End Sub 以上程序的功能是______。程序运行后，单击窗体，输出结果为______。 设有如下程序段： x = 2 For i = 1 To 10 Step 2 x = x + i Next 运行以上程序后，x的值是 设有如下事件过程：程序运行后，单击窗体，输出结果是（） （ 19 ）有如下程序段：int i=1; 设有如下程序段，则下面描述正确的是 int k=10; while (k=0) k=k-1; 设有如下程序段，下面描述中正确的是（）。 int k=10; while(k=0) k=k-1; 设有如下程序： Private Sub Form_Click（) Dim ary（1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary（i)=i+1 sum=sum+ary（i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是（)。 有如下程序： Private Sub Command1_Click（)j =10For i= -1 To 1 Step 0.3 j =j + 1Next iPrint j End Sub该程序共循环 【7】 次，程序执行完毕后j的值是 【8】 。 设有如下过程：