Question

vb.net程序设计：包括三个过程1事件过程form1用inputbox输入10个数,2函数过程求最大值,3button

Answer 1

整数判断还是含有小数?整数判断：

Dim A(9) As Integer

Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load

For i = 0 To 9

A(i) = Val(InputBox("输入一个数字","输入"))

Debug.WriteLine("第" & i + 1 & "个数：" & A(i))

Next

End Sub

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

Debug.WriteLine("最大数为：" & jisuan(A))

End Sub

Private Function jisuan(ByVal shuzu() As Integer) As Integer

Dim max As Integer

For i = 0 To shuzu.Length - 1

If shuzu(i) > max Then max = shuzu(i)

Next

Return max

End Function