UC知道vb中的错误，哪位大侠帮帮忙找一下
来源：百度知道 编辑：UC知道 时间：2024/06/21 09:16:36
Dim YSGC As Double, YSJG As Double
Dim CHR As String
Dim YSDX1, YSDX2 As Boolean
Dim ScaleCode As Integer
Dim YSF(0 To 7) As String
Private Sub Init()
YSDX1 = False
Label1.Caption = "0"
YSGC = 0
ScaleCode = 0
YSDX2 = False
End Sub
运行时说变量未定义，要怎么改，求求大家帮帮忙，谢谢
急急急急急急急急！！！！！！！！！
Private Sub Init()
这一行变成黄色的了。
Label1这里变成了蓝色
能不能告诉我怎么改，谢谢了
Dim CHR As String
Dim YSDX1, YSDX2 As Boolean
Dim ScaleCode As Integer
Dim YSF(0 To 7) As String
Private Sub Init()
YSDX1 = False
Label1.Caption = "0"
YSGC = 0
ScaleCode = 0
YSDX2 = False
End Sub
运行时说变量未定义，要怎么改，求求大家帮帮忙，谢谢
急急急急急急急急！！！！！！！！！
Private Sub Init()
这一行变成黄色的了。
Label1这里变成了蓝色
能不能告诉我怎么改，谢谢了
Label1
form上有这个控件吗
Init函数是在form中吗？
在Form上放一个Label控件。名字叫Label1
具体是哪一句变红了？
单这2段看不出什么大问题，只发现了个小问题，但好像也不至于说变量未定义
Dim YSDX1, YSDX2 As Boolean
实际上你定义了一个可变型变量YSDX1，一个布尔型变量YSDX2
照你的意思，要像下面定义才准确：
Dim YSDX1 As Boolean, YSDX2 As Boolean
从提供的代码看，可能的错误只有一种：
出错信息是：实时错误‘424’，要求对象。
如果是这个错误，那就是窗体上没有label1控件。
如果不是这个错误，你还得进一步提供信息。
有可能是你窗体上没有标签，而你却设置了标签的属性
Label1.Caption = "0"
是否有Label1这个控件？或Label1控件是一个数组控件？或Label1控件的名称错误？