货币转换程式
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title>货币转换程式</title>
<script language="vbscript">
sub cal()
const x1 = "台币"
const x2 = "美金"
const x3 = "英镑"
a = document.z1.zz.value
b = document.z1.zz1.value
msgbox a
msgbox b
if a = b then
document.z1.nm.value = cdbl(document.z1.om.value)
elseif a=x1 and b=x2 then
document.z1.nm.value =round( cdbl(document.z1.om.value)/33,0)
elseif a=x2 an ..
访客只能看到部份内容，免费 加入会员 或由脸书 Google 
可以看到全部内容
