- 博客(5)
- 收藏
- 关注
RSS订阅原创 个人税收的计算
Private Sub Command1_Click() '声明变量为Single类型 Dim PayForTax As Single, Income As Single,IncomeForTax As Single Income = Val(Text1.Text) '个人收入减去个税起征点1600适应纳税所得额 IncomeForTax = Income - 1600 '根据应纳税所
2012-05-08 14:47:22
422
原创 顺序文件的选用
Dim x(10) As Integer Private Sub Command1_Click() For i = 1 To 10 Randomize x(i) = 10 + Int(Rnd() * 90) If i = 1 Then Text1.Text = Text1.Text &Trim(Str(x(i))) Else Text1.Text = Text1.Text &
2012-05-08 14:45:58
244
原创 求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-05-08 14:43:58
355
原创 判断整除并求和
Public Sub sum(x As Integer, y As Integer,z As Integer, w As Long) Dim i As Integer If x > y Then t = x: x = y: y = t End If For i = x To y If i Mod z = 0 Then w = w + i End If Next i
2012-05-08 14:41:52
280
原创 判断一个数是否是素数
'Label1.Caption =IIf(IsPrimer(Int(Val(Text2.Text))) = 0, "bushi", "shi) End Sub Private Function IsPrimer(n As Integer) AsInteger Dim i As Integer For i = 2 To n - 1
2012-05-08 14:40:17
331
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人