vb.net杨辉三角,杨辉三角c#语言

用vb.net2008打印杨辉三角形(打印10行),要求如图所示

Public Class Form1

创新互联服务项目包括岳阳县网站建设、岳阳县网站制作、岳阳县网页制作以及岳阳县网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,岳阳县网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到岳阳县省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim n As Integer, i As Integer, j As Integer, a(,) As Integer

n = 10

ReDim a(n + 1, n + 1)

For i = 1 To n + 1

a(i, 1) = 1 : a(i, i) = 1 : Next i

For i = 3 To n + 1

For j = 2 To i - 1

a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

Next j, i

For i = 1 To n + 1

For j = 1 To i

TextBox1.AppendText(Space(4 - Len(Trim(Str(a(i, j))))) Trim(Str(a(i, j))))

Next j

TextBox1.AppendText(vbCrLf)

Next i

End Sub

End Class

怎样用vb打印杨辉三角形?

要求在窗体上打印出杨辉三角形,其打印行数由键盘输入。

【设计思路】�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. 调试并运行程序,观察输出结果。

VB.Net的问题,输入整数n,显示具有n行的杨辉三角形。

参考:

以下为十行的杨辉三角输出,根据这个自己做相应修改,都做好了,那你就是伸手党了。

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i, j As Integer

Dim n As Integer

n = 10

Dim dete(n, n) As Integer

Dim sum As Integer

For i = 0 To n

For j = 0 To i

If i = 0 Then

dete(i, j) = 1

ElseIf j = 0 Then

dete(i, j) = 1

ElseIf i = j Then

dete(i, j) = 1

Else

dete(i, j) = dete(i - 1, j - 1) + dete(i - 1, j)

End If

Next

Next

For i = 0 To n

For j = 0 To i

Debug.Write(dete(i, j) " ")

sum += dete(i, j)

Next

Debug.WriteLine(" ")

Next

End Sub

End Class

关于VB如何实现杨辉三角

Option Explicit

Function Fc(n As Long)

Dim arr() As Long, i As Integer, j As Integer, s As String

Cls

ReDim arr(1 To n, 1 To n) '重定义数组

For i = 1 To n

For j = 1 To i

If j = 1 Then

arr(i, j) = 1

Else

arr(i, j) = arr(i - 1, j - 1) + arr(i - 1, j)

End If

Next

Next For i = 1 To Val(Text1)

For j = 1 To i

s = s arr(i, j) Space(6 - Len(CStr(arr(i, j))))

Next

s = IIf(i Mod 2 = 1, Space(6 * Int((Val(Text1) - i + 1) / 2)) s, Space(6 * Int((Val(Text1) - i) / 2) + 3) s)

Print s

s = ""

Next

End FunctionPrivate Sub Form_Activate()

Text1 = 20

End SubPrivate Sub Text1_Change()

Cls

If IsNumeric(Text1) And Val(Text1) 0 And Val(Text1) = 20 Then '最大20

Fc Val(Text1)

Else

Text1 = ""

End If

End Sub

如何用VB编程输出杨辉三角?

VB代码:

Option Base 1

Private Sub form_click()

Const n=10

Dim arr(n,n)As Integer

For i=1 To n

arr(i,i)=1

arr(i,1)=1

Next i

For i=3 To n

For j=2 To i-1

arr(i,j)=arr(i-1,j-1)+arr(i-1,j)

Next j

Next i

For i=1 To n

For j=1 To i

Print arr(i,j);

Next j

Print

Next i

End Sub

输出结果:

扩展资料:

printf的格式

printf函数的原型为:

#includelt;stdio.hgt;

int printf(const char*format,...);

在讲每一个函数的时候都会先把它的函数原型写出来,这个原型你们现在看不懂不要紧,等到学完C语言之后再来看这个原型就会发现它是很有参考意义的!它对深刻理解函数有着很大的价值。

printf的格式有四种:

1)printf("字符串\n");

