瑞星卡卡安全论坛

计算何年月工资超过10000元。工资起点，年工资增加率分别用Text1和Text2输入，超过的年份用Label1输出(Text3)。分别用三种循环语句编写。请各位高手帮帮手

各位帮帮手吧！！

年工资增长率是指：每年以上一年为工资基准增长，还是指每年都以工资起点为基准进行增长？

每年以上一年为工资基准增长

那么，算法就是：
TEXT1存储第一年，TEXT2存储工资增加率，然后用循环语句执行
计算下一年工资，写入临时变量X；比较X与10000；
若X<10000，继续循环
直到X>=10000，就在TEXT3中输出循环次数。

分别用三种循环语句来实现循环即可。

Private Sub Command1_Click()
On Error GoTo haha
Dim sum As Integer, i As Integer, rsum As Integer
sum = 0
rsum = Val(Text1.Text)
i = 0
Do While sum < 10000
  sum = sum + rsum
  rsum = rsum + rsum * (Val(Text2.Text) / 100)
 
  i = i + 12
Loop

Text3.Text = CStr(i / 12) & "年"

haha:
End Sub

Private Sub Form_Activate()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub



附件: 840121200755223935.jpg

窗体

附件: 840121200755224018.jpg

Do While sum < 10000
sum = sum + rsum
rsum = rsum + rsum * (Val(Text2.Text) / 100)

i = i + 12
Loop

其他的两种就把这个循环语句变变就行了！这就要靠你自己动脑筋了！