VB 输入百分比的问题

Question

已经在前面对Label9的数据格式进行界定语句为：FORM4.Label9(22).Caption = Format(FORM4.Label9(22).Caption, "#.#%")
那么下面的判断语句
If Label9(22).Caption >= 15％ Then
Label9(20).Caption = 9
ElseIf Label9(22).Caption >= 12％ Then
Label9(20).Caption = 8
ElseIf Label9(22).Caption >= 10％ Then
Label9(20).Caption = 7
ElseIf Label9(22).Caption >= 8％ Then
Label9(20).Caption = 6
ElseIf Label9(22).Caption >= 6 Then
Label9(20).Caption = 5
ElseIf Label9(22).Caption >= 4 Then
Label9(20).Caption = 4
ElseIf Label9(22).Caption >= 2 Then
Label9(20).Caption = 3
ElseIf Label9(22).Caption < 2 Then
Label9(20).Caption = 1
Else
End If
等的％符号一直输入不了，且显示错误13，类型不匹配，这要怎么写呀？？

Answer 1

val(Label9(22).Caption) >= 0.15
这样即可，你那样写15%当成字符串的

追问

FORM4.Label9(22).Caption = Format(FORM4.Label9(22).Caption, "#.#%"),这句格式有错误吗？不然要怎么写。就是FORM4.Label9(22).Caption 要求是百分比格式！

追答

是啊你要求显示的格式是百分比没错啊，但是那个是字符串，你要用来跟另一个百分比数值比较大小的时候必须转换为数值啊，只有数值才好比较大小
我是说你里应该这样写：
If val(Label9(22).Caption) >= 0.15 then

哦，我知道你的意思了，你是说15%在通过val（）函数转为数值时会变成15是不是，大了100倍？
你可以这样修改：
If val(Label9(22).Caption) >=15 then
右边也乘以100就可以了

追问

我的意思是假如FORM4.Label9(22).Caption =0.151那么它显示出来的时候要是15.1%，且这个15.1%要是数值，用于比较大小，那么这段代码要怎么写！！还有假如FORM4.Label9(25).Caption =16，显示时显示为16.0，也就是保留一位小数点那又要怎么写（小数点后为0也要显示出来）该怎么写？？麻烦你解答一下，谢谢！

追答

第一个没办法，你只要后面加了%输出到label就是字符串型数值了，不好直接引用它比较大小了。
但是你可以借助label的tag属性来解决：
比如0.1你以百分比输出到label的时候，提示把它的原数值记录到label的tag属性里，比较大小的时候以tag里的值比较。
label1.caption="10%"
label1.tag=0.1
if label1.tag>=0.15 then ....................

第二问可以这样：Format(16, "00.0")

Answer 2

用用percentformat试试。。。

Answer 3

15%=0.15