高校等考试题天天练二级VB]10月26日 |
|
www.nanhushi.com 佚名 不详 |
知识点:程序填空(三) 以下程序段用于输入整数n,在窗体上显示如下图所示具有n行的杨辉三角。 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 … Dim s(20, 20) As Integer Dim i%, j%, k%, n% n = InputBox("输入一个正整数:") For i = 1 To n s(i, 1) = 1 (4) =1 Next i For i = 3 To n For j = 2 To i - 1 s(i, j) = s(i - 1, j - 1) + (5) Next j Next i For i = 1 To n For j = 1 To i Print s(i, j); Next j (6) Next i
|
|
|
文章录入:杜斌 责任编辑:杜斌 |
|
上一篇文章: 高校等考试题天天练二级VB]10月25日 下一篇文章: 高校等考试题天天练二级VB]10月27日 |
【字体:小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
|