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.net的两道题

1.编程求1!+3!+5!+....+n! N由inputbox获取

Function Math(ByVal N As Integer) As Integer

Dim c As Integer = 1

For i = 1 To N

c *= i

Next

Return c

End Function

Dim N As String = InputBox("输入N的值.")

If N = "" Then Return

MessageBox.Show(Math(N))

2.用最简单的方法将个位数和十位数互换,一定要最简单的方法..比如31换成13.

Dim s As String = InputBox("输入一个十位数.")

If s = "" Then Return

MessageBox.Show(StrReverse(s))

VB.NET的 题目下面程序的输出结果为？ x=10:y=20 label1.text=x&"+"&y&"=" label1.text&=x+y&VBCRLF

最后结果为： 10+20=30 [回车] 第一个赋值语句应该不用解释把，给你解释下Label1.Text = x + y vbCrLf vb.net中多了双目运算符，也就是+=，-=，*=，/=等这些，用x+=y来说明，等价于x=x+y 所以上面那句等价于Label1.Textg = Label1.Text x + y vbCrLf 第一句Label的值为10+20=，那么在跟上x+y的值后就是10+20=30，最后在跟上一个回车。

vb.net问题

me.dispose是最彻底释放资源； Me.Close 是关闭 end 只是结束 一般用在程序的语句中，如结束语句。

执行 dispose 后,由.net 的GC垃圾回收器周期性地回收资源, me.close 方法的基类会调用 dispose 方法end 是从vb中继承下来的语句,直接指示退出程序.程序的资源将被释放,程序并未希望结束时,不适合使用该方法.若要强行退出应用程序,

分享标题：vb.net的题 vb net
转载来源：http://csdahua.cn/article/dohcojj.html