输入1～10之间的整数，判断其奇偶性，如果超出1～10的范围则显示“输入的数据出界”

Private Sub Form_Click()
Dim x As Integer
x = InputBox("请输入x的值")
If x < 1 Or x > 10 Then
Print ("输入的数据出界")
ElseIf x Mod 2 = 0 Then
Print "x为偶数"
Else
Print "x为奇数"
End If

End Sub

也没说用什么语言啊？？

#include"stdio.h"
main()
{
int i;
scanf("%d",&i);
if(i-10>0)
{
printf("输入的数据出界\n");
return 0;
}
if(i%2)
printf("奇数\n");
else
printf("偶数\n");
}

我用C++写了
#include<iostream.h>

int main()
{
int i;
cout<<"请输入：";
cin>>i;
if(i<1||i>10)
cout<<"输入的数据出界";
else
if(i%2==0)
cout<<"偶数";
else
cout<<"奇数";
return 0;
}

用 delphi
procedure TForm1.Button1Click(Sender: TObject);
var