VB程序出错,未找到方法或数据成员
发布网友
发布时间：2022-05-17 08:23
共1个回答
热心网友
时间：2023-10-14 23:29
Private
Sub
Command1_Click()
Dim
a
As
Integer
Randomize
a
=
Int(20
*
Rnd
+
1)
Text1.Text
=
a
End
Sub
Private
Sub
Command2_Click()
Text1.Visible
=
True
'你上面Visible写成Vasible了，所以提示未找到方法或数据成员
End
Sub
Private
Sub
Command3_Click()
Dim
a,
b
As
Integer
'此处INTEGER你少打了
a
=
Text1.Text
b
=
Text2.Text
If
b
=
a
Then
Label3.Caption
=
"..."
'我不知道这处你想表达什么，Caption属性要赋个值
If
b
>
a
Then
Label3.Caption
=
"..."
If
b
<
a
Then
Label3.Caption
=
"..."
End
Sub
Private
Sub
Command4_Click()
Text1.Visible
=
False
End
Sub
