vb打印出杨辉三角的代码怎么写啊?它有什么规律哪????

1. vb打印出杨辉三角的代码怎么写啊

Private Sub Form_Click() Const N = 10 Dim a(N, N) As Integer Dim i, j As Integer a(0, 0) = 1 a(1, 0) = 1 a(1, 1) = 1 For i = 2 To N - 1 a(i, 0) = 1 a(i, i) = 1 For j = 1 To i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j, i For i = 0 To N - 1 For j = 0 To i Print a(i, j); Next j Print Next i End Sub 单击窗体就出来了.10行。

2. vb打印出杨辉三角的代码怎么写

窗体上添加一个按钮,代码如下:

Option Explicit

Private Sub Command1_Click()

Dim N As Integer

Dim i As Integer

Dim j As Integer

Dim k As Integer

N = InputBox("请输入行数!", , 10)

ReDim a(N + 1, N + 1), b(N + 1, N + 1)

Cls

k = 8

For i = 1 To N

Print String((N - i) * k / 2 + 1, " ");

For j = 1 To i

a(i, 1) = 1

a(i, i) = 1

a(i + 1, j + 1) = a(i, j) + a(i, j + 1)

b(i, j) = Trim(Str(a(i, j)))

Print b(i, j); String(k - Len(b(i, j)), " ");

Next j

Print

Next i

End Sub

3. 谁知道VB输出杨辉三角形的代码怎么写

先把form的autoredraw属性改成true,代码如下: ========================== Option Explicit Dim a(10, 10) As Long Dim b(10) As String Dim i As Byte Dim j As Byte Private Sub Form_Load() a(0, 0) = 1 For i = 1 To 9 For j = 1 To 9 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) If a(i, j) <> 0 Then b(j) = b(j - 1) & " " & a(i, j) End If Next Print b(i) Next End Sub。

4. 如何用vb做杨辉三角的程序啊

Option Explicit

Dim a(21, 21) As Long

Dim b(21) As String

Dim i As Byte

Dim j As Byte

Private Sub Form_Load()

a(0, 0) = 1

For i = 1 To 20

For j = 1 To 20

a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

If a(i, j) <> 0 Then

b(j) = b(j - 1) & " " & a(i, j)

End If

Next

Print b(i)

Next

End Sub

5. 谁能解释一下这个VB杨辉三角的代码

Private Sub Form_click()

Dim a() As Single '设数组A,为单精度型

'通过对话框取得行数,放到变量N中

n = Val(InputBox("请输入行数", "杨辉三角"))

'根据N值重定义数组A为2维的N+1的数组

ReDim a(n + 1, n + 1)

For i = 1 To n '第1层FOR,让I从1,FOR 到N,用来打印行数

For j = 1 To i ' 第2层FOR, 让J从1FOR 到I, 可以想象,每行的数字因为I的累加, 个数也在变化

a(i, 1) = 1 '让每次数组的最左端为1

a(i, i) = 1 '让每次数组的最右端为1

a(i + 1, j + 1) = a(i, j) + a(i, j + 1) '让数组中间的元素等于此元素所在序号的步长加1

Print a(i, j); '打印,数组A(I,J),使用;号使每个J循环中的打印不换行

Next j

Print '每个J循环完成,打印换行

Next i

End Sub

6. 用vb编写杨辉三角的程序代码,有没有哪位能指点一下,谢谢

Private Sub Command1_Click() n = Val(Text1.Text) ReDim a(n + 1, n + 1), b(n + 1, n + 1) Cls k = 8 For i = 1 To n Print String((n - i) * k / 2 + 1, " "); For j = 1 To i a(i, 1) = 1 a(i, i) = 1 a(i + 1, j + 1) = a(i, j) + a(i, j + 1) b(i, j) = Trim(Str(a(i, j))) Print b(i, j); String(k - Len(b(i, j)), " "); Next j Print Next iEnd Sub创建一个2113text和5261command,在4102text中输入所需1653行数内,点击command即可容。

7. vb代码,杨辉三角代码

Private Sub Command1_Click()

Dim a() As Long

Dim n As Integer, v

Dim i As Integer, j As Integer

v = InputBox("请输入杨辉三角的行数")

If IsNumeric(v) = False Or Len(v) = 0 Then

MsgBox ("输入不是数字或者为空,请重新输入!")

Else

n = v

End If

ReDim a(n, n)

For i = 1 To n

For j = 1 To i

If j = 1 Or i = j Then

a(i, j) = 1

Else

a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

End If

Next j

Next i

For i = 1 To n

For j = 1 To i

Print Tab(n * 3 - 3 * i + 6 * j); a(i, j);

Next j

Next i

End Sub

8. VB 中 显示出 杨辉三角第17行 的代码是什么 啊

Private Sub Command1_Click()

Dim a(1 To 17, 1 To 17)

For i = 1 To 17

a(i, i) = 1

