J2，J6右下角的角标表示经纬仪的大小。

题目

J₂，J₆右下角的角标表示经纬仪的大小。

相似考题

1.下面的子过程语句说明合法的是________。A.Sub fib(ByRef i%())B.Sub fib(j%) As IntegerC.Functionf%(f%)D.Function f1!(ByValn%)

2.下面是用冒泡法将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

3.运行以下程序后，输出结果为_____________。 Private Sub Command1_Click() a=1:b=2:c=3 Call test(a,b+3,(c)) Print "main:";a;b;c End Sub Private Function test(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub:";p;m;n End Function：A. sub:2 6 4 main:1 2 3B. sub:2 6 4 main:2 2 3C. sub:2 6 4 main:2 6 4D. sub:2 6 4 main:1 6 4

4.有以下程序：Private Sub Form_Activate()For j=1 to 3x=3For i=l to 2x=x+6NextNextPrint xEnd Sub程序运行后，窗体上显示的结果为______。

更多“J2，J6右下角的角”相关问题

第1题：

下面程序运行的结果为
1
11 12
21 22 23
31 32 33 34
请在画线处填上适当的内容使程序完整。
Private Sub Form_Click()
Call [13]
End Sub
Private Sub Pl6()
End Sub
Private Sub p16()
ForI=1 to 4
Forj=1 to I
a= [14]
Print Tab(j-

正确答案：p16(I-1)*10+j
p16,(I-1)*10+j
第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题：

有如下程序：
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
第4题：

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim m As Integer, n As Integer, p As Integer m=3: n=5: p=0 Call Y(m, n, p) Print Str(p) End Sub Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer) k=i+j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )
A．4
B．6
C．8
D．10

正确答案：C
解析：此程序考查了函数的调用，函数过程有3个形参，功能是将第一个和第二个形参的和赋给第三个形参，其中前两个形参是按值传递，不会影响实参的数值，即在调用函数过程的过程中，不变化实参的数值；而第三个形参是按址传递，传递的是实参的地址，这样实参会随着过程中形参的变化而变化，即改变实参的数值。在主调过程中定义了三个整型变量，分别赋值3、5、0，调用过程后 m，n的数值仍然是3、5，而p的值不再是0而变为8即m、n的和，这也是被调函数的作用。
第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题：

在窗体中画一个命令按钮，然后编写以下事件过程： 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指定的位置。
第7题：

在窗体中画一个命令按钮，然后编写以下事件过程： 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指定的位置。
第8题：

若有如下程序： 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。
第9题：

窗体上有一个名为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。
第10题：

下面过程运行之后，变量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。
第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题：

单选题
变直径圆管流，细断面直径d1，粗断面直径d2=2d1，粗细断面雷诺数的关系是（）。
A
Re1=0.5Re2
B
Re1=Re2
C
Re1=1.5Re2
D
Re1=2Re2 

正确答案： D
解析：暂无解析
第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 Form. Click（）
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后，单击窗体，输出结果是（）。
A.105
B.1
C.120
D.15

正确答案：D
D。【解析】取模(Mod)运算符的功能是取两数相除的余数部分，常用于判断一个整数能否被另一个整数整除。本题源程序通过For循环将1～15间的所有整数与3相除所得的余数累加，结果为15。
第15题：

下面程序的输出结果是( )。 #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。
第16题：

阅读程序：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
第17题：

在窗体上画一个名称为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的作用只控制循环次数。
第18题：

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
第19题：

在窗体中添加一个命令按钮，编写如下程序： Private Sub Test(p，m，n) p=p+1：m=m+1：n=n+1 Print "Sub: ";p；m；n End Sub Private Sub Command1.Click() a1=1：b=2：c1=3 Call Test((a，b1+3，(c1)) Print "Main："；a1；b1；c1 End Sub 程序运行后，输出结果为
A．Sub： 2 6 4 Main： 2 6 4
B．Sub： 2 6 4 Main： 2 6 4
C．Sub： 2 6 4 Main： 1 2 3
D．Sub： 2 6 4 Main： 2 2 3

正确答案：D
解析：这是在实现子过程被调用时参数虚实结合的问题。a1为变量按址传送，b1+3和(c1)为表达式按值传送。
第20题：

在窗体中添加一个命令按钮,编写如下程序:
Private Sub Sub1(p,m,n)
p=p+1:m=m+1:n=n+1
Print "sub1:";p;m;n
End Sub
Private Sub Command1_Click()
a1=1:b=2:c1=3
Call Sub1(a,b1+3,c1)
Print"Main:";a1;b1;c1
End Sub
程序运行后,输出结果为
A．Sub: 2 6 4 Main: 2 6 4
B．Sub: 2 6 4 Main: 2 6 4
C．Sub: 2 6 4 Main: 1 2 3
D．Sub: 2 6 4 Main: 2 2 3

正确答案：D
解析：考查考生对参数传递的掌握情况。这是在实现子过程被调用时参数虚实结合的问题。a1为变量按址传送,b1+3和c1为表达式按值传送。参数的传值方式和传址方式的区别。
第21题：

在窗体上面画一个命令按钮，然后编写如下事件过程： 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循环输出的字符相连。
第22题：

在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p，m，n) p=p+1：m=m+1：n=n+1 Print "sub1："；p；m；n End Sub Private Sub Command1_Click() a1=1：b=2：c1=3 Call Sub1(a，b1+3，c1) Print"Main："；a1；b1；c1 End Sub 程序运行后，输出结果为
A．Sub： 2 6 4 Main： 2 6 4
B．Sub： 2 6 4 Main： 2 6 4
C．Sub： 2 6 4 Main： 1 2 3
D．Sub： 2 6 4 Main： 2 2 3

正确答案：D
解析：这是在实现子过程被调用时参数虚实结合的问题。a1为变量按址传送，b1+3和c1为表达式按值传送。
第23题：

下列程序运行后的输出结果是______。
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
9 解析：本题考查的重点是在子过程的调用过程中，虚实参数的传送问题，变量s按十传送。子过程f()求n!，sum的计算过程为1!+2!+3!=1+2+6=9
第24题：

单选题
A
I2=I3
B
I2=4I3
C
I2=2I3
D
I3=4I2

正确答案： D
解析：

J2，J6右下角的角标表示经纬仪的大小。

题目

相似考题

更多“J<sub>2</sub>，J<sub>6</sub>右下角的角”相关问题

相关内容