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

1）首先确定使用何种数据库，如选ACCESS数据库。

2）新建ACCESS数据库。

3）新建各数据表。确定每个数据表的字段及数据类型。各数据表应有关键字段。

4）在VB中使用ADO数据对象或控件连接数据库，构思VB的运行界面。

5）灵活使用SQL结构化查询语句 *** 纵数据库。

你没有说你是用什么方式连接数据库的，这里假定用ADO对象：

用一条SQL语句即可解决：

Dim rs As New Recordset

Set rs = conn.Execute("select max(字段名),min(字段名),avg(字段名) from 表名")

然后rs(0)就是最大值，rs(1)是最小值，rs(2)是平均值

至于如何显示到窗体控件上这你应该会吧。

---