[填空题] 标准模块和窗体模块的功能是计算和打印两个复数之和，在横线上填上适当内容。标准模块Type compre As Singleim As SingleEnd TypePublic c

[填空题] 标准模块和窗体模块的功能是计算和打印两个复数之和，在横线上填上适当内容。标准模块Type comp re As Single im As SingleEnd TypePublic c

[填空题] 标准模块和窗体模块的功能是计算和打印两个复数之和，在横线上填上适当内容。标准模块

Type comp

re As Single

im As Single

End Type

Public c As comp

窗体模块

Private Sub Command1_Click( )

Dim a As comp，b As comp

• a．re=InputBox(“输入a的实部”)a．im=InputBox(“输入a的虚部”)
• b．re=tnputBox(“输入b的实部”)b．im=lnputBox(“输入b的虚部”)

  【6】

  Print“c=”；

• c．re；“+”；c.im；"i"

  End Sub

  Private Sub s( 【7】 )

  C.re=r1.re+r2.re

  c.im=r1.im+r2.im

  End Sub

正确答案：

[6]Call s(a，b)或 s a，b [7] 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。