- 博客(2)
- 收藏
- 关注
原创 请输入您的出生日期,下面的程序告诉你出生的是周几
Private Sub Command1_Click() Dim year As Integer Dim month As Integer Dim day As Integer Dim n As Integer Dim birthday As Date year = I
2012-04-18 19:58:56 901
原创 求100以内的素数的和
Private Sub Command1_Click() Dim s As Integer, n As Integer s = 0: n = 1 Do While n If IsPrimer(n) s = s + n End If n = n + 1 Loop
2012-04-18 19:56:26 720
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人