Option Strict On '這一句就是嚴(yán)格要求,去掉這句就沒(méi)問(wèn)題了,這是VB的語(yǔ)言特點(diǎn);

創(chuàng)新互聯(lián)公司專(zhuān)注為客戶(hù)提供全方位的互聯(lián)網(wǎng)綜合服務(wù),包含不限于網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、瑞昌網(wǎng)絡(luò)推廣、重慶小程序開(kāi)發(fā)公司、瑞昌網(wǎng)絡(luò)營(yíng)銷(xiāo)、瑞昌企業(yè)策劃、瑞昌品牌公關(guān)、搜索引擎seo、人物專(zhuān)訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等,從售前售中售后,我們都將竭誠(chéng)為您服務(wù),您的肯定,是我們最大的嘉獎(jiǎng);創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供瑞昌建站搭建服務(wù),24小時(shí)服務(wù)熱線:18980820575,官方網(wǎng)址:chinadenli.net
嚴(yán)格來(lái)說(shuō)只要是除法符號(hào),運(yùn)算結(jié)果就是double類(lèi)型,既然是嚴(yán)格要求(Option Strict On)
當(dāng)然不允許你進(jìn)行隱式轉(zhuǎn)換
你可以把 i = i / j ----》改成dim x as double, x = i / j
或者Dim i , j As double
至于對(duì)象類(lèi)型獲取,VB6和VB.net有很大區(qū)別,比如vb.net可以寫(xiě)obj.GetType().Tostring(),但是像這種簡(jiǎn)單的、一看就知道是什么類(lèi)型的數(shù)據(jù),干嘛搞得那么復(fù)雜呢?你能直接控制為什么不直接控制住呢?所以只是做一個(gè)小程序,沒(méi)必要這么較真吧!
Option Explicit On
Option Strict On
Imports System
Module Program
Sub Main()
Dim s As String
Dim strs As String()
Dim fz,fm,n,m,t As Long
Console.Write("請(qǐng)輸入一個(gè)小數(shù):")
s=Console.ReadLine().Trim()
strs=s.Split("."C)
fz=CLng(strs(0))
fm=CLng(Math.Pow(10,strs(1).Length))
fz=fz*fm+CLng(strs(1))
n=fz
m=fm
While n Mod m0
t=n Mod m
n=m
m=t
End While
fz\=m
fm\=m
Console.WriteLine("{0}={1}/{2}",s,fz,fm)
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
End Module
這兩個(gè)作為數(shù)值運(yùn)算除法的區(qū)別:
1,/ ----就是通常數(shù)值的除法運(yùn)算,例如:
8 / 2 的結(jié)果是4
6 / 5 的結(jié)果為 1.2
2,\ ----也是作數(shù)值的除法運(yùn)算,但是返回的僅僅是商的整數(shù)部分,例如:
8 \ 2 的結(jié)果是 4
6 \ 5 的結(jié)果為 1
15 \ 4 的結(jié)果為 3
20 \ 3 的結(jié)果為 6
先乘除后加減,從右到左運(yùn)算。
VB中運(yùn)算符的計(jì)算優(yōu)先級(jí)順序如下:算術(shù)運(yùn)算符和串聯(lián)運(yùn)算符求冪(^)一元標(biāo)識(shí)和非(+、–)乘法和浮點(diǎn)除法(*、/)整數(shù)除法(\)取模(Mod)加法和減法(+、–),字符串連接(+)字符串連接()算術(shù)移位()比較運(yùn)算符。
擴(kuò)展資料
vb.net?特性:
1、vb.net 完全集成到 Visual Studio 集成開(kāi)發(fā)環(huán)境中,在這種集成開(kāi)發(fā)環(huán)境與 VB 在若干方面有差異。主要體現(xiàn)在窗體的布局以及菜單等方面都有所不同。
2、vb.net 項(xiàng)目與 VB 不同。它使用基于文件夾的模型,所有項(xiàng)目均放置在項(xiàng)目文件夾層次結(jié)構(gòu)中。
3、vb.net 中使用ado.net來(lái)訪問(wèn)數(shù)據(jù)庫(kù),ado.net是.netFramework的一部分。在 vb.net 中實(shí)現(xiàn)數(shù)據(jù)訪問(wèn)的方法主要有兩種。
其一是在程序設(shè)計(jì)階段,通過(guò)創(chuàng)建、配置數(shù)據(jù)適配器 DataAdapter 和生成數(shù)據(jù)集 DataSet;其二是在運(yùn)行中,通過(guò)編程方式動(dòng)態(tài)創(chuàng)建配置數(shù)據(jù)適配器和創(chuàng)建、生成數(shù)據(jù)集。
4、在 vb.net 中是使用asp.net技術(shù)來(lái)編寫(xiě) Web 頁(yè)面的。在asp.net中使用的也不是腳本語(yǔ)言,而是真正意義的編程語(yǔ)言。
憑借asp.net的 Web 應(yīng)用程序、XML Web Services 等基于 Web 的功能,使得 vb.net 開(kāi)發(fā) Web 頁(yè)面與開(kāi)發(fā) Windows 應(yīng)用程序很相似,Web 頁(yè)面代碼也顯得有條有理了。
5、vb.net 已經(jīng)成為完全的面向?qū)ο蟮木幊陶Z(yǔ)言,并且新增更多語(yǔ)言特性。
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
區(qū)別:
VB?中“/”表示除法,可能含小數(shù) 3/5=0.6
“\”表示整除?,得到商,不含小數(shù) 3 \ 5 =0
用法例如:
1/2=0.5
1\2=0(解釋?zhuān)盒?shù)被抹去)
--------
1/0.8=1.25
1\0.8=1(VB首先將\兩邊的值四舍五入為整數(shù),再進(jìn)行計(jì)算,因此1\0.8成了1\1=1)
--------
3.9/1.9=2.0526.....
3.9\1.9=2(3.9\1.9=4\2=2)
總之,\計(jì)算總會(huì)獲得一個(gè)整數(shù),而/有可能還帶有小數(shù)。在一些不需要小數(shù)的計(jì)算中,例如窗體控件位置Left、Top、Width、Height值的計(jì)算,往往使用"\"。
擴(kuò)展資料:
作用
matlab中的乘除法:
一、數(shù)字之間相乘/相除
a=3;
b=4;
1、相乘(*與.*沒(méi)區(qū)別):
a*b
ans =
12
a.*b
ans =
12
2、相除(/與./沒(méi)區(qū)別):
a=3;
b=4;
a/b
ans =
0.7500
a./b(a除以b)
ans =
0.7500
a.\b(b除以a)
ans =
1.3333
二、數(shù)字與矩陣之間相乘/相除
a=3;
A=[1,3,5;3,4,5;2,4,8];
A =
1? ? ?3? ? ?5
3? ? ?4? ? ?5
2? ? ?4? ? ?8
相乘(*與.*沒(méi)區(qū)別):
a*A
ans =
3? ? ?9? ? 15
9? ? 12? ? 15
6? ? 12? ? 24
a.*A
ans =
3? ? ?9? ? 15
9? ? 12? ? 15
6? ? 12? ? 24
網(wǎng)站欄目:vb.net中除法 vb除法運(yùn)算代碼
文章鏈接:http://chinadenli.net/article4/hhjioe.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供微信小程序、網(wǎng)站設(shè)計(jì)公司、微信公眾號(hào)、網(wǎng)站建設(shè)、App開(kāi)發(fā)、企業(yè)建站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)