您好,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
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 "最大数字是" & a(10)i & " 位置是" & a(10)xuhao
End Sub
以上就是关于VB6.0中如何对一个数据集内的数据进行判断最大和最小的值全部的内容,包括:VB6.0中如何对一个数据集内的数据进行判断最大和最小的值、VB6.0中怎样使用data控件实现数据库查找功能、vb编程,输入十个数字,找出最大值,并找出最大值的位置。等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)