设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：
Function fun(a As Integer,b As Integer)
While a＞b
a=a-b
Wend
fun=a
End Function
在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是______。

单项选择题标准模块中有如下程序代码：Public x As Integer,y As IntegerSub var_pub()x=10:y=20End Sub在窗体上有1个命令按钮，并有如下事件过程：Private Sub Command1_Click()Dim x As IntegerCall var_pubx=x+100y=y+100Print x;yEnd Sub运行程序后单击命令按钮，窗体上显示的是______。

单项选择题为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：Private Sub Command1 Click()Dim a&, s&, k&s=1a=2For k=2 To 10a=a*2s=s+aNext kText1. Text=sEnd Sub执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是______。