VB編程題，請用DO語言編程

Private?Sub?Command1_Click()

Dim?x?As?Integer

n1?=?0

n2?=?0

n3?=?0

n4?=?0

i?=?1

x?=?InputBox("請輸入第"?&?i?&?"名學生的成績：")

Do?While?x?>=?0

If?x?>=?90?Then

n1?=?n1?+?1

Else

If?x?>=?70?Then

n2?=?n2?+?1

Else

If?x?>=?60?Then

n3?=?n3?+?1

Else

n4?=?n4?+?1

End?If

End?If

End?If

i?=?i?+?1

x?=?InputBox("請輸入第"?&?i?&?"名學生的成績：")

Loop

Print?"90分以上：";?n1

Print?"70?~?89：";?n2

Print?"60?~?69：";?n3

Print?"小於60：";?n4

End?Sub

上一篇:數控車床G42刀尖半徑補償疑問

下一篇:益智類和拉拉編程壹樣嗎？