在窗体上画 1 个命令按钮,名称为 Command1,然后编写如下程序:Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("请输入:")If Flag ThenPrint f(intNum) End IfEnd SubFunction f(X as Integer)As IntegerIf X
单选题
在窗体上画 1 个命令按钮,名称为 Command1,然后编写如下程序:Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("请输入:")If Flag ThenPrint f(intNum) End IfEnd SubFunction f(X as Integer)As IntegerIf X