Page 144 -

附錄四：11900 電腦軟體設計丙級學科題庫(105 年新版)

Select Case d(i, 1)
Case "MONDAY"

s3(1) = s3(1) + st
Case "TUESDAY"

s3(2) = s3(2) + st
Case "WEDNESDAY"

s3(3) = s3(3) + st
Case "THURSDAY"

s3(4) = s3(4) + st
Case "FRIDAY"

s3(5) = s3(5) + st
Case "SATURDAY"

s3(6) = s3(6) + st
Case "SUNDAY"

s3(7) = s3(7) + st
End Select
Next
For i = 1 To 7
m(i, 1).text = "星期" & s1(i)
m(i, 3).text = Format(s3(i), "###,###,###")
m(i, 2).width = 300 * s3(i) / tot
m(i, 3).left = m(i, 2).left + m(i, 2).width + 10
Next
For i = 5 To 7
For j = 1 To 3
m(i, j).SHOW()
Next
Next
End Sub

140