求两段小代码（等级不够，只能给100分，完了另送）

Question

求编两段代码
（1）当a=“Visual Basic Programming” ，b=“Quick Learning” 
计算c=Left(b,5) & UCase(Mid(a,7,6)) & Right (a,12)（2）A国有x亿人口，按人口年增长y计算，n年后A国人口有多少

Answer 1

1)
Option Explicit
    Dim a As String
    Dim b As String
    Dim c As String
    
Private Sub Command1_Click()
    a = "Visual Basic Programming"
    b = "Quick Learning"
    c = Left(b, 5) & UCase(Mid(a, 7, 6)) & Right(a, 12)
    Print c
End Sub

Answer 2

2)
Option Explicit
    Dim x As Single
    Dim y As Single
    Dim n As Integer
    Dim z As Long
    
Private Sub Command1_Click()
    x = InputBox("输入A国人口", x)
    y = InputBox("输入人口年增长率", y)
    n = InputBox("输入N年", n)
    z = x * (1 + y) ^ 10
    Print z
End Sub

Answer 3

Option ExplicitPrivate Sub Form_Load()
    Dim a As String
    Dim b As String
    Dim c As String
    Dim x As Single
    Dim y As Single
    Dim n As Integer
    Dim z As Long
    x = InputBox("输入A国人口", "数据输入")
    y = InputBox("输入人口年增长率", "数据输入")
    n = InputBox("输入N年", "数据输入")
    z = x * (1 + y) ^ n
   MsgBox "n年后A国人口有:" & z
    
    
     a = "Visual Basic Programming"
    b = "Quick Learning"
    c = Left(b, 5) & UCase(Mid(a, 7, 6)) & Right(a, 12)
     MsgBox "C的值为:" & c
   End Sub

Answer 4

（1）当a=“Visual Basic Programming” ， 
计算c=Left(b,5) & UCase (Mid(a,7,6)) & Right (a,12) Private Function Get_New_String (Byval a As String, Byval b As String) As String
    Get_New_String = Left(b,5) & UCase(Mid(a,7,6)) & Right (a,12)
End Functiona = “Visual Basic Programming”
b = “Quick Learning”
c = Get_New_String(a, b)'c = "Quick BASIC Programming"（2）A国有x亿人口，按人口年增长y计算，n年后A国人口有多少Private Function Population_Growth (Byval x As Single, Byval y As Single, Byval n As Integer) As Single
     Population_Growth = x * (1 + y) ^ n
End FunctionDim x As Single, y As Single, p As Single, n As Integerx = 150000000
y = 0.002
n = 10p = Population_Growth(x, y, n)'p = 153,027,200

Answer 5

（2）A国有x亿人口，按人口年增长y计算，n年后A国人口有多少这道题貌似（2004）全国计算机等级考试二级VB的最后一题。

Answer 6

问题1: 你不是自己写了代码了么
问题2: 其实VB自己就带了这么一个函数,不用写代码,具体名字忘记了.翻翻MSDN中的VB语言参考中的函数,我记得是看到过一个计算复利的公式