VB程序设计例题程序改错程序填空程序设计.docVIP

以下程序段用于输出杨辉三角:结果样式如图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 j Print Next I End Sub Option Explicit ------------------------------------------------ 【程序改错】 ------------------------------------------------ 题目：用自定义函数的方法求sum（x），求当-1≤x≤1时， sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(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 = Val(InputBox(Please input a integer value:)) x = Val(InputBox(Please input a single value:)) If n = 0 Then k = MsgBox(数据输入错误！, vbRetryCancel + vbExclamation, 数据输入) Exit Sub End If s = Sum(x, n) Print s End Sub Function Sum(x As Single, n As Integer) Dim i As Integer, ss As Long ss = 1 Sum = 0 If x 1 Or x -1 Then **********FOUND********** Exit Do 改为 Exit Function Else **********FOUND********** For i = 2 To n 改为 For i = 2 To n+1 ss = ss * i **********FOUND********** Sum = x ^ (i - 1) / ss 改为 Sum =sum+ x ^ (i - 1) / ss Next i End If End Function Option Explicit ------------------------------------------------ 【程序改错】 ------------------------------------------------ 题目:编程将一个数从已经有序（设从小到大排序）的数组 中删除，使数组还继续保持有序而且其余元素按照下 标连续存放。 ------------------------------------------------ 注意：不可增加或删除程序行，也不可以更改程序结构 ------------------------------------------------ Private Sub Form_Click() Dim A() As Integer, N As Integer, Flag As Integer Dim i As Integ