Question

有没有会VB中的这个实验的？1、在名称为Form1，标题为“数组为参数”的窗体上有两个命令按钮C1，C2，标题分

1、在名称为Form1，标题为“数组为参数”的窗体上有两个命令按钮C1，C2，标题分别为”输入显示”，“退出”；两个文本框Text1,Text2,初始内容为空，两个标签L1,L2，标题分别为“数组中的最大值”和“数组中的最小值”。(界面如图所示)
2、程序运行后，单击C1则由inputbox输入10个数值，存到一个一维数组中，通过调用名字为max的自定义过程找到最大值和最小值（max过程的功能是把数组中的最大值和最小值找到）；然后在主调过程中分别在Text1和Text2中显示出最大值和最小值。单击C2退出程序。

Answer 1

text1.text= MA
text2.text =MI

End Sub

Private Sub Command2_Click()
End
End Sub

追问

不对呀？

追答

哦 漏了

Option Explicit
Dim A(10) As Integer
Private Sub MAX(A() As Integer, MA As Integer, MI As Integer)
MA = A(1)
MI = A(1)
Dim I As Integer
For I = 2 To 10
If A(I) > MA Then MA = A(I)
If A(I) < MI Then MI = A(I)
Next I

End Sub

Private Sub Command1_Click()
Randomize
Dim MA As Integer, MI As Integer
Dim I As Integer
For I = 1 To 10
A(I) = Val(InputBox("请输入数"))
Print A(I),
Next I
Print
MAX A(), MA, MI
Print MA
Print MI

End Sub

Answer 2

LZ可以试着自个写，很简单