vb ：如何删除列表框中相同的数据项

for i=0 to list1.listcount-1

if text1.text=list1.list(i) then

exit for

else

list1.additem text1.text

end if

使用Format函数

比如:print 1/3

显示的是.33333333333333333333

我们需要输出整数位的0,并保留4位小数,用了format,

print format(1/3,"0.0000")

显示的就是0.3333

BS楼上刷分的

'加一个文本框,把原始数据输入文本框中

Private Sub Command1_Click()

Dim a As Integer, myTempStr As String, myOutput As String

For a = 1 To Len(Text1.Text)

myTempStr = Mid(Text1.Text, a, 1)

If InStr(1, myOutput, myTempStr) = 0 Then myOutput = myOutput &myTempStr

Next

MsgBox myOutput

End Sub

---