1、以下程序段用于输出杨辉三角 :结果样式如图 1 Private Sub Form_Click() Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 *SPACE* 【 arr(I, 1) = 1】 Next I For I = 3 To n For j = 2 To I - 1 *SPACE* arr(i, j) =arr(i-1,j-1)+arr(i-1,j) Next j Next I For I = 1 To n For j = 1 To I *SPACE* 【 print arr(I,j)】 Next
2、j Print Next I End Sub Option Explicit - 【程序改错】 - 题目：用自定义函数的方法求 sum（ x），求当 -1 x 1 时， sum（ x） =x/2！ +x2/3!+x3/4!+ +xn/(n+1)!， 当 x 1 或 x -1时，函数值为 0。当 n =0 时，输入数 据错误。 X、 N 都是由用户输入。 - 注意：不可增加或删除程序行，也不可以更改程序结构 - Private Sub Command1_Click() Dim s As Single Dim n As Integer, x As Single, k As Integer n =
3、Val(InputBox(“Please input a integer value:“) x = Val(InputBox(“Please input a single value:“) If n 1 Or x max Then 【 ?】 If b min Then min = b *SPACE* If 【 ?】 Then max = c If c min Then min = c Print “最大数为： “; max Print “最小数为： “; min End Sub 下面过程 max()用于求 3 个数中最大值，利用这个过程求 5 个数中最大值。 Private Sub Form_
4、Click() Print “5 个数 34、 124、 68、 73、 352 的最大值是： “ max1 = max(34, 124, 68) *SPACE* max1 =【 ?】 Print max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) *SPACE* If 【 ?】 Then m = a Else m = b End If *SPACE* If 【 ?】 Then max = m Else max = c End If End Function - 【程序填空】 - 题目：本程序执行功能为，输入系列字符串，
5、按递减次序排列。 （ 1）在文本框输入字符串，按回车键后存放到数组 a（）中； （ 2）单击 “排序 “按钮（ Command1）时，进行递减次序排列，并在图形框控件显示。 请在【】处填入正确的内容 - Dim a() As String, n As Integer Private Sub Command1_Click() n = n - 1 For i = 0 To n - 1 imin = i *SPACE* For j = 【 ?】 To n *SPACE* If a(imin) 【 ?】 Then imin = j Next j t = a(i) *SPACE* 【 ?】 a(imin
6、) = t Next i For i = 0 To n Me.Picture1.Print a(i) Next i End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then *SPACE* ReDim 【 ?】 *SPACE* a(n) = 【 ?】 Text1.Text = “ n = n + 1 End If End Sub Option Explicit - 【程序改错】 - 题目 :下列程序进行 -n 阶乘运算，当阶乘的值超过 -21147483648 溢出报错，并将结果输出为 -1。 -
7、 注意：不可增加或删除程序行，也不可以更改程序结 - 【程序改错】 - 题目 :下列程序进行 -n 阶乘运算，当阶乘的值超过 -21147483648 溢出报错，并将结果输出为 -1。构 - *FOUND* Private Function jc(ByVal n As Integer) As Integer Dim I As Integer Dim result As Long result = 1 I = 1 Do While I = n If result 2114748348 / I Then *FOUND* result = result I = I + 1 Else lblerr.C
8、aption = “溢出 “ *FOUND* jc = -I Exit Function End If Loop jc = result End Function Private Sub Form_Click() MsgBox jc(3) End Sub Option Explicit - 【程序改错】 - 题目 :给定三角形的三条边，计算三角形的面积。要求 程序首先判断给定的三条边能否构成三角形。 - 注意：不可增加或删除程序行，也不可以更改程序结构 - Private Sub Form_Click() Dim a As Single, b As Single, c As Single Di
9、m s As Single, t As Single start: a = InputBox(“输入 1 边长： “) b = InputBox(“输入 2 边长： “) c = InputBox(“输入 3 边长： “) *FOUND* If a + b c Or b + c a Then MsgBox (“不能构成三角形，请重新输入个边 “) GoTo start End If *FOUND* t = (a + b) / 2 *FOUND* s = Sqr(t - a) * (t - b) * (t - c) Print “该三角形 的面积： “; s End Sub Option Exp
10、licit - 【程序改错】 - 题目 :下面函数的功能是：求变量 s(s=a+aa+aaa+aaaa+ ) 的值。其中， a 是一个 0-9 的数字，总共累加 a 项。列如， 当 a=3 时 ,s=3+33+333 (共累加 3 项 )。 - 注意：不可增加或删除程序行，也不可以更改程序结构 - Public Function Calc(a As Integer) Dim s As Long Dim t As Long Dim i As Integer s = a *FOUND* t = 1 For i = 2 To a *FOUND* t = t + a s = s + t Next i Calc = s Print s End Function Private Sub Command1_Click() Dim i As Integer i = InputBox(“请输入数字（ 0-9） :“) *FOUND* Calc (i) End Sub Option Explicit - 【程序设计】 - 题目：编写函数 fun 其功能是 :判断一个整数 w 的各位 数字平方之和能否被 5 整除 , 可以被 5 整除则返 回 1 , 否则返回 0
