举一反三
- 下列程序运行的结果为()。 Public Sub f(n%, ByVal m%)...) Print x, y 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 程序运行后,窗体上显示的结果为________
- 有以下程序: 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)
- 在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序: Private Sub f(ByVal x As Integer) x=x+4 End Sub Private Sub Command1_Click() i=3 Call f(i) If i>4 Then i=i*2 MsgBox i End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果为______。
- 运行下列程序,单击窗体后显示结果为( )。 Private Sub Form_Click() Dim k As Integer For k = 1 To 2 Print "3" + k; "3" & k; Spc(3); Next End Sub
内容
- 0
在窗体上添加一个名称为Command1的命令按钮,编写如下代码: Private Sub f(ByVal x As Integer) x=x+4 End Sub Pvivate Sub Command1_Click() i=3 Call f(i) If i>4 Then i=i*2 MsgBox i End Sub 运行窗体后,单击命令按钮,则消息框的输出结果为______。
- 1
在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序: Private Sub f(ByVal x As Integer) x=x+4 End Sub Private Sub Command1_Click() i=3 Call f(i) If i>4 Then i=i*2 MsgBox i End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果为______。 A: 3 B: 4 C: 6 D: 7
- 2
设有如下通用过程,在窗体上画一个名称为command1的命令按钮,然后编写如下事件过程: private sub command1_click() dim x as integer x=10 y=5 y=f(x) print x;y end sub public function f (x as integer) dim y as integer x=20 y=2 f=x*y end function 程序运行后,如果单击命令按钮,则在窗体上显示的内容是()
- 3
设有下面程序: Function F( a As Integer) b = 0 Static c b= b + 1 c= c + 2 F= a + b + c End Function Private Sub Command1_Click() Dim a As Integer a = 2 For i = 1 to 3 Print F(a); Next i End Sub 运行上面的程序,单击命令按钮 Command1 ,输出结果为________
- 4
在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,显示结果为( )。