菜鳥(niǎo)急求vb.net對(duì)access數(shù)據(jù)庫(kù)操作中取出某列最大值的代碼

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

創(chuàng)新互聯(lián)專注于新平網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供新平營(yíng)銷型網(wǎng)站建設(shè)，新平網(wǎng)站制作、新平網(wǎng)頁(yè)設(shè)計(jì)、新平網(wǎng)站官網(wǎng)定制、小程序定制開(kāi)發(fā)服務(wù)，打造新平網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供新平網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。

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

vb程序設(shè)計(jì)，求三個(gè)數(shù)的最大值和最小值，代碼怎么打，盡量簡(jiǎn)單點(diǎn)不要太復(fù)雜

思路，把三個(gè)數(shù)存放到變量x，y，z，里，然后按照從大到小排列，最后x里是最大值，z里是最小值。

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

Dim t As Single

x = Val(InputBox("輸入第1個(gè)數(shù)："))

y = Val(InputBox("輸入第2個(gè)數(shù)："))

z = Val(InputBox("輸入第3個(gè)數(shù)："))

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

VB中如何求最大值和最小值，我寫了下面的代碼可是只能求最大值和平均值。最小值一直顯示0

原因：代碼不正確造成的。

1、首先打開(kāi)需要編輯的Excel表格，進(jìn)入到編輯頁(yè)面中。

2、然后在編輯的窗口中，鼠標(biāo)右鍵單擊工作表，選擇打開(kāi)“查看代碼”。

3、然后在彈出來(lái)的窗口中點(diǎn)擊輸入下方的代碼：

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?'第一次循環(huán)時(shí)，先對(duì)最大最小值賦初值

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、然后點(diǎn)擊工具欄中的“運(yùn)行”圖標(biāo)。

5、然后就完成了。

vb.NET一個(gè)找出數(shù)組最大最小值的程序有個(gè)小問(wèn)題 誰(shuí)看一下

你是不是應(yīng)該對(duì)最大值和最小值賦初值（比如把 r(1) 賦給最大值和最小值）呢？不然最小值默認(rèn)初始值是‘0’，后面的判斷就不起作用了。你可以加個(gè)斷點(diǎn)試試，他們的初始值是多少。。。

用vb.net求三個(gè)數(shù)中的最大值以及最小值函數(shù)的編寫

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