- 博客(3)
- 收藏
- 关注
原创 几个数中的最小值
Private Sub Command1_Click() Cls Font.Size = 30 Dim n As Integer Dim sierdun(15) As Integer n = 1 While n sierdun(n) = Int(Rnd * 1000) n = n + 1 Wend Dim swap As Integer n = 1 While n I
2016-03-31 17:47:33 311
原创 随机选15个数字
Private Sub Command1_Click() 这个程序还挺容易做的,很快就做出来了,以下是我做程序的过程和成果。 Cls Dim a As Integer Dim sierdun(15) As Integer n = 1 While n sierdun(n) = Int(Rnd *
2016-03-31 17:23:33 332
原创 15个数据的排序
Private Sub Command1_Click() Cls Me.Font.Size = 10 Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer Dim f As Integer Dim g As Integer Dim h As Integer Di
2016-03-31 17:03:54 192
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人