- 博客(16)
- 收藏
- 关注
原创 4EC
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Integera = 1230: b = 16While a yushu = a Mod b s = f(yushu) & s a = a \ bWendPri
2016-05-09 14:41:17 354
原创 选择排序
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Integera = 1230: b = 16While a yushu = a Mod b s = f(yushu) & s a = a \ bWendPri
2016-05-09 14:40:12 276
原创 nasha
Private Sub Command1_Click()ClsDim i As LongDim L As LongDim r() As ByteDim a() As ByteDim b As StringDim c As ByteL = Len(Me.Text1.Text)ReDim a(L)For i = 1 To L b = Mid(Me.Te
2016-04-25 14:09:26 331
原创 100个数的和
Option ExplicitDim i As IntegerDim sum As IntegerPrivate Sub Command1_Click()ClsFont.Size = 70End SubPrivate Sub Timer1_Timer()sum = sum + ii = i + 1If i > 100 ThenMe.Timer1.Enab
2016-04-15 16:43:48 407
原创 余数商
这个真心不太会不是很会Option Base 1Private Sub Command1_Click()Dim yushu As ByteDim shang As ByteDim n2() As ByteDim n1() As ByteDim n1len As LongDim n2len As LongDim i As LongDim tempresul
2016-04-15 16:41:23 375
原创 简单的阶乘
Private Sub Command1_Click()ClsPrint 阶乘(10)End SubPrivate Function 阶乘(n As Integer) As LongIf n = 1 Then阶乘 = 1Else阶乘 = n * 阶乘(n - 1)End IfEnd Function还可以,自己能接受
2016-04-15 16:37:09 376
原创 100个数的和
之前忘了改那啥了所以一直没对Option ExplicitDim i As IntegerDim sum As IntegerPrivate Sub Command1_Click()ClsFont.Size = 70End SubPrivate Sub Timer1_Timer()sum = sum + ii = i + 1If i > 100 Th
2016-04-15 16:32:26 268
原创 十几个数相加
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 Sum
2016-04-11 14:12:30 405
原创 闲得没事,写着玩玩
没啥可说的先呵呵吧,呵呵呵呵呵呵 呵呵呵!!!! 下面进入正题,(⊙o⊙)最坏的结果,也要懂得承受你开的玩笑我能听懂你笑着说他的好那个时候脸上又多了一些腮红下课的时候篮球场的躁动有你为他擦汗的右手阳光下你的眼眸 清澈的面容和他的健壮搭配着形容你说你爱他的时候在我笑容的背后我实在是没事做,写几句歌词练练手 (忘了却记
2016-04-01 17:59:22 325
原创 随机个数排序
老师讲完了,拍到手机上了,照着抄还是错误不断大哥,你丫是干啥吃的啊,我也是醉了!!!Option Base 1Private Sub Command1_Click() Cls Dim x As Integer x = Int(Val(Me.Text1.Text)) Dim n As Integer Dim A() As Integer
2016-04-01 17:17:31 395
原创 别的不说,我就呵呵,干呵呵!
大哥,这是个啥子嘛,完全不懂嘞!我就干坐着呵呵!唉!!!!!!!Private Sub Command_Click() Cls Font.Size = 30 Dim n As Integer Dim siderdun (15) As Integer n=1 While
2016-04-01 17:01:30 368
原创 15个数又来了
虽然说上课都讲过了不过我还是假装很开心。我就呵呵了!呵呵!呵呵呵呵........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
2016-04-01 16:54:37 218
原创 上VB课的感受
这学期我们开设了VB这门课,上了几节这门课以后,又自己按照老师说的编写了一些程序,当看到这些程序都顺利运行时,自己也挺开心的,毕竟本来就不怎么懂电脑,学了这些,真的是感觉信息时代,计算机时代太强大了 当然,为了丰富我自己,我也会努力学习计算机,努力学习这门课的。 加油吧,少年!!!!!
2016-03-28 14:25:51 619
原创 交换两个数
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-03-28 14:16:31 195
原创 从大到小排列15个数
Private Sub Command1_Click()ClsMe.Font.Size = 50Dim b As Integer, c As IntegerDim d As Integerc = Int(Rnd() * 1000)b = Int(Rnd() * 1000)Print "b=" & bPrint "c=" & cd = cc = bb =
2016-03-28 14:13:31 522
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人