- 博客(6)
- 收藏
- 关注
原创 vb
Dim n As Byten = 23Const er As Byte = 2Dim shang As ByteDim yushu(1 To 5) As ByteDim i As Bytei = 5shang = n \ eryushu(i) = n Mod erWhile shang i= i - 1 n= shang shang
2016-04-28 16:55:38 129
原创 你懂得!新的一周开始了
Private Sub Command1_Click()Dim a As Byte, c As IntegerDim b As Stringb = Me.Text1.Texta = Int(Val(b))b = Me.Text2.Textc = Int(Val(b))Dim r As Byter = a * cPrint rEnd Sub去吧,卡皮丘
2016-04-21 16:38:27 170
原创 上周的!我不哭
Private Sub Command1_Click() Dim i As Integer Dim a(10) As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 1000) + 1 Sum = Sum + a(i) Next i Print SumEnd Sub Private Sub
2016-04-14 17:01:52 144
原创 你放佛懂我的眼神
Private Sub Command1_Click()Font.Size = 70Dim arr(5) As IntegerFor i = 1 To 5arr(i) = iNextFor Each t In arrPrint tNextEnd Sub终于遇到一个简单的!!!我好感动因为我没做更难得。
2016-04-14 16:55:35 151
原创 有一种不懂叫瞎写!!!!
Private Sub Command1_Click()ClsFont.Size = 30Dim a As IntegerDim sierdun(15) As Integern = 1While n sierdun(n) = Int(Rnd * 1000) n = n + 1WendDim swap As Integerm =
2016-03-31 16:55:43 134
原创 hahaha
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 IntegerDi
2016-03-31 16:33:30 117
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人