关闭 VB 很匆忙

private sub command1_click() '按下 command1 时执行的操作。

if <>"4" then '如果文本框 4 的内容不是 4，则开始执行内容。

randomize '随机函数 rnd 是随机初始化的。

do while k = 0 'do 循环以 k=0 开头

bbb = int(rnd * 40 + 1) '变量 bbb = 随机生成的数字，介于 0-40 + 1 之间，四舍五入。

if aaa(bbb) <999 then '如果数组 AAA 中的 bbbbs 数不等于 999，则开始执行。

k = 1 '变量 k = 1

aaa(bbb) = 999 '数组 aaa 中的 bbb 数等于 999

end if '如果数组 AAA 中的 bbbs 数不等于 999，则执行结束。

loop 'do 循环结束。

kk = 0 '变量 kk=1

10 '计时器 1 的周期设置为秒。

true '计时器 1 开始发挥作用。

false '使 command1 不可见。

false '使 command2 不起作用。

false '使 command3 不起作用。

false '使 command4 不起作用。

end if '如果文本框 4 的内容不是 4，则执行内容结束。

end sub '按下 command1 时执行的内容。

程序错误，无法编译，所谓AAA函数没有定义。

编写函数 aaa！

private sub command1_click()if <>"4" then '如果该值不等于字符串类型 4randomize'初始化随机数生成器。

do while k = 0 '当 k 变量等于 0 时，执行循环。

bbb = int(rnd * 40 + 1) '生成从 1 到 40 的随机数。

if aaa(bbb) <999 then '如果 aaa（bbb） [数组或函数] 不等于 999

k = 1 '为 k 变量赋值 1

aaa(bbb) = 999 'aaa（bbb） [数组或函数] 被分配值 999

end if

loop '循环。

kk = 0 'k 变量赋值。

10 '将计时器设置为 10 毫秒。

true '打开计时器。

false '使按钮 1 不可见。

false '使按钮 2 无效。

false '“无效”按钮 3。

false '使按钮 4 无效。

end if

end sub

aaa（） 应该是一个自定义的函数或方法！

随机化以生成随机数种子！

剩下的应该很容易！ 看看 aaa（） 是如何定义的！

a*b=0 很容易理解，即其中一个是 0;

a<>b 是 ab，即 a 不等于 b，并且 a 和 b 不能同时为 0，因此条件“两个整数变量 a 和 b 中的一个为 0，但不能同时为 0”的布尔表达式无法正确表达。

正确答案是d

*附加说明***

在原来的问题中，问的是错误答案而不是正确答案，所以楼下的一位朋友说，有可能答案D是零A和B，不符合提出的要求。

如果选择 d，则 a*b=0 对于 a 和 b 都可能为 0，对于 a=0 或 b=0，则 ，b<>0 或。 <>0 ， b=0 ， b 都是 0，所以 d 有 a 和 b 都是 0 的可能性！

自己做功课。

谁知道为什么？ Microsoft已经决定了，这是有原因的吗？