【简答题】在窗体上添加一个名称为 Command1 的命令按钮,然后编写以下通用过程和命令按钮的事件过程: Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Command1_Click() Dim i As Integer s = 0 For i = 1...
【简答题】在窗体上添加一个名称为 command1的命令按钮,然后编写如下事件过程 Private Sub Command1_Click() x = InputBox( " Input " ) Select Case x Case 1, 3 Print " 分支 1 " Case Is > 4 Print " 分支 2 " Case Else Print " else 分支 " E nd Select En...