qq_41665174的博客

原创 vb星座查询-简易

Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim month(11) As Object Dim day(30) As Object For i = 0 To 30 If i < 12 Then ...