举一反三
- 假定有以下两个过程： Sub S1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t=K x=y y=t End Sub Sub S2(x As Integer, y As Integer) Dim t As Integer t=K x=y y=t End Sub 则以下说法中正确的是 ( ) A．用过程S1可以实现交换两个变量值的操作，S2不能实现 B．用过程S2可以实现交换两个变量值的操作，S1不能实现 C．用过程S1和S2都可以实现交换两个变量值的操作 D．用过程S1和S2都不能实现交换两个变量值的操作
- 本程序的功能为单击窗体，分别调用Swap1和Swap2子过程，使Form1的输出结果为 A1=10 B1=20 A2=20 B2=10 请将程序补充完整。 Public Sub Swap1(【1】) Dim t As Integer t = x: x = y: y = t End Sub Public Sub Swap2(【2】) Dim t As Integer t = x: x = y: y = t End Sub Private Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20 【3】 Form1.Print "A1="; a, "B1="; b call swap2(a,b) Form1.Print "A2="; a, "B2="; b End Sub
- 窗体上有标签（Label1、Label2）和命令按钮（Command1），编写如下事件过程： Private x As Integer: Private Sub Command1_Click(): Dim x As Integer, y As Integer: x = 5: y = 3: proc x, y: Label1.Caption = x: Label2.Caption = y: End Sub: Private Sub proc(ByVal a As Integer, b As Integer): x = a + b: b = b * b: End Sub:运行后，单击按钮，Label1和Label2将分别显示
- 运行下面的程序，第二行显示结果是___________。 Private Sub Form_Click() Dim A As Integer Dim i As Integer A = 5 For i = 1 To 9 Call sub1(i, A) Print i, A Next i End Sub Private Sub sub1(x As Integer, y As Integer) Static N As Integer Dim I As Integer For I = 3 To 1 Step -1 N = N + x x = x + 2 Next I y = y + N End Sub
- 有如下事件程序,运行该程序后输出结果是。 Private Sub Command33_Click() Dim x As Integer, y As Integer x = 1: y = 0 Do Until y <= 25 y = y + x * x x = x + 1 Loop MsgBox "x=" & x & ", y=" & y End Sub
内容
- 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
下面程序运行后，点击窗体，变量 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
- 2
要求当鼠标在图片框P1中移动时，立即在图片中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是______。 A: Private Sub P1_MouseMove(Button As Integer,Shift As Integer,XAs Single,Y As Single) Print X,Y End Sub B: Private Sub P1_MouseDown(Button As Integer,Shift As Integer,XAs Single,Y As Single) Picture.Print X,Y End Sub C: Private Sub P1_MouseMove(Button As Integer,Shift As Integer,XAs Single,Y As Single) P1.Print X,Y End sub D: Private Sub Form_MouseMove(Button As Integer Shift As Integer,XAs Single,Y As Single) P1.Print X,Y End Sub
- 3
有如下函数过程： Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 * y + z + 2 * x End Function Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a) End Sub 该程序的运行结果是（ ）。
- 4
有如下事件程序，运行该程序后输出结果是_________。 Private Sub Command33_Click() Dim x As Integer, y As Integer x=1:y=0 Do Until y＜=25 y=y+x*x x=x+1 Loop MsgBox "x=" & x &",y=" & y End Sub A: x=1，y=0 B: x=4，y=25 C: x=5，y=30 D: 输出其他结果