![](https://csdnimg.cn/release/download_crawler_static/52351662/bg1.jpg)
编程填空题:
《实验指导书》
页 93:7、8、 9 题
页 114: 7、8、9、10、11
――――――――――――
工程中有两个窗体 form1 和 form2 ,一个标准模块 module1,设在 form1 中定义了过程 aa,
在 module1 中定义了过程 bb。
Sub aa(x, y, z)
z = x * x + y * y
End Sub
Sub bb(x, y, z)
z = x ^ 3 + y ^ 3
End Sub
当在 form1 中单击命令按钮时, 调用以上过程计算两个数的平方和和立方和, 并分别将计算
结果显示在文本框 text3 和 text4 中,请填空完成调用语句。
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Call [ ]
Text3.Text = c1
bb [ ]
Text4.Text = c2
End Sub
――――――――――――――――――
下面的程序用于根据文本框 X 中输入的内容进行以下处理:若 X 为 2、4、6,则打印 "X 的
值为 2、4、6";若 X 在 11 到 15 之间,则打印 "X 的值为大于等于 11 小于等于 15";若 X
大于 20,则打印 "X 的值大于 20";否则,打印 "X 不在范围内 "。
Private Sub Command1_Click()
Select Case Val(X.Text)
Case [ ]
Print "X 的值为 2,4,6"
Case [ ]
Print "X 的值为大于等于 11 小于等于 15"
Case Is >20
Print "X 的值大于 20"
Case Else
Print "X 不在范围内 "
End Select
End Sub
――――――――――――――
下面的程序是使用冒泡法对数组进行排序,请将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim iA(0 To 10)