其他函数
1、Beep()
功 能：响铃n次（n超过10时只响10次）。
语 法：Beep ( n )
参 数：n：数值类型，指定需要的响铃次数。如果n的值大于10，那么计算机只响铃10次。
返回值：Integer。函数执行成功时返回1，发生错误时返回-1。如果参数n的值为NULL，Beep()函数返回NULL。
示 例：This statement causes the computer to beep five times:
Beep(5)
2、ChooseColor()
功 能：显示标准的颜色选择对话框，供用户选择颜色。
语 法：ChooseColor (color {,cusromcolors[]})
参 数：color：Long类型，保存用户在对话框中所选择的颜色；
customcolors：Long类型，可选项，用于向选择颜色对话框传递定制颜色和接收用户选择的定制颜色。
返回值：Integer。函数执行成功时返回1，发生错误时返回-1。当用户选择了”取消”按钮或直接关闭对话框，函数返回0。
示 例：This example displays the color selection dialog box with a base color of red and with two different custom colors defined:
long red, green, blue
long custom[ ]
integer li_c