VB计算应用题如何写

来源：百度知道 编辑：UC知道 时间：2024/06/02 11:43:35
我有这样一个题：
在第 1 年中每月生产 100 个零件 那么第1年就有 100*12=1200 个零件
在第 2 年中每月生产 150 个零件 那么第2年就有 150*12=1800 个零件
在第 3 年中每月生产 200 个零件 那么第2年就有 200*12=2400 个零件
。。。。
问第 N 年要生产多少个零件（N=自然数）？
从第 1 年 到 第 N 年 一共生产了多少零件
请问 如何用VB来计算这个应用题
（用户可以自定义N为多少）
请将每一句的意思写下来
谢谢 30分哦
还可以加分的。。。。

刚学VB吧？或者根本没接触过？其实这个问题很简单，根据题意，归纳公式为SUM=600(N+1),N为年数，SUM为当年产量。
要计算总量，用循环就可以了。总的代码如下。
在窗体上添加文本框控件text1，按钮控件command1
代码如下：
Private Sub Command1_Click()
Dim N&, Sum&, AllSum& '定义三个变量
N = Val(Text1.Text) '接受字符串，用val函数转化为数值变量
AllSum = 0
Sum = 600 * (N + 1) '计算第N年产量
For i = 1 To N '用for循环计算总产量
AllSum = AllSum + 600 * (i + 1)
Next i
MsgBox "第" & N & "年产量为" & CStr(Sum) & "个零件，" & "总产量为" & CStr(AllSum) & "个零件。" '输出计算结果
End Sub

够详细了吧？我第一次写这么多注释，再不明白我就没办法了。

第N年要生产的零件数是第N年的月产量 (n-1)*50 +100 乘以12
在form的load事件中添加如下代码:
dim i as integer,sb as integer,sum as integer,N as integer '定义几个变量
N=inputbox("第N年,N是多少") '由用户输入N是多少
sum =0 'sum是第1年到N年的生产总和，初始是0
for i =1 to N '建立一个循环，求出第一年至第N年的产量
sb=12*((n-1)*50 +100) '计算每一年的产量
print "第";N;"年的产量是:";sb
print
su