vb.net求最大值代码

菜鸟急求vb.net对access数据库操作中取出某列最大值的代码

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

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

vb程序设计,求三个数的最大值和最小值,代码怎么打,尽量简单点不要太复杂

思路,把三个数存放到变量x,y,z,里,然后按照从大到小排列,最后x里是最大值,z里是最小值.

Dim x As Single, y As Single,z As Single

Dim t As Single

x = Val(InputBox("输入第1个数："))

If x y Then

t = x

x = y

y = t

End If

If x z Then

x = z

z = t

If y z Then

t = y

y = z

Print "最大值：";x

Print "最小值：";z

VB中如何求最大值和最小值,我写了下面的代码可是只能求最大值和平均值.最小值一直显示0

原因：代码不正确造成的.

Private?Sub?Command1_Click()

Dim?Num?As?Integer, Max?As?Integer, Min?As?Integer, s?As?Integer

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;

End?Sub

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

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

用vb.net求三个数中的最大值以及最小值函数的编写

MaxOrMin 指示返回最大还是最小.

Dim max, min As Integer

If s(0) s(1) Then

min = s(0)

max = s(1)

min = s(1)

If MaxOrMin = 0 Then Return max

If MaxOrMin = 1 Then Return min

End Function

以上就是土嘎嘎小编为大家整理的vb.net求最大值代码相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！