标准模块和窗体模块的功能是计算和打印两个复数之和,在横线上填上适当内容。标准模块 Type comp re As Single im As Single End Type

admin2009-02-13  60

问题 标准模块和窗体模块的功能是计算和打印两个复数之和,在横线上填上适当内容。标准模块
       Type 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

选项

答案Call s(a,b)或 s a,b , rl As comp,r2 As comp或ByRef rl As comp,ByRef r2 As comp或By Val Ascomp,ByVal r2 As comp

解析 根据题意,要计算两个复数之和。通过Type语句定义一个comp数据类型。 comp的两个元素re、im分别表示复数的实部与虚部。由于求两个复数之和要分别相加各自的实部和虚部,故在建立s过程时,根据已给等式,可以知道SUB过程需要两个参数,分别为r1、r2。由于只调用一次,故可以使用ByRef、ByVal两种方式传送数据。建立好Sub过程,在[6]处调用该过程,可以使用Call语句:Call s(a,b),也可直接调用:s a,b。
转载请注明原文地址:https://kaotiyun.com/show/E72p777K
0

最新回复(0)