Question

有没有大神帮忙看看哪里错了？

Plugin.GetSysInfo.GetDateTime GetDateTime = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)m = "当前时间" & GetDateTimeMessageBox ma = Hour(8) & ":" & Minute(0) & ":" & Second(0) < m > Hour(20) & ":" & Minute(0) & ":" & Second(0)i = aIf i=a Then Dim yname yname=inputbox("请输入你的名字:") who(yname) sub who(cname) msgbox "你好" & cname msgbox "感谢你查看值班系统" End SubElseIf i≠a ThenEnd If//通过判断表达式的取值，来执行后面的动作或控制

Answer 1

这段VBScript代码存在语法错误和逻辑问题，无法正常运行和实现预期功能。主要存在以下问题：

• 第1行代码中的Plugin.GetSysInfo.GetDateTime未定义，无法获取系统时间。

• 第2行代码中的Hour、Minute和Second函数应该使用小写字母，如hour、minute和second，否则会引发语法错误。

• 第4行代码中的“<m>”和“</m>”应该去掉，否则会引发语法错误。

• 第5行代码中的“a”未定义，无法判断当前时间是否在工作时间段内。

• 第10行代码中的“who”应该是一个过程名，而非一个变量名，应该使用sub关键字来定义过程。

• 第13行代码中的“End If”应该在if语句的末尾，而非else语句的末尾，否则会引发语法错误。

• 该程序没有使用循环等控制结构来实现重复执行的功能，只能在程序执行时判断当前时间是否在工作时间段内，无法在指定时间段内自动执行。

针对上述问题，需要对代码进行修改和优化，以使其能够正常运行和实现预期功能。