N₂0在50个大气压22℃时成为液体贮存于

（ 6 ） 下面程序的功能是从键盘输入 1 大于 100 的整数 m ，计算并输出满足不等式

1+22+32 +42 + …… .+n2<m

的最大的 n 。请填空

Private Sub Command1__Click （）

Dim s ,m,n AS Integer

m=Val （ InputBox （ “ 请输入一个大于 100 的整数 ” ））

n=_________

s=0

Do While s<m

n=n+1

s=s+n*n

Loop

Print “ 满足不等式的最大 n 是_____

End Sub

运行以下程序后，输出结果为_____________。 Private Sub Command1_Click() a=1:b=2:c=3 Call test(a,b+3,(c)) Print "main:";a;b;c End Sub Private Function test(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub:";p;m;n End Function

：A. sub:2 6 4 main:1 2 3

B. sub:2 6 4 main:2 2 3

C. sub:2 6 4 main:2 6 4

D. sub:2 6 4 main:1 6 4

1+ + + +…….n 最大的n。请填空

Private Sub Command1__Click（）

Dim s ,m,n AS Integer

m=Val（InputBox（“请输入一个大于100的整数”））

n=_______

s=0

Do While s N=n+1

S=s+n*n

Loop

Print “满足不等式的最大n是_______

End Sub

在窗体中有一外名为Command2的命令按钮，该命令的功能是：接受从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。请依据上述功能要求将事件代码补充完整。

Private Sub Command2_Click()

max＝0

max_n＝0

For i＝1 To 10

num＝Val(InputBox("请输入第"& i &"个大于0的整数："))

If num＞max Then

man＝【 】

max_n＝i

End If

Next i

MsgBox("最大值为第"& max_n &"个输入的" & max)

End Sub

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

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；

}

（ 8 ）有如下程序：

Private Sub Form_Click （）

n=10

i=0

Do

i=i+n

n=n-2

Loop While n>2

Print i

End Sub

程序运行后，单击窗体，输出结果为 【 10 】 。

A、Pa0/sub2/supsubno<60mHl.PaCO/sub2/supsubno>50mmlg

B、Pa0/sub2/supsubno<60mHgPaCO/sub2/supsubno<45mmg

C、Pa0/sub2/supsubno<60mmHgPaCO/sub2/supsubno>50mmH

D、Pa0/sub2/supsubno<60mHg、PaCO/sub2/supsubno<45mmHg

E、Pa0/sub2/supsubno<60mHg、PaC0/sub2supsubno45mmHg

单击命令按钮，下列事件过程的执行结果为

Private Sub Command1_Click（）

Dim x As Integer, y As Integer

x=40: y=72

Call PtoP（x, y）

Print x; y

End Sub

Public Sub PtoP（Byval n As Integer, ByVal m As Integer）

n=n ＼ 10+2

m=m ＼ 10+2

End Sub（ ）。

A．0 8

B．40 72

C．4 50

D．78 50

A、气体为无色

B、对呼吸道有刺激

C、易燃烧，且与可燃性全麻药混合时有助燃性

D、血／气分配系数为0.47

E、在50个大气压22℃时成为液体贮存于钢瓶中

已知数列的递推公式如下：

f(n)＝1 当n＝0，1时

f(n)＝f(n-1)+f(n-2) 当n＞1时

则按照递推公式可以得到数列：1，1，2，3，5，8，13，21，34，55，……。现要求

从键盘输入n值，输出对应项的值。例如当输入n为8时，应该输出34。程序如下，

请补充完整。

Private Sub runll_Click()

f0=1

f1=1

num=Val(InputBox("请输入一个大于2的整数："))

For n=2 To 【 】

f2＝【 】

f0=f1

f1=f2

Next n

MsgBox f2

End Sub