J级航段的载重线分为J1、J2、J3级航段的载重线。
题目
J级航段的载重线分为J1、J2、J3级航段的载重线。
相似考题
参考答案和解析
更多“J级航段的载重线分为J<sub>1</sub>、J<sub>2<”相关问题
-
第1题：
面程序的功能是找出能够被13、23、43除余数分别为1、2、3的最小的两位正整数。
请填空。
Private Sub Form_Click()
Dim i As Integer,j As Integer
j=0
j=43+3
Do
j=j+1
if ______ then
print j
i=i+1
end if
Loop ________
End Sub
正确答案：j Mod 13=1 And j Mod 23=2 And j M0d 43=3 Until i=2或Until i＞=2
j Mod 13=1 And j Mod 23=2 And j M0d 43=3 Until i=2或Until i＞=2 -
第2题：
下列程序的运行结果为【 】。
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 1
Private Sub Form. Click()
Dim x(3,3)
For j=1 to 3
For k=1 to 3
If j=k then x(j,k)=1
If j＜＞ k then x(j,k)=3
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(a())
For j=l to 3
For k=1 to 3
Print a (j.k);
Next k
Next j
End Sub
运行程序时，输出的结果是【 】
正确答案：-9
-9 解析：本题考查Val函数的用法。Ⅷ函数是返回字符串内的数字，因此A=Val(A) +Val (B) =1+2=3，而B=Val("12")=12,A-B=-9,B-A=9，而A＞B，所以执行Print A-B，正确答案为-9。 -
第3题：
下面程序的输出结果是( )。 #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．6
B．7
C．8
D．9
正确答案：B
解析：在函数sub()的函数体中定义了一个静态存储变量a，a的值在函数调用完毕返回主函数后仍存在。第一次调用sub(i)，a=a+m=4+2=6，返回值为6。第二次调用sub(j)，a=a+m=6+1=7，返回值为7，最后输出k的值为7。 -
第4题：
阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。
A．105
B．1
C．120
D．15
正确答案：D
解析：本题是计算1到15对3取余的所有余数的和。For循环控制变量j从1到15变化，步长为1，每执行一次循环变量的值加1，因此循环语句的执行了15次。因为Mod运算符的优先级高于加(+)，因此循环体a=a+ jMod 3中，首先执行j Mod 3语句，再与a相加。变量a的功能是累计1到15对3取余的所有余数的和。程序的执行过程如下：
第一次：i=1，a=0，a=0+1 mod 3=0+1=1
第二次：j=2，a=1，a=1+2 mod 3=1+2=3
第三次：j=3，a=3，a=3+3 mod 3=3+0=3
第四次：j=4，a=3，a=3+4 mod 3=3+1=4
第五次：j=5，a=4，a=4+5 mod 3=4+2=6……
第十五次：j=15，a=15，a=15+15 mod 3=15+0=15 -
第5题：
阅读下列程序。
Option Base 1
Private Sub Form CliCk()
Dim x(3,3)
For j=1 to 3
For k=1 to 3
If j=k then x(j,k)=1
If j＜＞ k then x(j,k)=3
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(a())
For j=1 to 3
For k=1 to 3
Print a (j,k)；
Next k
Next j
End Sub
运行程序时，输出的结果是【 】。
正确答案：1 3 3 3 1 3 3 3 1
1 3 3 3 1 3 3 3 1 解析：本题主要考查考生数组虚实结合掌握的情况。事件过程定义又生成了 3*3的数组，该数组的主对角线元素为1，其余元素为3。接着调用了通用过程。调用通用过程时，首先进行虚实结合，然后执行通用过程。执行过程后，返回调用它的事件过程。本题中调用通用过程时，进行虚实地址结合，在通用过程中访问的a数组就是事件过程中的X的数组。在过程中，按行优先顺序输出了a数组所有的元素的值。由于在输出时只执行了循环体的"printan，k)；”，输出数据后有分号。因此输出一行，输出的结果是：1 3 3 3 1 3 3 3 1。 -
第6题：
在窗体中添加一个命令按钮，名称为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．25
B．18
C．36
D．35
正确答案：B
解析：本题主要考查数组的赋值以及考生对For循环结构的理解。本题，i值经过 4次赋值之后，最后一次。i值为5，此时For循环中止，故b(j\2)=b(2)。根据For循环对a(5)与b(5)的赋值，不难看出，b(2)的值为1，8，故本题选B。 -
第7题：
在窗体中画一个命令按钮，然后编写以下事件过程： Private Sub Command1_Click() For j=1 To 3 Print Tab(3(j)；11((2(j-1)； Next j Print End Sub 程序的执行结果为
A．11
B．33
C．11 33
D．11 33 55
正确答案：D
解析：本题考查Tab函数以及Print方法的使用。可以使用排除法，由于存在For j循环，所以输出结果排除A与B项，同时由于第一个Print方法的最后有j，所以输出结果不会换行显示，故排除C，答案为D。注意Tab(n)表示把光标移到由参数n指定的位置。 -
第8题：
在窗体中画一个命令按钮，然后编写以下事件过程： Private Sub Command1_Click( ) Forj=1 To 3 Print Tab(3*j)11*(2*j-1)； Next j Print End Sub 程序的执行结果为
A．11
B．33
C．11 33
D．11 33 55
正确答案：D
解析：可以使用排除法，由于存放在Forj循环，所以输出结果排除A与B项，同时由于第一个Print方法的最后有j，所以输出结果不会换行显示，故排除C，答案为D。注意Tab(n)表示把光标移到由参数n指定的位置。 -
第9题：
阅读程序： 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．21
B．13
C．8
D．25
正确答案：A
解析：本题考查数组与多重循环等多个知识点。本题是综合性题目，难度较大。首先考生应该了解在VisualBasic中，有四种语句可以用来定义数组的，即Dim、ReDim、Static和Public。这四种语句的格式相同，但是使用的范围不一样。Dim，建立局部数组、公用数组或模块级数组，在窗体模块或标准模块中定义数组，不能在过程中定义；ReDim，用在过程中；Static，建立局部数组，用在过程中；Public，定义全局数组，用在标准模块中。程序使用多重循环给一个数组赋值，使用一个循环语句给另一个数组赋值，arr(3，2)=8，arr(3，4)=13，所以最终结果是8+13=21，选项A正确。 -
第10题：
在窗体上面画一个命令按钮，然后编写如下事件过程： 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．alb2c3
B．ablc23
C．clb2a3
D．a12bcl
正确答案：B
解析：Mid函数是VisualBasic考试的热点之一。Mid(a＄,i,n)表示从字符串a＄的第i个字符开始向后截取n个字符，据此不难看出答案为B。注意Print方法后面以分号结束，意味着每执行一次For循环输出的字符都以紧凑方式与上一次For循环输出的字符相连。 -
第11题：
下面过程运行之后，则变量J的值为( )。 Private Sub Fun() Dim J As Integer J=5 Do J=J*2
A．3
B．10
C．9
D．7
正确答案：B
解析：该过程首先是一个声明语句，声明语句用于命名和定义常量、变量、数组和过程等；赋值语句是为变量指定一个值或表达式：在J=J*2执行后，J的值就从5变成了10。 -
第12题：
判断题J级航段的载重线分为J1、J2、J3级航段的载重线。A对
B错
正确答案： 错解析： 暂无解析 -
第13题：
阅读下列程序。
Option Base 1
Private Sub Form. Click()
Dim x(3,3)
For j=l to 3
For k=l to 3
If j=k then x(j,k)=l
If j＜＞k then x(j,k)=k
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(x() )
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时，输出结果为【 】
正确答案：1 2 311 3 1 21
1 2 311 3 1 21 解析：本题考查考生对数组虚实结合掌握的情况。事件过程声明了一个二维数组，并利用循环产生3*3数组，由题干可知，该数组对角线元素全部为1，其余元素为3。调用fun过程时，采用了虚实结合的方法，然后执行该过程。在过程中访问x数组就是事件过程中的数组，优先输出了x数组的所有元素值，由于在输出时执行了Print x(j,k)，并且输出数据语句后有分号，因此只输出一行。 -
第14题：
有如下程序：
Private Sub Command1_Click()
j =10
For i= -1 To 1 Step 0.3
j =j + 1
Next i
Print j
End Sub
该程序共循环【 】次，程序执行完毕后j的值是【 】。
正确答案：7 17
7, 17 -
第15题：
阅读程序： 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．21
B．13
C．8
D．25
正确答案：B
解析：每次使用ReDim语句都会使原来数组中的值丢失，可以在ReDim后加Preserve参数来保留数组中的数据，但使用Preserve只能改变最后一维的大小，前面几维大小不能改变，而在本题中arr(3，2)始终都未赋值，arr(3，4)=4+9=13，故最后为13。 -
第16题：
阅读程序： 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．21
B．13
C．8
D．25
正确答案：B
解析：每次使用ReDim语句都会使原来数组中的值丢失，也可以在ReDim后加Preserve参数来保留数组中的数据，但使用Preserve只能改变最后一维的大小，前面几维大小不能改变，而在本题中arr(3,2)始终都未赋值，arr(3,4)=4+9=13，故最后为13。 -
第17题：
阅读下列程序。
Option Base 1
Private Sub Form. _Click()
Dim x(3,3)
For j=1 to 3
For k=l to 3
If j=k then x(j,k)=1
If j＜＞k then x(j,k)=k
Next k
Next i
Call fun(x())
End Sub
Private Sub fun(x())
For j=1 to 3
For k=1 to 3
Print x(j,k)；
Next k
Next j
End Sub
运行程序时，输出结果为【 】。
正确答案：1 2 3 1 1 3 1 2 1
1 2 3 1 1 3 1 2 1 解析：本题考查考生对数组虚实结合掌握的情况。事件过程声明了一个二维数组，并利用循环产生3*3数组，由题干可知，该数组对角线元素全部为1，其余元素为3。调用fun过程时，采用了虚实结合的方法，然后执行该过程。在过程中访问x数组就是事件过程中的数组，优先输出了x数组的所有元素值，由于在输出时执行了Print x(j,k)，并且输出数据语句后有分号，因此只输出一行。 -
第18题：
在窗体上画一个名称为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 5
B．0 1 2 3
C．3 2 4 5
D．0 5 8 3
正确答案：D
解析：数组也可以作为函数或者过程的参数，使用方法是直接使用数组名加括号，也可以直接使用数组名，采用sub1(x)和sub1(x())的调用形式都正确。变量i的作用只控制循环次数。 -
第19题：
Private Sub Commandl Click（）
Dim i As Integer, j As Integer
Dim a （10,10）As Integer
For i=1 To 3
For j= i To 3
a（i,j）=（i-1）*3+j
Print a （i,j）;
Next j
Print
Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是（ ）。
正确答案：D
-
第20题：
若有如下程序： 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．40
B．32
C．16
D．编译出错
正确答案：A
解析：因为函数sub()只是简单地返回两个参数的乘积，所以表达式sub((int)sub(k+j，j)，k+i)展开后就是：(int)((k+j) *j)*(k+i)=((3+2)*2)*(3+1)=10*4=40。所以程序运行后的输出结果是40，应该选择A。 -
第21题：
窗体上有一个名为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.12345
B.54321
C.01234
D.43210
正确答案：B
B。【解析】本题定义了一个有5个元素的数组，并给数组依次赋了值，然后调用prog函数，该函数的功能是如果a(j)<a(j+1)，则进行交换，也就是把小的数放在后面，因为j是从1开始的，也就是说l经过交换后被排在最后所以本题答案为54321。 -
第22题：
下面过程运行之后，变量J的值为( )。 Private Sub Fun() Dim J As Integer J=5 Do J=J * 2
A．3
B．10
C．9
D．7
正确答案：B
解析：该过程首先是一个声明语句，声明语句用于命名和定义常量、变量、数组和过程等；赋值语句是为变量指定一个值或表达式；在J=J*2执行后，J的值就从5变成了10。 -
第23题：
根据水文和气象条件，内河航行区域划分为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的航段
正确答案:C