【文章內容簡介】 End SubPublic Function jiecheng(n As Integer) As DoubleDim i As Integer, s As Doubles = 1For i = 1 To n s = s * iNext ijiecheng = sEnd Function11．輸入整數N，顯示具有N行的楊輝三角形，要求按正三角形的形式在圖片框中顯示。Option ExplicitPrivate Sub Form_Load()WindowState = 2ShowDim a(), n As Integer, i As Integer, j As Integer, g As Integer, e As Integern = InputBox(請輸入一個數：)ReDim a(n, n)e = 80For i = 1 To n e = e 5: g = e For j = 1 To n If j i Then a(i, j) = 0 Else If i = j Then a(i, j) = 1 Else a(i, j) = a(i 1, j) + a(i 1, j 1) End If End If If a(i, j) = 0 Then Exit For Else Tab(g)。 a(i, j)。 g = g + 10 End If Next j Next iEnd SubPrivate Sub Picture1_Click()End Sub12．編寫一個過程，輸出以下菱形圖形： A BBB CCCCC DDDDDDD CCCCC BBB A主程序輸入一個奇數（＝3），調用過程在窗體上輸入圖形。Private Sub Command1_Click()Dim n As Integern = InputBox()If n Mod 2 = 0 Or n = 3 Then MsgBox (錯誤)Else Call draw(n)End IfEnd SubSub draw(n As Integer)For i = 1 To (n + 1) / 2 s = Chr(64 + i) Print Tab(41 i + 1)。 String(2 * (i 1) + 1, s)Nextc = 1For j = (n 1) / 2 To 1 Step (1) c = c + 1 s = Chr(64 + i c) Print Tab(41 i + c + 1)。 String(2 * (j 1) + 1, s)NextEnd Sub13．編寫一個將十進制轉換為二進制字符串輸出的函數。調用函數計算用戶輸入一個十進制數，在文本框中輸出二進制值。注意：輸入數據為負數，應該將符號位輸出如 13 結果 1101Option Base 1Dim a()Private Function convert(y) As StringDim i As Integeri = 1ReDim a(i)x = Abs(y)Do While x 0ReDim Preserve a(i) a(i) = x Mod 2 If a(i) = 1 Then x = (x 1) / 2 Else x = x / 2 End If i = i + 1Loop ReDim Preserve a(UBound(a))If y 0 Then For i = 1 To UBound(a) convert = convert amp。 a(i) Next convert = amp。 convertElse For i = 1 To UBound(a) convert = convert amp。 a(i) NextEnd IfEnd FunctionPrivate Sub Command1_Click()Dim y As Integer = y = InputBox(請輸入十進制數字) = convert(y)End SubPrivate Sub Form_Load()End Sub14．輸入一個整數N，產生N個隨機數（范圍1—10*N），然后采用任何2種算法實現由小到大的排序。將排序前后的數據顯示出來。Option Base 1Private Sub Command1_Click()Dim a() As Integer, n As Integer n = InputBox(請輸入數列項數) ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 10 * n + 1) Print a(i)。 Next Print ReDim Preserve a(n) For i = 1 To n 1 For j = i + 1 To n If a(i) a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next Next ReDim Preserve a(n) For i = 1 To n Print a(i)。 NextEnd SubPrivate Sub Command2_Click()Dim a() As Integer, n As Integer n = InputBox(請輸入數列項數) ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 10 * n + 1) Print a(i)。 Next Print ReDim Preserve a(n)For i = 1 To n 1 For j = 1 To n i If a(j) a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If NextNext ReDim Preserve a(n) For i = 1 To n Print a(i)。 NextEnd SubPrivate Sub Form_Load()End Sub15．編寫程序，在窗體上輸出3~100之間的所有素數。要求每行顯示4個數。Private Sub Command1_Click()Dim f As Bool