单项选择题

设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

<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) ＜＞ Then ss=ss+Chr(KeyAscii) End Sub Private Sub Command1_Click() Dim m As String，i As Integer For i=Len(ss) To 1 Step-1 m=m+Mid(ss，i，1) Next Text1.Text=UCase(m) End Sub 运行程序后，在文本框中输入“Number100”，并单击命令按钮，则文本框中显示的是（）

A、 NUMBER 100 
B、 REBMUN 
C、 REBMUN 100 
D、001 REBMUN
单项选择题
标准模块中有如下程序代码： Public x As Integer，y As Integer Sub var_pub() x=10:y=20 End Sub 在窗体上有1个命令按钮，并有如下事件过程： Private Sub Command1_Click() Dim x As Integer Call var_pub x=x+100 y=y+100 Print x;y End Sub 运行程序后单击命令按钮，窗体上显示的是（）

A、 100 100
B、 100 120
C、 110 100
D、 110 120
相关试题