• 2021-04-14 问题

    中国大学MOOC: 设有如下程序代码:Private Function Fc(ByVal n As Integer) As Integer Fc = n * Fj(5)End FunctionPrivate Function Fj(ByVal n As Integer) As Integer Fj = n + 3End FunctionPrivate Sub Command1_Click() Dim a As Integer a = 3 Form1.Print Fc(a)End Sub程序时单击命令按钮,在窗体上输出的结果为( )。

    中国大学MOOC: 设有如下程序代码:Private Function Fc(ByVal n As Integer) As Integer Fc = n * Fj(5)End FunctionPrivate Function Fj(ByVal n As Integer) As Integer Fj = n + 3End FunctionPrivate Sub Command1_Click() Dim a As Integer a = 3 Form1.Print Fc(a)End Sub程序时单击命令按钮,在窗体上输出的结果为( )。

  • 2021-04-14 问题

    中国大学MOOC: 设有如下程序代码:Private Function Fc(ByVal n As Integer) As Integer Fc = n * Fj(5)End FunctionPrivate Function Fj(ByVal n As Integer) As Integer Fj = n + 3End FunctionPrivate Sub Command1_Click() Dim a As Integer a = 3 Form1.Print Fc(a)End Sub程序时单击命令按钮,在窗体上输出的结果为( )。

    中国大学MOOC: 设有如下程序代码:Private Function Fc(ByVal n As Integer) As Integer Fc = n * Fj(5)End FunctionPrivate Function Fj(ByVal n As Integer) As Integer Fj = n + 3End FunctionPrivate Sub Command1_Click() Dim a As Integer a = 3 Form1.Print Fc(a)End Sub程序时单击命令按钮,在窗体上输出的结果为( )。

  • 2021-04-14 问题

    设有如下函数定义:Function fun() As Integer Static a% fun = 3 * a + 1 a = a + 2End FunctionPrivate Sub Command1_Click() Dim n As Integer n = fun n = fun MsgBox (n)End Sub则在Command1_Click中 MsgBox 显示的结果是____________。

    设有如下函数定义:Function fun() As Integer Static a% fun = 3 * a + 1 a = a + 2End FunctionPrivate Sub Command1_Click() Dim n As Integer n = fun n = fun MsgBox (n)End Sub则在Command1_Click中 MsgBox 显示的结果是____________。

  • 1