在文本框中输入小时、分、秒,单击命令按钮,转化成共有多少秒,并利用标签输出结果。用VB怎么解决
2个回答
展开全部
标签的名字设定为Labwrite
输入小时的文本框的名字设定为Txth
输入分的文本框的名字设定为Txtm
输入秒的文本框的名字设定为Txts
那个按钮的名字设定为Cmdme
然后在脚本里输入
Sub Cmdme_Chick()
Labwrite = Str(Val(Txth) * 3600 + Val(Txtm) * 60 + Val(Txts))
' 总共的秒数当然是小时乘3600加分钟乘60加秒吧。
' Str(x)的作用是返回x变成字符串的值,比如原来x = 60,返回"60"
' Val(x)的作用是返回x变成数值的值,比如原来x = "961",返回961
End Sub
就这么简单,不知道LZ明白了多少呢?
输入小时的文本框的名字设定为Txth
输入分的文本框的名字设定为Txtm
输入秒的文本框的名字设定为Txts
那个按钮的名字设定为Cmdme
然后在脚本里输入
Sub Cmdme_Chick()
Labwrite = Str(Val(Txth) * 3600 + Val(Txtm) * 60 + Val(Txts))
' 总共的秒数当然是小时乘3600加分钟乘60加秒吧。
' Str(x)的作用是返回x变成字符串的值,比如原来x = 60,返回"60"
' Val(x)的作用是返回x变成数值的值,比如原来x = "961",返回961
End Sub
就这么简单,不知道LZ明白了多少呢?
参考资料: 原创
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询