K_O的含义是（）；一般希望该值（）；K<s

阅读以下程序：

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= 5

m= 1

k= 1

Do

m=m+2

k= k+1

Loop While k＜=n

Print m

End Sub

（ 30 ）下面程序的输出结果是

Private Sub Command1_Click()

ch$= ” ABCDEF ”

proc ch

Print ch

End Sub

Private Sub proc(ch As String)

S= ””

For k=Len(ch) To 1 Step-1

s=s&Mid(ch,k,1)

Next k

ch=s

End Sub

A ） ABCDEF

B ） FEDCBA

C ） A

D ） F

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

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() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next Print S End Sub 运行程序后，单击命令按钮，输出结果是

A．10

B．14

C．15

D．120

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

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；

}

下面程序的输出结果是( )。 #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

下列程序用来计算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

阅读下列程序。

Option Base 1

Private Sub Form CliCk()

Dim x(3,3)

For j=1 to 3

For k=1 to 3

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

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

Next k

Next j

Call fun(x())

End Sub

Private Sub fun(a())

For j=1 to 3

For k=1 to 3

Print a (j,k)；

Next k

Next j

End Sub

运行程序时，输出的结果是【 】。

【程序说明】 计算下列算式的值。a，Ai为正整数，从键盘输入。其小∑Ai＝1+2…+ Ai，Ai!＝1 *2*3*Ai(i＝1，2… a)。

【程序】

SET TAIK OFF

CLEAR

INPUT“M＝”TO M

STORE 0 TO S1，S2

FOR I=1 TO M

(8)

DO SUB1

DO SUB2

ENDFOR

? ” 所求算式的值为：“+ALLTRIM(STR(S1/S2，15，3))

SET TALK ON

PROCEDURE SUB1

(9)

FOR R＝1 TO A

K＝K+R

ENDFOR

(10)

RETURN

PROCEDURE SUB2

(11)

FOR P＝1 TO A

T=T*P

ENDFOR

(12)

RETURN

(8)

A．INPUT“A＝”TO A

B．INPUT“I=”TO I

C．INPUT“R=”TO STR(R)

D．INPUT“K＝”TOK