设r1、r2和L1、L2分别是变压器一、二次绕组的电阻和自感，M是其互感，则理想变压器的条件是（）。A、r1＝r2＝0，L1＝L2＝M＝0B、r1＝r2＝0，L1＝L2＝M＝∞C、r1＝r2＝∞，L1＝L2＝M＝0D、r1＝r2＝∞，L1＝L2＝M＝∞

假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2 组成。 Model1代码如下： Public X As Integer Public Y As Integer Sub S1（ ） x=1 S2 End Sub Sub S2（ ） y=10 Form1．Show End Sub Model2的代码如下： Sub Main（ ） S1 End Sub 其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是（ ）。

A.Form1→Model1→Model2

B.Model1→Model2→Form1

C.Model2→Model1→Form1

D.Model2→Form1→Model1

编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是

A．rehcaet

B．tahreee

C．themee

D．eerthea

有如下程序： Private Sub Command1 Click() Dim a As Single Dim b As Single a=5：b=4 Call S(a，B)End Sub Sub S(x As Single，y As Single) t=x x=t\y y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

A．0 0

B．1 1

C．2 2

D．1 2

在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p，m，n) p=p+1：m=m+1：n=n+1 Print "sub1："；p；m；n End Sub Private Sub Command1_Click() a1=1：b=2：c1=3 Call Sub1(a，b1+3，c1) Print"Main："；a1；b1；c1 End Sub 程序运行后，输出结果为

A．Sub： 2 6 4 Main： 2 6 4

B．Sub： 2 6 4 Main： 2 6 4

C．Sub： 2 6 4 Main： 1 2 3

D．Sub： 2 6 4 Main： 2 2 3

【程序说明】 计算下列算式的值。a，Ai为正整数，从键盘输入。其小∑Ai＝1+2…+ Ai，Ai!＝1 *2*3*Ai(i＝1，2… a)。

【程序】

SET TAIK OFF

CLEAR

INPUT“M＝”TO M

STORE 0 TO S1，S2

FOR I=1 TO M

(8)

DO SUB1

DO SUB2

ENDFOR

? ” 所求算式的值为：“+ALLTRIM(STR(S1/S2，15，3))

SET TALK ON

PROCEDURE SUB1

(9)

FOR R＝1 TO A

K＝K+R

ENDFOR

(10)

RETURN

PROCEDURE SUB2

(11)

FOR P＝1 TO A

T=T*P

ENDFOR

(12)

RETURN

(8)

A．INPUT“A＝”TO A

B．INPUT“I=”TO I

C．INPUT“R=”TO STR(R)

D．INPUT“K＝”TOK

写出程序运行的结果

Public class Base

Public virtual string Hello() {return “Base”;}

Public class Sub:Base

Public override string Hello() {return “Sub”;}

1. Base b = new Base(); b.Hello;

2. Sub s = new Sub(); s.Hello;

3. Base b = new Sub (); b.Hello;

4. Sub s = new Base(); s.Hello;

A. :r/^#//g

B. :1,$ s/^#//g

C. :sed s/^#//g

D. :sub s/^#//g