- 博客(13)
- 收藏
- 关注
原创 QP2
Private Sub Command1_Click()ClsDim a(100) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 20a(i) = Int(Rnd * 1000)Print a(i)Next iPrintFor i = 1 To 19 For j = 1 T
2016-05-12 17:13:16 385
原创 QP
Private Sub Command1_Click()ClsDim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = Int(Rnd * 100)Print a(i)Next iPrintFor i = 1 To 9 For j = 1 To 1
2016-05-12 17:10:42 584
原创 几进制的转化
Private Sub Command1_Click()Me.Font.Size = 60Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 230: b = 2While a yushu = a Mod bs = yushu & sa = a \ bWendPr
2016-05-07 17:10:42 322
原创 整数变化为二进制
Private Sub Command1_Click()Me.Font.Size = 60Print erjinzhi(230)End SubPrivate Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 2Dim returns As StringDim
2016-04-28 17:08:30 375
原创 1*1 1位相乘
Private Sub Command1_Click()Dim a As ByteDim b As ByteDim c As ByteDim r As Byteb = Me.Text1.Texta = Int(Val(b))b = Me.Text2.Textc = Int(Val(b))r = a * cPrint rEnd Sub
2016-04-21 17:02:03 333
原创 一位相乘
Private Sub Command1_Click()Dim a As ByteDim b As ByteDim c As ByteDim r As Byteb = Me.Text1.Texta = Int(Val(b))b = Me.Text2.Textc = Int(Val(b))r = a * cPrint rEnd Sub
2016-04-21 17:01:35 256
原创 比较大小
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-04-21 16:41:39 267
原创 红糖水白糖水交换
Private Sub 变换_Click()Dim a As Stringa = Me.Label1.CaptionMe.Label1.Caption = Me.Label2.CaptionMe.Label2.Caption = aDim b As Stringb = Me.Label1.ForeColorMe.Label1.ForeColor = Me.Label2.
2016-04-21 16:40:48 254
原创 比较大小
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-04-21 16:39:35 281
原创 排序
Private Sub Command1_Click() 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
2016-03-31 17:45:52 278
原创 vb2
Private Sub Command1_Click()Dim a(1 To 10)For i = 1 To 10 a(i) = Val(InputBox("a(" & i & ")=")) Print a(i);Next iPrintFor i = 1 To 9 For j = 10 To i + 1 Step -1 If a(i) < a(j) Then
2016-03-31 17:00:46 366
原创 vb
Dim a(15) As Integer Dim str As String str = "" Dim temp As Integer For i = 1 To 15 a(i) = Int(Rnd() * 90) + 10 Next For i = 1 To 15
2016-03-31 16:54:03 323
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人