大良圆通快递电话:怎样用vb打印杨辉三角形?
来源:百度文库 编辑:查人人中国名人网 时间:2024/10/02 18:03:13
一楼的大哥,你试过了没有啊,简直是漏洞百出啊
我一复制到上面字体全是红色的!
要求在窗体上打印出杨辉三角形,其打印行数由键盘输入。
【设计思路】?1.定义一个整型二维动态数组,其实际元素个数由键盘输入。?
2. 对输入数据进行检查,确保输入数据在1至16之间,以免溢出。?
3. 编写程序代码,当确认输入数据后,在窗体上打印杨辉三角形。
【操作步骤】
?1. 建立新项目,并设计窗体。
文本框用来输入要打印杨辉三角形的行数;“确定”按钮执行具体打印操作;窗体左 侧的数字为打印的杨辉三角形实例。
?2. 为“确定”按钮编写如下代码:
Private Sub Command1Click()
?Dim RowNum() As Integer ′定义整型动态数组
?Dim i As Integer, j As Integer ′定义循环变量
?Dim Num As Integer
?Cls ′清空窗体内容
?Num=Val(Text1.Text) + 1
?If Num >=18 Then ′对输入数据进行检查(小于17)
? Text1.Text= 〃〃
? Exit Sub?
End If
ReDim RowNum(1 To Num, 1 To Num) ′根据输入值重新确定数组
’维数及大小?下面是具体打印杨辉三角形的代码:
For i = 1 To Num-1′将第一列及对角元素置1
? RowNum(i, i)=1
? RowNum(i, 1)=1
?Next
?For i = 3 To Num-1 ′计算其它元素值
? For j = 2 To i-1
? RowNum(i, j)=RowNum(i-1, j-1)+Row Num(i-1,j)
? Next
?Next
?For i = 1 To Num-1 ′打印杨辉三角形
? For j = 1 To i
? Print RowNum(i, j);
? Next
? Print
?Next
?End Sub
?3. 调试并运行程序,观察输出结果。