作者asd136954 (= =)
看板Visual_Basic
标题[VBS ] 流程图
时间Tue Aug 18 15:51:41 2009
我在上课
老师突然要我们流程图
程式码是公司营业额什麽的
可以请问大态要怎麽画吗??
Dim amt(2)() As Double
amt(0) = New Double() {1100, 2200, 3300}
amt(1) = New Double() {1500, 2500}
amt(2) = New Double() {1000, 2000, 3000, 4000}
Dim company() As String = {"台北", "台中", "高雄"}
Dim sum() As Double = {0.0, 0.0, 0.0, 0.0}
Dim total As Double = 0.0
Console.WriteLine("{0}第一处{1}第二处{2}第三处{3}第四处 (单位:千元)", vbTab, vbTab, vbTab, vbTab)
For i As Integer = 0 To amt.Length - 1
For k As Integer = 0 To amt(i).Length - 1
Console.Write("{0}{1}", vbTab, amt(i)(k))
sum(i) += amt(i)(k)
Next
total += sum(i) * 1000
Console.WriteLine(vbNewLine)
Next
For i As Integer = 0 To company.Length - 1
sum(i) *= 1000
Console.WriteLine("{0}分公司营业额:{1}元{2}营业额:{3:P}", company(i), sum(i).ToString("c"), vbTab, sum(i) / total)
Next
Console.WriteLine()
Console.WriteLine("总营业额:{0}元", total.ToString("c"))
Console.Read()
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 163.24.208.58
1F：→ MOONRAKER:流程图重点:(1)方形框框(2)菱形框框(3)箭头(4)用手画 08/18 16:32
2F：→ MOONRAKER:阿你在上课，不会画就问老师不就结了，不然偷看同学的 08/18 16:32
3F：推 jwjeng:如果你是正妹，请同学帮你画...如果不是，请自己想办法? 08/19 23:12