这个程序为什么必须用到变量声明?

Question

设计一个时种显示程序,可以选择是用12小时方式还是24小时方式显示当前时间,可以选择是否显示当前日期.
Option Explicit
Dim d, t As StringPrivate Sub Check1_Click()
If Check1.Value = 1 Then
d = "YYYY-MM-DD"
Else
d = ""
End If
End SubPrivate Sub Form_Load()
d = "": t = "HH:mm:ss ampm"
Label1.Caption = Format(Now, d + "     " + t)
End SubPrivate Sub Option1_Click()
If Option1.Value = True Then t = "HH:MM:SS ampm"
End SubPrivate Sub Option2_Click()
If Option2.Value = True Then t = "HH:MM:SS"
End SubPrivate Sub Timer1_Timer()
Label1.Caption = Format(Now, d + "    " + t)
End Sub

Answer 1

注释掉Option Explicit这句就无需变量申明了，不过建议楼主使用变量强制申明

Answer 2

Option Explicit
强制变量声明语句
Option Explicit 语句强制要求显式声明脚本中的所有变量。 Option Explicit 说明
如果使用 Option Explicit，该语句必须出现在脚本的任何其他语句之前。使用 Option Explicit 语句时，必须使用 Dim、Private、Public 或 ReDim 语句显式声明所有变量。如果试图使用未经声明的变量名，则会出现错误。提示 可用 Option Explicit 避免拼错已存在的变量名称。对于作用范围不清楚的变量，使用此语句可避免发生混淆。下面例子举例说明如何使用 Option Explicit 语句: Option Explicit    ' 强制显示声明变量。
Dim MyVar          '声明变量。
MyInt = 10         '未声明变量产生错误。
MyVar = 10         '声明变量不产生错误。

Answer 3

我把前两条语句去掉,
Option Explicit
Dim d, t As String
结果执行程序时只以12小时方式显示几秒钟就不见了

Answer 4

Dim d, t As String
不用去掉
声明

Answer 5

因为你必须要把他们设置为全局的才可以在各个sub里面通用

Answer 6

aspower:
       谢谢你!
    帮我编写另一个程序好吗?
    设计一个程序,在窗体上有一个文本框及一个标签,使程序运行时在文本框中每输入一个字,在标签上都能立即显示文本框中当前的整个字符串.假设我想输入teacher,那么当我输入t 时就能在标签上显示出teacher吗?                                                               梅子

Answer 7

我刚不是发给你了？
只能你输入t就显示t
你输入t他不可能显示所有的　程序怎么知道你将来输入什么？在text的change事件里输入　lable1.caption=text1.text
这样就可以

Answer 8

aspower:
       谢谢你!
       我就是这么编写的,我以为不对.