一楼度娘

求各位帮助我，我是小白完全不会

<script language="vbscript">
T1
T2
T3
T4
Sub T1()
For I1 = 1 To 9
For I2 = 1 To 9
For I3 = 1 To 9
For I4 = 1 To 9
If I1 < I2 And I1 < I3 And I1 < I4 Then If I2 > I1 And I2 > I3 And I2 > I4 Then If I3 = (I1 + I4) * 2 Then If CInt(I1 & I2 & I3 & I4) Mod 2 = 1 Then GN = I1 & I2 & I3 & I4
Next: Next: Next: Next
DW 1, GN
End Sub
Sub T2()
End Sub
Sub T3()
End Sub
Sub T4()
Randomize
For I = 1 To 100
GN = GN & Chr(Int((90 - 65 + 1) * Rnd + 65)) & IIf(I Mod 20 = 0, "<br />", " ")
Next
DW 4, GN
End Sub
Sub DW(N, T)
Document.Write N & ":<br />" & T & "<br />"
End Sub
Function IIf(GEOMtf,GEOMT,GEOMF)
If GEOMtf Then IIF = GEOMT Else IIF = GEOMF
End Function
</script>
.....啊~不愿写了。。。~~看看别人有木有空吧