Dim d As Integer
'添加
Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub
'删除
Private Sub Command2_Click()
List1.RemoveItem (List1.ListIndex)
End Sub
'修改
Private Sub Command3_Click()
List1.List(List1.ListIndex) = Text1.Text
End Sub
Private Sub Form_Load()
Dim Year As Integer
Year = CInt(InputBox("输入要判断的年份", "提示"))
If Year Mod 400 = 0 Or Year Mod 4 = 0 And Year Mod 100 <> 0 Then
MsgBox "闰年"
Else
MsgBox "不是闰年"
End If
End Sub
Private Sub List1_Click()
Text1.Text = List1.Text
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024