建站
咨詢(xún)
售后
建站咨詢(xún)
新聞中心
vb.NET一個(gè)找出數(shù)組最大最小值的程序有個(gè)小問(wèn)題 誰(shuí)看一下
你是不是應(yīng)該對(duì)最大值和最小值賦初值（比如把 r(1) 賦給最大值和最小值）呢？不然最小值默認(rèn)初始值是‘0’，后面的判斷就不起作用了。你可以加個(gè)斷點(diǎn)試試，他們的初始值是多少。。。
我們提供的服務(wù)有：成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)、微信公眾號(hào)開(kāi)發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、蘇州ssl等。為超過(guò)千家企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢(xún)和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的蘇州網(wǎng)站制作公司
VB.NET中如何刪除listbox中的最大值和最小值？
max是要保存最大值的，你每次改變ID = i的時(shí)候都沒(méi)有更新最大值max，所以要改：
For i = 0 To ListBox1.Items.Count - 1
If Val(ListBox1.Items(i)) max Then
max=CInt(ListBox1.Items(i))
ID = i
End If
Next i
還有你的ID更新也有問(wèn)題，一開(kāi)始的時(shí)候似乎應(yīng)該是ID=0，而不是ID=1。
vb.net程序，利用隨機(jī)函數(shù)產(chǎn)生100個(gè)1到100之間的整數(shù)，求其中的最大最小值。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize() '產(chǎn)生隨機(jī)數(shù)種子 以防止每次生成結(jié)果都一樣
Dim a(100) As Integer '聲明數(shù)組存放數(shù)據(jù) 用來(lái)保存隨機(jī)數(shù)結(jié)果
Dim max As Integer, min As Integer '聲明兩個(gè)變量存最大值和最小值
min = 1000 : max = 0 '設(shè)置初值
For i = 0 To 99 '循環(huán)100次
a(i) = Int(Rnd() * 1000 + 1) '用rnd生成一個(gè)隨機(jī)數(shù) 由于rnd范圍為0-1之間的小數(shù).所以*1000設(shè)置他的范圍為0到999之間 加1變成1到1000之間
If a(i) = max Then max = a(i) '如果當(dāng)前數(shù)值大于最大值的變量就保存
If a(i) = min Then min = a(i) '如果當(dāng)前數(shù)值小于最小值的變量就保存
Next
MsgBox("最大值為" max)
MsgBox("最小值為" min)
End Sub
vb。net中的最大值及最小值函數(shù)的編寫(xiě)
'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
網(wǎng)站欄目：vb.net最大最小值,vb中求最大最小值程序
本文路徑：http://fisionsoft.com.cn/article/dssggph.html
