设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › 杨辉三角VB代码

杨辉三角VB代码

[复制链接]
查看11 | 回复2 | 2013-7-30 22:03:53 | 显示全部楼层 |阅读模式
Option ExplicitFunction Fc(n As Long)
Dim arr() As Long, i As Integer, j As Integer, s As String
Cls
ReDim arr(1 To n, 1 To n) '重定义数组
For i = 1 To n
For j = 1 To i
If j = 1 Then
arr(i, j) = 1
Else
arr(i, j) = arr(i - 1, j - 1) + arr(i - 1,...
回复

使用道具 举报

千问 | 2013-7-30 22:03:53 | 显示全部楼层
Private Sub Form_click()Dim a() As Singlen = Val(InputBox("请输入行数", "杨辉三角"))ReDim a(n + 1, n + 1)For i = 1 To nFor j = 1 To ia(i, 1) = 1a(i, i) = 1a(i + 1, j + 1) = ...
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行