中学生做到理性消费，就应该[ ]

A．选择商品时多听取家长意见　

B．消费要追求时尚，表达个性

C．不与人盲目攀比，把钱花在关键处，不浪费金钱

D．购买物有所值、经济实用的商品，注重绿色消费和精神消费

在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。 能够正确实现上述功能的代码是

A．Privme Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val() Print a End Sub Function F1(ByRef b As Intege If b Mod 2=0 Then Return 0 Else Return 1 End If End Function

B．Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val() Print a End Sub Function F1(ByRef b As Intege If b Mod 2=0 ThenF1=0 ElseF1=1 End If End Function

C．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val() Print a End Sub Function F1(ByRef b As Intege If b Mod 2=0 ThenF1=1 ElseF1=0 End If End Function

D．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1 (Val() Print a End Sub Function F1(ByRef b As Intege If b Mod 2=0 ThenReturn 0 ElseReturn 1 End If End　Function