根据《水法》规定，堤防工程护堤地属于（）。 A．工程效益范围 B．工程管理范围 C．工程保

一下程序找出50以内所有能构成直角三角形的整数组。阅读下列程序，并完成程序。

Private Sub Command1_Click()

For a=1 to 50

For b=a to 50

c=Sqr(a^2+b^2)

If【 】then print a;b;c

next b

next a

end Sub

c＜=50 And c=Int？

下面的程序是找出50以内所有能构成直角三角形的整数组。阅读下面程序，并完成程序。

Private Sub Command1_Click()

For a = 1 to 50

For b = a to 50

c = Sqr(a^ 2 + b^ 2)

If【 】then print a; b; c

next b

next a

end Sub

mmand1_ Click() for a = 1 To 50 for b = a To 50 c = Sqr(a ^2 + b ^2) if【 】then Print a; b; c Next b Next a End Sub

阅读下列程序并写出程序运行结果。Private Sub Command1_Click（)x = 0Do While x < 60x = （x +

阅读下列程序并写出程序运行结果。

Private Sub Command1_Click()

x = 0

Do While x < 60

x = (x + 3) * (x + 4)

n = n + 1

Loop

Text1.Text = Str(n)

Text2.Text = Str(x)

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

写出程序运行后，文件框Text3的结果。

下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个，完成下列程序。

Private Sub Backward(a())

Dim i As Integer,Tmp As Integer

Fori=1 To5

Tmp=a(i)

a(5-i)=Tmp

Nexti

End Sub

下列程序的执行结果为______。Private sub Command1_ Click () a = 100 b = 50 if a ＜＞ b then a = a + b Else b = b -a Print a, bEnd Sub

A．50 50

B．150 50

C．200 200

D．10 10

阅读以下程序： Private 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 单击窗体程序的执行结果是【 】。

找出可以被3整除的数组元素并打印出来。请在空白处填入适当的内容，将程序补充完整。

Dim Arr（）

Private Sub Form_Load（）

【8】

End Sub

Private Sub Form_Click（）

【9】

If Int（x / 3） =x / 3 Then

Print x

End If

Next x

End Sub