2.3程序的选择结构

* 您的姓名：

* 您的学号：

* 您的班级：

已知变量a的值为178，判断其奇偶性，是偶数则让变量X的值为0，是奇数则让变量x的值为1。请将程序缺失部分“___”补充完整：
Function func()
Dim a As Integer, x As Integer
___= 178
If a / 2 = Int(a / 2) Then
x = 0
Else
x = 1
End If
func = x
End Function

已知变量a的值为178，判断其奇偶性，是偶数则让变量X的值为0，是奇数则让变量x的值为1。请将程序缺失部分“___”补充完整：
Function func()
Dim a As Integer, x As Integer
a = 178
If ___ = Int(a / 2) Then
x = 0
Else
x = 1
End If
func = x
End Function

计算房租费，收费标准为：面积70平方米以下（包括70）按4元/平方米，超过70平方米的部分按6元/平方米计算。m表示租房面积，n表示房租费。请将程序缺失部分“————”补充完整：
Function func()
Dim m As Integer, n As Integer
___= 128
If m <= 70 Then
n = 4 * m
Else
n = 4 * 70 + 6 * (m - 70)
End If
func = "房租费n=" & n
End Function

已知变量a的值为178，判断其奇偶性，是偶数则让变量X的值为0，是奇数则让变量x的值为1。请将程序缺失部分“___”补充完整：
Function func()
Dim a As Integer, x As Integer
a = 178
If a / 2 = Int(a / 2) Then
x= ___
Else
x = 1
End If
func = x
End Function

计算房租费，收费标准为：面积70平方米以下（包括70）按4元/平方米，超过70平方米的部分按6元/平方米计算。m表示租房面积，n表示房租费。请将程序缺失部分“————”补充完整：
Function func()
Dim m As Integer, n As Integer
m = 128
If m <= 70 Then
n = _____
Else
n = 4 * 70 + 6 * (m - 70)
End If
func = "房租费n=" & n
End Function

计算房租费，收费标准为：面积70平方米以下（包括70）按4元/平方米，超过70平方米的部分按6元/平方米计算。m表示租房面积，n表示房租费。请将程序缺失部分“————”补充完整：
Function func()
Dim m As Integer, n As Integer
m = 128
If m <= 70 Then
n = 4 * m
Else
n = _____________
End If
func = "房租费n=" & n
End Function

计算房租费，收费标准为：面积70平方米以下（包括70）按4元/平方米，超过70平方米的部分按6元/平方米计算。m表示租房面积，n表示房租费。请将程序缺失部分“————”补充完整：
Function func()
Dim m As Integer, n As Integer
m = 128
If ___<=70 Then
n = 4 * m
Else
n = 4 * 70 + 6 * (m - 70)
End If
func = "房租费n=" & n
End Function

购物计费：某商场为了促销而实行购物打折，在商场购物低于500元（包括500元）不打折，超过500元的部分实行八折优惠。已知某顾客购物按未打折共计花费了898元，编程计算顾客“实际应付的金额”。a表示顾客的购物金额，x表示顾客应该实际付给商场的金额，请将程序缺失部分“——“补充完整

”
Function func()
Dim a As Single, x As Single
a = 898
If ____<=500 Then
x = a
Else
x = 500 + (a - 500) * 0.8
End If
func = "应付金额x=" & x
End Function

计算房租费，收费标准为：面积70平方米以下（包括70）按4元/平方米，超过70平方米的部分按6元/平方米计算。m表示租房面积，n表示房租费。请将程序缺失部分“————”补充完整：
Function func()
Dim m As Integer, n As Integer
m = 128
If  m <= 70  Then
n = 4 * m
Else
n = 4 * 70 + 6 * (m - 70)
________
func = "房租费n=" & n
End Function

购物计费：某商场为了促销而实行购物打折，在商场购物低于500元（包括500元）不打折，超过500元的部分实行八折优惠。已知某顾客购物按未打折共计花费了898元，编程计算顾客“实际应付的金额”。a表示顾客的购物金额，x表示顾客应该实际付给商场的金额，请将程序缺失部分“——“补充完整
Function func()
Dim a As Single, x As Single
a = 898
If a <= 500 Then
_________
Else
x = 500 + (a - 500) * 0.8
End If
func = "应付金额x=" & x
End Function

