vb.net数组最小值 vb编写一个子过程,求数组a中的最小值

VB从数组中找出最大最小值及其位置代码

1、遍历数组进行比较查找即可。

2、vb6示例代码：

option

explicit

private

sub

command1_click()

randomize

timer

dim

a(9)

as

integer,

i

as

integer

dim

x,

fp

as

integer,

zp

as

integer

for

i

=

to

9

'模拟生成一个随机数组

a(i)

=

50

-

rnd

*

100

debug.print

a(i);

"

";

next

debug.print

fp

=

-32768:

zp

=

32767

for

each

x

in

a

'遍历数组进行比较

if

x

then

if

zp

x

then

zp

=

x

else

if

fp

x

then

fp

=

x

end

if

next

debug.print

"负数中的最大数是:";

fp;

"

正数中的最小数是:";

zp

end

sub

相关问答

Q1: vb中如何找出数组中的最小值,并找出最小值的位置(第几个数字)

代码及注释如下：

sub main()

dim a(0 to 99) as integer, amin as integer, i as integer, imin as integer

x = 65536'定义变量x为一个比数组中最大值还要大的数

for i = 0 to 99'假设数组元素个数为100个

if x a(i) then

x= a(i)‘如果x大于数组中的元素，则让x等于数组中的这个元素，这样x最终就成了数组中最小的数

y = i'y获得x为最小值时，i的值，也就是x为数组中的第几个数字

end if

next

msgbox "最小值为"x " 是第" y "个数字"

end sub

Q2: 在VB中寻找一个数组的最大值或最小值，可否用Max或Min函数？

vb没有max和min函数vb.net数组最小值，需要自己编写

Private Sub Command1_Click()

Dim arr(1 To 100) As Integer

Randomize

For i = 1 To 100

arr(i) = Int(Rnd * 10000)

Print Format(arr(i), "@@@@ ");

If i Mod 10 = 0 Then Print

Next

Print

Print "最大值=" max(arr)

Print "最小值=" min(arr)

End Sub

Private Function max(ByRef a() As Integer)

max = a(LBound(a))

For i = LBound(a) To UBound(a)

If max a(i) Then max = a(i)

Next

End Function

Private Function min(ByRef a() As Integer)

min = a(LBound(a))

For i = LBound(a) To UBound(a)

If min a(i) Then min = a(i)

Next

End Function

Q3: vb.net 数组求最值

dim A(9) as integer

dim x as integer=A(0)

dim i as integer

for i=1 to 9

if xA(i) then x=A(i)

next

messagebox.show x

上面只是进行比较和输出结果，至于输入的过程和输出的方式有很多种，你可以自己选择一种，我就不说了，我也是初学的，如有不到之处还请见谅

Q4: vb.NET一个找出数组最大最小值的程序有个小问题 谁看一下

你是不是应该对最大值和最小值赋初值（比如把 r(1) 赋给最大值和最小值）呢？不然最小值默认初始值是‘0’，后面的判断就不起作用了。你可以加个断点试试，他们的初始值是多少。。。

Q5: vb.net程序，利用随机函数产生100个1到100之间的整数，求其中的最大最小值。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Randomize() '产生随机数种子 以防止每次生成结果都一样

Dim a(100) As Integer '声明数组存放数据 用来保存随机数结果

Dim max As Integer, min As Integer '声明两个变量存最大值和最小值

min = 1000 : max = 0 '设置初值

For i = 0 To 99 '循环100次

a(i) = Int(Rnd() * 1000 + 1) '用rnd生成一个随机数 由于rnd范围为0-1之间的小数.所以*1000设置他的范围为0到999之间 加1变成1到1000之间

If a(i) = max Then max = a(i) '如果当前数值大于最大值的变量就保存

If a(i) = min Then min = a(i) '如果当前数值小于最小值的变量就保存

Next

MsgBox("最大值为" max)

MsgBox("最小值为" min)

End Sub

关于vb.net数组最小值和vb编写一个子过程,求数组a中的最小值的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。