计算题：孔轴间隙配合时，当孔径100₀<s

设有如下程序：

Private Sub Form_Click（）

Dim n As Integer, s As Integer

n = 8

s = 0

Do

s = s + n

n = n - 1

Loop While n > 0

Print s

End Sub

以上程序的功能是______。程序运行后，单击窗体，输出结果为______。

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

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

写出程序运行的结果

Public class Base

Public virtual string Hello() {return “Base”;}

Public class Sub:Base

Public override string Hello() {return “Sub”;}

1. Base b = new Base(); b.Hello;

2. Sub s = new Sub(); s.Hello;

3. Base b = new Sub (); b.Hello;

4. Sub s = new Base(); s.Hello;

设有如下程序：

Private Sub Form_Cliok()

Dima As Integer,S As Integer

n=8

s=0

Do

s=s+n

n=n-1

Loop While n＞0

Print s

End Sub

以上程序的功能是 [7] ；程序运行后，单击窗体，输出结果为 [8] 。

程序执行结果s的值是【 】.

Private Sub Command l-Click ()

I =0

Do

S= I +S

I = I + l

Loop Until I ＞=4

End Sub

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

下面的程序的作用是利用随机函数产生10个100~300（不包含300） 之间的随机整数，打印其中7的倍数的数，并求它们的总和，请填空。

Sub TOF（）

Randomize

Dim s As Double

Dim a（10） As Integer

For i=0 To 9

【10】

Next

For i=0 To 9

If 【11】 Then

Print a（i）

s=s + a（i）

【12】

Next i

Print

Print "S="; s

End Sub

有如下程序 Private Sub Command1_Chck( ) s=0 DO s=(s+1) *(s+2) N=N+1 Loop Until s＞=10 Prim N；s End Sub 运行后的输出结果是

A．0 1

B．30 30

C．4 30

D．2 12

下列程序运行后的输出结果是______。Private Sub f(k,s) s = 1 for j = 1 To k s=s*j Next jEnd SubPrivate Sub Command1_ Click () Sum = 0 for i = 1 To 3 Call f(i, s) Sum = Sum + s Next i Print Sum End Sub

A．0

B．3

C．6

D．9