#includelt;stdio.hgt;

int main(void)

{

printf("Hello World!\n");//\n表示换行

return 0;

}

其中\n表示换行的意思。它是一个转义字符,前面在讲字符常量的时候见过。其中n是“new line”的缩写,即“新的一行”。

此外需要注意的是,printf中的双引号和后面的分号必须是在英文输入法下。双引号内的字符串可以是英文,也可以是中文。

2)printf("输出控制符",输出参数);

#includelt;stdio.hgt;

int main(void)

{

int i=10;

printf("%d\n",i);/*%d是输出控制符,d表示十进制,后面的i是输出参数*/

return 0;

}

这句话的意思是将变量i以十进制输出。

i本身就是十进制,程序中虽然写的是i=10,但是在内存中并不是将10这个十进制数存放进去,而是将10的二进制代码存放进去了。计算机只能执行二进制0、1代码,而0、1代码本身并没有什么实际的含义,它可以表示任何类型的数据。

所以输出的时候要强调是以哪种进制形式输出。所以就必须要有“输出控制符”,以告诉操作系统应该怎样解读二进制数据。

如果是%x就是以十六进制的形式输出,要是%o就是以八进制的形式输出。

3)printf("输出控制符1输出控制符2…",输出参数1,输出参数2,…);

#includelt;stdio.hgt;

int main(void)

{

int i=10;

int j=3;

printf("%d%d\n",i,j);

return 0;

}

输出控制符1对应的是输出参数1,输出控制符2对应的是输出参数2……编译、链接、执行后看一下输出结果:

10 3

注意:10和3之间有一个空格;因为上面%d和%d之间有空格,printf中双引号内除了输出控制符和转义字符\n外,所有其余的普通字符全部都原样输出。比如:

#includelt;stdio.hgt;

int main(void)

{

int i=10;

int j=3;

printf("i=%d,j=%d\n",i,j);

return 0;

}

再编译、链接、执行一下:

i=10,j=3

i=、,、空格和j=全都原样输出了。此外需要注意的是:“输出控制符”和“输出参数”无论在“顺序上”还是在“个数上”一定要一一对应。

4)printf("输出控制符非输出控制符",输出参数);

输入整数n,显示出具有n行的杨辉三角形。VB编程,跪求。

源代码如下:

Private Sub Form_Click()    N = InputBox("", "", 5)    ReDim a(N + 1, N + 1), b(N + 1, N + 1)    Cls    k = 8    For I = 1 To N    Print String((N - I) * k / 2 + 1, " ");    For J = 1 To I    a(I, 1) = 1    a(I, I) = 1    a(I + 1, J + 1) = a(I, J) + a(I, J + 1)    b(I, J) = Trim(Str(a(I, J)))    Print b(I, J); String(k - Len(b(I, J)), " ");    Next J    Print    Next IEnd Sub

运行程序,在文本框输入8,再点窗体,效果图如下:

扩展资料:

杨辉三角在Java中的代码如下:

public class TriangleArray{   public static void main(String[] args)   {      final int NMAX = 10;        // allocate triangular array      int[][] odds = new int[NMAX + 1][];      for (int n = 0; n = NMAX; n++)         odds[n] = new int[n + 1];         // fill triangular array      for (int n = 0; n  odds.length; n++)         for (int k = 0; k  odds[n].length; k++)         {            /*             * compute binomial coefficient n*(n-1)*(n-2)*...*(n-k+1)/(1*2*3*...*k)             */            int lotteryOdds = 1;            for (int i = 1; i = k; i++)               lotteryOdds = lotteryOdds * (n - i + 1) / i;             odds[n][k] = lotteryOdds;         }       // print triangular array      for (int[] row : odds)      {         for (int odd : row)            System.out.printf("%4d", odd);         System.out.println();      }   }}


网页名称:vb.net杨辉三角,杨辉三角c#语言
链接分享:http://pwwzsj.com/article/hsgoec.html