求1！+2！+……+10!的程序如下：PrivateFunctions(xAsInteger)f=1Fori=1Toxf=f*iNexts=fEndFunctionPrivateSubCommand1_Click()DimiAsIntegerDimyAsLongFori=1To10_____________NextPrintyEndSub

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） Dim array1（10，10）As Integer Dim I，j As Integer For I=1 To 3 For j=2 To 4 array1（I，j）=I+j Next j Next I Text1.Text=array1（2，3）+array1（3，4） End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（）

设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）

有如下程序： Private Sub Command1_Click（） Fo rj=1 To 10 a=a+j\7 Next j Print a End Sub 在运行时输出a的值是（）

在窗体上画一个名称为Command1的命令按扭和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程:Private Sub Command1_Click( )n %= Text1.TextSelect Case nCase 1 to 20x=10Case 2,4,6x=20Case Is<10x=30Case 10x=40End SelectText2.Text=xEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按扭，则在Text2中显示的内容是________。

求1！+2！+……+10!的程序如下： Private Function s(x As Integer) f=1 For i=1 To x f=f*i Next s=f End Function Private Sub Command1_Click() Dim i As Integer Dim y As Long For i=1 To 10 _____________ Next Print y End Sub

下列程序代码的运行结果为（ ）。 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

在窗体上画一个名为Command1的命令按钮，编写如下程序： Private Sub Command1_Click（) Dim M（10)As Integer For k=1 To 10 M（k)=12-k Next k x=6 Print M（2+M（x)) End Sub 程序运行后，单击命令按钮，输出的结果是______。

有如下程序：Private Sub Form_Click（) Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 I

有如下程序： include＜iostream＞ usingnamespacestd； classTest { public： Test（）{n＋=2；} ～Test（）{n-=3；} staticintgetNum（）{returnn；} private： staticintn； }； intTest：：n=1； intmain（） { Test*p=neWTest； deletep；

在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Labet3的标签，然后编写如下代码： Private x AS Integer Private Sub Command1_Click() Static y As Integer Dim 2 As Integer n=10 Z=n+2 y=y+2 X=X+2 Label1.Caption=x LabelCaption=y LabelCaption=z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是

◑设有如下程序： Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10，'000，000.00') End Sub 程序运行后，单击窗体，输出结果为【 】。

求1！+2！++10！的程序如下：为实现功能要求，程序的横线处应该填入的内容是（）

有如下程序：Private Sub Command1_Click（）Fo rj=1 To 10a=a+j\7Next jPrint aEnd Sub在运行时输出a的值是（）

求s=1+1×2+1×2×3+…+1×2×3×…×10， 并将结果存到变量s中。请在_________处填上适当的内容，完善程序。 Private Sub Form_Click（) Dim i, j As Integer Dim k As Long s = 0 For i = 1 To 10 k = ____________ For j = 1 To i k = k*j Next j s = s+k Next i Print “s=”;s End Sub

执行下面程序，第一行输出结果是 （11) ，第二行输出结果是 （12) 。 Option Explicit Private Sub Form_Click（) Dim A As Integer A=2 Call Subl（A) End Sub Private Subl（x As Integer) x=x*2+1 If x＜10 Then Call Subl（x) End If x=x*2+1 Pri

在窗体上画一个名称为Command1的命令按钮。编写如下程序： Option Base1 Private Sub Command1_Click（) Dim a（10) As Integer For i=1 To 10 a（i)=i Next Call swap（（11) ) For i=1 To 10 Print a（i)； Next End Sub Sub swap（b（)As Integer

20、下列程序代码的运行结果为（）。 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

有如下程序：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

下列程序的功能是：将数据1，2，…，10写入顺序文件Base.txt中，请填空。 Private Sub Form_Click（) Dim i As IntegerOpen 【9】 As 1For i=1 To 10 Print 1 ,i Next Close 1End Sub

下列程序的功能是：将数据1,2…，10写入顺序文件Base.txt中，请填空。 Private Sub Form_Click（) Dim i As Integer Open "Base. txt" For Output As 1 For i=1 To 10 【15】 Next Close 1 End Sub

设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下： Private Sub Command1_Click（) Dim a As Integer a=10 Call g（Form2，a) End Sub Private Sub g（f As Form, X As Integer) y=IIf（x＞,10,

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click（) t=0:m=1:Sum=0 Do t=t+ （8) Sum=Sum+ （9) m=m+2 Loop While （10) Print Sum End Sub 该程序的功能是，单击命令按钮，则计算并输出以下表达式的值： 1+（1+3)+（1+3+5)+…+（1+3+5+

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click（) Dim a（10)As Integer For i=1 To 10a（i)=i Next Call swap（【13】 ) For i=1 To 10Print a（i)； Next End Sub Sub swap（b（)As Integer

设工程文件中包名称分别为Form1、Form2的两个窗体，且Form1的菜单属性设置如下： 标题（p) 名称（m) 内缩符号 Index 窗体 Mnu（) 无 显示窗体2 Mnu1 1 1 退出 Mnu1 1 2 窗体Form1中的程序如下： Dim Flag As Boolean Private Sub Form_Load（) Flag = True End Sub Private Sub mn