锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net取最小值 vba 取最小值

IT技术最小

vb.NET一个找出数组最大最小值的程序有个小问题 谁看一下你是不是应该对最大值和最小值赋初值（比如把 r(1) 赋给最大值和最小值）呢？不然最小值默认初始值是‘0’，后面的判断就不起作用了 。你可以加个断点试试，他们的初始值是多少 。。。
VB.NET怎么作一题，产生10个100以内的随机正整数，求最大，最小值，并显示 。'产生10个正整数
Dim intArr(10) As Integer
For i As Integer = 1 To 10
intArr(i - 1) = Int(Rnd() * 99)1
Next
'取最小值
Dim intMin As Integer = intArr(0)
For j As Integer = 1 To UBound(intArr) - 1
If intMinintArr(j) Then intMin = intArr(j)
Next
'取最大值
Dim intMax As Integer = intArr(0)
For j As Integer = 1 To UBound(intArr) - 1
If intMaxintArr(j) Then intMax = intArr(j)
Next
Dim strTemp As String = ""
For tempi As Integer = 0 To UBound(intArr) - 1
strTemp = strTempintArr(tempi)","
Next
MessageBox.Show(strTempControlChars.CrLf"min: "intMin.ToStringControlChars.CrLf"max: "intMax.ToString)
vb.net程序，利用随机函数产生100个1到100之间的整数 ， 求其中的最大最小值 。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()'产生随机数种子 以防止每次生成结果都一样
Dim a(100) As Integer '声明数组存放数据 用来保存随机数结果
Dim max As Integer, min As Integer'声明两个变量存最大值和最小值
min = 1000 : max = 0 '设置初值
For i = 0 To 99'循环100次
a(i) = Int(Rnd() * 10001) '用rnd生成一个随机数由于rnd范围为0-1之间vb.net取最小值的小数.所以*1000设置vb.net取最小值他的范围为0到999之间 加1变成1到1000之间
If a(i) = max Then max = a(i) '如果当前数值大于最大值的变量就保存
If a(i) = min Then min = a(i) '如果当前数值小于最小值的变量就保存
Next
MsgBox("最大值为"max)
MsgBox("最小值为"min)
End Sub
【vb.net取最小值 vba 取最小值】vb.net取最小值的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba 取最小值、vb.net取最小值的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：用什么软件拍长视频，用什么软件拍长视频效果好

    下一篇：顶级游戏直播设备，游戏直播设备推荐