vba初学者问个问题
vba吧
全部回复
仅看楼主
level 4
L18215600939 楼主
题目让用户输入雇员每周五天的工作时间,并计算出总的工作时间,用消息框显示总的工作时间。
我编的程序如下:
Public Sub EnterHours()
Dim iHours As Integer
Dim iDays As Integer
For iDays = 1 To 5
iHours = InputBox("请输入你的工作时间")
sHours = iHours + iHours
Next
MsgBox "你的工作时间总计为:" & sHours
End Sub
为什么计算老是出错啊
2016年03月26日 01点03分 1
level 1
Shours定义了的?
2016年03月26日 04点03分 2
sHours我是定义的公共变量,这里没有弄出来
2016年03月26日 08点03分
level 10
问题是出什么错误信息
2016年03月26日 06点03分 4
是计算结果不正确,比如我输入1-5,计算结果是10而不是15
2016年03月26日 08点03分
@L18215600939 你输入1-5 系统自动帮你截取了变成了1 1+1=2 循环5次不是10么?正确的。
2016年03月26日 09点03分
@cc1027cc 哦,那我想得到的是输入5天工作时间,然后能得到总的工作时间,该怎么编写这个呢
2016年03月27日 02点03分
level 12
sHouse=sHouse+iHouse
2016年03月27日 03点03分 5
改好了,谢谢[大拇指]
2016年03月27日 05点03分
level 10
inputbox返回的是文本。
2016年03月27日 04点03分 6
哦,那请问该怎么改
2016年03月27日 05点03分
@L18215600939 val( )
2016年03月27日 08点03分
1