写出下列语句中的通假字，在横线上写出通假字、本字及读音。

1．窥谷忘反：___________________________________

2．同舍生皆被绮绣：_____________________________

3．食之不能尽其材：_____________________________

4．其真无马邪：_________________________________

5．玉盘珍馐直万钱：_____________________________

6．属予作文以记之：_____________________________

有如下函数过程： Function fun1 (ByVal x As Integer, ByVal y As Integer) As Integer Do While y ＜＞ 0 reminder=x Mod yx=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调节器用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=fun1(a, b) Print x End Sub

A．0

B．25

C．5O

D．100