189 8069 5689
你是要把连续多个空格，变换成只需要一个空格，那么：
创新互联建站专业IDC数据服务器托管提供商，专业提供成都服务器托管，服务器租用，服务器托管机柜，服务器托管机柜，成都多线服务器托管等服务器托管服务。
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格，替换2个空格
loop
改变鼠标位置或让鼠标消失。
Shift + 方向键 ，选择 从当前光标至移动后光标所在位置的所有文本
Ctrl+Shift+左右方向键，选择 从当前光标至下一(上一)单词首(尾)
Shift + Alt + 方向键，选择 由当前光标与 移动后光标所构成的矩形的区域内所有文本
Ctrl + 单击鼠标左键， 选择 单击位置的整个单词
Shift + 单击鼠标左键，选择 从当前光标至 鼠标单击位置区间的所有文本
Shift + Home(End)， 选择 从当前光标至 行首(尾)的所有文本
比如数组a。里面有5个值，其中有3个是重复的？
如果这样的话，很好办哦。
新建一个数组b，然后遍历要去除的数组a，
从a中把每一个都取出来，和新建的b里面的去比，如果有相同的，则不放入b，
否则就放入数组b，直到循环结束。
删除数组元素很简单,重新声明数组即可，代码如下
Redim [Preserve] 数组名 (下标上界)
这个也可以称为动态数组，这个东西是基础，非常重要。
这个功能就等于说，把原来的数组重新声明，Preserve是可选项，他的意思就代表是否保留数组内容,这是重点，如果你想删除数组中的元素，就不要写Preserve，这个方法的控制性也很好，可以重新声明数组的元素，各个方面都很有用，希望采纳！谢谢！
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