怎样定义一个全局数组，然后再按键等事件的函数中对它进行赋值？

Question

（同一个窗体内）要定义一个，全局数组，然后在按钮的事件中对它的某些元素进行赋值 
 如：在标准模块中定义
Public date_data1(1 To 32) As Byte   '日期、时间、温湿度参数存储数组1
然后 在commad 函数中改变它的某些值
Private Sub Cad_auto_show_Click()
         date_date1(1) = 1            '给全局数组送数据，开智能显示
End Sub
运行，单击该按钮，会提示 “子程序或函数未定义”
Private Sub Cad_auto_show_Click()  变黄色

Answer 1

date_date1(1)  
date_data1(1) 
你变量名弄错了，打错字所以出问题了

Answer 2

你要先做一个公共类，就是*.cls文件，名称如：数据结构
里面有4个变量
Public 日期 As Date
Public 时间 As Date
Public 温度 As Double
Public 湿度 As Double这样组成一个结构2,模块a1.bas
Public 数据结构数组(32) As New 数据结构3,frm1.frm窗体Private Sub Command1_Click()
数据结构数组(1).日期 = Now
数据结构数组(1).时间 = "11:51"
数据结构数组(1).湿度 = 3.5
数据结构数组(1).温度 = 35
   End Sub