VB中关于while...wend的使用

设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：
Function fun(a As Integer，b As Integer)
While a>b
　　　　a＝a－b
Wend
fun＝a
End Function
在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是(　　)。
A) 把a＝a－b改为a＝b－a
B) 把 a＝a－b 改为a＝a\b
C) 把While a>b 改为While a<b
D) 把While a>b 改为While a>＝b

参考答案：D

【解析】程序中没有考虑余数为0的情况，即，条件中应该有a＝b，则a＝a－b，这样才能正确得到余数0。因此程序中应该修改While的条件a>b为a>＝b。
例如，a取值为6，b的取值为3，第一次循环，a的值为a=6-3=3
当再次执行程序时，a=3，b=3，不满足条件a>b这种情况，那么就无法求得余数了，故增加条件a=b