J级航段的载重线分为J1、J2、J3级航段的载重线。
J级航段的载重线分为J1、J2、J3级航段的载重线。
相关考题：
（ 24 ）有以下程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim arr(3, 2)For i = 1 To 3For j = 1 To 2arr(i, j) = i * 2 + jNext jNext iReDim Preserve arr(3, 4)For j = 3 To 4arr(3, j) = j + 9Next jPrint arr(3, 2); arr(3, 4)End Sub程序运行后，单击窗体，输出结果为A ） 8 13B ） 0 13C ） 7 12D ） 0 0
下面是用冒泡法将5个整数按升序排列，请将程序补充完整。Sub GASR（）Dim mm=Array（10, 1, 5, 6, 7）For i=0 To 3For j= 【13】If m（i） =m（j） Then【14】m（i） =m（j）m（j） =tEnd IfNext j【15】For i=0 To 4Print m（i）Next iEnd Sub
阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输入结果为______。A． 21B．13C．8D．25
阅读程序：Option Base 1Dim arr（） As IntegerPrivate Sub Form_Click（）Dim i As Integer, j As IntegerReDim arr（3, 2）For i = 1 To 3For j = 1 To 2arr（i, j） = i * 2 + jNext jNext iReDim Preserve arr（3, 4）For j = 3 To 4arr（3, j） = j + 9Next jPrint arr（3, 2） + arr（3, 4）End Sub程序运行后，单击窗体，输入结果为（ ）。A．21B．13C．8D．25
面程序的功能是找出能够被13、23、43除余数分别为1、2、3的最小的两位正整数。请填空。Private Sub Form_Click()Dim i As Integer,j As Integerj=0j=43+3Doj=j+1if ______ thenprint ji=i+1end ifLoop ________End Sub
阅读下列程序。Option Base 1Private Sub Form. Click()Dim x(3,3)For j=l to 3For k=l to 3If j=k then x(j,k)=lIf j＜＞k then x(j,k)=kNext kNext jCall fun(x())End SubPrivate Sub fun(x() )For j=1 to 3For k=1 to 3Print x(j,k);Next kNext jEnd Sub运行程序时，输出结果为【 】
下列程序的运行结果为【 】。A="1"B="2"A=Val (@A@+Val (@B@B=Val ("12")If A＜＞B Then Prink A-B Else Print B-A(11)阅读下列程序:Option Base 1Private Sub Form. Click()Dim x(3,3)For j=1 to 3For k=1 to 3If j=k then x(j,k)=1If j＜＞ k then x(j,k)=3Next kNext jCall fun(x())End SubPrivate Sub fun(a())For j=l to 3For k=1 to 3Print a (j.k);Next kNext jEnd Sub运行程序时，输出的结果是【 】
有如下程序：Private Sub Command1_Click()j =10For i= -1 To 1 Step 0.3j =j + 1Next iPrint jEnd Sub该程序共循环【 】次，程序执行完毕后j的值是【 】。
下面程序的输出结果是( )。 #include"stdio.h" int sub(int m) { static a=4; a+=m; return a; } void main() { int i=2,j=1,k; k=sub(i); k=sub(j); printf("%d",k); }A．6B．7C．8D．9
阅读程序： Option Base 1 Dim arr( )As Integer Private Sub Form_Click( ) Dim i AsInteger，j As Integer ReDim arr(3，2) For i=1 To 3 Forj=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim Preserve arr(3，4) For j=3 To 4 arr(3，j)=j+9 Nextj Print arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为A．21B．13C．8D．25
阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。A．105B．1C．120D．15
阅读程序： Option Base 1 Dim art()As Integer Private Sub Form_Click() Dim i As Integer，j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next Next ReDim Preserve ale(3,4) For j=3 To 4 arr(3,j)=j+9 Next Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输出结果为A．21B．13C．8D．25
阅读下列程序。Option Base 1Private Sub Form CliCk()Dim x(3,3)For j=1 to 3For k=1 to 3If j=k then x(j,k)=1If j＜＞ k then x(j,k)=3Next kNext jCall fun(x())End SubPrivate Sub fun(a())For j=1 to 3For k=1 to 3Print a (j,k)；Next kNext jEnd Sub运行程序时，输出的结果是【 】。
阅读下列程序。Option Base 1Private Sub Form. _Click()Dim x(3,3)For j=1 to 3For k=l to 3If j=k then x(j,k)=1If j＜＞k then x(j,k)=kNext kNext iCall fun(x())End SubPrivate Sub fun(x())For j=1 to 3For k=1 to 3Print x(j,k)；Next kNext jEnd Sub运行程序时，输出结果为【 】。
在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称为Text1，然后编写如下程序： Private Sub Commandl Click() Dim a(5)， b(5) For j = 1 To 4 a(j) = 3 ( j b(j) = a(j) ( 3 Next j Text1.Text = b(j\2) End Sub 程序运行后，单击命令按钮，在文本框中显示A．25B．18C．36D．35
在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer，k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j ＜ 2 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．0 3 7 5B．0 1 2 3C．3 2 4 5D．0 5 8 3
在窗体中画一个命令按钮，然后编写以下事件过程： Private Sub Command1_Click() For j=1 To 3 Print Tab(3(j)；11((2(j-1)； Next j Print End Sub 程序的执行结果为A．11B．33C．11 33D．11 33 55
Private Sub Commandl Click（）Dim i As Integer, j As IntegerDim a （10,10）As IntegerFor i=1 To 3For j= i To 3a（i,j）=（i-1）*3+jPrint a （i,j）;Next jPrintNext iEnd Sub程序运行后，单击命令按钮，窗体上显示的是（ ）。
在窗体中画一个命令按钮，然后编写以下事件过程： Private Sub Command1_Click( ) Forj=1 To 3 Print Tab(3*j)11*(2*j-1)； Next j Print End Sub 程序的执行结果为A．11B．33C．11 33D．11 33 55
若有如下程序： float sub(int a，int b) { return(a*b)； } main() {int i=1，j=2，k=3； printf("%4.0f\n"，sub((int)sub(k+j，j)，k+i))； } 则程序运行后的输出结果是( )。A．40B．32C．16D．编译出错
阅读程序： Option Base 1 Dim arr() As Integer Private Sub Form. Click() Dim i As Integer，i As Integer ReDim arr(3，2) For i=1 To 3 For j=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为A．21B．13C．8D．25
窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1 Click（ ） Dim arr(5)As Integer ． For k=1 To 5 art(k)=k Next k prog art（ ） For k=1 T0 5 Print art(k)； Next k End Sub Sub prog(a（ ）As Integer) n=UBound(a) For i=n To 2 step-1 if a(j)a(j十1)Then t=a(j)：a(1)=a(j+1)；a(j+1)=t End If Next j Next i End Sub 程序运行时，单击命令按钮后显示的是（ ）。A.12345B.54321C.01234D.43210
在窗体上面画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) a＄="321"：b＄="abc" For j=l To 5 Print Mid＄(a＄，6-j，1)+Mid＄(b＄，j，1)； Next j End Sub 程序运行后，输出的结果是A．alb2c3B．ablc23C．clb2a3D．a12bcl
根据水文和气象条件，内河航行区域划分为A、B、C三级，但某些水域，依据水流情况，又划分为急流航段，并根据流速大小划分为J1、J2两级，请问下列哪种流速划分正确（）A、J1级航段3.5m/s以上但不超过6.5m/s；J2级航段3.5m/s及以下的航段B、J1级航段5.0m/s以上但不超过6.0m/s；J2级航段3.0m/s以上至5.0m/s的航段C、J1级航段5.0m/s以上但不超过6.5m/s；J2级航段3.5m/s以上至5.0m/s的航段D、J1级航段6.5m/s以上；J2级航段3.5m/s以上至6.5m/s的航段
判断题J级航段的载重线分为J1、J2、J3级航段的载重线。A对B错