- 博客(4)
- 收藏
- 关注
原创 求100以内素数的和
Private Sub Command1_Click() Dim s As Integer, n As Integer s= 0: n = 1 DoWhile n If IsPrimer(n) s = s + n End If n= n + 1 Loop Print "1~100之内
2012-04-28 23:36:44 447
原创 计算你的出生日期是星期几
Private Sub Command1_Click() Dim Year As Integer Dim Month As Integer Dim Day As Integer Dim dayofweek As Byte Dim Birthday As Date Year = Int(Val(Text1.Text)) Month = Int(Val(Text2.Text)) Day
2012-04-28 23:33:31 951
原创 能被17和37整除的数
PrivateSub Command1_Click() Dimindex As Integer Forindex = 1000 To 2000 Step 1 IfIs17and37ZhengChu(index) = True Then Print Str(index) End If Next index End Sub Function Is17
2012-04-16 23:09:08 352
原创 两位数的乘法
Private Sub Command1_Click() Dim N As Integer Dim M As Integer N = Trim(Text1.Text) M = Trim(Text2.Text) Dim number1() As Integer Dim number2() As Integer ReDim number1(Len(N)) ReDim
2012-04-10 22:56:47 278
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人