VB6.0中如何对一个数据集内的数据进行判断最大和最小的值

VB6.0中如何对一个数据集内的数据进行判断最大和最小的值,第1张

您好,VB中没有MAX和MIN函数,不过你可以自己编程实现。

给你一个求随机产生6个两位正整数的例子:

Private Sub Command1_Click()

Dim a(6) As Integer

For i = 1 To 6

Randomize

a(i) = Int(Rnd 90) + 10

Print a(i);

Next i

Print

Max = a(1)

Min = a(1)

For i = 1 To 6

If Max < a(i) Then Max = a(i)

If Min > a(i) Then Min = a(i)

Next i

Print "最大值为:" & Max

Print "最小值为:" & Min

End Sub

1、使用data控件的FindFirst方法可以实现数据库记录的查找。

2、工具:vb6。

3、具体实现方法:

a)在窗体上添加data1、dbgrid1、text1、command1、label1

b)在dbgrid1的DataSource属性里选择data1

c)实现代码如下:

Private Sub Command1_Click()

    '查找定位记录

    Data1RecordsetFindFirst "CategoryID=" & Text1Text

DBGrid1DataSource

End Sub

Private Sub Form_Load()

    Data1Connect = "Access 2000;" '设置数据库类型

    Data1DatabaseName = "C:\db1MDB" '连接数据库

    Data1RecordSource = "Categories" '数据库中的表

    Data1Refresh '打开数据库

End Sub

4、注意:数据库可以使用vb6文件夹内的NWINDMDB

Private Type num

     xuhao As Integer

     i As Integer

End Type

Dim a(10) As num

Dim temp As num

Private Sub Command1_Click()

For i = 1 To 10

    a(i)i = InputBox("请输入第" & i & "个数字")

    a(i)xuhao = i

    Print a(i)i

Next i

For i = 1 To 10

            For j = 1 To 10 - i

                If a(j)i > a(j + 1)i Then

                    temp = a(j + 1)

                    a(j + 1) = a(j)

                    a(j) = temp

                End If

            Next j

        Next i

Print

Print "最大数字是" & a(10)i & " 位置是" & a(10)xuhao

End Sub

以上就是关于VB6.0中如何对一个数据集内的数据进行判断最大和最小的值全部的内容,包括:VB6.0中如何对一个数据集内的数据进行判断最大和最小的值、VB6.0中怎样使用data控件实现数据库查找功能、vb编程,输入十个数字,找出最大值,并找出最大值的位置。等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/sjk/10190934.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-06
下一篇 2023-05-06

发表评论

登录后才能评论

评论列表(0条)

保存