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

[填空题] 标准模块和窗体模块的功能是计算和打印两个复数之和，在横线上填上适当内容。标准模块______。
Type comp
re As Single
im As Single
End Type
Public C As comp
窗体模块
Private Sub Commandl_Click()
Dim a As comp，b As comp
a.re=InputBox(“输入a的实部”)
a.im=InputBox(“输入a的虚部”)
b.re=InputBox(“输入b的实部”)
b.im=InputBox(“输入b的虚部”)
______
Print "c"="； c.re； "+"； c.im； "i"
End Sub
Private Sub s(______)
c.re = r1.re + r2.re
c.im = r1.im + r2.im
End Sub

参考答案：

Call s(a,b) 或 s a,b rA As comp,rB As comp 或 ByRef rA As comp，ByRef rB As comp或ByVal rl As comp，ByVal rB As comp

问题解析:

本题考查Sub过程的建立与调用。根据题意，要计算两个复数之和．通过Type语句定义二个comp数据类型。comp的两个元素re、im分别表示复数的实部与虚部。由于求两个复数之和要分别相加各自的实部与虚部，故在建立s过程时，根据已给等式，可以知道SUB过程需要两个参数，分别为r1，r2。由于只调用一次，故可以使用ByRef,ByVal两种方式传送数据。建立好Sub过程，在第一处空白调用该过程，可以使用Call语句：Call s(a，b)，也可直接调用：s a，b。