Question

求计算机VB程序高手。

用vb语言编写，谢谢，在线等。
1、求一组中最大的数的函数过程max( ),要求在主调程序中随机产生10个100-200之间的整数并保存在数组A中。
2、编写一个子过程，实现将一数组逆序存放。要求在主调程序中从键盘上输入10个整形数据，调用该子过程后，输出结果。

Answer 1

1.
Private Function Max(intData() As Integer, Ncont As Integer, max As Integer)
max = intData(0)
For i = 1 To Ncont
If max < intData(i) Then max = intData(i)
Next j
End Function

Private Sub Command1_Click()
Dim max As Integer
Dim a(10) As Integer
For i = 0 To 9
a(i) = Int(Rnd*101)+100)
Print "a(" & i & ")=" & a(i)
Next i
Call MaxMin(a(), 9, max)
Print "max=" & max
End Sub
2.
private sub Command1_click()
Dim a(1 To 10)
for i=1 to 10
a(i)=val(inputbox("输入第" & i & "个数"))
print a(i);
next
Call Fun(a)
print
for i=1 to 10
print a(i);
next
end sub

Private Sub Fun(a() as integer)
For i = 1 To 10
a(i) = i
Print a(i);
Next i
Print
For i = 1 To 5
b = a(i): a(i) = a(11 - i): a(10 - i + 1) = b
Next i
For i = 1 To 10
Print a(i);
Next i
Print
End Sub

Answer 2

dim A(9) AS integer,i as integer,t as integer,jishu as integer
Randomize timer ' 对随机数生成器做初始化的动作
for i=0 to 9
A(i)=(rnd*101)+100
next
for i=0 to 8 '逆序排序
for t=i+1 to 9
if a(i)>a(t) then
jishu=a(t)
a(t)=a(i)
a(i)=jishu
end if
next
next
max=A(0)
在主调程序中从键盘上输入10个整形数据，你可以建立一个textbox控件，每一次输入记一个A数组值，这样对程序编写比较简单，也可以用INPUT,A(i)=Inputbox("请输入数据：","数据输入","10"）.

追问

你能帮我完整的写下来吗，两个分开写。

Answer 3

作业题吗？都太简单了，还是自己思考吧。