分类：电脑/网络-程序设计
问题：为杨辉三角形vb画流程图因为看不懂，不知道其逻辑过程，请尽快（1 
因为看不懂，不知道其过程，请尽快（11月16日前）详细“翻译”以下代码，画图更好。Dim A() As IntegerPrivate Sub Command1_Click()N = InputBox("请输入n")If N <= 0 Then  MsgBox "请输入正整数!"  Exit SubElse ReDim A(1 To N, 1 To N) Cls For I = 1 To N A(I, 1) = 1 A(I, I) = 1 Next I For I = 3 To N因为看不懂，不知道其过程，请尽快（11月16日前）详细“翻译”以下代码，画图更好。Dim A() As IntegerPrivate Sub Command1_Click()N = InputBox("请输入n")If N <= 0 Then  MsgBox "请输入正整数!"  Exit SubElse ReDim A(1 To N, 1 To N) Cls For I = 1 To N A(I, 1) = 1 A(I, I) = 1 Next I For I = 3 To N For J = 2 To I - 1 A(I, J) = A(I - 1, J) + A(I - 1, J - 1) Next J, I For I = 1 To N Print Tab(30 - 2 * I); For J = 1 To I Print Space(4 - Len(Trim(Str(A(I, J))))); Trim(Str(A(I, J))); Next J Print Next IEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = "组合数的对称性和第二性质"End Sub
回答：程序包括两个按钮、一个text框。
第一个按钮是输出杨辉三角，第二个按钮是在text内输出一句话。程序中还包括一个全局数组变量A，但未定义数组大小。

　　第一个按钮的sub过程是计算杨辉三角的过程，详细我画了个流程图。而大概流程分几部分：首先要求输入一个数，这是杨辉三角的行数。行数小于等于零则退出过程，否则进行杨辉三角的程序。
　　计算杨辉三角用了三组循环：第一次循环对数组A赋值，先对每行第一个和最后一个赋值；第二次循环是二重循环，对三角内除每行第一个和最后一个的数赋值；第三次循环也是二重循环，输出数组中每个数。
　　详细可以参考我的图。程序应该不用附给你了吧，毕竟已经有程序了。