Command1和Command2都是十进制转二进制的语句实际Command1运行的语句应该比Command2来的少但为什么运行10W遍 1用时900毫秒 2 用时700毫秒我是新手,请大虾指教,是不是问题出来log函数上Private Sub Command1_Click()t = GetTickCountFor i = 0 To 100000x = 151z = 0Do Until x = 0y = CLng(Log(x) / Log(2#) - 0.5)z = z + 10 ^ yx = x - 2 ^ yLoopNext iText2.Text = zMsgBox GetTickCount - tEnd SubPrivate Sub Command2_Click()t = GetTickCountFor i = 0 To 100000x = 151z = ""Do While x >= 1z = (x Mod 2) & zx = x \ 2LoopNext iText2.Text = zMsgBox GetTickCount - tEnd Sub