在a4纸上打印规定尺寸照片（本题要求按照规定格式打印前n行杨辉三角）

大家好,小东方来为大家解答以上的问题。在a4纸上打印规定尺寸照片，本题要求按照规定格式打印前n行杨辉三角这个很多人还不知道,现在让我们一起来看看吧！

1、Private Sub Command1_Click()Dim a() As LongDim n As Integer, vDim i As Integer, j As Integerv = InputBox("请输入杨辉三角的行数")If IsNumeric(v) = False Or Len(v) = 0 ThenMsgBox ("输入不是数字或者为空。

2、请重新输入！")Elsen = vEnd IfReDim 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 jNext iFor i = 1 To n For j = 1 To i  Print Tab(n * 3 - 3 * i + 6 * j); a(i, j);Next jNext iEnd Sub。

本文到此分享完毕，希望对大家有所帮助。

免责声明：本文由用户上传，如有侵权请联系删除！