购物计费：某商场为了促销而实行购物打折，在商场购物低于500元（包括500元）不打折，超过500元的部分实行八折优惠。已知某顾客购物按未打折共计花费了898元，编程计算顾客“实际应付的金额”。a表示顾客的购物金额，x表示顾客应该实际付给商场的金额，请将程序缺失部分“——“补充完整
Function func()
Dim a As Single, x As Single
a = 898
If a <= 500 Then
x = a
Else
x=________________
End If
func = "应付金额x=" & x
End Function

购物计费：某商场为了促销而实行购物打折，在商场购物低于500元（包括500元）不打折，超过500元的部分实行八折优惠。已知某顾客购物按未打折共计花费了898元，编程计算顾客“实际应付的金额”。a表示顾客的购物金额，x表示顾客应该实际付给商场的金额，请将程序缺失部分“——“补充完整
Function func()
Dim a As Single, x As Single
a = 898
If a <= 500 Then
x = a
______
x = 500+(a-500)*0.8
End If
func = "应付金额x=" & x
End Function

雅西高速于2012年4月29日正式修成通车。假设该高速公路的收费标准是，在该高速路上行驶100公里以上（不包含100公里）的车辆0.4元/公里。下列程序的功能是计算车辆应该缴纳的费用。x表示车辆在该高速路上行驶的公里数，y表示应收费用。请将程序缺失部分“—”补充完整：
Function func()

Dim x As Single
Dim y As Single
x = 140
If x <= 100 _________
y = 0.5 * x
Else
y = 0.4 * x
End If
func = "该车辆应交纳的费用y=" & y

End Function

在2012年，苹果公司推出了新产品“new Ipad”，售价定位4800元/台。为了促销，某商场实行了如下的销售策略，一次购买3台以上（不包含3台）的，实行9折优惠。下列程序的功能是计算顾客应付的金额。x表示该顾客购买的台数，y表示应付金额。
请将程序缺失部分“——”补充完整：
Function func()

Dim x As Single
Dim y As Single
x = 4
If ___________ Then
y = 0.9 * x * 4800
Else
y = x * 4800
End If
func = "顾客应付的金额y=" & y

End Function

雅西高速于2012年4月29日正式修成通车。假设该高速公路的收费标准是，在该高速路上行驶100公里以上（不包含100公里）的车辆0.4元/公里。下列程序的功能是计算车辆应该缴纳的费用。x表示车辆在该高速路上行驶的公里数，y表示应收费用。请将程序缺失部分“—”补充完整：
Function func()

Dim x As Single
Dim y As Single
x = 140
If x <= 100 Then
y = 0.5 * x
Else
y=________
End If
func = "该车辆应交纳的费用y=" & y

End Function

在2012年，苹果公司推出了新产品“new Ipad”，售价定位4800元/台。为了促销，某商场实行了如下的销售策略，一次购买3台以上（不包含3台）的，实行9折优惠。下列程序的功能是计算顾客应付的金额。x表示该顾客购买的台数，y表示应付金额。
请将程序缺失部分“——”补充完整：
Function func()

Dim x As Single
Dim y As Single
x = 4
If x>3 Then
y = 0.9 * x * 4800
_____
y = x * 4800
End If
func = "顾客应付的金额y=" & y

End Function

在2012年，苹果公司推出了新产品“new Ipad”，售价定位4800元/台。为了促销，某商场实行了如下的销售策略，一次购买3台以上（不包含3台）的，实行9折优惠。下列程序的功能是计算顾客应付的金额。x表示该顾客购买的台数，y表示应付金额。
请将程序缺失部分“——”补充完整：
Function func()

Dim x As Single
Dim y As Single
x = 4
If x>3 Then
y = _______
Else
y = x * 4800
End If
func = "顾客应付的金额y=" & y

End Function

在2012年，苹果公司推出了新产品“new Ipad”，售价定位4800元/台。为了促销，某商场实行了如下的销售策略，一次购买3台以上（不包含3台）的，实行9折优惠。下列程序的功能是计算顾客应付的金额。x表示该顾客购买的台数，y表示应付金额。
请将程序缺失部分“——”补充完整：
Function func()

Dim x As Single
Dim y As Single
x = 4
If x>3 Then
y = 0.9 * x * 4800
Else
y = ______
End If
func = "顾客应付的金额y=" & y

End Function