初一成绩管理系统VB1.docVIP

初一成绩管理系统VB1 不用timer取系统时钟的记时方法： private sub cmdstart_click() static hour as integer static minute as integer static second as integer static msecond as integer dim i as integer if flag=false then hour=0 minute=0 second=0 msecond=0 end if flag=false do while hour24 do while minute60 do while second60 do while msecond100 for i=1 to 100 doevents if flag=true then goto exitloop end if next i lbshow.caption=format $ (hour,00)+:+format $ (munute,00)+:+format $ (second,00)+:+format $ (msecond,00) msecond=msecond+1 loop msecond=0 second=second+1 loop second=0 minute=minute+1 loop minute=0 hour=hour+1 loop hour=0 exitloop: end sub 闲置循环 1、先工程……添加模块 然后在其中建立一个叫main的过程 2、工程……工程1属性……通用标签……启动对象中选择“sub main” dim i as integer sub main () form1.show do while doevents() form1.cls form1.print i i=i+1 loop end sub private sub command1_click() static flag as boolean if flag then flag=false else command1.caption=cancel flag=true i=0 do while flag and (i1000000) for j=1 to 1000 i=i+1 next j doevents loop flag=false command1.caption=ok end if end sub for each i in form1.controls i.enabled=false next i 当对数组使用for each ……next时要注意每次循环时，元素变量代表的是数组中当前元数的值而不是元数本身所以只能取元数的值而不能改变数组元数的值 一 Option Explicit API函数声明 Private Const SRCCOPY = HCC0020 Private Declare Function BitBlt Lib gdi32 (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nwidth As Long, ByVal nheight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare Function StretchBlt Lib gdi32 (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nwidth As Long, ByVal nheight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long Const mnNotPic = 481 错误代码 显示图像过程 Public Sub showpic() Dim l As Long Dim nwidth As Long, nheight As Long picshow.Refresh 刷新picshow的内容 将实际图像的宽和高与picshow的宽和高进行比较，如果都,,,,于， 则调用Bitblt函数把图像从pictmp中复制到picshow中 If pictmp.Width picsh