vb.net取最近的整数 vb整数型的取值范围

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 intMin intArr(j) Then intMin = intArr(j)

Next

'取最大值

Dim intMax As Integer = intArr(0)

For j As Integer = 1 To UBound(intArr) - 1

If intMax intArr(j) Then intMax = intArr(j)

Next

Dim strTemp As String = ""

For tempi As Integer = 0 To UBound(intArr) - 1

strTemp = strTemp intArr(tempi) ","

Next

MessageBox.Show(strTemp ControlChars.CrLf "min: " intMin.ToString ControlChars.CrLf "max: " intMax.ToString)

关于VB.net取整的问题

double是双精度 有效数值位52位 表示成指数的形式 即指数11位 即表示成

所以180.89305用2进制表示是10110100.1110010010011110111011001011111110110001010110110101

180.89305在double中存在的实际数值是

1.01101001110010010011110111011001011111110110001010110110101 *2^7

取小数点后 52位有效值后 等于10进制的180.893049999999998

所及加最后变成了 1808930.99999999998

第一次当然输出近似值1808931

第二次int函数去掉了小数点后的数int就是只取整数的部位的不是四舍五入 所以少了1

vb.net中 int函数和math.Truncate 都是取整有什么区别

int在绝对值上四舍五入,Truncate在靠近0的方向取整,比如:

Sub Main()

Dim d = -1.9D

'Dim I As Integer = Int(d) '-2

Dim I As Integer = Math.Truncate(d) '-1

Console.WriteLine(I)

Console.ReadLine()

End Sub

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() * 1000 + 1) '用rnd生成一个随机数 由于rnd范围为0-1之间的小数.所以*1000设置他的范围为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取最近的整数 vb整数型的取值范围
网站路径:http://myzitong.com/article/hjiicd.html