设有如下程序：第1行Prvate改为Private；第3行最后单词为Integer程序运行后，单击窗体，输出结果是（）

设有如下程序Private Sub Command1_Click（) x=10:y=0 for i=1 to 5 do x=x-2 y=y+2 Loop Until y>5 or x 设有如下程序：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程序运行后，单击窗体，在窗体上显示的内容为______ 。 有人编写了如下程序：第1行，rivate改为private。第5行，1000改为10000上述程序的功能是：计算s=1+2^{2+32++n2+，直到s＞10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是（）} 有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。 设有如下程序：程序运行后单击窗体，输出结果是（） 设有如下程序：对上述程序，以下叙述中正确的是（） 设有如下程序代码：运行Command1—Click过程所产生的输出是（） 有如下代码段:1）2）{if（unsafe）{.…}3）elseif（safe）{…}4）}其中，方法unsafe将抛出IOException,请问可将以下哪项填入第1行？（） 设有如下程序： Private Sub Form_Click（) a=32548.56 Print Format（Int（（a*10+0.5))/10，"000，000.00") End Sub 程序运行后，单击窗体，输出结果为 【7】 。 设有如下程序：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 数据集DS1下表Customers的数据状态如下： 第0行 被修改 第1行 被删除 第2行 被删除 第3行 被修改 第4行 新增 第5行 新增，随后被修改 则通过DataAdapter更新数据源时，各行处理顺序为（） 设有如下程序：以上程序的功能是（）。程序运行后，单击窗体，输出结果为（）。 设有如下程序：程序运行后，单击窗体，则在窗体上显示的是（） 设有如下程序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 设有如下程序段： x = 2 For i = 1 To 10 Step 2 x = x + i Next 运行以上程序后，x的值是 设有如下事件过程：程序运行后，单击窗体，输出结果是（） 设有如下程序： 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 以上程序的功能是______。程序运行后，单击窗体，输出结果为______。 设有如下程序段，则下面描述正确的是 int k=10; while (k=0) k=k-1; 设有如下程序段，下面描述中正确的是（）。 int k=10; while(k=0) k=k-1;