急求一个编程问题

使用VBA

Sub d()

Dim p

Dim rate

Dim n

Dim i As Long

n = InputBox("请输入经过多少年？")

p = 12

rate = 02

For i = 1 To n

p = p (1 + rate)

Next i

MsgBox p

End Sub

Dim dlbCont(11) As Double 'dlacont(1)-dlbCont(10) 存放各年龄段的统计人数

Private Sub Command1_Click()

Dim a As Integer

Dim intFlag As Integer '判断标志

Do While a <> -1

a = InputBox("input age")

If a = -1 Then

intFlag = 0

Else

intFlag = a \ 10 + 1

End If

Select Case intFlag

Case 1

dlbCont(intFlag) = dlbCont(intFlag) + 1

Case 2

dlbCont(intFlag) = dlbCont(intFlag) + 1

Case 3

dlbCont(intFlag) = dlbCont(intFlag) + 1

Case 4

dlbCont(intFlag) = dlbCont(intFlag) + 1

Case 5

dlbCont(intFlag) = dlbCont(intFlag) + 1

Case 6

dlbCont(intFlag) = dlbCont(intFlag) + 1

Case 7

dlbCont(intFlag) = dlbCont(intFlag) + 1

Case 8

dlbCont(intFlag) = dlbCont(intFlag) + 1

Case 9

dlbCont(intFlag) = dlbCont(intFlag) + 1

Case 10

dlbCont(intFlag) = dlbCont(intFlag) + 1

End Select

Loop

Dim j As Integer

j = 0

For i = 1 To 10

Print j 10 & "--" & j 10 + 9 & ":" & dlbCont(i)

j = j + 1

Next i

End Sub

#include <stdioh>

main()

{

int year=100;

float pop=200;

while(year--) pop=1035;

printf("%f",pop);

}

#include<cstdio>

int main()

{

    int x,a,y,b;

    double m;

    scanf("%d%d%d%d",&x,&a,&y,&b);

    //注意这里传入的参数前面要加&，也就是取了这几个变量的地址，这样才可以把读入的数字储存到目标变量对应的地址。

    m=(double)(by-ax)/(b-a);

    printf("%02f",m);

    return 0;

}

Private Sub Form_Load()

Dim a, b As Long

a = 6000000000#

Do While a <= 7000000000#

a = a + a 0014

b = b + 1

Loop

MsgBox "共需要" & b & "年 将到达 " & Int(a) & "人口"

End Sub

以上就是关于急求一个编程问题全部的内容，包括:急求一个编程问题、vb编程,统计XX市的某区年龄段的人口。年龄段为...、人口基数20万，净增长率3.5%。增长率不变100年后人口有多少。用C语言编程怎么写！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！