【单选题】以下程序段的运行结果是( )。 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
【单选题】有如下函数过程: 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...
【单选题】以下程序的运行结果是( )。 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...