a(i, 1) = 1

Next i

For i = 3 To 17

For j = 2 To i - 1

a(i, j) = a(i - 1, j) + a(i - 1, j - 1)

Next j

Next i

For j = 1 To 17

Print a(17, j);

Next j

Print

End Sub

Private Sub Form_Load()

Me.AutoRedraw = True

End Sub

9. 用vb打印一个杨辉三角形~

下面有杨辉三角20行的代码,你可修改后用:

Option Explicit

Dim a(21, 21) As Long

Dim b(21) As String

Dim I As Byte

Dim j As Byte

Private Sub Form_Load()

a(0, 0) = 1

For I = 1 To 20

For j = 1 To 20

a(I, j) = a(I - 1, j - 1) + a(I - 1, j)

If a(I, j) <> 0 Then

b(j) = b(j - 1) & " " & a(I, j)

End If

Next

Print b(I)

Next

End Sub

10. 用VB打印杨辉三角,会的帮忙改下代码

Private Sub Command1_Click()Dim N As Integer, I As Integer, J As IntegerDim a(1,1) As IntegerForm1.ClsN = Val(InputBox("请输入杨辉三角的行数"))reDim a(N, N)For I = 1 To Na(I, I) = 1a(I, 1) = 1Print Format(a(I, 1), "@@@@");For J = 2 To I - 1

a(I, J) = a(I - 1, J) + a(I - 1, J)Print Format(a(I, J), "@@@@");Next JIf I <> 1 Then Print Format(a(I, I), "@@@@") Else PrintNext IEnd Sub

转载请注明出处育才学习网 » vb打印出杨辉三角的代码怎么写啊?它有什么规律哪????

知识

神回避怎么写

阅读(181)

本文主要为您介绍神回避怎么写,内容包括神回避2攻略,描写眼神句子,这个题目怎么做。神回避2是一款比较休闲的解密游戏,从游戏名字就可以看出,这款游戏是需要大家及时逃脱各种危险的事件,当然也会有各种坑等待大家去跳,下面是游

知识

数学一怎么写

阅读(216)

本文主要为您介绍数学一怎么写,内容包括数学怎么写,怎样学好数学写一篇作文,数学日记一则怎么写,四年级的。3,解: 设乙数为x10x为甲数 则10x+x=305.811x=305.8x=27.8(乙数)27.8X10=278(甲数)答: 甲数

知识

叁草书怎么写

阅读(204)

本文主要为您介绍叁草书怎么写,内容包括叁字草书怎么写,叁的草书写法,壹贰叁肆伍陆柒捌玖拾佰仟万的行草怎么写。叁 草书写法 在线使用草书字体转换器显示如下:

知识

阵行书怎么写

阅读(156)

本文主要为您介绍阵行书怎么写,内容包括“陈”的行书怎么写,整的行书怎么写,行书怎么写。“整”字的行书

知识

垦丁英文怎么写

阅读(215)

本文主要为您介绍垦丁英文怎么写,内容包括克里斯丁英文怎么写,台湾垦丁的肯到底怎么写是正确的,垦丁春浪音乐节怎么写急要,拜托各位了。小学生作文培优按照素质教育的要求,借鉴多元智力理论和“知识冰山”模型,从过程论和方法论的角度,科学而

知识

赞不绝口怎么写

阅读(165)

