Private Sub command1_click()
Dim year as Integer
Dim month as Integer
Dim day as Integer
Dim n as Integer
Dim Birthday as Dete
year=Int(Val(text1.text))
month=Int(Val(text2.text))
day=Int(Val(text3.text))
Birthday=DateSerial(year,month,day)
n=weekday(Birthday)
Label6.caption=weekdayname(n)
End Sub
开始学的时候就能接受了,相对其他的还比较简单。现在也可以理解