[VBS ] 流程圖
我在上課
老師突然要我們流程圖
程式碼是公司營業額什麼的
可以請問大態要怎麼畫嗎??
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
→
08/18 16:32, , 1F
08/18 16:32, 1F
→
08/18 16:32, , 2F
08/18 16:32, 2F
推
08/19 23:12, , 3F
08/19 23:12, 3F
噓
08/21 12:38, , 4F
08/21 12:38, 4F