SDH设备能根据S1字节来判断时钟信号的质量，S1的值越大，表示相应的时钟质量越高。

A、Sub S1(ByVal n!())

B、Sub S1(n!) as Integer

C、 Function S1%(S1%)

D、 Function S1(ByVal n!)

设备能根据S1 字节来判断( )。S1 的值越小，表示( )。

编写如下事件过程： 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 Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F

（ 11 ）有 “ 数字时钟 ” 窗体如下：

在窗口中有按钮 “ [ 开 / 关 〕 时钟 ” ， 单击该按钮可以显示或隐藏时钟 。 其中按钮的名称为 “ 开关 ” ， 显示时间的文本框名称为 “ 时钟 ” ，计时器间隔己设置为 500 。请在空白处填入适当的语句，使程序可以完成指定的功能。

Dim flag As integer

Private Sub Form. Load （）

flag=1

End Sub

Private Sub Form. Timer （） ’“ 计时器触发 ” 事件过程

时钟 =Time ， 在 “ 时钟 ” 文本框中显示当前时间

End Sub

Private Sub 开关 Click （）， “ 开关 ” 按钮的单击事件过程

If 【 11 】 Then

时钟 .Visible=False

flag=0

Else

时钟 .Visible=True

flag=1

End If

End Sub

以下程序用于求S=1+3+32+33+…+310的值。

Private Sub Commandl_Click()

S=1

T=1

ForI=1 To 10

T=______

S=S+T

NextI

Print"S="；S

End Sub

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。

A．10

B．30

C．40

D．50

写出程序运行的结果

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;

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序： Public x As Integer Private Sub Commandl_click() x＝10 Call s 1 Call s 2 MsgBOx x End Sub Pfivate Sub s1() x＝x+20 End Sub Private Sub

A．10

B．30

C．40

D．50

下列程序运行后的输出结果是______。

Private Sub f(k，s)

s=1

For j=1 To k

s=s*j

Next

End Sub

Private Sub Command1_Click()

Sum=0

For i=1 To 3

Call f(i，s)

Sum=Sum+s

Next

Print Sum

End Sub