填空题

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

(↓↓↓ 点击下方‘点击查看答案’看完整答案、解析 ↓↓↓)
<上一题 目录 下一题>
热门 试题

填空题
把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程： Private Sub Form_Click( ) Open d： test smtext1．txt For lnput As#1 Text1.Fontsize=14 Text1.FontName=“幼圆” Do While Not EOF(1) 【8】 whole＄=whole $ aspect $+Chr$(13)+Chr $(10) Loop Text1.Text= 【9】 。 Close Open d： test smtext2．txt For Output As#1 Print #1 【10】 Close End Sub
填空题
在关系模型中，把数据看成一个二维表，每一个二维表称为一个 【5】 。
相关试题