'【程序填空】'-------------------------------------------------------'功能：下面的程序段用于实现以下功能：利用冒泡法将一组整数' 从小到大排序。

'-------------------------------------------------------Private Sub Form_Click()Const n = 15Dim a(1 To n) As Integer, work As BooleanDim i As Integer, j As Integer, x As IntegerRandomizeFor i = 1 To na(i) = Int((90 * Rnd) + 10)Next iFor i = 1 To nPrint a(i);Next iPrint'**********SPACE**********For i = n To 2 【?】step-1work = TrueFor j = 1 To i - 1If a(j) > a(j + 1) Thenx = a(j): a(j) = a(j + 1): a(j + 1) = x'**********SPACE**********【?】work=FalseEnd IfNext j'**********SPACE**********If work Then 【?】Exit ForNext iFor i = 1 To nPrint a(i);Next iEnd Sub答案1). Step -12). work = False 或work=0 或not work = true3). Exit For'功能：以下程序用于判断一个正整数（≥3）是否为素数。

'-------------------------------------------------------Private Sub Form_Click()n = InputBox("请输入一个正整数（≥3）")k = Int(Sqr(n))i = 2swit = 0'**********SPACE**********Do While i <= k And 【?】swit=0'**********SPACE**********If 【?】n Mod i =0 Thenswit = 1 …不是素数Else'**********SPACE**********【?】i = i + 1End IfLoopIf swit = 0 ThenPrint n; "是一个素数"ElsePrint n; "不是素数"End IfEnd Sub答案：1). swit = 02). n Mod i = 0 或n/i ★= ★n\i 或n/i ★=★int(n/i)3). i = ★i ★+★1'功能：本程序用于实现：从键盘接收一数字，判断其是否在数组' 中，如果在数组中则将其删除，否则显示该数字不在数组' 中。

'-------------------------------------------------------Private Sub Form_Click()Dim a(10) As Integer, x As IntegerFor i = 1 To 10a(i) = Int((Rnd * 90) + 10)Print a(i);Next iPrintx = InputBox("请输入要删除的整数")For i = 1 To 10'**********SPACE**********If a(i) = x Then 【?】Exit ForNext i'**********SPACE**********If 【?】i< 10 ThenFor k = i To 9'**********SPACE**********【?】a(k) = a( k + 1 )Next kPrint "删除后的数组:"For i = 1 To 9Print a(i);Next iElsePrint "该数字不在数组中"End IfEnd Sub答案：1). Exit For2). i<10 或10>i3). a(k) = a(★k ★+ ★1★)'功能：利用下面的过程求m!和m*n'------------------------------------------------------- Private Sub Form_Click()Dim m As Integer, n As Integerm = 2n = 3'**********SPACE**********【?】call find(m,n)End SubPrivate Sub find(x As Integer, y As Integer) Dim s, i As Integer'**********SPACE**********【?】s=1For i = 1 To xs = s * i'**********SPACE**********p=【?】x*yNext iPrint s, pEnd Sub答案：1). find m, n 或call find(m,n)2). s = 1 或s = 1:p=03). p★+★y 或x*y'功能：以下程序段利用随机函数生成15个10-100之间的整数，然后用选择法将其从小到大排序。

'-------------------------------------------------------Private Sub Form_Click()Const n = 15Dim a(1 To n) As IntegerDim i As Integer, j As Integer, t As Integer, min As Integer RandomizeFor i = 1 To n'**********SPACE**********a(i) =【?】Int((Rnd*100)+10)Next iFor i = 1 To nPrint a(i);Next iPrintFor i = 1 To n - 1'**********SPACE**********【?】t=iFor j = i + 1 To nIf a(j) < a(t) Then t = jNext j'**********SPACE**********If 【?】t <> i Thenmin = a(i): a(i) = a(t): a(t) = minEnd IfNext iFor i = 1 To nPrint a(i);Next iEnd Sub答案：1). Int(★100★*★Rnd★)★+★102). t=i3). t★<> ★I 或t<i 或i>t 或not t=i 或not i=t'功能：以下程序段利用随机函数生成15个10-100之间的整数，然后用选择法将其从小到大排序。

'-------------------------------------------------------Private Sub Form_Click()Const n = 15Dim a(1 To n) As IntegerDim i As Integer, j As Integer, t As Integer, min As IntegerRandomizeFor i = 1 To n'**********SPACE**********a(i) =【?】Int(100*RND())+1Next iFor i = 1 To nPrint a(i);Next iPrintFor i = 1 To n - 1'**********SPACE**********【?】t=iFor j = i + 1 To nIf a(j) < a(t) Then t = jNext j'**********SPACE**********If 【?】t <> i Thenmin = a(i): a(i) = a(t): a(t) = minEnd IfNext iFor i = 1 To nPrint a(i);Next iEnd Sub答案：1). Int(★100★*★Rnd★)★+★102). t=i3). t★<> ★I 或t<i 或i>t 或not t=i 或not i=t' ***' *****' *******' *****' ***' *''-------------------------------------------------------Private Sub Form_Click()Dim i%, j%, k%For i = 3 To 0 Step -1Print " ";Next j'**********SPACE**********For k = 5 To 【?】2 * i - 1 Step -1Print "*";Next kPrintNext iFor i = 0 To 3For j = 0 To 2 * i + 2'**********SPACE**********【?】Print “”Next jFor k = 0 To 4 - 2 * iPrint "*";Next k'**********SPACE**********【?】PrintNext iEnd Sub答案：1). 2★*★i★-★1★Step★-12). Print " "; 或? " ";3). Print 或?Text1.【?】MaxLength = 8'**********SPACE**********Text1.【?】passwordchr = "*"'【程序填空】'------------------------------------------------------- '功能：下面的程序段用于打印出以下图形'' *' ***' *****' *******' *****' ***' *'------------------------------------------------------- Private Sub Form_Click()Dim i%, j%, k%For j = 0 To 2 - iPrint " ";Next j'**********SPACE**********For k = 1 To 【?】2 * i +1Print "*";Next kPrintNext iFor i = 0 To 2For j = 0 To i'**********SPACE**********【?】Print “”Next jFor k = 0 To 4 - 2 * iPrint "*";Next k'**********SPACE**********【?】PrintNext iEnd Sub答案：1). 2★*★i★+★12). Print " "; 或form1.print " "; 或? " ";3). Print 或form1.Print 或?'功能：以下程序段用于输出杨辉三角：结果样式如图1 '-------------------------------------------------------Private Sub Form_Click()Const n = 10Dim arr(n, n) As IntegerFor I = 1 To narr(I, I) = 1'**********SPACE**********【?】arr(i, 1) = 1Next IFor I = 3 To nFor j = 2 To I - 1'**********SPACE**********arr(i, j) =【?】★arr(i - 1, j - 1)★+★arr(i - 1, j) Next jNext IFor j = 1 To I'**********SPACE**********? 【?】arr(i, j) & " ";Next jPrintNext IEnd Sub'功能：以下程序段用于实现：输入两个正整数m和n，求其最大' 公因数和最小公倍数。