【单选题】以下程序段的运行结果是( )。 Private Sub Command1_Click() Dim x As Integer x = 4 Print x; Call test(x) Print x End Sub Public Sub test(ByVal i As Integer) i = i + 1 End Sub
【单选题】以下程序段的运行结果是( ) Private Sub Form_Click() Dim x As Integer x=3 Call abcd(x) Print x End Sub Public Sub abcd(n As Integer) n=n+5 End Sub
【单选题】有如下函数过程: Function Cys(ByVal x As Integer, ByVal y As Integer) As Integer Dim quotients Do While y 0 quotients = x / y x = y y = quotients Loop Cys = x End Function 以下是调用该函数的事件过程,该程序的运行结果是( )。 Private...
【简答题】各种有色物体由于它们的反射光量的区别而产生颜色的明暗强弱称之为 。
【单选题】案例:2009年3月福建出入境检验检疫局对来自美国经停巴拿马入境的“伊万格里利亚”轮实施船舶查验时,截获重大植物检疫性害虫菜豆象。菜豆象以幼虫蛀食豆粒,对储藏豆类可造成35%以上严重损失,且传播广,根治困难,位列一类危险性昆虫之首。为防止该重大检疫性有害生物的传入,检验检疫部门迅速组织人员对该轮依法实施严格的防疫除害处理。从以上案例可以看出“出入境检验检疫工作的目的与任务”之一是:
C.
对出入境人员、交通工具及可能传播检疫传染病的物品进行检疫和监督管理
【单选题】以下程序的运行结果是( )。 Dim x As Integer, y As Integer, z As Integer Sub s2(a As Integer, ByVal b As Integer) a = 2 * a b = b + 2 End Sub Private Sub Command1_Click() x = 4 y = 4 Call s2(x, y) Print x + y ...
【单选题】植物检疫性病害是一类( )病害,检疫的目的是杜绝危险性病原物的输入和输出。
【单选题】以下 程序的运行结果是( ) Function power(x As Single, ByVal y As Integer) Dim result As Single result = 1 Do While y > 0 result = result * x y = y - 1 Loop power = result End Function Private Sub Form_Click() Di...
【单选题】单击按钮时,以下程序运行后的输出结果是 Private Sub Commandl_Click( ) Dim X As Integer,y As Integer,z As Integer x=1:y=2: Z=3 Call God(x,x,z) Print x;x;z Call God(x,y,y) Print X;y;y End Sub Private Sub God(x As Integer,y...