Question

VB题目求解

VB毕业生小张到A、B两公司求职，两家公司的第一个月工资都是1000元，但随后加工资的方式不同：A公司每个月均比上一个月多发8% ；B公司每个月均比上一个月多发100元。若小张准备签订两年期的工作合同，且只考虑工资总额多少的因素，请帮小张作出选择（结果用A或B表示）。

Answer 1

完整代码如下：

Dim S1, S2, L As Double

Dim i As Integer

 

L = 1 + 0.08

S1 = 0

For i = 1 To 24

   S1 = S1 + 1000 * L ^ (i - 1)

Next i

 

S2 = 0

For i = 1 To 24

   S2 = S2 + 1000 + (i - 1) * 100

Next i

 

If S1 > S2 Then

   MsgBox "选择A公司"

Else

   MsgBox "选择B公司"

End If

运行结果显示选择：A

Answer 2

Private Sub Form_Click()
Print "加工资的方式A："
salary = 1000
For i = 1 To 24
salary = Round(salary * 1.08)
Print "第" & i & "个月：" & salary
suma = suma + salary
Next
Print "加工资的方式A24个月工资总和：" & suma

Print ""

Print "加工资的方式B："
salary = 1000
For i = 1 To 24
salary = salary + 100
Print "第" & i & "个月：" & salary
sumb = sumb + salary
Next
Print "加工资的方式B24个月工资总和：" & sumb

Print ""

Print "加工资的方式A与加工资的方式B的差额：" & suma - sumb
End Sub