Dim BH, BL As ArrayList
涿州ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为成都创新互联公司的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：13518219792（备注：SSL证书合作）期待与您的合作！
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
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
