问答题
当用户在输入框(名为Txt_Input)中输入数值数据,并从下拉式列表框(名为CmbOp)中选择所需的运算后。输出框(名为Txt_Output)中就会显示运算的结果。用户单击“清除”按钮(名为 CmdClear)后,输入框和输出框都清空。 开发该应用的部分程序代码如下: 【程序代码5.2】 Private Sub CmbOp_Click() Dim DataIn As Double,DataOut as Double DataIn =(3) Select Case (4) Case "取整数部分" DataOut = Int(DataIn) Case "求平方根" If DataIn<0 Then MagBox "负数不能开平方!" Else DataOut = sqr(DataIn) End If Case "取绝对值" DataOut = Abs(DataIn)02502 (5) Txt_Output.Text=str $(DataOut) End Sub