高校等考试题天天练二级VB]10月26日

发布时间:2019-02-04 19:05:49

知识点:程序填空(三)
以下程序段用于输入整数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

 

阅读更多其他试题,请访问生活日记网 用日志记录点滴生活!考试试题频道。
喜欢考试试题,那就经常来哦

该内容由生活日记网提供.