41数组一一维数组应用例题 例44输入一组不重复的数据,找出最大值及其位置 Private Sub Form Click Const Length= 5 定义常量 Length作为数组最大下标 Dim Test%(Length), I%, Max%, L% For=l To length 通过键盘输入给数组赋值 Test(D= InputBox("输入第"&I&"个数据") Next I Max=Test1):L=1设数组第一个元素为最大值 For I=2 To Length If max<Test①)Then"'找到新的最大值,记录其值和位置 Max= Test() 工程1 End If Next i 最大值=99,位置是4 MsgB0x"最大值x="&Max&",位置是"&L End sub 匚确定 返回目录4.1 数组－一维数组应用例题 [例4.4] 输入一组不重复的数据，找出最大值及其位置 Private Sub Form_Click() ConstLength = 5 '定义常量Length作为数组最大下标 Dim Test%(Length),I%, Max%, L% For I = 1 To Length '通过键盘输入给数组赋值 Test(I) = InputBox("输入第" & I & "个数据") Next I Max = Test(1) : L = 1 '设数组第一个元素为最大值 For I = 2 To Length If Max < Test(I) Then '找到新的最大值，记录其值和位置 Max = Test(I) L = I End If Next I MsgBox "最大值x=" & Max & " ，位置是"& L End Sub 返回目录