气压试验时，检查管道焊缝、接口有否泄漏所用的方法是涂刷()。

下列程序的运行结果是 Private Sub Form_Click() Dim k As Integer n＝5 m＝1 k＝1 Do m＝m+2 k＝k+1 Loop Until k＞n Print m End Sub

A．1

B．12

C．11

D．32

阅读以下程序：

Prlvate Sub Form_Click()

Dim k，n，m As Integer

n=10

m=1

k=1

Do While k＜=n

m=m*2

k＝k+1

Loop

Print m

End Sub程序运行后，单击窗体，输出结果为【 】。

在窗体上画一个命令按钮，然后编写如下程序：

Dim k As Long

k=1

Do While num

Loop

fun=k

End Function

Private Sub Command1_Click()

Dim n As Long

Dim r As Long

MsgBox r

End Sub

程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为()。

下列程序段的执行结果为______。 Dim n As Integer n=10 While n ＜＞ 0 n=n-1 Wend Print "n="; n

A．n=0

B．n=1

C．False

D．n=-1

23 有如下程序段，该程序段循环的次数是______。 Dim i As Integer Dim j As Integer Dim k As Integer k=0 For i = 0 To 10 Step 3 For j = 1 To 5 If j ＞ 3 Then k = k + 4: Exit For k=k+1 Print k Next j If i ＞ 8 Then Exit For Next i

A．9

B．10

C．11

D．12

设执行以下程序段时依次输入2，4，6，执行结果为

Dim a(4)As Integer

Dim b(4)AS Integer

For k=0 To 2

a(k+1)=Val(InputBox("Enter data："))

b(3 - k) =a(k + 1)

Next k

Print b(k)

A．2

B．4

C．6

D．0

A．2

B．3

C．4

D．5

下列程序段的执行结果为 ______。 Dim m(3，3)As Integer Dim i As Integer Dim j As Integer Dim K As Integer For i=1 To 3 m(i,i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next Print x

A．3

B．4

C．5

D．6

下列程序执行后的输出结果为()。 K=1 DO 10 I=1，2 DO 10 J=1，2 10 K=K(*)I/J WRITE(*，*)K END

A．1

B．0

C．0.5

D．2

下列程序执行后的输出结果为()。 K=1 DO 10 I=1，2 DO 10 J=1，2 10 K=K(*)I/J WRITE(*，*)K END

A．1

B．0

C．0.5

D．2