标准模块和窗体模块的功能是计算和打印两个复数之和 在横线上填上适当内容。标准模块 Type comp
标准模块和窗体模块的功能是计算和打印两个复数之和，在横线上填上适当内容。标准模块 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
请帮忙给出正确答案和分析，谢谢！
参考解答
471***262
2023-07-20 20:09:50
正确答案：Call s(ab)或 s ab rl As compr2 As comp或ByRef rl As compByRef r2 As comp或By Val AscompByVal r2 As comp
根据题意，要计算两个复数之和。通过Type语句定义一个comp数据类型。comp的两个元素re、im分别表示复数的实部与虚部。由于求两个复数之和要分别相加各自的实部和虚部，故在建立s过程时，根据已给等式，可以知道SUB过程需要两个参数，分别为r1、r2。由于只调用一次，故可以使用ByRef、ByVal两种方式传送数据。建立好Sub过程，在[6处调用该过程，可以使用Call语句：Calls(a，b)，也可直接调用：sa，b。
相似问题
在名称为Form1的窗体上画一个文本框 其名称为Text1 在属性窗口中把该文本框的Muhiline
在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程： Private Sub Form_
有时候需要暂时关闭计时器 这可以通过【 】属性来实现。请帮忙给出正确答案和分析 谢谢！
有时候需要暂时关闭计时器，这可以通过【 】属性来实现。请帮忙给出正确答案和分析，谢谢！
下列过程的功能是用来计算并输出S=1+1/2+1/3+……+1/100的值 请完善程序。 Funct
下列过程的功能是用来计算并输出S=1+1 2+1 3+……+1 100的值，请完善程序。 Function SumF(n As Integer)As Single s = 0 For i=1 To n s=
下面程序是用冒泡法将数组a中的10个整数按升序排列 请将程序补充完整。 Private Sub Co
下面程序是用冒泡法将数组a中的10个整数按升序排列，请将程序补充完整。 Private Sub Command1_Click( ) Dim a, Tmp As Integer a = Array
Private Sub Form_Activate( ) For j = 1 to 3 x=3 Fo
Private Sub Form_Activate( ) For j = 1 to 3 x=3 For i = 1 to 2 x=x+6 Next Next Print x End Sub 程序运行后，窗体上显示的结果为【 】。请帮忙给出正确答案和分析，谢谢！