本文主要为您介绍赞不绝口怎么写,内容包括赞不绝口的拼音怎么写,谢谢大家,赞不绝口怎么说一句话,赞不绝口形容什么。赞不绝口的拼音怎么写,谢谢大家请看下面赞不绝口的拼音与解释:赞不绝口 [ zàn bù jué kǒu ] 基本释义 详细释义 [ zà

知识

学楷书怎么写

阅读(147)

本文主要为您介绍学楷书怎么写,内容包括怎么写楷书方法,怎么快速学楷书,怎么教孩子学写楷书。要想写好楷体字必须掌握好笔法和字法。执笔苏东坡说:“把笔无定法,要使虚而宽。”五指执笔法:即以拇指和食指的指肚捏住笔杆(适当高度),保证

知识

办理综合工时制度的授权委托书怎么写

阅读(182)

本文主要为您介绍办理综合工时制度的授权委托书怎么写,内容包括在签劳动合同时,在劳动报酬、社会保险办理、工时制度等地方都不填,委托安装书委托别人代打款授权书怎么委托别人代打款授权书怎么,不定时工作制/综合计算工时工作制听说要向劳

知识

幼儿园的思维课程的成长足迹怎么写呢

阅读(2505)

本文主要为您介绍幼儿园的思维课程的成长足迹怎么写呢,内容包括幼儿园思维课程成长足迹该怎么写,幼儿园思维课程成长足迹该怎么写,思维课生活中的秘密成长足迹怎么写。今天学校举办运动会。我们来到操场。啊!音乐在空中回荡彩旗在风中飘扬。

知识

六年级下册语文书上第七单元习作百花园作文怎么写

阅读(188)

本文主要为您介绍六年级下册语文书上第七单元习作百花园作文怎么写,内容包括六年级下册语文书上第七单元习作百花园作文怎么六年级下册语文书,六年级语文书上册第七单元作文怎么写,六年级下册语文书百花园六作文怎么写。2001年9月29日清晨,

知识

火锅店厨师长月工作总结怎么写

阅读(244)

本文主要为您介绍火锅店厨师长月工作总结怎么写,内容包括火锅店厨师长月工作总结怎么火锅店厨师长月工作总结怎么写爱问知,火锅店行政总厨月工作总结的开头语怎么写,火锅店后厨月总结怎么写。给你找了个 年终总结 你可以仿照下面写 麻烦好

知识

出字的正确书写笔画是怎么样写

阅读(244)

本文主要为您介绍出字的正确书写笔画是怎么样写,内容包括出字的正确书写笔画是怎么样写,开字行书写法出字的正确书写笔画是怎么样出字的正确书写笔画是,出字的笔顺怎么写。

知识

中学生困难补助证明怎么写

阅读(182)

本文主要为您介绍中学生困难补助证明怎么写,内容包括中学生困难补助证明怎么写,中学生困难补助证明怎么写,中学生困难补助证明怎么写。贫困证明兹有我乡(镇)(居委会等)***(父母亲姓名)之子(女)***(学生姓名),于**年**月考入贵校学习。由于***原因(每个

知识

销售管理简历经验怎么写

阅读(204)

本文主要为您介绍销售管理简历经验怎么写,内容包括个人简历销售经理工作经验怎么写,销售经理简历怎么写自我评价,如何写有几年销售经验的简历。销售经理自我评价范文应聘销售经理职位,首先是由于我毕业于工商管理学院的市场营销专业,具有扎实

知识

html网页制作代码怎么写

阅读(174)

本文主要为您介绍html网页制作代码怎么写,内容包括html网页制作代码怎么html网页制作代码怎么写,用html如何制作一个简单的网页代码,怎样用html代码制作如下网页。HTML标记_HTML大全_HTML标记大全_超文本标记语言 网页(WebPage)文件主要是用

知识

找规律写词语怎么写

阅读(434)

本文主要为您介绍找规律写词语怎么写,内容包括找规律,写词语,找规律,写词语,找规律,写词语。俗(雅)雅俗共赏险(夷)化险为夷就是成语里含有反义词存(亡)名存实亡 陈(新)推陈出新 暗(明)弃暗投明安(危)居安思危 以下也都可以:

知识

十四行诗怎么写有什么要求

阅读(282)

本文主要为您介绍十四行诗怎么写有什么要求,内容包括十四行诗怎么写有什么要求,14行诗有什么具体要求么,十四行诗有些什么特点和要求。十四行诗起源于意大利,被引入英国后形式上发生了一些变化,主要分为3大类型: ①意大利十四行诗,又称彼特拉克

知识

小黑屋原代码怎么写

阅读(189)

本文主要为您介绍小黑屋原代码怎么写,内容包括原代码是什么怎么做原代码,小黑屋写作软件里的这个锁定设置怎么搞啊,上次就被锁了出不来,,什么叫原代码。1.理论上的概念 源代码是相对目标代码和可执行代码而言的。 源代码就是用汇编语言和高

知识

html空格代码怎么写

阅读(169)

本文主要为您介绍html空格代码怎么写,内容包括html空格代码怎么写,html空格符号怎么打,html空格怎么写。当你需要插入多个空格时,可以拍入 字符&字符n字符b字符s字符p分号; 这几个字符要连在一起写,这里我若不添入“字符”字样,你看能看不见

知识

打印机报废原因怎么写

阅读(3118)

本文主要为您介绍打印机报废原因怎么写,内容包括打印机,交费机报废申请怎样写,打印机报废申请怎么写,请问打印机报损报告怎么写啊要著名被报损原因。你好,有两个回答: 1,PIXMA iP3500绝对不适合相片打印的.虽说打印分辨率有4200*1200,那是有水

知识

规律的拼音怎么写

阅读(185)

本文主要为您介绍规律的拼音怎么写,内容包括规律读音是什么,律的拼音怎样写,拼音的拼音怎么写。拼音的拼音是:[pīn yīn]。《中华人民共和国国家通用语言文字法》第十八条规定:“《汉语拼音方案》是中国人名、地名和中文文献罗马字母

知识

c语言伪代码怎么写

阅读(361)

本文主要为您介绍c语言伪代码怎么写,内容包括用C语言描述的伪代码怎么看,怎么写,伪代码怎么写,什么是c语言伪代码。伪代码(Pseudocode)是一种算法描述语言。使用伪代码的目的是为了使被描述的算法可以容易地以任何一种编程语言(Pascal,C,J

[/e:loop]