- 博客(21)
- 收藏
- 关注
RSS订阅原创 鞍点
Option Base 1'm*n的二维数组，m行n列Dim anma() As IntegerDim m As Byte, n As BytePrivate Sub Command1_Click() Cls Me.Font.Size = 30 '生成二维数组 'dim m as byte m = 5: n = 6 ReD
2016-06-02 17:50:03
278
原创 登陆页面
Option ExplicitConst MaxLoginTimes As Integer = 3Private Sub cmdLogin_Click() Static loginTimes As Integer loginTimes = loginTimes + 1If loginTimes On Error GoTo ppp Dim Cn
2016-05-26 17:52:25
369
原创 随机产生10个数，并使用选择法，由大到小排序
Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10 a(i) = 10 + Int(Rnd() * 100) Print a(i)Next iPrintDim j As IntegerFor j = 1 To 9For i = j + 1
2016-05-07 17:42:44
5321
原创 16进制
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Integera = 1230b = 16While a yushu = a Mod b s = f(yushu) & s a = a \ b Wend
2016-05-07 17:23:31
276
原创 16jinzhi
Private Sub Command1_Click()Me.Font.Size = 50Print shiliujinzhi(4545)End SubPrivate Function shiliujinzhi(m As Integer)As StringDim n As Integern = mConst shiliu As Byte = 16Dim return
2016-04-28 17:32:07
411
原创 erjinzhi
Private Sub Command1_Click()Me.Font.Size = 60Print erjinzhi(23)End SubPrivate Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 2Dim returns As StringDim
2016-04-28 16:45:52
362
原创 n*1
Private Sub Command1_Click() Cls Dim a() As Byte Dim r() As Byte Dim b As String Dim c As Byte Dim i As Long Dim L As Long L= Len(Me.Text1.Text) ReDim a(L) For
2016-04-21 17:08:12
231
原创 个位数与个位数的积
Private Sub Command1_Click()ClsMe.Font.Size = 50Dim n1 As ByteDim n2 As ByteDim yushu As ByteDim shang As ByteDim tempsult As Byten1 = Int(Val(Me.Text1.Text))n2 = Int(Val(Me.Text2.
2016-04-14 16:56:19
288
原创 10的阶乘
Private Sub Command1_Click()Print 阶乘(10)End SubPrivate Function 阶乘(n As Integer) As LongIf n = 1 Then 阶乘 = 1 Else 阶乘 = n * 阶乘(n - 1) End If End Function结果是：3628800
2016-04-14 16:35:31
658
原创 上节课的九种循环
（一） Option ExplicitPrivate Sub Command1_Click()Dim i As IntegerDim a(10) As IntegerDim sum As IntegerRandomizeFor i = 1 To 10 a(i) = Int(Rnd * 1000) + 1 sum = sum + a(i)N
2016-04-14 16:32:43
241
原创 循环法二
Private Sub Command1_Click()ClsDim n As IntegerDim s As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print a(n)n = n + 1Wend
2016-04-07 16:30:09
204
原创 循环法一
Private Sub Command1_Click()Dim i As IntegerDim sum As IntegerDim a(10) As IntegerRandomizeFor i = 1 To 10 a(i) = Int(Rnd * 1000) sum = sum + a(i)Next iPrint sumEnd Sub
2016-04-07 16:19:32
214
原创 嗨
Option Base 1Private Sub Command1_Click()ClsFont.size = 30Dim n As IntegerDim size As Integersize = Int(Val(Me.text1.Text))Dim sierdum() As IntegerReDim sierdun(size) As Integern =
2016-03-31 17:47:14
229
原创 一直的没思想
写了半天终于能运行了，但不知道啥玩意。。。。。。Cls Font.Size = 30 Dim n As Integer Dim sierdum(15) As Integer n= 1 While n sierdum(n) = Int(Rnd * 1000) n = n + 1 W
2016-03-31 16:58:30
228
原创 3月24号
Private Sub Command1_Click()ClsDim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As IntegerDim i As IntegerDim
2016-03-24 18:30:55
253
原创 ryey
Private Sub Command1_Click() Cls Dim a As Integer Dim b As Integer a = Int(Rnd * 1000) b = Int(Rnd * 1000) If a Me.Text1.Text = "a Else If a =
2016-03-24 16:57:21
336
原创 tkf
Cls Me.Font.Size = 50 Dim a As Integer Dim a As Integer a = Int(Rnd * 1000) b = Int(Rnd * 1000) If a Me.Text1.Text = "a Else Me.Text1.Text = "a>=b
2016-03-24 16:40:29
252
原创 tkf
Cls Me.Font.Size = 50 Dim a As Integer Dim a As Integer a = Int(Rnd * 1000) b = Int(Rnd * 1000) If a Me.Text1.Text = "a Else Me.Text1.Text = "a>=b
2016-03-24 16:39:10
259
原创 随机数函数
1.打开VB 软件，鼠标点击开关按钮，在“FORM1”拖动出现 commend 按钮。鼠标点击这个按钮，在弹出的窗口填写：Private Sub Command1_Click() Me.Font.Size = 70 Dim b As Integer, c As Integer c = Int(Rnd() * 1000) b = Int(Rnd() * 10
2016-03-17 17:20:08
182
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人