VB程序设计例题程序改错程序填空程序设计.doc
文本预览下载声明
以下程序段用于输出杨辉三角:结果样式如图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
显示全部