无损探伤工
对于AB级而言，源至工件表面的距离L1与有效透照长度L3的关系应满足（）。A、L1≥2L3B、L1≥3L3C、L1≥1.5L3D、以上都不对
题目
对于AB级而言，源至工件表面的距离L1与有效透照长度L3的关系应满足（）。
- A、L1≥2L3
- B、L1≥3L3
- C、L1≥1.5L3
- D、以上都不对
相似问题和答案
第1题：
有一过程如下:
Sub Sub1(m As Integer,total As Long)
Dim i As Integer
total=1
For i=1 To m
total=total*i
Next
End Sub
调用它的事件过程如下:
Private Sub Command1_Click()
Dim tot As Long,a As Integer
a=Val(InputBox("请输入数据"))
Call Sub1(a,tot)
Print tot
End Sub
则输入数据5,运行结果为【 】。
120 解析：考查考生对过程中参数传递方式的掌握情况。本题的难点是实参与形参的传递问题。total按ByRef参数传递。子过程的功能是计算n!,题中输入5,因此5!=120。参数按传值方式传递时,不改变实参中的值;按传地址的方式传递时,实参和形参指向的内容被改变。
第2题：
有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是( )。
A．Private Sub Form_Click() PopupMenu cut End Sub
B．Private Sub Command1_Click() PopupMenu edit End Sub
C．Private Sub Form_Click() PopupMenu edit End Sub
D．Private Sub Form_Click() PopupMenu cut End Sub
解析：PopupMenu方法用来显示弹出式菜单，其格式为：[对象．]。PopupMenu菜单名[，Flags] [，X，Y，][BoldCommand]。根据题意，为了显示菜单，所以要把PopupMenu方法放到Form. Click事件中，菜单名为edit，所以选c。
第3题：
执行下面的程序段，x的值为【 】。
Private Sub Command1_Click()
For i=1 To 9
a=a+i
Next
x=Val(i)
MsgBox x
End Sub
10 解析：在程序中For…Next语句之后并没有对i的值改变，此时i为10，故运行后结果为10。
第4题：
执行下面的程序，消息框里显示的结果是 【 】 。
Private Sub Form_Click()
Dim Str As String， K As Integer
Str="ab"
For k=Len(Str) TO 1 Step-1
Str=Str & Chr(Asc(Mid(Str，k，1))+k)
Next k
MsgBox Str
End Sub
abdb 解析：本题考查VBA程序设计。题目较难，综合性强，要求考生对常用函数以及控制结构有一定的了解。考生应该了解Len()函数是字符串长度检测函数，返回字符串所含字符数。 Chr()函数是字符代码转换字符函数，将数值表达式转换成字符串。Asc()函数是字符串转换字符代码函数，返回字符串首字符的ASCII值。 Mid(字符串表达式＞,N1＞,N2＞)函数是从字符串左边第N1个字符起截取N2个字符。开始Len(Str0=2，Mid(Str，k，1)=Mid(ab,2,1)=b，则Chr(Asc(B) +2)=d，所以循环第1次结束后 Str="abd"，同样的第2次循环结束后， Str="abdb"，MsSBox用来将Str输出。正确答案为abdb。
第5题：
阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。
【解析】本题综合考查Sub过程的建立与调用以及数组的赋值。P过程为参数b()赋值，赋值方法为b()中的元素值等于其下标的2倍。在事件过程中，数组a(1 to 4)先被逐一赋值，然后以传地址的方式被p过程调用。在调用中，a(i)被重新按照p过程的赋值方式（即元素值等于对应下标值的2倍）赋值。由于是以传地址的方式传送a(1 to 4)，故在调用完p过程后，a(1 to 4)，故在调用完p过程后，a(1 to 4)中的元素值将保留，故空白处填：2 4 6 8。
第6题：
有以下程序： Sub subP(b()As Integer) For i=1 To 4 b(i)＝2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As Integer a(i)＝5 a(2)＝6 a(3)＝7 a(4)＝8 subP a() For i＝1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为______。
A． 2 4 6 8
B．5 6 7 8
C．10 12 14 6
D．出错
解析：过程SubP的参数b()是按地址传递的(ByRef,数组的传递方式)，而subP过程用语句subP a()调用后，形参b()的值为b(1)＝2，b(2)＝4，b(3)＝6，b(4)＝8，则实参a()的值亦为以上值。
第7题：
有以下程序： Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subPa() For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为( )
A．2 4 6 8
B．5 6 7 8
C．10 12 14 16
D．出错
第8题：
有以下程序：
Private Sub Form_Activate()
For j=1 to 3
x=3
For i=l to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后，窗体上显示的结果为______。
15
第9题：
窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（ ）。
A.Private Sub Form1 Click（ ）
End Sub···
B.Private Sub Form1. Click（ ）
End Sub···
C.Private Sub Command1 click（ ）
End Sub···
D.Private Sub Command Click（ ）
End Sub···
B。【解析】窗体单击事件为Form—Click事件。
第10题：
设窗体有上一个名称为HScroll1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填空。 Dim 【7】 AsInteger Private Sub Form_Load Pos＝HScrol1．Value End Sub Private Sub HScroll1_Change Print 【8】 - pos Pos＝HScrolll．Value End Sub
6;4