文档详情

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

发布:2017-06-16约9.1千字共13页下载文档
文本预览下载声明
以下程序段用于输出杨辉三角:结果样式如图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
显示全部
相似文档