Dim a As Integer

'Dim a As Integer, b As Integer, n As Integer, i As Integer

' a =

' b =

'Dim arrA%(n), intmax%

'Private

Sub

Button1_Click(ByVal

sender

As

,

ByVal

e

As

rgs)

Handles

'

Dim a As Integer, b As Integer, n As Integer, i As Integer

'

a = Val()

'

b = Val()

'

n = Val()

'

Dim arrA%(0 To n), intmax%

'

If Fix(a) <> a Then

'

MsgBox(

< br>请输入整数

'

Exit Sub

'

End If

'

If Fix(b) <> b Then

'

MsgBox(

< br>请输入整数

'

Exit Sub

'

End If

'

If Fix(n) <> n Or (n Mod 4 <> 0) Then

'

Msg Box(

请输入整数且是

4

的倍数

'

Exit Sub

'

End If

'

For i = 0 To n - 1

'

Randomize()

'

arrA(i) = Int(Rnd() * (b + 1 - a) + a)

'

Next

'

intmax = arrA(0)

'

For i = 0 To n - 1

'

If arrA(i) > intmax Then intmax = arrA(i)

'

Next

'

MsgBox(

最大值：