VB程序设计例题程序改错程序填空程序设计.doc资源-CSDN文库

版权申诉

169 浏览量 2023-04-18 22:43:25 上传评论收藏 43KB 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:"))

剩余12页未读，继续阅读

内容反馈

版权申诉

智慧安全方案

粉丝: 3614
资源: 59万+

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈

feedback-tip