Bite-Code™

Home » Post Item » Prime Numbers

Prime Numbers

May 5, 2010

<html>
<body bgcolor=”pink”>
<center><font color=”white”>
<h2>The Prime Numbers inside the textboxes are:</h2>
<form name=form1>
<input type=text name=text1 size=2>
<input type=text name=text2 size=2>
<input type=text name=text3 size=2>
<input type=text name=text4 size=2>
<input type=text name=text5 size=2>
<input type=text name=text6 size=2>
<input type=text name=text7 size=2>
<input type=text name=text8 size=2>
<input type=text name=text9 size=2>
</form>
<br>
<script language=”vbscript”>
Dim TheForm
Set TheForm = document.form1
 
Dim aPrime(9)  
document.writeln(”")
x = 1
i = 3
   While i <= 30
      Prime = True
      j = 2
      While j <= i\2 And Prime
         Prime = i Mod j > 0
         j = j + 1
      Wend 
      If Prime Then
    aPrime(x) = i
TheForm.text1.Value = aPrime(1) 
TheForm.text2.Value = aPrime(2)
TheForm.text3.Value = aPrime(3)   
TheForm.text4.Value = aPrime(4)   
TheForm.text5.Value = aPrime(5)   
TheForm.text6.Value = aPrime(6)   
TheForm.text7.Value = aPrime(7)   
TheForm.text8.Value = aPrime(8)
TheForm.text9.Value = aPrime(9)       
    x = x+1
      End If
      i = i + 2
   Wend
</script>

</html>

Posted by mowllen at 9:25 am | permalink

All comments are moderated. Your comments will not appear here unless approved by the blog owner. Thank you.

Add a comment