VB題。編程題。

第壹題：

Private Sub Form_Click()

Dim Ju As Integer, Ou As Integer

Dim A As Integer

Do

A = Int(Val(InputBox("請輸入整數", "輸入", 100)))

If A = -1 Then Exit Do

If A Mod 2 = 0 Then

Ou = Ou + 1

Else

Ju = Ju + 1

End If

Loop

Print "您壹***輸入了"; Ou + Ju; "個數，其中："

Print "偶數有"; Ou; "個；奇數有"; Ju; "個"

End Sub

第二題：

Private Sub Form_Click()

Dim Zj As Single, Uf As Single

Zj = Val(InputBox("請輸入商品總價值", "輸入", 300))

If Zj <= 0 Then Exit Sub

If Zj > 1000 Then

Uf = 200 + 800 * 0.9 + (Zj - 1000) * 0.8

ElseIf Zj > 200 Then

Uf = 200 + (Zj - 200) * 0.9

Else

Uf = Zj

End If

Print "您購買的商品總價值為"; Zj; "元"

Print "優惠後實際應付金額為"; Uf; "元"

End Sub

第三題：

Private Sub Form_Click()

Dim Uz(10) As Integer, I As Byte

Print "您輸入的原始數組是：";

For I = 1 To 10

Uz(I) = Int(Val(InputBox("第" + Str(I) + "個數", "輸入", I)))

Print Uz(I);

Next

Print

For I = 1 To 5

Uz(0) = Uz(I)

Uz(I) = Uz(11 - I)

Uz(11 - I) = Uz(0)

Next

Print "對換後的數組元素是：";

For I = 1 To 10

Print Uz(I);

Next

Print

End Sub

上面三個程序已經全部運行過。