Sub SaveData()Open App.Path & "\" & "outtxt.txt" For Output As #1Print #1, Text1.TextClose #1End SubFunction Fun()Dim s As Long, i As IntegerFor i = 0 To 100If i Mod 2 = 0 Thens = s + i ^ 2End IfNext iFun = s 就在这里如果改为fun()就会提示什么什么溢出End FunctionPrivate Sub Command1_Click()d = Fun()Text1.Text = dSaveDataEnd Sub
2 回答
白板的微信
TA贡献1883条经验 获得超3个赞
fun不是VB的关键字也不是内置函数或常数,可以定义它用来做函数名或变量常量名。
在引用函数时 (i) 与 i 是等价的 所以fun((i)) 和 fun(i) 一样
在定义函数时 就只有 fun(i)是合法的 而fun((i))则非法。
添加回答
举报
0/150
提交
取消