帮忙设计一个vb秒表设计程序,求高手帮帮忙,谢谢啦~~

 我来答
xlech
2014-05-03 · TA获得超过149个赞
知道答主
回答量:55
采纳率:0%
帮助的人:37.3万
展开全部
Dim i,h,m,s As Integer
Private Sub Form_Load()
Form1.Caption = "在此输入你的学号和姓名" 
Label1.Autosize = True
Label1.Caption = 0
Timer1.Interval = 1000      '1000毫秒,即1秒
Timer1.Enabled = False
Command1.Caption = "计时开始"
End Sub

Private Sub Command1_Click()
If Command1.Caption = "计时开始" Then
 Timer1.Enabled = True
 Command1.Caption = "停止"
Else
 Timer1.Enabled = False
 Command1.Caption = "计时开始"
 h = i Mod 3600                                    '整除运算,1小时3600秒
 m = (i-h*3600) Mod 60
 s = i-h*3600-m*60
 Msgbox "一共运行了" & h & "小时" & "m" & "分钟" & s & "秒"
End If
End Sub
 
 Private Sub Timer1_Timer()
  i = Label1.Caption
  i = i + 1                                         '每次秒数加1
  Label1.Caption = i
 End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
深圳云诺科技
2024-11-11 广告
甘特图工具是一种直观展示项目时间与进度管理的有效手段。在深圳云诺互联科技有限公司,我们常利用甘特图来规划项目阶段、任务分配及预计完成时间。通过清晰的时间轴和任务条,团队成员能迅速了解项目全局,把握关键节点。甘特图还具备任务依赖关系设置、进度... 点击进入详情页
本回答由深圳云诺科技提供
8Q迦877572350
2014-05-03
知道答主
回答量:24
采纳率:0%
帮助的人:3.2万
展开全部
程序的那速度
要求撒可以啊是
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式