这是一个VB程序，包含两个部分：首先计算100以内素数的和，接着根据用户输入的个人收入计算应缴纳的个人所得税。程序通过For循环和If条件判断实现功能，对于素数判断使用了辅助函数sushu()，而对于个人所得税的计算，采用了Select Case语句进行不同区间税率的计算。
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
s = 0
For i = 2 To 100
If sushu(i) Then s = s + i
Next i
Print s
End Sub
Function sushu(n As Integer) As Boolean
Dim i As Integer
sushu = True
For i = 2 To n - 1
If n / i = n \ i Then sushu = False
Next i
End Function
Private Sub Command1_Click()
Dim s As Integer
s = Val(Trim(InputBox("个人收入：", "应缴纳个人所得税：", 800)))
If s <= 800 Then
Text1.Text = 0
Else
s = s - 800
Select Case s
Case Is <= 500: s = s * 0.05
Case Is <= 2000: s = s * 0.1
Case Is <= 5000: s = s * 0.15
Case Is <= 20000: s = s * 0.2
Case Is <= 40000: s = s * 0.25
Case Is <= 60000: s = s * 0.3
Case Is <= 80000: s = s * 0.35
Case Is <= 100000: s = s * 0.4
Case Is > 1000000: s = s * 0.45
End Select
Text1.Text = s
End If
End Sub
这个是有关计算100以内素数之和和课本上的有关计算个人税的程序，
扫一扫
1512
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
