VB调用程序问题（希望师傅会毫不犹豫地提出建议）。

dim returnvalue

returnvalue = shell ( "帝国歼灭"甄景冲"& 手稿 项"""vbnormalfocus)

sendkeys "y", true '按 y 键进行操作。

使用 sendkeys，dim returnvaluereturnvalue = shell （"" & """vbnormalfocus)

sendkeys "y", true '按Y键改变习崇培的判断

壳体和介质研磨"& 奥佩轿车 y", vbnormalfocus

试着乱来。

使用 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。

让我们以第一个选项为例，对吧？ 后者可以推断。

首先，要说明三点;

1）启动程序后，hscroll的值为value=1

2）当箭头位于滚动条的右端时，hscroll的值每点加1

3）启动程序后，y的初始值为2

再看程序，点击滚动条右端的箭头，就会触发私有的 subhscroll1 change（） 程序，只有三句话：

dim y as single '②

y = y + f1(

print y

并添加了第一句话'如果不执行这个数字，就只剩下两句话了。

第一句话是 y = y + f1（，调用函数 f1（），那么你需要知道值 1+1 2，所以调用是 f1（2）。

看功能过程：只有三句话。

private function f1(x2 asinteger) as single

static x1 asinteger '这句话声明了一个动态变量x1，这个变量的值在退出这个程序后会保存下来，可以再次使用，x1的初始值在第一次声明的时候是0

f1 = x1 + x2 0+（在本例中，x2 是调用带来的变量，即 f（2） 的函数值。

x1 = x2 2 并将 x2 的值分配给 x1（动态变量）进行记录。

此时，返回主程序并继续计算 y = y + f1 （

然后它印有 4

再次单击，它已经在那里，y = y + f1（

在函数中，f1（3）=x1+x2=2+3=5

返回主程序并继续计算 y = y + f1 （

然后打印是 9

所以它是 4 9，即 d。