寻三个VB6.0的编程

来源：百度知道 编辑：UC知道 时间：2024/05/14 08:00:37
1.做一个计算器
2.在窗体上建立命令按钮,假设命令按钮的数目是6个,单击不同的命令按钮时分别在窗体上画出半径不同的圆.
3.用选择法对10个整数排序.

谢谢高手们了.

都很简单,但是计算器太麻烦了.(按钮太多=_=!)
第一、二题用按钮的控件数组。
第三题我这有个子程序，你参考一下。
Sub SelectSort(Xarray() As Integer) '选择排序法
Dim i%, j%, k%, t%, Start%, Finish%
Start = LBound(Xarray, 1)
Finish = UBound(Xarray, 1)

For i = Start To Finish - 1
k = i
For j = i + 1 To Finish
If Xarray(j) < Xarray(k) Then k = j 'k表示当前最小值对应的下标
Next j
If k <> i Then
t = Xarray(i)
Xarray(i) = Xarray(k)
Xarray(k) = t
End If
Next i
End Sub

传递一个要排序的数组给它。就自动排序。