VB textbox中显示 % 号

比如果我在 textbox1.text中输入的值是3.5，则显示 3.5%，那么我对textbox1取值是0.0035

如果用 format(cbdl(val(textbox1.text)),"#.##"&"%"那么可以显示3.5%

可是我在下一步取值时3.5%就转换不了，不能变成0.035

请问高人怎么解，跪求！！！ Private Sub Form_Load()
Text1 = Format(0.035, "#.##%")
Debug.Print Format(Text1)

End Sub
取的时候就直接用VAL(TEXT1.TEXT)
显示就用 Text1 = Format(val(text1.text), "#.##%")
取的时候就直接用Format(Text1.Text, "#.####") 呵呵.....使用一个全局变量不就好了吗？与楼主同样的问题这个问题我还搞了几个小时因为太多的窗体并牵涉太多的计算但最后解决的重点便在于使用初始值的全局变量

看下图设计标准便是初始值,在我的系统里会因为某些条件而需要重新赋值, 再看60% 与 120% 随时在修改同步影响全面的计算但都是以初始值来乘上百分比的,初始值是不能让认为输入来牵动的.

引用 2 楼 chinaboyzyq 的回复:

Private Sub Form_Load()
Text1 = Format(0.035, "#.##%")
Debug.Print Format(Text1)

End Sub

Text1.Text = "3.5"

Debug.Print Format$(Text1.Text, "0.0") & "%" '3.5%

        

Text1.Text = "3.5%"

Debug.Print Format$(Text1.Text, "0.000") '0.035

引用 8 楼 chenjl1031 的回复:

VB code
Text1.Text = "3.5"
Debug.Print Format$(Text1.Text, "0.0") & "%" '3.5%

Text1.Text = "3.5%"
Debug.Print Format$(Text1.Text, "0.000") '0.035

+1 这个,我不知道为什么都非得按照楼主说的方法去做, 其实楼主就是要显示的时候加个百分号而已.

MSGBOX TEXT1.TEXT & "%" 不就完了么?
至于计算时你还是看TEXT里面的数字,该按什么比例算就按什么比例算吧

补充：VB ,  控件