我刚学VB几个课时,有个菜鸟问题请大家相助.......静待中...

[indog]

Private Sub setdate()
Dim r%, i%
r% = CInt(Format$(Now, "yyyy"))
i% = r% - 1960
~~~~~~~~~~~~~~~~~~/谁能解释这一句的意思 谢了
cboyear.ListIndex = i%

r% = CInt(Format$(Now, "mm"))
cbomonth.ListIndex = (r% - 1)
~~~~~~~~~~~~~~~~~~/谁能解释这一句的意思 谢了
r% = CInt(Format$(Now, "dd"))
lblnumber(r% - 1).BorderStyle = 1
selectedate% = r%
~~~~~~~~~~~~~~~~~~/谁能解释这一句的意思 谢了
End Sub

[yingzi80]

Private Sub setdate() '你程序中的Now是怎么传过来的(全局变量?)
Dim r%, i% '你这两个变量是什么类型,Va 类型的吗
r% = CInt(Format$(Now, "yyyy")) '将Now中的年份取出来
i% = r% - 1960 '从1960年起Now是第几年
~~~~~~~~~~~~~~~~~~/谁能解释这一句的意思 谢了
cboyear.ListIndex = i%

r% = CInt(Format$(Now, "mm"))
cbomonth.ListIndex = (r% - 1) 'Now中是第几个月
~~~~~~~~~~~~~~~~~~/谁能解释这一句的意思 谢了
r% = CInt(Format$(Now, "dd"))
lblnumber(r% - 1).BorderStyle = 1
selectedate% = r% 'Now中是第几天
~~~~~~~~~~~~~~~~~~/谁能解释这一句的意思 谢了
End Sub