紧急请教百分比函数

Question

vb当中怎么求的两个数相除后的百分比
就是：显示1/4 = 25%快快
在线等

Answer 1

Private Sub Command1_Click()
    Dim Dou As Double
    Dim strTemp As String
    
    Dou = 1 / 4
    strTemp = Dou * 100 & "%"
    MsgBox strTemp
End Sub

Answer 2

   dubug.print format(1/4 , "percent")

Answer 3

1 / 4 * 100 & "%"

Answer 4

FormatPercent函数
      描述返回一个百分比格式（乘以100）的表达式，后面有%符号。语法FormatPercent(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])FormatPercent函数语法有如下几部分：部分 描述 
Expression 必需的。要格式化的表达式。 
NumDigitsAfterDecimal 可选的。表示小数点右边的显示位数。缺省值为–1，表示使用计算机的区域设置值。 
IncludeLeadingDigit 可选的。三态常数，表示小数点前是否显示零。关于其值，请参阅“设置值”部分。 
UseParensForNegativeNumbers 可选的。三态常数，表示是否把负数放在圆括号内。关于其值，请参阅“设置值”部分。 
GroupDigits 可选的。三态常数，表示是否用组分隔符对数字进行分组，组分隔符在计算机的区域设置值中指定。关于其值，请参阅“设置值”部分。 
设置值IncludeLeadingDigit、UseParensForNegativeNumbers和GroupDigits参数的设置值如下：常数 值 描述 
TristateTrue –1 True 
TristateFalse 0 False 
TristateUseDefault –2 使用计算机区域设置值中的设置值。 
说明当忽略一个或多个选项参数时，被忽略的参数值由计算机的区域设置值提供。注意   所有的设置值信息都来自“区域设置”的“数字”选项卡。

Answer 5

response.write format(1/4 , "percent")
response.write format(1/4 , "percent")显示的结果：
Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp，行242 Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: 'format' /claim/test.asp，行17 

Answer 6

response.write 1/400*100 & "%"显示的结果：
.25%
正确的是：0.25%

Answer 7

答案已经找到
以下的显示是正确的：
response.write FormatPercent(1/400,,-1)
显示的结果：
0.25%谢谢julysixth(嘿呀）