option explicitdim m_data1 as single, m_data2 as single, m_result as single '用于存储数据1、数据2和结果private sub cmd_a_click() m_data1 = val(inputbox("请输入第一个数据", "窗体显示加法等式")) '调用系统标准输入界面 m_data2 = val(inputbox("请输入第二个数据", "窗体显示加法等式"))end subprivate sub cmd_b_click() m_result = m_data1 + m_data2 form1.print tab(30); m_data1; "+"; m_data2; "="; m_result '参照课本49页end sub 20210311