用vb语言编写下列分段函数:当x的值为偶数时,y的值为x的一半 当x的值为奇数时,y的值为x的两倍

只要判断出输入的数是奇数还是偶数就行了：可以试试以下代码.
Private Sub form_click()
Dim y,x '定义了两个变体变量
x = InputBox("请输入一个整数","数据输入")
If x = "" Then '判断输入的数是否为空值
MsgBox "请输入一个整数",,"提示"
Exit Sub
End If
x = CDbl(x)
If Int(x) x Then '判断输入的数是不是整数
MsgBox "请输入一个整数",,"提示"
Exit Sub
End If
If x Mod 2 = 0 Then
y = x / 2
Print "您输入的是偶数,y=x/2=";
ElseIf x Mod 2 0 Then
y = 2 * x
Print "您输入的是奇数数y=2x=";
End If
Print y
End Su