Option Explicit
	dim message
	dim i
	dim outField

Sub keyEnter()

	If window.event.keyCode = 13 then
		Call Calculation()
	End If

End Sub
	
Sub Calculation()

	If IsNumeric(myData.inData.Value)=False Then
		message=Msgbox("数値を入力して下さい。",16,"訂正お願いします")
	ElseIf in0 <> 0 Then
		i= 1
			outField= "out" & i
			document.getElementById(outField).innerText = round(inField(i) / in0 * myData.inData.Value,1)
		i= i +1 
			outField= "out" & i
			document.getElementById(outField).innerText = round(inField(i) / in0 * myData.inData.Value,1)
		i= i +1 
			outField= "out" & i
			document.getElementById(outField).innerText = round(inField(i) / in0 * myData.inData.Value,1)
		i= i +1
			outField= "out" & i
			document.getElementById(outField).innerText = round(inField(i) / in0 * myData.inData.Value,1)
		i= i +1 
			outField= "out" & i
			document.getElementById(outField).innerText = round(inField(i) / in0 * myData.inData.Value,1)
		i= i +1 
			outField= "out" & i
			document.getElementById(outField).innerText = round(inField(i) / in0 * myData.inData.Value,1)
		i= i +1 
			outField= "out" & i
			document.getElementById(outField).innerText = round(inField(i) / in0 * myData.inData.Value,1)
		i= i +1 
			outField= "out" & i
			document.getElementById(outField).innerText = round(inField(i) / in0 * myData.inData.Value,1)
		i= i +1 
			outField= "out" & i
			document.getElementById(outField).innerText = round(inField(i) / in0 * myData.inData.Value,1)
		i= i +1 
			outField= "out" & i
			document.getElementById(outField).innerText = round(inField(i) / in0 * myData.inData.Value,1)

	End If

	document.myData.inData.focus()
End Sub