写出X:=（B-5)*A+（C+D)T的三地址代码。

窗体有命令按钮Commandl和文本框Text1，对应的事件代码如下：

For i=1T04X==3

For i=1t03

For k=1T02

x=x+3

Next k

Next j

Next i

Text1．Value=Str(x)

End Sub

运行以上事件过程，文本框中的输出是（ ）。

A.6

B.12

C.18

D.21

在窗体中有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：

For i=1 T04

X=3

For j=1 T03

For k=1 T02

x=x+3

Next k

Next jNext iText1．Value=Str(x)

End Sub

打开窗体运行后，单击命令按钮，文本框Text1中输出的结果是（ ）。

A.6

B.12

C.18

D.21

单链表中有10个元素，head是表头，以下代码结束后，X存放表中第7个结点指针的概率是( )。(rand()返回一个随机整数，为0到机内最大整数之间的一个数)

int m=0；link t，x；

for(t=head；t!=NULL；t=t=＞next)

if(rand()％++m=0)x=t；

A．1／3

B．1／10

C．1／7

D．1／2

单击一次窗体之后，下列程序代码的执行结果为______。 Private Sub Command1_ Click() Dim x As Integer, y As Integer, z As Integer x = 1: y = 2: z = 3 Call fun1 (x, y, z) Print x; y; z Call fun2(x, y, z) Print x; y; z End Sub Private Sub fun1(x As Integer, y As Integer, z As Integer) x = 10 * z y=z*z+ x z=x+ y+ z End Sub Private Sub fun2 (ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) x=10*z y=z*z+ x z=x+ y +z End Sub

A．1 2 3 30 39 72

B．1 2 3 1 2 3

C．30 39 72 1 2 3

D．30 39 72 30 39 72

在窗体中添加一个命令按钮，然后编写如下代码： Private Sub Command1_Click( ) For i=l To 4 x=4 For j=1 To 3 x=3 For k=l To 3 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是

A．7

B．15

C．21

D．538

程序代码如下，当单击窗体上的Command1控件时，在窗体上输出的结果是( )。 Private Sub Command1_Click() Dim aa(3，3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i，j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i，1) Next i Print s End Sub

A．32

B．28

C．30

D．36

在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Labet3的标签，然后编写如下代码： Private x AS Integer Private Sub Command1_Click( ) Static y As Integer Dim 2 As Integer n=10 Z=n+2 y=y+2 X=X+2 Label1.Caption=x LabelCaption=y LabelCaption=z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是

A．10 10 10

B．30 30 30

C．30 30 10

D．10 30 30

在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n=10 z=n+z y=y+z x=x+z Label1.Caption=x Label2.Caption=y Label3.Caption=z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是( )。

A．10 10 10

B．30 30 30

C．30 30 10

D．10 30 30

单击窗口时，下列程序代码的执行结果为 Private Sub Form_Click( ) Text1 End Sub Private Sub Text(x As Integer) x=x*3+1 if x＜6 Then call Text(x) End if x=x*2+1 Print x； End Sub

A．27 55

B．11 35

C．22 45

D．24 51

单击一次命令按钮，下列程序代码的执行结果为( )。 Private Sub Commandl_Click() Dima As Integer,b As Integer，CASInteger a=2：b=3：c=4 PrintP2(c，b，A) End Sub PrivateFunctionPl(X As Integer,y As Intege；z As Integer) P1=2*x+y+3*Z End Function Priva

A．21

B．19

C．17

D．34