除（）和（）外，几乎所有的合金元素都使M_s

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text＝"" Text2.Text＝"" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2 & Chr(Keycode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1＝"" S2＝"" End Sub 程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为______。

A．abc和ABC

B．abc和abe

C．ABC和abc

D．ABC和ABC

以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。

该程序运行结果见下图。

Private Sub Form_ click()

Dim s(10, 10) As Integer

For n = 1 To 10

For m = 1 To 10

If【 】Or【 】Then

s (n, m) = 1

Else

s (n, m) = 0

End If

Next m

Next n

For n = 1 To 10

For【 】。

Picturel. Print Tab(m * 3); s(n, m)

Next m

Print

Next n

End Sub

（ 33 ）若要在子过程 Procl 调用后返回两个变量的结果，下列过程定义语句中有效的是

A Sub Procl(n,m)

B Sub Procl(ByVal n,m)

C Sub Procl(n,ByVal m)

D Sub Procl(ByVal n,ByVal m)

下列程序的运行结果是( )。 #include＜stdio.h＞ void sub(int*s，int*y) {static int m=4： *y=s[m]； m--； } void main() {int a[]={1，2，3，4，5}，k，x； printf("\n")； for(k=0；k＜=4；k++) {sub(a，&x)； printf("%d，"，x)； } }

A．5，4，3，2，1，

B．1，2，3，4，5，

C．0，0，0，0，0，

D．4，4，4，4，4，

若有如下程序： int sub(int m) { if(m==1||m==0) return 2; else return(sub(m-1)*sub(m-2));} main() { int n; scanf("%d",&n); printf("%d",sub(n)); } 如果从键盘输入4＜回车＞，则程序运行后的输出结果是( )。

A．8

B．16

C．24

D．32

运行以下程序后，输出结果为_____________。 Private Sub Command1_Click() a=1:b=2:c=3 Call test(a,b+3,(c)) Print "main:";a;b;c End Sub Private Function test(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub:";p;m;n End Function

：A. sub:2 6 4 main:1 2 3

B. sub:2 6 4 main:2 2 3

C. sub:2 6 4 main:2 6 4

D. sub:2 6 4 main:1 6 4

A、Sub plus(sum, a , b ): sum = a + b: End Sub

B、Sub plus(ByVal sum , a , b ): sum = a + b: End Sub

C、Sub plus(sum , ByVal a, ByVal b ): sum = a + b: End Sub

D、Sub plus(sum , ByRef a , ByRef b ): sum = a + b: End Sub

若要在子过程Procl调用后返回两个变量的结果，下列过程定义语句中有效的是______。

A．Sub Procl(n, m)

B．Sub Procl(ByVal n, m)

C．Sub Procl(n, ByVal m)

D．Sub Procl(ByVal n, ByVal m)

编写如下事件过程： 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

写出程序运行的结果

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;