189 8069 5689
Option Strict On '这一句就是严格要求，去掉这句就没问题了，这是VB的语言特点；
创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于网站设计、成都网站制作、瑞昌网络推广、重庆小程序开发公司、瑞昌网络营销、瑞昌企业策划、瑞昌品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联公司为所有大学生创业者提供瑞昌建站搭建服务，24小时服务热线：18980820575，官方网址：www.cdcxhl.com
严格来说只要是除法符号，运算结果就是double类型，既然是严格要求（Option Strict On）
当然不允许你进行隐式转换
你可以把 i = i / j ----》改成dim x as double, x = i / j
或者Dim i , j As double
至于对象类型获取，VB6和VB.net有很大区别，比如vb.net可以写obj.GetType().Tostring()，但是像这种简单的、一看就知道是什么类型的数据，干嘛搞得那么复杂呢？你能直接控制为什么不直接控制住呢？所以只是做一个小程序，没必要这么较真吧！
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("请输入一个小数：")
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
这两个作为数值运算除法的区别：
1，/ ----就是通常数值的除法运算，例如：
8 / 2 的结果是4
6 / 5 的结果为 1.2
2，\ ----也是作数值的除法运算，但是返回的仅仅是商的整数部分，例如：
8 \ 2 的结果是 4
6 \ 5 的结果为 1
15 \ 4 的结果为 3
20 \ 3 的结果为 6
先乘除后加减，从右到左运算。
VB中运算符的计算优先级顺序如下:算术运算符和串联运算符求幂(^)一元标识和非(+、–)乘法和浮点除法(*、/)整数除法(\)取模(Mod)加法和减法(+、–)，字符串连接(+)字符串连接()算术移位()比较运算符。
扩展资料
vb.net 特性：
1、vb.net 完全集成到 Visual Studio 集成开发环境中，在这种集成开发环境与 VB 在若干方面有差异。主要体现在窗体的布局以及菜单等方面都有所不同。
2、vb.net 项目与 VB 不同。它使用基于文件夹的模型，所有项目均放置在项目文件夹层次结构中。
3、vb.net 中使用ado.net来访问数据库，ado.net是.netFramework的一部分。在 vb.net 中实现数据访问的方法主要有两种。
其一是在程序设计阶段，通过创建、配置数据适配器 DataAdapter 和生成数据集 DataSet；其二是在运行中，通过编程方式动态创建配置数据适配器和创建、生成数据集。
4、在 vb.net 中是使用asp.net技术来编写 Web 页面的。在asp.net中使用的也不是脚本语言，而是真正意义的编程语言。
凭借asp.net的 Web 应用程序、XML Web Services 等基于 Web 的功能，使得 vb.net 开发 Web 页面与开发 Windows 应用程序很相似，Web 页面代码也显得有条有理了。
5、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 中“/”表示除法，可能含小数 3/5=0.6
“\”表示整除 ，得到商，不含小数 3 \ 5 =0
用法例如：
1/2=0.5
1\2=0（解释：小数被抹去）
--------
1/0.8=1.25
1\0.8=1（VB首先将\两边的值四舍五入为整数，再进行计算，因此1\0.8成了1\1=1）
--------
3.9/1.9=2.0526.....
3.9\1.9=2（3.9\1.9=4\2=2）
总之，\计算总会获得一个整数，而/有可能还带有小数。在一些不需要小数的计算中，例如窗体控件位置Left、Top、Width、Height值的计算，往往使用"\"。
扩展资料：
作用
matlab中的乘除法：
一、数字之间相乘/相除
a=3;
b=4;
1、相乘（*与.*没区别）：
a*b
ans =
12
a.*b
ans =
12
2、相除（/与./没区别）：
a=3;
b=4;
a/b
ans =
0.7500
a./b（a除以b）
ans =
0.7500
a.\b（b除以a）
ans =
1.3333
二、数字与矩阵之间相乘/相除
a=3;
A=[1,3,5;3,4,5;2,4,8];
A =
1 3 5
3 4 5
2 4 8
相乘（*与.*没区别）：
a*A
ans =
3 9 15
9 12 15
6 12 24
a.*A
ans =
3 9 15
9 12 15
6 12 24