机械工程
动压滑动轴承热平衡计算时，若进油温度ti<35℃，则说明轴承发热不严重。
题目
动压滑动轴承热平衡计算时，若进油温度ti<35℃，则说明轴承发热不严重。
相似问题和答案
第1题：
以下能够正确计算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
第2题：
下列程序用来计算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
if s>100 then exit for 解析：依题意,用变量S来记录1到n的累加和,当累加和S大于100时停止计算,故加入退出循环条件"if s>100 then exit for"
第3题：
下面程序段的运行结果是【 】。
Option Base 1
Private Sub swap(a()As InteSer)
For I=1 to 10\2
t=a(i)
a(i)=a(10-1+1)
a(10-1+1)=t
Next1
End Sub
Private Sub Form_Click()
Dim x(10)As Integer
For I=1 to 10
x(i)=I*2
Next1
Swap x()
For1=1 to 10
Print x (i)
Next I
End Sub
20 18 16 14 12 10 8 6 4 2 解析：在该事件过程中，定义并生成了x数组，该数组共10个元素，分别是2 4 6 8 10 12 14 16 18 20，接着使用了不带Call的调用语句，实际参数和虚拟参数都是数组，是地址传送，在过程中访问的数组就是事件过程中的x数组。在该过程中，将数组的第一个元素和最后一个元素交换位置，依此类推，返同事件过程后输出交换后的数组全部元素。
第4题：
有如下事件过程：
Private Sub Form. Active ( )
Dim Score (1 to 3) As Integer
Dim i As Integer
Dim t As Variant
Fori=3 To 1 step-1
Score (i) = 2 * i
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为【 】。
24 6 解析：本题考查了数组的定义和For Each…Next语句。题中定义了下标下界为1下标上界为3的Score数组，通过For循环语句赋值后，再通过For Each… Next语句在窗体上输出数组中的每个成员。
第5题：
以下能够正确计算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
解析：A中i一开始末被赋值，默认为0；B项中由于“in”的条件使得Do循环比应有循环次数少循环一次；选项D由于“i＞n”这一条件，使得控制语句只能循环一次。
第6题：
阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。
【解析】本题综合考查Sub过程的建立与调用以及数组的赋值。P过程为参数b()赋值，赋值方法为b()中的元素值等于其下标的2倍。在事件过程中，数组a(1 to 4)先被逐一赋值，然后以传地址的方式被p过程调用。在调用中，a(i)被重新按照p过程的赋值方式（即元素值等于对应下标值的2倍）赋值。由于是以传地址的方式传送a(1 to 4)，故在调用完p过程后，a(1 to 4)，故在调用完p过程后，a(1 to 4)中的元素值将保留，故空白处填：2 4 6 8。
第7题：
下面程序段的运行结果是【 】。
Option Base 1
Private Sub Swap (a() As Integ
For I=1 to 10\2
t=a(I)
a(I)=a(10-I+1)
a(10-I+1)=t
Next I
End Sub
Private Sub Form_Click()
Dim x(10) As Integer
For I=1 to 10
x(I)=I*2
Next I
Swap x()
For I=1 to 10
Print x(I)
Next I
End Sub
20 18 16 14 12 10 8 6 4 2 解析：本题考查考生数组虚实结合的问题，在该事件过程中，定义并生成了x数组，该数组共10个元素，分别是 2 4 6 8 10 12 14 16 18 20，接着使用了不带Call的调用语句，实际参数和虚拟参数都是数组，是地址传送，在过程中访问的数组就是事件过程中的x数组。在该过程中，将数组的第一个元素和最后一个元素交换位置，依此类推，返回事件过程后输出交换后的数组全部元素。
第8题：
有一过程如下:
Sub Sub1(m As Integer,total As Long)
Dim i As Integer
total=1
For i=1 To m
total=total*i
Next
End Sub
调用它的事件过程如下:
Private Sub Command1_Click()
Dim tot As Long,a As Integer
a=Val(InputBox("请输入数据"))
Call Sub1(a,tot)
Print tot
End Sub
则输入数据5,运行结果为【 】。
120 解析：考查考生对过程中参数传递方式的掌握情况。本题的难点是实参与形参的传递问题。total按ByRef参数传递。子过程的功能是计算n!,题中输入5,因此5!=120。参数按传值方式传递时,不改变实参中的值;按传地址的方式传递时,实参和形参指向的内容被改变。
第9题：
以下能够正确计算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
解析：n!=1×2×3×…×(n-1)×n，由于是累乘，因此x和i的初值都必须为1；其次就是循环执行条件的确定，由于使用的是While型循环，表示在满足条件时执行循环体中的代码，这里满足执行循环的条件应该是i=n。
第10题：
下面程序段，运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a() As Integer) Dim t#，i% t=1 For i=2 To UBound(A)t=t * a(i) Next i Tof=t End Function
A．t=18
B．t=24
C．t=30
D．t=32
解析：程序开始调用循环语句对数组b()赋值，b(i)=I，且数组b的上下界分别为1和4；接着将数组b()作为对象，调用Tof过程，在Tof过程中，定义了两个变量t和I，I作为For循环的循环变量，初始值为2，终值为数组b的上界；循环体为“t=t*a(i)”，即将b(i)的值乘以t，然后在赋给t，当循环结束后，程序返回的就是数组b中除第一个元素以外所有元素值的乘积，此题的结果为2×3×4=24，输出结果为t=24。