vb.net程序，利用隨機函數(shù)產(chǎn)生100個1到100之間的整數(shù)，求其中的最大最小值。

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

創(chuàng)新互聯(lián)建站是一家集網(wǎng)站建設,淮上企業(yè)網(wǎng)站建設,淮上品牌網(wǎng)站建設,網(wǎng)站定制,淮上網(wǎng)站建設報價,網(wǎng)絡營銷,網(wǎng)絡優(yōu)化,淮上網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。

Randomize() '產(chǎn)生隨機數(shù)種子 以防止每次生成結果都一樣

Dim a(100) As Integer '聲明數(shù)組存放數(shù)據(jù) 用來保存隨機數(shù)結果

Dim max As Integer, min As Integer '聲明兩個變量存最大值和最小值

min = 1000 : max = 0 '設置初值

For i = 0 To 99 '循環(huán)100次

a(i) = Int(Rnd() * 1000 + 1) '用rnd生成一個隨機數(shù) 由于rnd范圍為0-1之間的小數(shù).所以*1000設置他的范圍為0到999之間 加1變成1到1000之間

If a(i) = max Then max = a(i) '如果當前數(shù)值大于最大值的變量就保存

If a(i) = min Then min = a(i) '如果當前數(shù)值小于最小值的變量就保存

Next

MsgBox("最大值為" max)

MsgBox("最小值為" min)

End Sub

vb中max函數(shù)的調(diào)用方法

vb中沒有這個函數(shù)，你可以自己寫一個嘛。

public

function

max(a

as

single,

b

as

single)

as

single

if

a

b

then

max

=

a

else

max

=

b

end

function

這樣你就可以使用它了，如

debug.print

max(12.5,16)

這時就會輸出12.5與16中較大的一個數(shù)。

當然，你也可以把以上自定義函數(shù)中的兩個變量，換成一個數(shù)組，這樣就可以不只是在兩個變量之間返回最大值，而是在一個數(shù)組中返回最大值。

如：

public

function

max(a()

as

single)

as

single

dim

i

as

integer,

p

as

single

p

=

a(1)

for

i

=

2

to

ubound(a)

if

p

a(i)

then

p

=

a(i)

next

i

max

=

p

end

function

這樣你可以先定義一個數(shù)組，并把你要查找最大值的數(shù)據(jù)存入這個數(shù)組中，再調(diào)用這個函數(shù)查找。

如：

dim

dat()

as

single

dat(1)=...

dat(2)=...

...

...

debug.print

max(dat)

這樣就可以輸出一組數(shù)組中最大值。

vb。net中的最大值及最小值函數(shù)的編寫

'vb.net2008

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim min, max As Integer

Dim a() As Integer = {3, 2, 4, 1}

min = Proc(a)(0)

max = Proc(a)(1)

End Sub

Private Function Proc(ByVal a() As Integer)

Dim a_out(a.GetUpperBound(0)), a_m(1) As Integer

System.Array.Copy(a, a_out, a.GetUpperBound(0) + 1)

System.Array.Sort(a_out)

a_m(0) = a_out(0)

a_m(1) = a_out(a_out.GetUpperBound(0))

Return a_m

End Function

End Class

VB求最大值函數(shù)

雙擊command1，寫下

dim a as string

dim amax as integer,temp as integer

a=trim(text1)'去除text1中的空格，將值賦給a

amax=0'設置amax的初值，因為是找最大值，所以取0

for i=1 to len(a)'循環(huán)，從1到a的長度

temp=val(mid(a,i,1))'從a中第i個位子取一個數(shù)

if temp=amax then amax=temp'和最大值比較

next i

text2=amax

vb.net中有沒有類似max（）這樣的函數(shù)

首先vb.net是一種編程語言，它自己是沒有的。

但vb.net與c#、vc++.net等其它編程語言共用一個公共類庫（叫框架類庫），這個類庫在命名空間System中提供了一個類叫Math（Public NotInheritable Class Math）。它為三角函數(shù)、對數(shù)函數(shù)和其他通用數(shù)學函數(shù)提供了常數(shù)和靜態(tài)方法，其中就包括Max。

vb.net 數(shù)據(jù)庫 最大值訪問 MAX（）

strSQL = "select MAX(ID) from caiming" 最后只返回了一個字段,不知道,你 dr.Item("IMG_url_add") 返回的是哪的東西?

按我的理解應該改成

strSQL = "select * from caiming where ID=(select MAX(ID) from caiming)"