输入整数N,现实具有N行的杨辉三角形,要求按正三角形的形式在图片框中显示
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/07/19 17:45:06
输入整数N,现实具有N行的杨辉三角形,要求按正三角形的形式在图片框中显示
注意是正三角形,在图片框中显示.
注意是正三角形,在图片框中显示.
Option Explicit
Dim n As Integer, i As Integer, j As Integer, a() As Integer
Private Sub Command1_Click()
'判断输入的行数是否为数字
If IsNumeric(Text1.Text) Then
n = Val(Text1.Text)
Else
MsgBox "您输入的不是数字"
Text1.SetFocus
End If
'重新定义数组并利用两次循环给数组赋值
ReDim a(n, n) As Integer
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 - 1) + a(i - 1, j)
Next j
Next i
'输出数组到picturebox1上
For i = 1 To n
For j = 1 To i
Picture1.Print a(i, j); Spc(1);
Next j
Picture1.Print
Next i
End SubPrivate Sub Command2_Click()
'判断输入的行数是否为数字
If IsNumeric(Text1.Text) Then
n = Val(Text1.Text)
Else
MsgBox "您输入的不是数字"
Text1.SetFocus
End If'重新定义数组并利用两次循环给数组赋值
ReDim a(n, n) As Integer
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 - 1) + a(i - 1, j)
Next j
Next i
'输出数组到picturebox2上
For i = 1 To n
Picture2.Print Spc((n - i) * 2);
For j = 1 To i
Picture2.Print a(i, j); Spc(1);
Next j
Picture2.Print
Next i
End SubPrivate Sub Command3_Click()
'清除屏幕
Picture1.Cls
Picture2.Cls
End SubPrivate Sub Form_Load()
Text1.Text = ""
End Sub
Dim n As Integer, i As Integer, j As Integer, a() As Integer
Private Sub Command1_Click()
'判断输入的行数是否为数字
If IsNumeric(Text1.Text) Then
n = Val(Text1.Text)
Else
MsgBox "您输入的不是数字"
Text1.SetFocus
End If
'重新定义数组并利用两次循环给数组赋值
ReDim a(n, n) As Integer
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 - 1) + a(i - 1, j)
Next j
Next i
'输出数组到picturebox1上
For i = 1 To n
For j = 1 To i
Picture1.Print a(i, j); Spc(1);
Next j
Picture1.Print
Next i
End SubPrivate Sub Command2_Click()
'判断输入的行数是否为数字
If IsNumeric(Text1.Text) Then
n = Val(Text1.Text)
Else
MsgBox "您输入的不是数字"
Text1.SetFocus
End If'重新定义数组并利用两次循环给数组赋值
ReDim a(n, n) As Integer
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 - 1) + a(i - 1, j)
Next j
Next i
'输出数组到picturebox2上
For i = 1 To n
Picture2.Print Spc((n - i) * 2);
For j = 1 To i
Picture2.Print a(i, j); Spc(1);
Next j
Picture2.Print
Next i
End SubPrivate Sub Command3_Click()
'清除屏幕
Picture1.Cls
Picture2.Cls
End SubPrivate Sub Form_Load()
Text1.Text = ""
End Sub
输入整数N,现实具有N行的杨辉三角形,要求按正三角形的形式在图片框中显示
输入行数n,显示具有n行的杨辉三角形.一个具有8行的杨辉三角形运行结果如图所示.
求n!,要求在主函数中输入一个整数,在自定义函数中求n!,且在主函数中输出n!的值.
输入一个整数n,显示n至1000之间的偶数且是7的倍数,要求5个数显示一行.用java while循环语句
在图片框中显示一个n*n魔方阵(其中n必须是奇数).魔方阵的每一行,每一列对角线之和均相等.
用JAVA编写程序:输入整数n,输出由n行n列星号字符组成的三角形图案
编写一个求整数n阶乘(n!)的程序,要求现实的格式如下:
打印星号三角形.输入一个整数N,表示三角形的行数.输出如下图的三角形.
输入两个整数m,n(要求输入数均大于0,且m>n),输出他们的最小公倍数与最大公约数.
要求如下Description输入若干整数,计算这些整数的和.Input每行首先输入一个整数N(表示共有N个数),接下去
有n个整数按由大到小顺序存放在一个数组中,输入一个数,要求用折半查找法找出该数是数组中第几个元素的值
C语言:已知e的求解公式为:e=1+1/1!+1/2!+1/3!+……+1/n!,要求输入任一整数n,计算并显示所得的e