UC知道检查VB代码
来源：百度知道 编辑：UC知道 时间：2024/05/07 22:04:36
我们要求做了一个判断闰年的VB．我做的代码是：
Private Sub Command1_Click()
If (Text1.Text Mod 4 = 0 And Text1.Text Mod 100 <> 0) Or Text1.Text Mod 400 = 0 Then
Label2.Caption = "是"
Else
Label2.Caption = "否"
End If
End Sub
这个是可以运行的，不过我想用Text1.text方法不方便，我想在通用中定义一个dim y as integer再定义text1.text=y．但在运行的过程中如果这样输入，在点command时答案一直是”是”．请问高人，指点下原因～～谢谢～～
那我该怎么用这个方法呀?
不在通用里声明变量吗?在编写的过程中写?
Private Sub Command1_Click()
If (Text1.Text Mod 4 = 0 And Text1.Text Mod 100 <> 0) Or Text1.Text Mod 400 = 0 Then
Label2.Caption = "是"
Else
Label2.Caption = "否"
End If
End Sub
这个是可以运行的，不过我想用Text1.text方法不方便，我想在通用中定义一个dim y as integer再定义text1.text=y．但在运行的过程中如果这样输入，在点command时答案一直是”是”．请问高人，指点下原因～～谢谢～～
那我该怎么用这个方法呀?
不在通用里声明变量吗?在编写的过程中写?
定义应该用y=text1.text才对啊．
Private Sub Command1_Click()
Dim y As Integer
y = Text1.Text
If (y Mod 4 = 0 And y Mod 100 <> 0) Or y Mod 400 = 0 Then
Label2.Caption = "是"
Else
Label2.Caption = "否"
End If
End Sub
你text1.text=y，这不就让文本内容不变了么
y是全局变量，你给他初值或者不过他默认0，都会始终显示一个结果，除非改变y的值，改为y=text1.text，然后将所有的text1.text都换为y
y = text1.text
If (y Mod 4 = 0 And y Mod 100 <> 0) Or y Mod 400 = 0 Then
Label2.Caption = "是"
Else
Label2.Caption = "否"
End If