程序填空1. 下面程序打印如图所示的杨辉三角形。

阅读程序，请填空。

Private Sub Form_click()Dim a(9, 9) As IntegerFor i = 0 To 9a(i, i) = 1a(i, 0) = 1Next iFor i = 2 To 9M = i - 1For j = 1 To Ma(i, j) = a(i - 1, j) + a(i - 1, j - 1) Next jNext iFor i = 0 To 9For j = 0 To iPrint a(i, j);Next jPrintNext iEnd Sub2．下面的程序是进行加、减、乘、除的程序，运行界面如下图。

输入两个操作数和一个运算符，根据运算符决定所进行的运算。

阅读程序，请填空。

Private Sub Command1_Click()Dim a As Integer, b As Integera = Val(Text1.Text)b = Val(Text3.Text)'以下判断运算符op = Text2Select Case opCase "+"r = a + bCase "-"r = a - bCase "*"r = a * bCase "/"If b = 0 ThenMsgBox "除法运算的操作的除数不能为0" Text3.Text = ""Exit SubEnd Ifr = a / bCase ElseMsgBox "运算符非法,请重新输入"Text2.Text = ""Text2.SetFocusExit SubEnd SelectText4 = rEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Text1 = ""Text2 = ""Text3 = ""Text4 = ""End Sub3. 下面是求sin (x)=x-x^3/3!+ x^5/5!- x^7/7!+…的程序,当最后一项的值小于对于10-5次方时，循环停止。

阅读下面程序并填空。

Private Sub Command1_Click()Dim x As DoubleDim sum As DoubleDim t As DoubleDim s As IntegerDim i As IntegerDim j As Integerx = InputBox("请输入x的值")sum = xi = 1s = 1t =1Dos = s * -1For j = 1 To 2 * i + 1t = t *x/jNext jsum = sum+ti = i + 1Loop While Abs(t) > 0.000001Print sumEnd Sub4. 下面程序是求e x的近似值。

要求最后一项的值小于等于0.000001为止。

相邻两项之间存在着如下关系：阅读程序，请填空。

Private Sub Form_click()Dim x As Single, y As Single, f1 As SingleDim f2 As Single, i As Integerx = InputBox("输入x 的值", "求exp(x)的值")y = 0f1=1i = 0Doy = y + f1I=I+1f2 = f1 * x / if1 = f2Loop While Abs(f2) >= 0.000001Print "exp("; x; ")=";yEnd Sub5. 下面是比较互换法对数据进行升序排序的程序，阅读下面程序并填空。

Private Sub Command1_Click()Dim S(1 To 6) As IntegerFor i = 1 To 6S(i) = InputBox(" 输入S(" & i & " )的值 ") Print S(i);Next iPrintFor i = 1 To 5For j = i + 1 To 6kx k x k x k k ⨯-=-)!1(!1!!3!21132n x x x x e nx+++++= ！If S(j) > S(i) Thent = S(i): S(i) = S(j): S(j) = tEnd IfNext jNext iFor i = 1 To 6Print S(i);Next iEnd Sub6. 下面程序的作用是用InputBox函数输入一个整数，然后判断能否同时被2，5和7整除，如果能则输出该数及平方值。

请填空。

Private Sub Command1_Click()Dim numX As IntegernumX = Val(InputBox("请输入一个整数"))If numX Mod 2 = 0 And numX Mod 5 = 0 And numX Mod 7 = 0 ThenForm1.Print numX, numX ^ 2ElseForm1.Print "该数不符合条件"End IfEnd Sub7. 下列程序计算Sn的值。

Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。

例如：a=5 ，n=4时，则Sn=5+55+555+5555。

请在空白处填入适当的内容，将程序补充完整。

Private Sub Command1_Click()Dim a As Integer, n As Integer, Cout As IntegerDim Sn As Long, Tn As LongCout = 1Sn = 0Tn = 0a = InputBox("请输入a的值：")n = InputBox("请输入n的值!")DoTn = Tn * 10 + aSn = Sn + TnCout = Cout + 1Loop While Cout <= nPrint a, n, SnEnd Sub8. 以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。

Sub Area(l, w, S As Double)S = l * wEnd SubPrivate Sub Command1_Click()Dim M, N, S As DoubleM = InputBox("What is the L?")M = Val(M)N = InputBox("What is the L?")N = Val(N)Call Area(M, N, S)Print SEnd Sub把上述程序改写如下也正确，为什么？Sub Area(l As Single, w As Single, S As Double)S = l * wEnd SubPrivate Sub Command1_Click()Dim M As Single, N As Single, S As DoubleM = InputBox("What is the L?")N = InputBox("What is the L?")Call Area(M, N, S)Print SEnd Sub9．下面的程序用“选择法”将数组a中的10个整数按降序排列，请将程序补充完整。

Option Base 1Private Sub Command1_Click()Dim a As Varianta = Array(68, 45, 324, 528, 439, 387, 87, 875, 273, 823)For i = 1 To 9ii = iFor j = i + 1 To 10If a(j) >= a(ii) Then ii = jNext jt = a(ii)a(ii) = a(i)a(i) = tNext iFor i = 1 To 10Print a(i)Next iEnd Sub10.以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。

请填空。

Private Sub Command1_Click()For i = 1 To 10x = Int(Rnd() * 50 + 200)Print xIf x Mod 5 = 0 Thens = s + xEnd IfNext iPrint "Sum＝"; sEnd Sub11．下面的程序用“冒泡”法将数组number中的10个整数按升序排列，请将程序补充完整。

Option ExplicitPrivate Sub Command1_Click()Static number(1 To 10) As IntegerDim i As Integer, j As IntegerDim t As IntegerFor i = 1 To 10number(i) = InputBox("输入数据")Print number(i);Next iPrintFor i = 1 To 10For j = 1 To 10 - iIf number(j) > number(j + 1) Thent = number(j + 1)number(j + 1) = number(j)number(j) = tEnd IfNext jNext iFor i = 1 To 10Print number(i);Next iEnd Sub12.下面的程序是将一组数左移一位的程序，请将程序补充完整。

Private Sub Command1_Click()Dim x(1 To 6) As IntegerFor i = 1 To 6x(i) = i * 3Print x(i); " ";Next iPrintt = x(1)For i = 1 To 5x(i) = x(i + 1)Next ix(6) = tFor i = 1 To 6Print x(i); " ";Next iEnd Sub13.下面的程序是用二分法求x2-4x+1=0在x=0附近的一个实根,区间为[-2 2]，请将程序补充完整。