Dim comstr As StringFor i = 1 To 63    comstr = i & " : " & 902.6 + (i - 1) * 0.4
    
    Combo2.AddItem (comstr)
    
    Next i
I 等于 2 时
comstr 为903  而我想得到 903.0   即是整数就 在末保留一位小数   FORMAT 怎么用?
谢谢

解决方案 »

  1.   

    Combo2.AddItem (format(comstr,"0.0"))
      

  2.   

    Dim comstr As String
        For i = 1 To 63
            comstr = i & " : " & Format(902.6 + (i - 1) * 0.4, "0.0")
            Combo1.AddItem comstr
        Next i
      

  3.   

    你的comstr定义的是string吧.sorry
    转换一下类型就可Combo2.AddItem (format(clng(comstr),"0.0"))
      

  4.   

    sektor(普通动物) 和 phlac(天下) 说的都可以用啊,你看是不是你自己出错了啊?我刚才验证了一下。没有问题。