VBScript/exp - Sample is best!

実行環境	Microsoft Windows XP Home Edition (SP3)

exp.vbs

' exp.vbs
' 30 10 20 30 40 50
Option Explicit
Dim inp, lvs, lv, c, sum, avg, magavg, magfs, exp, line(2), p1, p2
p1 = 30
p2 = 30
Do While True
	inp = InputBox("スペース区切りでLvを入力")
	lvs = Split(inp)
	c = 0
	sum = 0
	For Each lv In lvs
		c = c + 1
		sum = sum + lv
	Next
	If c < 1 Then Exit Do
	avg = sum / c
 
	' 経験値倍率
	magavg = avg / p1
	If 1 < magavg Then magavg = 1 + (magavg - 1) / p2
	magfs = lvs(0) / p1
	If 1 < magfs Then magfs = 1 + (magfs - 1) / p2
	exp = 500 * magavg * magfs
 
	line(0) = c & "隻 旗艦Lv" & lvs(0) & " 平均Lv" & Int(avg)
	line(1) = "推定基本経験値 " & Int(exp) & " (勝利S " & Int(exp * 1.2) & ")"
	MsgBox(Join(line, vbCrLf))
Loop