正文
vb.net求最大值代码 编程求最大值
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
菜鸟急求vb.net对access数据库操作中取出某列最大值的代码
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db.mdb"
Dim con As New OleDb.OleDbConnection(cstring)
Dim sql As String = "select max(字段名) from 表名"
con.Open()
Dim cmd As New OleDb.OleDbCommand(sql, con)
Dim myreader As OleDbDataReader = cmd.ExecuteReader
myreader.Read
TextBox1.Text = myreader(0)
con.Close()
End Sub
相关问答
Q1: vb程序设计，求三个数的最大值和最小值，代码怎么打，尽量简单点不要太复杂
思路，把三个数存放到变量x，y，z，里，然后按照从大到小排列，最后x里是最大值，z里是最小值。
Dim x As Single, y As Single,z As Single
Dim t As Single
x = Val(InputBox("输入第1个数："))
y = Val(InputBox("输入第2个数："))
z = Val(InputBox("输入第3个数："))
If x y Then
t = x
x = y
y = t
End If
If x z Then
t = x
x = z
z = t
End If
If y z Then
t = y
y = z
z = t
End If
Print "最大值：";x
Print "最小值：";z
Q2: VB中如何求最大值和最小值，我写了下面的代码可是只能求最大值和平均值。最小值一直显示0
原因：代码不正确造成的。
1、首先打开需要编辑的Excel表格，进入到编辑页面中。
2、然后在编辑的窗口中，鼠标右键单击工作表，选择打开“查看代码”。
3、然后在弹出来的窗口中点击输入下方的代码：
Private Sub Command1_Click()
Dim Num As Integer, Max As Integer, Min As Integer, s As Integer
For i = 1 To 20
Num = Int(150 * Rnd + 50)
Print Num;
If i = 1 Then Max = Num: Min = Num '第一次循环时，先对最大最小值赋初值
If Max Num Then Max = Num
If Min Num Then Min = Num
s = s + Num
Next i
Print '换行
Print "最大值："; Max;
Print "最小值："; Min; "平均值："; s / 20
End Sub
4、然后点击工具栏中的“运行”图标。
5、然后就完成了。
Q3: vb.NET一个找出数组最大最小值的程序有个小问题 谁看一下
你是不是应该对最大值和最小值赋初值（比如把 r(1) 赋给最大值和最小值）呢？不然最小值默认初始值是‘0’，后面的判断就不起作用了。你可以加个断点试试，他们的初始值是多少。。。
Q4: 用vb.net求三个数中的最大值以及最小值函数的编写
MaxOrMin 指示返回最大还是最小.
Private Function Math(ByVal num1 As Integer, ByVal num2 As Integer, ByVal num3 As Integer, ByVal MaxOrMin As Short) As Integer
Dim s() As Integer = {num1, num2, num3}
Dim max, min As Integer
If s(0) s(1) Then
min = s(0)
max = s(1)
End If
If s(1) s(2) Then
min = s(1)
max = s(2)
End If
If MaxOrMin = 0 Then Return max
If MaxOrMin = 1 Then Return min
End Function
