SN₁₀-10型开关生跳闸时发和跃合不上

在窗体上画两个标签和一个命令按钮，其名称分别为Labell、Label2和Command1，然后编写如下程序： Private Sub func(L As Label，ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Labell，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是 ______。

A．ABCD和10

B．1234和100

C．ABCD和100

D．1234和10

设程序中有如下数组定义和过程调用语句： Dim a(10)As Integer … Call D(a) 如下过程定义巾，正确的是（ ）。

A.Private Sub p(a As Integer)

B.Private Sub p(a（ ）As Integer)

C.Private Sub p(a(10)As Integer)

D.Private Sub p(a(n)As Integer)

有以下程序：int sub(int n) { return(n/10+n%10); }void main(){ int x,y; scanf("%d",&x); y=sub(sub(sub(x))); printf("%d\n",y);}若运行时输入：4321<回车>，程序的输出结果是。

下列程序计算Sn的值。Sn=a+aa+aaa+…a，其中最后一项为n个。

例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。

Private Sub Command1_Click( )

Dim a As Integer, n As Integer, Cout As Integer

Dim Sn As Long, Tn As Long

Cout = 1

Sn =0

Tn =0

a = InputBox("请输入a的值:" )

【 】

Do

Tn =Tn * 10 + a

Sn = Sn + Tn

Cout = Cout + 1

【 】

Debug. Print a, n, Sn

End Sub

Command1_Click()事件代码如下： Private Sub Command1_Click() Dim x As Integer, Y As Integer x = 6 : Y : 8 Call ABC(X, Y) Print X; Y End Sub Private Sub ABC(ByVal X As Integer，Y As Integer) X = X + 4 Y = Y = 2 End Sub 事件发生后，X和Y的值分别为 ______。

A．6, 8

B．10, 10

C．10, 8

D．6, 10

下列程序实现的功能是：在窗体上单击时，将在窗体上输出c:=a1.txt文件中的所有小写字母。

Private Sub Form. Click()

Dim Ch As String * 1

Open "c:\a1.txt" For Input As 10

Do While【 】

Ch= Input(1, 10)

If 【 】Then

Print Ch;

End If

Loop

【 】

End Sub

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写下列程序： Private Sub rune(L AS Labe1) Caption="1234" End Sub Private Sub Form. Load（ ） Labe11．Caption="ABCDE" Labe12．Caption=10 End Sub Private Sub Command1Click（ ） a=Va1(Label2．Caption) Call func(Label1) Label2．Caption a End Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（ ）。

A.ABCD和10

B.1234和100

C.ABCD和100

D.1234和10

单击命令按钮时，下列程序的执行结果为( )。 Private Sub Commandl_Click() Dimx As Integer，y As Integer x=12： y=32 CallPCS(x，y) PrintX；y End Sub PubUc Sub PCS(ByValn As Integer，ByValm As Integer) n=nMod 10 m=mMod 10 End Sub

A．1232

B．232

C．23

D．123

有以下程序：

int sub(int n) { return(n/10+n%10); }

main()

{ int x, y;

scanf("% d", &x);

y=sub(sub(sub(x)));

printf("% d\n", y);

}

若运行时输入：1234＜回车＞，程序的输出结果是【 】。

当Form1_Click事件发生时，写出在窗体上显示的第二行和第三行是( )。 Private a As Integer,c As Integer Private Sub Form_Click() Dim a As Integer,b As Integer a=10：b=10：c=10 Print a,b,c Call test1(a,B)Print a,b,c End Sub Private Sub test1(m As Integer,ByVal n As Integer) Dim c As Integer m=5：n=5：c=5 Print m,n,c End Sub

A．5 5 5 5 10 10

B．5 5 5 5 5 10

C．5 5 10 5 10 10

D．5 5 5 10 10 10