忆江南优秀教案:求用VB.net编写的web应用程序一个,可以很小,只要能实际运行就行。
来源:百度文库 编辑:高校问答 时间:2024/04/28 08:29:57
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a, b, i As Integer
Dim Max As Integer
Dim c As Double
Max = 10
Dim arr(Max)
For i = 0 To Max - 1
arr(i) = i
Next i
For i = 0 To Max - 1
a += arr(i)
Next
For i = 0 To Max - 1
b += a * arr(i)
Next
c = b / (a + 1)
Me.Label2.Text = c.ToString()
end sub