十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
参考:
成都创新互联是一家集网站建设,三都企业网站建设,三都品牌网站建设,网站定制,三都网站建设报价,网络营销,网络优化,三都网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。
以下为十行的杨辉三角输出,根据这个自己做相应修改,都做好了,那你就是伸手党了。
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
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))
最后结果为: 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,最后在跟上一个回车。
me.dispose是最彻底释放资源; Me.Close 是关闭 end 只是结束 一般用在程序的语句中,如结束语句。
执行 dispose 后,由.net 的GC垃圾回收器周期性地回收资源, me.close 方法的基类会调用 dispose 方法end 是从vb中继承下来的语句,直接指示退出程序.程序的资源将被释放,程序并未希望结束时,不适合使用该方法.若要强行退出应用程序,