网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
船舶最小干舷F计算公式：F=F0+f1+f2+f3，其中f2表示：（）
- A、船舶的基本干舷
- B、舱口围板高度及舱室门槛高度对干舷的修正值
- C、弦弧对干舷的修正值
- D、型深对干舷的修正值
参考答案
更多 “船舶最小干舷F计算公式：F=F0+f1+f2+f3，其中f2表示：（）A、船舶的基本干舷B、舱口围板高度及舱室门槛高度对干舷的修正值C、弦弧对干舷的修正值D、型深对干舷的修正值” 相关考题
考题
（ 12 ）已知数列的递推公式如下：f(n)=1 当 n=0,1 时f(n)=f(n-1)+f(n-2) ? 当 n1 时则按照递推公式可以得到数列： 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, …… 。现要求从键盘输入 n值，输出对应项的值。例如当输入 n 为 8 时，应该输出 34 。程序如下，请补充完整。Private Sub runl1_Click( )f0=1f1=1num=Val(InputBox(" 请输入一个大于 2 的整数 : "))For n=2 To____ 【 12 】 _______f2= ___ 【 13 】 ________f0=f1f1=f2Next nMsgBox f2End Sub
考题
下面的子过程语句说明合法的是________。
A.Sub fib(ByRef i%())B.Sub fib(j%) As IntegerC.Functionf%(f%)D.Function f1!(ByValn%)
考题
（ 11 ）在窗体中有一个名为 command 的命令按钮， click 事件的代码如下：private sub command1_click()f=0for n=1 to 10 step 2f=f+nnext nme!lb1.caption=fend sub单击命令按钮后，标签显示的结果是 ___[11]___ 。
考题
运行下列程序，结果是Private Sub Command32_Click()f0=1:f1=1:k=1Do While k=5f=f0+f1f0=flf1=fk=k+1LoopMsgBox“f=”＆fEnd SubA．f=5B．f=7C．f=8D．f=13
考题
下面子过程语句说明合法的是( )。A．Function f1(By Valn%)B．Sub f1(n%)As IntegerC．Function f1%(f1%)D．Sub f1(ByValn%())
考题
下列子过程语句中正确的是 A.Sub f1(By Val()As Integer) B.Sub f1(n()As Integer)As Integer C.Function f1(f1 As Integer)As Integer D.Function f1(By Val f As Integer)
考题
（33）下列子过程语句的说明正确的是A.Sub f1(By Val x()As Integer) B.Sub f1(X%())As IntegerC.Function f1l%(f1%) D.Function f1%(x As Integer)
考题
在窗体上画一个命令按钮，命名为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则F1返回1，否则返回0。能够正确实现上述功能的代码是 。A．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 0 Else F1= 1 End If End FunctionC．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 1 Else F1= 0 End If End FunctionD．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
考题
下面子过程说明合法的是( )。
A、Sub f1(ByVal n%())B、 Sub f1(%)As integerC、 Function f1%(f1%)D、 Function f1(ByVal n%)
考题
设有如下程序： Private Sub Form. Click（ ） Dim s As Long，f As Long Dim n As Integer，i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（ ）。A.32B.33C.34D.35
考题
已知数列的递推公式如下：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=1f1=1num=Val(InputBox("请输入一个大于2的整数："))For n=2 To 【 】f2＝【 】f0=f1f1=f2Next nMsgBox f2End Sub
考题
在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。 能够正确实现上述功能的代码是A．Privme Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End FunctionC．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End FunctionD．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1 (Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
考题
有如下程序： Private Sub Form_Click() E=1:F=1 For j=1 To 3 E=E+F:F=F+E Next Print E:F End Sub 该程序的输出结果是A． 6 6B． 5 8C．13 21D．34 55
考题
下面子过程语句说明合法的是A．Sub f1(s1 As String*8)B．Sub f1(n()As Integer)As IntegerC．Function f1(f1 As Integer)As IntegerD．Function f1(By Val n As Integer)
考题
有如下程序:Private Sub Form_Click()E=1:F=1For j=1 To 3E=E+F:F=F+ENextPrint E;FEnd Sub该程序的输出结果是A．6 6B．5 8C．13 21D．34 55
考题
在窗体中有一个名为run34的命令按钮，事件代码如下： Private Sub run34_Click（ ） f1=1 f2=1 For n=3 T0 7 F=f1+f2 f1=f2 f2= f Next n MsgBox f End Sub 打开窗体，单击命令按钮，消息框的输出结果是（ ）。A.8B.13C.21D.其他结果
考题
在窗体中有一个名为run34的命令按钮，事件代码如下：Private Sub run34_Click（ ）f1=1f2=1For n=3 T0 7F=f1+f2f1=f2f2= fNext nMsgBox fEnd Sub打开窗体，单击命令按钮，消息框的输出结果是（ ）。A.8B.13C.21D.其他结果
考题
下列子过程语句的说明正确的是( )。A．Sub f1(ByVal x()As Integer)B．Sub f1(x%())As IntegerC．Function f1%(f1%)D．Function f1%(x As Integer)
考题
下列程序运行后的输出结果是______。Private Sub f(k，s)s=1For j=1 To ks=s*jNextEnd SubPrivate Sub Command1_Click()Sum=0For i=1 To 3Call f(i，s)Sum=Sum+sNextPrint SumEnd Sub
考题
（32）运行下列程序，结果是Private Sub Command32_Click()f0=1:f1=1:k=1Do While k=5f=f0+f1f0=f1f1=fk=k+1LoopMsgBox "f="fEnd SubA）f=5B）f=7C）f=8D）f=13
考题
某设计单位2006年2月将一艘敞口船图纸送审。此船基本数据如下：船长50m，船宽10m，型深3.0m，计算型深3.01m，A级航区，吃水2.48m，首尾舷弧均大于标准舷弧，无升高甲板。审查干舷计算书时验船师发现，基本干舷F0=550mm，f1=0，f2=-26mm，f3=0，干舷F=F0+f1+f2+f3=524mm实取干舷F=530mm，与结构强度、稳性决定干舷一致，验船师要求设计单位重新计算，为何？
考题
单选题以下是子过程或函数过程定义中的开始语句，错误的为（）。A
Private Function f（ x As String ） As SingleB
Private Function f（ x As String ）C
Private Sub f（ x As String ） As SingleD
Private Sub f（ x As String ）
考题
问答题某设计单位2006年2月将一艘敞口船图纸送审。此船基本数据如下：船长50m，船宽10m，型深3.0m，计算型深3.01m，A级航区，吃水2.48m，首尾舷弧均大于标准舷弧，无升高甲板。审查干舷计算书时验船师发现，基本干舷F0=550mm，f1=0，f2=-26mm，f3=0，干舷F=F0+f1+f2+f3=524mm实取干舷F=530mm，与结构强度、稳性决定干舷一致，验船师要求设计单位重新计算，为何？
考题
单选题船舶干舷的计算公式为：F=D－d－δ，其中δ是指（）。A
船舶平板龙骨的厚度B
船舶干舷甲板的厚度C
船舶横梁的厚度D
船舶吃水的修正量
热门标签
最新试卷