關於VB程式設計問題

’演算法描述：’’注意事項：’’   1、請在 func() 函式中實現演算法，返回演算法結果’   2、請不要修改 Main() 過程’Function func()    Dim x As Integer  Dim y As Integer  x = 8  If _________ Then     y = 18 * x  Else     y = 20 * x  End If  func = ”應付款y=” & y   End Function’’ 請不要修改 Main() 過程 ！’Sub Main()    If Command = ”assess” Then            Open ”in.txt” For Input As #1        Line Input #1, n        Close #1            Open ”out.txt” For Output As #1        Print #1, func()        Close #1                            Else                       MsgBox func()        End IfEnd Sub啟動VB，開啟工程檔案“c:MyExamVB02.vbp”，完成如下演算法設計:       2012年5月，四川省成都龍泉地區的枇杷取得了大豐收，當地農民為了促銷，準備執行以下的銷售策略：購買5公斤以上（不包含5公斤），單價為：18元/公斤；否則，單價為20元/公斤。小張同學想用VB語言編寫一個程式計算購買X公斤枇杷的應付款y，結果小張同學只編寫出瞭如下的不完整程式。        請將程式缺失部分“___”補充完整，並將“___”字元刪除，正確執行程式後，儲存檔案並退出VB。