VB Invoker 问题 20、VB Invoker 问题

楼上是正确的解决方案。 添加两个按钮。

private sub command1_click()shell "d:/" '调用。

end '结束程序。

end sub

private sub command2_click()shell "d:/"调用。

结束程序。

end sub

这将允许您单击 command1 运行。

单击 command2 运行。

两个按钮。 private sub command1_click()shell "d:/" '调用。

end '结束程序。

end sub

private sub command2_click()shell "d:/"调用。

结束程序。

end sub

楼上是正确的解决方案。 shell "d:/"它应该写成 shell"d:\"

shell "d:/"它应该写成 shell"d:\"

向窗体添加两个命令按钮。

private sub command1_click()shell "d:\", vbnormalfocusend sub

private sub command1_click()shell "d:\", vbnormalfocusend sub

使用 vb 运行程序后的结果与我的心算结果相同。

f（） 函数的功能是将传递的参数递增 1，函数返回增加的值。

通常，以下方法用于声明函数参数：“byval value”和“byref”variable address”。

例如： byvalxas

integer、byrefxas

integer

如果未指定是要传递值还是地址，则默认方法是 byref。

第一个输出：3。 因为 f（2），2 乘以 1 后变成 3，所以输出 3。

第二个输出：0。 赋值语句的顺序是先计算等号右边的结果，然后再把结果赋值到左边等号的右边。 进入回路，电流 i 等于 1。 先打电话。

f（i），函数返回后，i 递增 1 变为 2; f（i） 返回结果 2。 当前状态是。

i=2，f(i)=2。然后是 a（i）。

f（i） 等价于 a（2）。

2。因此，a（1） 没有被赋值。

a（1） 本身等于 0 并且没有赋值，它仍然是 0，所以输出 0。

第三次输出：4。 a（i）=f（i） 的执行完成后，for 循环允许 i 自增 1，此时 i=3。

然后，确定 i 是否小于 5，如果是，则满足条件，循环继续。 当调用 f（i） 时，i=4，f（i）=4，a（i）=f（i） 等价于 a（4）=4。 所以第三个输出是 4。

关键字 me 可以出现在类模块中。 它也可以是形式。 截图中出现这个错误的原因可能是 ** 放在了标准模块中，解决方法是将 me 替换为指定的对象名称。

由于问题信息不完整，因此只能自己尝试。

屏幕截图中圈出的几个地方可能会出现相同的问题。