查人人中国名人网火柴棍小人的画法:VB6.0的几个问题！高手请进！
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/12 11:47:39
问题一
Do While...Loop 语句中的While 后面如果没有条件，那默认的是什么啊？
问题二
Clng()是什么函数？它的意义是什么？请举例说明！谢谢！
参考下列程序！以下程序绝对能够正常执行！而且结果正确！
Function fun(ByVal num As Long)As long
Dim k As Long
k=1
num=Abs(num)
Do While num '其中这就是问题的所在！！！默认是什么啊？'
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End function
Private Sub Command1_click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
n=Clng(n) '第二个问题：Clng()是表示什么意思？'
r=fun(n)
print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为24
Do While...Loop 语句中的While 后面如果没有条件，那默认的是什么啊？
问题二
Clng()是什么函数？它的意义是什么？请举例说明！谢谢！
参考下列程序！以下程序绝对能够正常执行！而且结果正确！
Function fun(ByVal num As Long)As long
Dim k As Long
k=1
num=Abs(num)
Do While num '其中这就是问题的所在！！！默认是什么啊？'
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End function
Private Sub Command1_click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
n=Clng(n) '第二个问题：Clng()是表示什么意思？'
r=fun(n)
print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为24
1、do while num 表示当num>0时循环，这里num作为一个逻辑值，0是为假，其它为真。
2、Clng(n)表示将n四舍六入五凑偶
问题一
没条件意味着出错，要不就是死循环，在这他只意味着运行一次
问题二
CLng 函数总是将其四舍五入为最接近该数的偶数
如, 0.5 四舍五入为 0
把一个long当做条件，会被自动转为boolean
0=False,其他的=True