dim iTest(n) as integer
dim iplace(n) as integer
dim max as integer
dim i as integer
dim j as integer
for i= 0 to n-1
if iTest(i)>iTest(i+1) then
max = iTest(i)
else
max = iTest(i+1)
end if
next
for i= 0 to n
if iTest(i)=max then
iplace(j) = i
end if
j=j+1
next
最大值：max
位置：iplace()追问
输出要怎么输出呢？能把窗体截图发一下吗
追答Linux系统，我手打的。。。
for i = 0 to j
打印： iplace(i) //VB打印忘了。。。
next
如何用VB在一系列数中选出一个最大的数
求数组中的最大值 a(i)=array(1,2,3,4,5,6,7,8,9,0)for i=1 to 9 for j=i+1 to 10 '将j的值加1 if a(i)>a(j) then '如果a(i)比a(j)的值大，则进行下面代码 t=a(i):a(i)=a(j):a(j)=t '将a(i)的值赋给t，将a(j)赋给a(i)，最后将t的值赋给a(j)...
VB编写一个函数返回整型数组中的最大值
'假设以为数组：Private Sub Command1_Click()Dim arr(1 To 10) As Integer, i Cls For i = LBound(arr) To UBound(arr)Randomize arr(i) = Int(Rnd * 10000) + 1 Print arr(i);Next Print vbNewLine & "最大值：" & fc(arr)End Sub Function fc(arr)Dim i fc = arr(LBound(...
在vb数组中求出指定数目的最大值及其下标
代码如下：'arr()为你给定的目标数组，n为你指定的前n个最大值，调用例子：' Dim arr() As Variant ' arr = Array(1, 4, 5, 6, 2, 6, 8, 4, 6, 7)' PrintPreN arr, 10 Private Sub PrintPreN(arr() As Variant, n As Long)Dim Brr() As Variant '排序后的数组 ...
怎么编写VB 取最大值
Private Function Max(Data() As Double) As Double '求实数最大值函数 Dim i As Long Dim x1 As Long, x2 As Long x1 = LBound(Data)x2 = UBound(Data)Max = Data(x1)For i = x1 To x2 If Data(i) >= Max Then Max = Data(i) '如果数组当前值比Max值大，替换Max中...
vb编程求矩阵A中每一列的最大值以及最大值所在的行
1、首先绘制好四个文本框和一个命令按钮。2、然后我们定义一个输入从文本框输入数据。3、接下来可以从这个数组数据装入到另一个数组。4、这时，假设有一个函数可以调用。5、接下来开始编写代码，为了通用性，可求出上下界。6、然后我们再遍历查询最大值。
VB数组找最大最小值问题。
很简单 for i=0 to 5 a(i)=inputbox("输入任意数",找最值)next i max=a(0)max_j=0 for j=1 to 5 if(a(j)>max) then max=a(j)max_j=j endif next j print max max_j 这个就是的 上面的>改成 <就是找最小值了
vb编程题 数组的最大值及其下标
dim A(1 to 10) as integer,i as integer,n as integer,max as integer randomize for i=1 to 10 a(i)=int(rnd()*100) '给数组赋值 next i max=a(1)n=1 for i=1 to 10 if a(i)>max then max=a(i)n=i end if next i print "最大值：";max;"下标：";n ...
用VB求最大值最小值和平均值。怎么办?
欲使用VB求一组数的最大值、最小值和平均值，首先定义数组arr，初始化变量n_min、n_max、n_sum、n_av。数组arr中填充待处理的数据，如"1,2,3,4,5,6,7,8,9,10,11,12"。将数组元素以逗号分隔，使用split函数处理。接着，初始化最小值n_min、最大值n_max和总和n_sum。将数组的第一个...
在VB编程中,求最大值和最小值?
VB求最大值最小值可以用冒泡法即可。X[a,b,c,d,e](数组赋值)|| || <FOR i =0 ,i<5,i++> <IF X[i] > TEMP>OR<IF X[i] < TEMP> <TEMP = X[i]> <END IF> <END FOR> || MAX = TEMP MIN = TEMP ||
VB编程求一个数组最大元素及其下标
'设数组为ara=ubound(ar)'数组的最大下标b=Lbound(ar)'数组的最小下标
