产生（4 ，86）的随机整数

下面的程序代码是通过函数求出二个整数型变量a、b中的较大值，其中所定义的函数名是（   ）
Function max(a, b As Integer) As Integer
If a > b Then max = a  Else  max = b
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer, s as integer
a =" Val(Text1.Text):" b = Val(Text2.Text)
s =" max(a," b)
Text3.Text = s
End Sub

A．Command1_Click

B．function

C．max

D．max(a, b As Integer)

如果x=4，那么以下运算结果为True的表达式是 (　　)

A．x<="4" And x>="6"	B．x>4 Or x>=6
C．x<4 Or x>6	D．Not x<>4

下列流程图描述的是判断任意3个正数A、B、C是否能构成勾股数，请按此算法功能，把流程图填写完整。

A．A^2="B^2+C^2" or B^2="A^2+C^2" and C^2=A^2+B^2

B．A^2="B^2+C^2" and B^2="A^2+C^2" or C^2=A^2+B^2

C．A^2="B^2+C^2" and B^2="A^2+C^2" and C^2=A^2+B^2

D．A^2="B^2+C^2" or B^2="A^2+C^2" or C^2=A^2+B^2

若变量m =" 0" .81 ，则表达式Sqr ( m ) ＜1 And Not int ( m) > 1 的值是_____

A．T

B．F

C．0.9

D．1