打印本文 打印本文  关闭窗口 关闭窗口  
高校等考试题天天练二级VB]10月26日
作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:49:25  文章录入：杜斌  责任编辑：杜斌
知识点：程序填空（三）
以下程序段用于输入整数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

 
打印本文 打印本文  关闭窗口 关闭窗口