依辰

首页 » 官方资讯 » 网站停止服务访问原因如下(本站一定遵守相关的法律法规)

本站(中华软件库:www.520sjj.cn)于2019.10.21日 因网站特殊原因停止服务访问......

于2019.11.1日重新开始服务访问......

本站一定遵守中华人民共和国计算机网络安全法规

本站坚决抵制一切非法活动淫秽活动

认真遵守一切相关的法律


净化网络环境

坚决抵制(诈骗,色情,赌博,谣言,暴力,泄密)


依辰

文章如无特别注明均为原创! 作者: 中华软件库,依辰QQ:634800394 转载或复制请以 超链接形式 并注明出处 中华软件库-优质资源分享网
原文地址《 网站停止服务访问原因如下(本站一定遵守相关的法律法规)》 发布于2019-10-31

评论

游客

  1. #33
    qq_avatar

    Private Sub Form_KeyPress(KeyAscii As Integer)
    If Label1.Caption = Chr(KeyAscii) Then
    Label1.Caption = ""
    End If
    If Label2.Caption = Chr(KeyAscii) Then
    Label2.Caption = ""
    End If
    If Label3.Caption = Chr(KeyAscii) Then
    Label3.Caption = ""
    End If
    End Sub

    Private Sub Form_Load()
    Label1.Caption = Chr(Int(Rnd * 33 + 65))
    Label2.Caption = Chr(Int(Rnd * 33 + 65))
    Label3.Caption = Chr(Int(Rnd * 33 + 65))
    End Sub

    Private Sub Timer1_Timer()
    Label1.Top = Label1.Top + 100
    If Label1.Top > Me.Height Then
    Label1.Top = Int(500 * Rnd + 1)
    Label1.Left = Int(Me.Width * Rnd)
    End If
    Label2.Top = Label2.Top + 100
    If Label2.Top > Me.Height Then
    Label2.Top = Int(500 * Rnd + 1)
    Label2.Left = Int(Me.Width * Rnd)
    End If
    Label3.Top = Label3.Top + 100
    If Label3.Top > Me.Height Then
    Label3.Top = Int(500 * Rnd + 1)
    Label3.Left = Int(Me.Width * Rnd)
    End If
    End Sub

    认识我吗? 约20小时前回复
  2. #32
    qq_avatar

    Private Sub Form_Load()
    Label1.Caption = Chr(Int(Rnd * 33 + 65))
    Label2.Caption = Chr(Int(Rnd * 33 + 65))
    Label3.Caption = Chr(Int(Rnd * 33 + 65))

    End Sub

    Private Sub Timer1_Timer()
    Label1.Top = Label1.Top + 100
    Label2.Top = Label1.Top + 100
    Label3.Top = Label1.Top + 100
    If Label1.Top > Me.Height Then
    Label1.Top = Int(500 * Rnd + 1)
    Label2.Top = Int(500 * Rnd + 1)
    Label3.Top = Int(500 * Rnd + 1)
    Label1.Left = Int(Me.Width * Rnd)
    End If
    End Sub

    星愿 约21小时前回复
  3. #31
    qq_avatar

    Label1.Visible = True
    Label2.Visible = True
    Label3.Visible = True
    Form1.Refresh
    Sleep 500

    Dim n As Integer
    n = Val(Text1.Text)
    For i = 1 To n
    Next i
    End Sub

  4. #30
    qq_avatar

    Private Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)

    Private Sub Command1_Click()
    Label1.Visible = True
    Label2.Visible = False
    Label3.Visible = False
    Form1.Refresh
    Sleep 500

    Label1.Visible = False
    Label2.Visible = True
    Label3.Visible = False
    Form1.Refresh
    Sleep 500

    Label1.Visible = False
    Label2.Visible = False
    Label3.Visible = True
    Form1.Refresh
    Sleep 500

    Label1.Visible = True
    Label2.Visible = True
    Label3.Visible = True
    Form1.Refresh
    Sleep 500

    Dim n As Integer
    n = Val(Text1.Text)
    For i = 1 To n
    Next i
    End Sub

  5. #29
    qq_avatar

    Private Declare Sub sleep Lib "kernel32" (ByVal dwmilliseconds As Long)

    Private Sub Command1_Click()
    Label1.Visible = True
    Label2.Visible = False
    Label3.Visible = False
    Form1.Refresh
    sleep 500

    Label1.Visible = False
    Label2.Visible = True
    Label3.Visible = False
    Form1.Refresh
    sleep 500

    Label1.Visible = False
    Label2.Visible = False
    Label3.Visible = True
    Form1.Refresh
    sleep 500

    Label1.Visible = True
    Label2.Visible = True
    Label3.Visible = True
    Form1.Refresh
    sleep 500
    End Sub

  6. #28
    qq_avatar

    Option Explicit
    Dim mum1 As Integer, mum2 As Integer
    Dim sexp As String
    Dim result As Single
    Dim nok As Integer, nerror As Integer





    Private Sub Form_Load()
    Dim nop As Integer, op As String * 1
    Randomize
    mum1 = Int(10 * Rnd + 1)
    mum2 = Int(10 * Rnd + 1)
    nop = Int(4 * Rnd + 1)
    Select Case nop
    Case 1
    op = "+"
    result = num1 + mum2
    Case 2
    op = "-"
    result = num1 - mum2
    Case 3
    op = "*"
    result = num1 * mum2
    Case 4
    op = "/"
    result = num1 / mum2
    End Select
    sexp = num1 & op & num2 & "="
    Label1 = sexp
    End Sub

    Private Sub Text1_Change()

    End Sub

    烟熏妆下的 1周前 (2019-11-13)回复
  7. #27
    qq_avatar

    Option Explicit
    Dim mum1 As Integer, mum2 As Integer
    Dim sexp As String
    Dim result As Single
    Dim nok As Integer, nerror As Integer





    Private Sub Form_Load()
    Dim nop As Integer, op As String * 1
    Randomize
    mum1 = Int(10 * Rnd + 1)
    mum2 = Int(10 * Rnd + 1)
    nop = Int(4 * Rnd + 1)
    Select Case nop
    Case 1
    op = "+"
    result = num1 + mum2
    Case 2
    op = "-"
    result = num1 - mum2
    Case 3
    op = "*"
    result = num1 * mum2
    Case 4
    op = "/"
    result = num1 / mum2
    End Select
    sexp = num1 & op & num2 & "="
    Label1 = sexp
    End Sub

    Private Sub Text1_Change()

    End Sub

    洪荒少女~ 1周前 (2019-11-13)回复
  8. #26
    qq_avatar

    Option Explicit
    Dim mum1 As Integer, mum2 As Integer
    Dim sexp As String
    Dim result As Single
    Dim nok As Integer, nerror As Integer





    Private Sub Form_Load()
    Dim nop As Integer, op As String * 1
    Randomize
    mum1 = Int(10 * Rnd + 1)
    mum2 = Int(10 * Rnd + 1)
    nop = Int(4 * Rnd + 1)
    Select Case nop
    Case 1
    op = "+"
    result = num1 + mum2
    Case 2
    op = "-"
    result = num1 - mum2
    Case 3
    op = "*"
    result = num1 * mum2
    Case 4
    op = "/"
    result = num1 / mum2
    End Select

    End Sub

    洪荒少女~ 1周前 (2019-11-13)回复
  9. #25
    qq_avatar

    1111111111

    佩玲月韵 1周前 (2019-11-13)回复
  10. #24
    qq_avatar

    多分享点  配套 face  face

    佩玲月韵 1周前 (2019-11-12)回复
  11. 1 2 3 4
切换注册

登录

您也可以使用第三方帐号快捷登录

切换登录

注册