e comp re As Single im As Single End Type Public c As comp 窗体模块 Private Sub Command1_Click() Dim a As comp,b As compA0re=InputBox(“输入a的实部”)A.im=InputBox(“输入a的虚部”)B.re=tnputBox(“输入b的实部”)B.im=lnputBox(“输入b的虚部”) 【 】 Print“c=”;C.re;“+”;c.im;"i" End Sub Private Sub s(【 】) C.re=r1.re+rre c.im=r1.im+rim End Sub