欢迎来到三一办公! | 帮助中心 三一办公31ppt.com(应用文档模板下载平台)
三一办公
全部分类
  • 办公文档>
  • PPT模板>
  • 建筑/施工/环境>
  • 毕业设计>
  • 工程图纸>
  • 教育教学>
  • 素材源码>
  • 生活休闲>
  • 临时分类>
  • ImageVerifierCode 换一换
    首页 三一办公 > 资源分类 > DOCX文档下载  

    VB编写的课堂随机点名小程序代码.docx

    • 资源ID:3063077       资源大小:37.35KB        全文页数:4页
    • 资源格式: DOCX        下载积分:6.99金币
    快捷下载 游客一键下载
    会员登录下载
    三方登录下载: 微信开放平台登录 QQ登录  
    下载资源需要6.99金币
    邮箱/手机:
    温馨提示:
    用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)
    支付方式: 支付宝    微信支付   
    验证码:   换一换

    加入VIP免费专享
     
    账号:
    密码:
    验证码:   换一换
      忘记密码?
        
    友情提示
    2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
    3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
    4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
    5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。

    VB编写的课堂随机点名小程序代码.docx

    VB编写的课堂随机点名小程序代码随机点名系统。 综合网上各类小程序,自己修改定制了一款新的小程序。 学生名单.txt 放在同一个目录中。 使用截图如下 Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) '定义常量 Const HWND_TOPMOST = -1 'On Top Const HWND_NOTOPMOST = -2 'No Top Const SWP_NOACTIVATE = &H10 ' Const SWP_SHOWWINDOW = &H40 ' 'Dim TopOn As Integer Dim ss, mm, nn Dim num(1 To 300) As Integer Dim j, k As Integer Dim A(500) As String, r As Integer Dim filename As String Private Sub Command1_Click Dim b As String Dim t, i As Integer filename = App.Path & "" & "学生名单.txt" Open filename For Input As #1 '产生记录总数以内的随机数x i = 1 While Not EOF(1) Line Input #1, A(i) i = i + 1 Wend c = i Close #1 Start: Randomize t = Int(c * Rnd + 1) For j = 1 To c If t = num(j) Then GoTo Start End If Next Label1.Caption = A(t) k = k + 1 num(k) = t If k = c Then MsgBox "所有人员均已点过!", vbSystemModal Command1.Enabled = False Command3.Enabled = True End If End Sub Private Sub Command2_Click Unload Form1 End Sub Private Sub Command3_Click j = 0 k = 0 For i = 1 To 300 num(i) = 0 Next Command3.Enabled = False Command1.Enabled = True Label1.Caption = "Name" End Sub Private Sub Command4_Click Timer1.Enabled = True Command4.Enabled = False End Sub Private Sub Data1_Validate(Action As Integer, Save As Integer) End Sub Private Sub Form_load Form1.Height = 500 Form1.Width = 8550 Command3.Enabled = False Timer1.Enabled = False nn = 0 mm = 45: ss = 0 Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer Dim M As Integer SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left / 15, _ Me.Top / 15, Me.Width / 15, _ Me.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW Line1: If ss < 10 Then s = "0" & ss Else s = ss End If If mm < 10 Then mmm = "0" & mm Else mmm = mm End If t = mmm & ":" & s Label2.Caption = t ss = ss - 1 If nn = 3 Then ss = 88 End If If mm = 0 And ss = -1 And nn = 0 Then MsgBox "休息时间已到,五分钟后继续", vbSystemModal nn = 1 mm = 5: ss = 0 GoTo Line1 End If If mm = 0 And ss = -1 And nn = 1 Then MsgBox "继续上课", vbSystemModal nn = 2 mm = 45: ss = 0 GoTo Line1 End If If mm = 0 And ss = -1 And nn = 2 Then MsgBox "放学咯!", vbSystemModal Command1.Enabled = False nn = 3 mm = 88: ss = 88 End If If ss = -1 And mm > 0 Then mm = mm - 1: ss = 59 If mm = 0 And hh > 0 Then hh = hh - 1: mm = 59 End Sub

    注意事项

    本文(VB编写的课堂随机点名小程序代码.docx)为本站会员(小飞机)主动上传,三一办公仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知三一办公(点击联系客服),我们立即给予删除!

    温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载不扣分。




    备案号:宁ICP备20000045号-2

    经营许可证:宁B2-20210002

    宁公网安备 64010402000987号

    三一办公
    收起
    展开