船舶最小干舷F计算公式:F=F0+f1+f2+f3,其中f2表示:()
第1题:
下面子过程语句说明合法的是( )。
A.Function f1(By Valn%)
B.Sub f1(n%)As Integer
C.Function f1%(f1%)
D.Sub f1(ByValn%())
第2题:
(33)下列子过程语句的说明正确的是A.Sub f1(By Val x()As Integer) B.Sub f1(X%())As IntegerC.Function f1l%(f1%) D.Function f1%(x As Integer)
第3题:
A、Sub f1(ByVal n%())
B、 Sub f1(%)As integer
C、 Function f1%(f1%)
D、 Function f1(ByVal n%)
第4题:
已知数列的递推公式如下:
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
第5题:
有如下程序: 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 6
B. 5 8
C.13 21
D.34 55
第6题:
有如下程序:
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 6
B.5 8
C.13 21
D.34 55
第7题:
在窗体中有一个名为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.8
B.13
C.21
D.其他结果
第8题:
下列程序运行后的输出结果是______。
Private Sub f(k,s)
s=1
For j=1 To k
s=s*j
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i,s)
Sum=Sum+s
Next
Print Sum
End Sub
第9题:
某设计单位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,与结构强度、稳性决定干舷一致,验船师要求设计单位重新计算,为何?
第10题:
船舶的基本干舷
舱口围板高度及舱室门槛高度对干舷的修正值
弦弧对干舷的修正值
型深对干舷的修正值
第11题:
第12题:
船舶平板龙骨的厚度
船舶干舷甲板的厚度
船舶横梁的厚度
船舶吃水的修正量
第13题:
下列子过程语句中正确的是 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)
第14题:
在窗体上画一个命令按钮,命名为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
第15题:
设有如下程序: 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.32
B.33
C.34
D.35
第16题:
在窗体上画一个命令按钮,命名为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 Function
B.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 Function
C.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 Function
D.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
第17题:
下面子过程语句说明合法的是
A.Sub f1(s1 As String*8)
B.Sub f1(n()As Integer)As Integer
C.Function f1(f1 As Integer)As Integer
D.Function f1(By Val n As Integer)
第18题:
在窗体中有一个名为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.8
B.13
C.21
D.其他结果
第19题:
下列子过程语句的说明正确的是( )。
A.Sub f1(ByVal x()As Integer)
B.Sub f1(x%())As Integer
C.Function f1%(f1%)
D.Function f1%(x As Integer)
第20题:
(32)运行下列程序,结果是
Private Sub Command32_Click()
f0=1:f1=1:k=1
Do While k<=5
f=f0+f1
f0=f1
f1=f
k=k+1
Loop
MsgBox "f="&f
End Sub
A)f=5
B)f=7
C)f=8
D)f=13
第21题:
船舶最小干舷F应不小于按何式计算值?式中各代表什么数值?
第22题:
Private Function f( x As String ) As Single
Private Function f( x As String )
Private Sub f( x As String ) As Single
Private Sub f( x As String )
第23题: