已知方案A、B、C，其投资K_A< K<su

阅读以下程序：

Private Sub Form_click()

Dim k, n, m As integer

n = 20

m = 1

k = 1

Do While k ＜= n

m=m+2

k = k + 1

Loop

Print m

End Sub

单击窗体程序的执行结果是【 】。

某个窗体己编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为【 】。

Private Sub Form_Click()

Dim k as Integer， n as Integer，m as Integer

n=10 ：m=1 : k=1

Do While k＜=n

m=m*2

k=k+1

Loop

MsgBox m

End Sub

下面程序运行后，窗体中显示【 】。

Private Sub Command1_Click) ( )

aS ="*" :b$ ="$"

For k = 1 To 3

x$ =Strings (Len(a$) +k,b$ )

Print x $;

Next

Print

End Sub

执行下面的程序，消息框里显示的结果是 【 】 。

Private Sub Form_Click()

Dim Str As String， K As Integer

Str="ab"

For k=Len(Str) TO 1 Step-1

Str=Str & Chr(Asc(Mid(Str，k，1))+k)

Next k

MsgBox Str

End Sub

在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码： Private Sub Command1_Click() k=0 Do While k ＜ 70 k=k+2 k=k*k+k a=a+k Loop Text1．Text=a End Sub 程序运行后，文本框中显示的是

A．20

B．32

C．44

D．78

以下程序的输出结果是【 】。

main()

{ int x=0；

sub(&x，8，1)；

printf(“%d\n”，x)；

}

sub(int *a，int n，int k)

{ if(k＜＝n)sub(a，n/2，2*k)；

*a+=k；

}

下列程序的运行机结果是【 】。

Private Sub Form_ Click()

Dim k As Integer

n= 5

m= 1

k= 1

Do

m=m+2

k= k+1

Loop While k＜=n

Print m

End Sub

阅读下列程序。

Option Base 1

Private Sub Form. Click()

Dim x(3,3)

For j=l to 3

For k=l to 3

If j=k then x(j,k)=l

If j＜＞k then x(j,k)=k

Next k

Next j

Call fun(x())

End Sub

Private Sub fun(x() )

For j=1 to 3

For k=1 to 3

Print x(j,k);

Next k

Next j

End Sub

运行程序时，输出结果为【 】

下面程序的输出结果是( )。 #include"stdio.h" int sub(int m) { static a=4; a+=m; return a; } void main() { int i=2,j=1,k; k=sub(i); k=sub(j); printf("%d",k); }

A．6

B．7

C．8

D．9

以下程序的输出结果是( )。

include＜stdio.h＞

main()

fint x=0;

sub(&x,16,2);

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

}

sub(int*a,int n,int k)

{if(k＜=n) sub(a,n/2,2*k);

*a+=k;

}