vbscript:Dim name(10)
Dim yourname(10)
Sub onchanged()
dim i
dim s s = 你Form的名字.elements.你的输入框
'或者 s 通过参数传递过来
for i=0 to 10
if s = name(i) then 对另一个框赋值:exit for
next
end sub你也可以编个javascript的。我编程都是临时查找属性名，或者IDE环境自动提供的，所以上面的拼写可能有错误，但原理没错。
另外既然你的数据是确定的，不如用Select下拉框，保证用户输入的数据是存在的，并且和你预定的是一致的。
Dim yourname(10)
Sub onchanged()
dim i
dim s s = 你Form的名字.elements.你的输入框
'或者 s 通过参数传递过来
for i=0 to 10
if s = name(i) then 对另一个框赋值:exit for
next
end sub你也可以编个javascript的。我编程都是临时查找属性名，或者IDE环境自动提供的，所以上面的拼写可能有错误，但原理没错。
另外既然你的数据是确定的，不如用Select下拉框，保证用户输入的数据是存在的，并且和你预定的是一致的。
<input type=text name=say readonly><script>
function show(v) {
if(ar[v])
document.all["say"].value = ar[v];
}
// 原始数组
var data = new Array(
"name-your name",
"中国-江苏"
);
// 将原始数组构造成便于检索的形式
var ar = Array();
for(i=0;i<data.length;i++) {
s = data[i].split("-");
ar[s[0]] = s[1];
}
</script>
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD><BODY>
<script>
var obj1 = new Array();
var obj2 = new Array();
obj1[0] = "xian"
obj2[0] = "bo"
function mxo(){
if(document.browser.a.value == obj1[0]){
document.browser.b.value = obj2[0]
}
}
</script>
<form name="browser">
<input type="text" name="a" onblur="mxo()">
<input type="text" name="b" disabled>
</form>
</BODY>
</HTML>