7,763
社区成员
发帖
与我相关
我的任务
分享关于数字转换成字符的问题
我想把一个随机产生的小于100的整数转换成2个字符，比如59转成“59”，但我还希望当数字小于10时会在前面加“0”，比如8转成“08”。
如果用ＩＦ来判断的话太麻烦，有没有最简单高效的方法？
谢谢.
如果用ＩＦ来判断的话太麻烦，有没有最简单高效的方法？
谢谢.
...全文
请发表友善的回复…
发表回复
simanh 2003-12-06
- 打赏
- 举报
用if麻烦吗？i don't think so
maculasoft 2003-12-06
- 打赏
- 举报
public funtion funNum( num as interger) as string
if len(num)=1 then
funNum="0"+num
end if
end funtion
if len(num)=1 then
funNum="0"+num
end if
end funtion
maculasoft 2003-12-06
- 打赏
- 举报
public funtion num( num as interger)
if len(num)=1 then
num="0"+num
end if
end funtion
if len(num)=1 then
num="0"+num
end if
end funtion
northwolves 2003-12-05
- 打赏
- 举报
Right("0" & int(100*rnd), 2)
EastBuBai 2003-12-05
- 打赏
- 举报
用format函数应该没问题吧
ahbbnimor 2003-12-05
- 打赏
- 举报
format
SoHo_Andy 2003-12-05
- 打赏
- 举报
使用循环语句的话就不用那么多变量，重复使用即可
具体要看你的要求了，你表达的不是很明确
具体要看你的要求了，你表达的不是很明确
sonicgamer 2003-12-05
- 打赏
- 举报
SoHo_Andy的方法很好啊。我回去试试。谢谢。
sonicgamer 2003-12-05
- 打赏
- 举报
因为我想把很多转换后的字符加起来，我希望可以写成这样：
结果=表达式1 & 表达式2 & 表达式3 & 表达式4 & 表达式5
如果用IF的话，不是要用到好多的变量？
结果=表达式1 & 表达式2 & 表达式3 & 表达式4 & 表达式5
如果用IF的话，不是要用到好多的变量？
SoHo_Andy 2003-12-05
- 打赏
- 举报
Private Sub Command2_Click()
Dim num As Integer
num = Int(Rnd() * 10 + 1)
MsgBox Format(CStr(num), "00")
End Sub
Dim num As Integer
num = Int(Rnd() * 10 + 1)
MsgBox Format(CStr(num), "00")
End Sub
pcwak 2003-12-05
- 打赏
- 举报
if len(num)=1 then
num='0' & num
end if
num='0' & num
end if
DemonXHunter 2003-12-05
- 打赏
- 举报
Right("0" & (Rnd() * 100 \ 1), 2)
doudou8090 2003-12-05
- 打赏
- 举报
format函数
sonicgamer 2003-12-05
- 打赏
- 举报
我试了，用Format 是最好的。
lnhsgj 2003-12-05
- 打赏
- 举报
Private Sub Command1_Click()
For a = 0 To 20
b = b & " " & Format(CStr(Int(Rnd() * 99 + 1)), "00")
Next a
MsgBox b
End Sub
For a = 0 To 20
b = b & " " & Format(CStr(Int(Rnd() * 99 + 1)), "00")
Next a
MsgBox b
End Sub
lgs666 2003-12-05
- 打赏
- 举报
这样可以:
Format(Int(Rnd() * 100), "00")
Format(Int(Rnd() * 100), "00")
fengyetianshi 2003-12-05
- 打赏
- 举报
把小于100的数，大于10的数转换为16进制的数，使用一个涵数。
如果小于10的数，可以这样写：
if len(num)=1 then
num="0"+num
end if
如果小于10的数，可以这样写：
if len(num)=1 then
num="0"+num
end if
northwolves 2003-12-05
- 打赏
- 举报
v1 =iif(num>9,CStr(num),"0"&CStr(num))
qybao 2003-12-05
- 打赏
- 举报
楼上的Format(CStr(num), "00")就不错啊
不知道vb里有没有3目运算
如果有的话可以这样，像c或java等等一样
v1 = num>9?CStr(num):"0"&CStr(num)
不知道vb里有没有3目运算
如果有的话可以这样，像c或java等等一样
v1 = num>9?CStr(num):"0"&CStr(num)
bluesky35 2003-12-05
- 打赏
- 举报
Private Sub Command1_Click()
Dim num As Integer
num = Int(Rnd() * 10 + 1)
MsgBox Format(CStr(num), "00")
End Sub
Dim num As Integer
num = Int(Rnd() * 10 + 1)
MsgBox Format(CStr(num), "00")
End Sub
