vb.net 程序设计

Dim SumN As Long

Dim i As Integer

Dim str As String

str = InputBox("请输入个数：")

i = Val(str)

If i <1 Then

Exit Sub

End If

Dim k As Integer

Try

For k = 1 To i

SumN = SumN + k ^ k

Next

MsgBox("结果：" &SumN)

Catch

End Try

题1:

最简单了，高中就学过的等差数列，公式代过来就行拉

SUB A()

return 100*101/2

END SUB

题2：

更简单拉，小学初中就学过长度乘高度等于面积

FUNCTION B(Width as integer, Height as integer) AS INTEGER

return Width*Height

END FUNCTION

无课本的人回答如下：

如希望准确回答，请给出课本上的代码和题目要求

Dim a(20, 30) As Single

Private Sub Command1_Click()

For i = 0 To 20

For j = 0 To 30

If Max <a(i, j) Then

Max = a(i, j)

Debug.Print a(i, j)ij

End If

Next

Next

End Sub

Private Sub Form_Load() '对数组的定义，我自己用随机数做的，课本不一定这样，只是个例子

' n = 20

' m = 30

For i = 0 To n

For j = 0 To m

Randomize

a(i, j) = (Rnd * 1) * 100

Print a(i, j)

Next

Next

End Sub

debug的内容有多个，最后的一个就是最大值 和行、列

debug的哪一行也可以改成 text1=a(i,j) i j

有疑问可追问

---