VB程序设计基础

显示全部楼层 · 2008-6-11 19:44:31

运用动态数组在窗体上打印出杨辉三角形，其打印行数由键盘输入。
设计思路：
1．定义一个整型二维动态数组，其实际元素个数由键盘输入。
2．对输入的数据进行检查，确保输入数据在1至15之间，以免溢出。
3．编写程序代码，当确认输入数据后，在窗体上打印杨辉三角形。

各控件属性值设计
控件对象属性属性值
窗体 Name
Caption 杨辉三角
文本框 Name
标签 Name
Caption
命令按钮 Name
Caption
（说明：没有写明的属性值，要根据具体控件的属性值填写）
希望有会的朋友帮帮忙,提供代码!谢谢!

千问 · 2008-6-11 19:44:31

你要那个标签做啥呢？反正有不用。界面上只需要一个按钮，然后使用下述代码：Dim yh() As IntegerPrivate Sub Command1_Click()Dojieshu = Val(InputBox("请输入杨辉三角的阶数（1-15）："))Loop Until jieshu > 0 And jieshu < 16ReDim yh(jieshu, jieshu)For i = 1 To jieshuFor j = 1 To iIf j = 1 Or j = i Thenyh(i, j) = 1Elseyh(i, j) = yh(i - 1, j - 1) + yh(i - 1,