阅读下列程序  INTEGER A（100），G  READ（*，*）N，（A（I），I=1，N）  DO 10 I=1

（12）下列程序段的运行结果是 Sub sele() Dim n As Integer I=21:n=3 Do While i>n I=i-n Loop Print i End SubA.2 B.4 C.5 D.3

下列程序用来计算1+2+…n,当和大于100时停止计算,请填空。

Private Sub Form_Click()

Dim n as integer,s as integer,I as integer,k as integer

s=0

k=0

n=inputbox(″请输入n的值)

For i=1 to 100

k=k+1

s=s+I

【 】

Next i

Print s

End Sub

在窗体上画一个命令按钮，然后编写如下事件过程：

Sub BTC（oldCopy（） As Integer, newCopy（） As Integer）

Dim i As Integer

For i=LBound（oldCopy（） ） To UBound（oldCopy（） ）

newCopy（i） =oldCopy（i）

Next i

End Sub

Private Sub Command1_Click（）

Dim m（10） As Integer, n（10） As Integer

For i=1 To 10

m（i） =i  i

Next i

Call BTC（m, n）

Print n（5）

End Sub

程序运行后，单击命令按钮输出结果为（ ）。

A．0

B．2

C．10

D．25

以下能够正确计算n!的程序是

A．Private Sub Command1 Click() n=5：x=1 Do x=x * I I=I + 1 Loop While I ＜ n Print x End Sub

B．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X*I I=I + 1 Loop While I ＜n Print x End Sub

C．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I＜=n Print X End Sub

D．Private Sub Command1_Click() n=5：X=1：I=1 Do x=x * I I=I + 1 Loop While I＞n Print X End Sub

阅读以下程序，此程序的功能是【 】。

include＜iostream.h＞

void main()

{

int n, i, j;

for(i=100；i＜999; i+100)

for(j=i/100：j＜＝99；j=j+10)

{

n=i+j;

cout＜＜" "＜＜n;

}

cout＜＜"\n";

}

（11）下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。 Private Sub Command1_Click() Text1.Text="" For n=3 To 100 k=Int(Sqr(n)) i=2 Flag=0 Do While i<= And Flag=0 If n Mod i=0 Then Flag=1 Else i=i+1 End If Loop If Then Text1.Text=Text1.Text&Str(n)&Chr(13)&Chr(10) End If Next n End Sub

阅读下列程序： Function func(n As Integer)As Integer Sum = 0 For i = 1 To n Sum = Sum + (i + 1)* i Next i func = Sum End Function.Private Sub Command1_Click () Dim a As Integer a= 5 s = func (A)Print s End Sub 程序运行后，单击命令按钮，输出的结果为

A．80

B．60

C．70

D．15

以下程序的输出结果是 ______。 Dim n(2,2), i, j As Integer For i = 0 To 2 For j = 0 To 2 n(i,j) = i + j Next j Next i For i = 0 To 1 For j = 0 To 1 n(i+ 1 ,j + 1) = n(i + 1,j + 1) + n(i, j) Next j Next i Print n(i, j)

A．14

B．0

C．6

D．值不确定

以下能够正确计算n!的程序是

A．Private Sub Command1_Chck( ) n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End Sub

B．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜n Print x End Sub

C．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜=n Print x End Sub

D．Private Sub Command1_Click( ) n=5：x=1：i=l Dox=x*i i=i+1 Loop While i＞n Print x End Sub

在窗体上画一个名称为Command1的命令按钮，然后编写下列程序：

Option Base_1

Private Sub Command1_Click()

Dim a(10)As Integer

For i=1 To 10

a(i)=i

Next

Call swap(【 】)

For i=1 To 10

Print a(i)；

Next

End Sub

Sub swap(b()As Integer)

n=【 】

For i=1 To n/2

t=b(i)

b(i)=b(n)

b(n)=t

【 】

Next

End Sub

上述程序的功能是通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换， a(2)与a(9)的值互换，……，请填空。