举一反三
- 下列程序运行的结果为()。 Public Sub f(n%, ByVal m%)...) Print x, y End Sub
- 单击命令按钮时,下列程序代码的运行结果为()。 Public Sub Procl...) Print x; y End Sub
- 下面过程运行后显示的结果是()。Private Sub f1(ByVal n%, m%)n = n Mod 10m = m 10End SubPrivate Sub Command1_Click()Dim x%, y%x = 12: y = 34Call f1(x, y)Print x, yEnd Sub
- 有以下程序: Private Sub Form_Activate() Fori=1 to 3 x=3 For i=i to 2 x=x+6 Next Next Print X End Sub 程序运行后,窗体上显示的结果为________
- 有以下程序: Private Sub Form_Activate() Fori=1 to 3 x=3 For i=i to 2 x=x+6 Next Next Print X End Sub 程序运行后,窗体上显示的结果为 (10)
内容
- 0
编写如下程序: Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1: y = 1 Do y = x * y If y > 10 Then Print x, y Exit Do Else x = x + 3 End If Loop While x <= 10 End Sub 运行程序,输出结果为______
- 1
设有如下两个过程: Private Sub Form_Click() Dim x!,y! x = 18: y = 10 Call PPP((x), y) Print x,y End Sub Private Sub PPP(a As Single, b As Single) a = a + b Print a,b b = a + b Print a,b End Sub 运行程序后, 则输出结果是________
- 2
如下程序的运行结果是【1】. Private Sub Command1_Click() Dim x As Integer x = 12 f2 x Print x End Sub Public Sub f2(n As Integer) n = n Mod 10 End Sub
- 3
执行下面的程序后,x和y的值为()。Public Sub S...ll Swap(x, y)End Sub
- 4
下面程序运行后,点击窗体,变量 x和y的值分别为( )、( ) Private Sub Form_Click() Dim x, y As Integer x = 5: y = 10 nc x, y Print "x="; x; "y="; y End Sub Private Sub nc(ByVal a%, b%) a = a + b b = a a = a * b End Sub