阅读下列程序 INTEGER M（3，3）   DATA  M/1，2，3，4，5，6，7，8，9/    WRITE（

下列程序段的执行结果为 ______。 Dim m(3，3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i，i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next Print x

A．3

B．4

C．5

D．6

以下用户自定义函数 Function Func(a As Integer，b As Integer)As Integer Static m As Integer．i As Integer m=0：i=2 i=i+m+i m=i+a-i-b Func=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim k As Integer，m As Integer，p As Integer k=4：m=1 P=Func(k,m) Print P End Sub 程序运行后，单击命令按钮，输出结果为

A．8

B．9

C．10

D．11

有如下程序：

Private Sub Command1_Click（）

Dim k As Integer, m As Integer

Dim p As Integer

k=4: m=1

p=PC（k, m） : Print p;

p=PC（k, m） : Print p

End Sub

Private Function PC（a As Integer, b As Integer）

Static m As Integer, i As Integer

m=0: i=2

i=i + m + 1

m=i + a + b

PC=m

End Function

程序运行后，输出的结果为（ ）。

A．4 6

B．6 6

C．8 8

D．10 12

下面过程运行后，变量N的值为( )。 PRIVATE SUB MAINSUB( ) DIM N AS INTEGER N=9 CALL GET. DATA(N) END SUB PRIVATE SUB GETDATA(BYREF M AS INTEGER) M=M*3+SC-N(-9) END SUB

A．25

B．26

C．27

D．28

有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim p As Integer k=4：m=1 p=PC(k，m)：Print p； p=PC(k，m)：Print p End Sub Private Function PC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i + m + 1 m=i + a + b PC=m End Function 程序运行后，输出的结果为

A．4 6

B．6 6

C．8 8

D．10 12

单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click() Print Fun(23,18) End Sub Public Function Fun(m As Integer，n As Integer)As Integer Do While m＜＞n Do While m＞n:m=m-n:Loop Do While m＜n:n=n-m:Loop Loop Fun=m End Function

A．0

B．1

C．3

D．5

（27）下列函数过程 Function Func（a As Integer,b As Integer）As Integer Static m As Integer,i As Integer M=0 i=2 A=i+m+1 b=i+a+b Func2=m End Function Private Sub Command1_Click() Dim p As Integer,k As Integer,m As Integer k=4 m=1 P=Func2(k,m) Print k;m End Sub程序运行后，单击命令按钮，输出结果是 A.3 6<CR>3 6 B.3 6<CR>3 11C.3 11<CR>3 6 D.3 11<CR>3 11

单击命令按钮时，下列程序的运行结果为

Private Sub Command1_Click()

Print Fun(23，18)

End Sub

Public Function Fun(m As Integer，n As Integer) As Integer

DO While m＜＞n

DO While m＞n:m=m-n:Loop

DO While m＜n:n=n-m:Loop

Loop

Fun=m

End Function

A．0

B．1

C．3

D．5

阅读以下说明和C++程序，将应填(n)处的字句写在对应栏内。

[说明]

设计一程序，输入10个整数到一个数组中，调整这10个数在数组中的位置，使得其中最小的一个数成为数组的首元素，最大的一个数成为数组的末元素。

[C++程序]

include ＜iostream.h＞

define SIZE 10

void main ( )

{

int data [SIZE];

int m;

cout＜＜"请输入"＜＜SIZE＜＜"个整数:";

for ( m=0;m＜SIZE; m++ ) (1);

int j=0,k=0;

for ( int i=1;i＜SIZE; i++ )

if ((2)) j=i;

else if ( data[i]＜data[k] ) (3);

if (j＞0 ) {

int d=data[0];

(4);

data[k]=d;

}

if ( k＜SIZE-1 )

{

int d=data [SIZE- 1 ];

data[SIZE- 1 ]=data[j];

(5);

}

cout＜＜end1＜＜" 排序后: ";

for ( m=0;m＜SIZE; m++ ) cout＜＜data[m]＜＜" " ;

}

阅读下列程序说明和C++程序，把应填入其中(n)处的字句，写对应栏内。

【说明】

下面的程序实现了类String的构造函数、析构函数和赋值函数。

已知类String的原型为：

class String

{

public:

String(coust char * str = NULL); //普通构造函数

String( const String &other); //拷贝构造函数

~String(void); //析构函数

String & perate =(const String &other); //赋值函数

private:

char * m_data; // 用于保存字符串

};

//String 的析构函数

String:: ~String (void)

{

(1);

}

//String 的普通构造函数

String: :String( const char * str)

{

if (2)

{

m_data = new char[1];

*m_data = '\0';

}

else

{

int length = strlen(str);

m_data = new ehar[ length + 1 ];

strepy(m_data, str);

}

}

//拷贝的构造函数

String:: String( const String &other)

{ int length = strlen(other. m_data);

m_data = new char[ length + 1 ];

strepy(m_data, other, m_data); //赋值函数

String & String::operate = (eonst String &other) //

{

if (3)

return * this;

delete [] m_clara; //释放原有的内存资源

int length = strlen( other, m_data);

m_data = new chart length + 1 ];

(4);

return (5);

}