- 博客(9)
- 收藏
- 关注
原创 一位数乘一位数
Private Sub Command1_Click()Dim n1 As ByteDim n2 As ByteDim shang As ByteDim yushu As ByteDim tempresult As Byten1 = Int(Val(Me.Text1.Text))n2 = Int(Val(Me.Text2.Text))tempresult = n
2016-05-19 17:07:57
171
原创 十个随机数求和
1.Option ExplicitPrivate Sub Command1_Click()ClsDim i As Integer, Sum As IntegerDim a(10) As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd * 1000) + 1Sum = Sum + a(i)Next iPrint
2016-05-19 17:04:42
369
原创 冒泡法排序
Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 1000)Print a(i);Next iPrintFor i = 1 To 9For j = 1 To 10 - i
2016-05-19 17:01:27
144
原创 选择法排序
Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer For i = 1 To 10 a(i) = 10 + Int(Rnd() * 100) Print a(i) Next i Print Dim j As Integer
2016-05-12 17:49:22
225
原创 n位数乘一位数
Private Sub Command1_Click()ClsDim a() As ByteDim b As StringDim c As ByteDim c1 As ByteDim c2 As ByteDim i As Long, changdu As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i =
2016-05-12 17:47:59
170
原创 余数和商 两位数乘以一位数
Private Sub Command1_Click() Me.Font.Size = 70 Dim n1() As Byte, n1Len As Long Dim n2() As Byte, n2Len As Long Dim yushu1 As Byte, yushu2 As Byte Dim shang As Byte Dim i
2016-05-12 17:46:56
207
原创 余数和商 一位数乘以一位数
Private Sub Command1_Click()Dim n1 As ByteDim n2 As ByteDim yushu As ByteDim shang As ByteDim tempresult As Byten1 = Int(Val(Me.Text1.Text))n2 = Int(Val(Me.Text2.Text))tempresult = n1
2016-05-12 17:44:01
237
原创 作业二
2.Private Sub Command1_Click()ClsMe.Font.Size = 24Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As Integer
2016-05-12 17:42:01
112
原创 作业一
1.Private Sub Command1_Click()Dim s As StringDim s As LoadPictureColorConstantss = Label1.CaptionLabel1.Caption = Label2.CaptionLabel2.Caption = sa = Label1.ForeColorLabel1.ForeColor =
2016-05-12 17:40:06
206
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人