- 博客(5)
- 收藏
- 关注
原创 15个数用循环结构比较大小
Option Base 1Private Sub Command1_Click()ClsDim n As Integer, x As Integerx = Int(Val(Me.Text1.Text))Dim a() As IntegerReDim a(x)n = LBound(a)While n a(n) = Int(Rnd * 1000)n =
2016-03-31 17:12:16 732
原创 2016.3.24(2)
Private Sub cmdSort_Click() Dim A(14) As Integer Dim I, J As Integer Dim Temp As Integer Form1.Cls Randomize For I = 0 To 14 A(I) = Int(Rnd * 1000) Print A(I); Next I
2016-03-24 17:43:29 216
原创 2016.3.24
Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim swap As Integer a = Int(Rnd * 1000) b = Int(Rnd * 1000) If a
2016-03-24 17:41:43 211
原创 2016 2 29
Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim swap As Integer a = Int(Rnd * 1000) b = Int(Rnd * 1000) If
2016-03-24 17:27:34 258
原创 VB编程步骤 变量交换
在form中创建command区域双击进入开始编程 在Private Sub Command1_Click()下一行输入 Cls Me.Font.Size = 70 Dim b As Integer, c As Integer Dim d As Integer c = Int(Rnd() * 1000) b = Int(
2016-03-17 16:52:45 1802
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人