[填空題] 標(biāo)準(zhǔn)模塊和窗體模塊的功能是計(jì)算和打印兩個(gè)復(fù)數(shù)之和，在橫線上填上適當(dāng)內(nèi)容。標(biāo)準(zhǔn)模塊 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的實(shí)部”) a．im=InputBox(“輸入a的虛部”) b．re=tnputBox(“輸入b的實(shí)部”) 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.imEnd 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 根據(jù)題意，要計(jì)算兩個(gè)復(fù)數(shù)之和。通過Type語(yǔ)句定義一個(gè)comp數(shù)據(jù)類型。 comp的兩個(gè)元素re、im分別表示復(fù)數(shù)的實(shí)部與虛部。由于求兩個(gè)復(fù)數(shù)之和要分別相加各自的實(shí)部和虛部，故在建立s過程時(shí)，根據(jù)已給等式，可以知道SUB過程需要兩個(gè)參數(shù)，分別為r1、r2。由于只調(diào)用一次，故可以使用ByRef、ByVal兩種方式傳送數(shù)據(jù)。建立好Sub過程，在[6]處調(diào)用該過程，可以使用Call語(yǔ)句：Call s(a，b)，也可直接調(diào)用：s a，b。