关于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如何除一个数然后取整？

最简单的就是200\6

/是除，\是整除

可以直接用函数来实现：

1、用CInt()函数的范围在-32,768 至 32,767，对于小数部分四舍五入 。

2、用Int（）函数和Fix（）函数都会删除参数的小数部份而返回剩下的整数，不同之处在于，如果参数为负数，则Int（）函数返回小于或等于参数的第一个负整数，而Fix（）函数则会返回大于或等于参数的第一个负整数。

扩展资料：

VB常用函数

1、Time 

返回系统时钟的当前时间。

2、Date 

返回系统时钟的当前日期。

3、Now 

返回代表当前日期和时间的编码值。该函数经常用作其它系统时钟函数的参数。

4、Hour(Time) 

返回指定时间的小时部分（0到23）。

5、Minute(Time) 

返回指定时间的分钟部分（0到59）。

6、Second(Time) 

返回指定时间的秒部分（0到59）。

7、Day(Date) 

返回月份中的日期数（1到31）。

参考资料来源：百度百科- Visual Basic

显示100以内所有素数 VB.net语言

‘这个是可以选择范围的查找

Public Class Form1

'一个大于1的自然数，除了1和它本身外，不能被整除以其他自然数（质数），换句话说就是该数除了1和它本身以外不再有其他的因数

' 章鱼哥 3107073263

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

Dim PD As Boolean = True

TextBox1.Clear() '首先清空文本框，这里面将放置符合条件的素数

If NumericUpDown1.Value  NumericUpDown2.Value Then '从小到大

For i = NumericUpDown1.Value To NumericUpDown2.Value '循坏判断所有数

For j = 2 To i - 1 '内循环是除了1和它本身的

If i Mod j = 0 Then '判断是否能被除了1和自身以为的 比自身小的数整除

PD = False '如果能被整除，将PD 设置为False

Exit For '退出里层For 循环

Else

PD = True

End If

Next

If PD Then '如果PD为True ，则为素数

TextBox1.Text = i  "  "

End If

Next

End If

End Sub

End Class

vb.net除法问题

Dim BH, BL As ArrayList

Dim Cal As Integer

BH = New ArrayList

BL = New ArrayList

Dim h, l As Double

For i As Integer = 0 To LSB2.Items.Count - 1

BH.Add(LSB2.Items(i).ToString)

Next

For i As Integer = 0 To LSB1.Items.Count - 1

BL.Add(LSB1.Items(i).ToString)

Next

For I As Integer = 0 To BH.Count - 1

h = CDbl(BH.Item(I))

l = CDbl(BL.Item(I))

If (h = l) Then

Cal = 0

Else

Cal = (highAvg - lowAvg) / (h - l)

End If

LstA.Items.Add(Cal)

Next

vb.net 列出从1到400中能被3整除却不能被5整除的数

for i as ingeger =1 to400

if i mod 3=0 and i mod50 then

console.writeline(i)

end if

next i

文章名称：vb.net能否整除 VB中整除
网站URL：http://kswjz.com/article/hehoej.html