Page 143 -

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

(2)依車輛種類別統計副程式(bcar_Click)

Private Sub bcar_Click(ByVal sender…………………………………
gdata.Show()
gdata.Text = "依車輛種類"

Dim s1(7), s3(7)
s1(1) = "大型車" : s1(2) = "中型車"

s1(3) = "小型車" : s1(4) = "公務車"

For i = 1 To rnum
For j = 1 To 4

s3(j) = s3(j) + d(i, j + 1)
Next

Next
For i = 1 To 4 - 1

For j = 1 To 4 - 1
If s3(j) > s3(j + 1) Then

Dim m3 = s3(j) : s3(j) = s3(j + 1) : s3(j + 1) = m3
Dim m1 = s1(j) : s1(j) = s1(j + 1) : s1(j + 1) = m1
End If
Next
Next
For i = 1 To 4
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).hide()
Next

Next
End Sub

(3)依星期別統計副程式(bweek_Click)

Private Sub bweek_Click(ByVal ………………………………………….
gb_data.Show()
gb_data.Text = "依星期別"
Dim s1(7), s3(7)
s1(1) = "一" : s1(2) = "二" : s1(3) = "三" : s1(4) = "四"
s1(5) = "五" : s1(6) = "六" : s1(7) = "日"
For i = 1 To rnum

Dim st = d(i, 2) + d(i, 3) + d(i, 4) + d(i, 5)

139