四、其它
1、求一范围内的完全平方数（平均值、最大值、个数等）
注意：36＝62，完全平方数是36，而不是6
求100以内所有完全平方数的个数
For i=1 to 100
If sqr(i)=int(sqr(i)) then ‘完全平方数开平方后为整数
n=n+1
End If
Next i
2、有序数组A和B，合并成数组C，要求仍然有序
思路：假设数组A和B各有20个数组元素，先将A的数组元素值赋值给C的前20个数组元素，再将B的数组元素值赋值给C作为后20个数组元素，再对C进行排序操作。
3、图形控件Shape的椭圆、圆形设置、填充线设置、边框设置等
椭圆和圆形设置：Shape属性
填充线设置：FillStyle属性
填充线颜色设置：FillColor属性
边框设置：BorderStyle属性
边框颜色设置：BorderColor属性
4、统计随机产生数中出现频率最高的数以及出现的次数
数组a获得100个随机数，判断出现频率最高的数及其次数，b(i)获得对应a(i)出现的次数。
max = 0
For i = 1 To 20
For j = 1 To i-1 ‘不能让a(1)和其本身进行比较
If a(i) = a(j) Then
b(i) = b(i) + 1
End If
Next j
If b(i) > max Then max = b(i)
Next i