怎么 获得text1中小数点的 位置啊？

Question

请教那个下 教我 把小数点的位置弄出来   比如 32.12 小数点在第几位怎么弄那 谢谢！！

Answer 1

MsgBox InStr(1, "32.12", ".")

Answer 2

InStr   不错的办法

Answer 3

不行啊  我要的是 text1字符串中小数点的位置!!

Answer 4

那就改成 Instr(1, Text1.Text, ".")

Answer 5

Private Sub C1_Click()
Dim a As Stringa = text1.text
Position = InStr(1, a, ".")If Position > 0 Then
   MsgBox Position
End If
End Sub这样写还是不行  郁闷了~

Answer 6

如果 把text1.text改成32.12那又可以 返回 是3了~

Answer 7

加上 Dim Position As Long