<html xmlns:o=3D"urn:schemas-microsoft-com:office:office" xmlns:w=3D"urn:sch=
emas-microsoft-com:office:word" xmlns:st1=3D"urn:schemas-microsoft-com:offic=
e:smarttags" xmlns=3D"http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=3DContent-Type content=3D"text/html; charset=3Dus-ascii">
<meta name=3DGenerator content=3D"Microsoft Word 11 (filtered medium)">
<o:SmartTagType namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
name=3D"PlaceType"/>
<o:SmartTagType namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
name=3D"place"/>
<o:SmartTagType namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
name=3D"PlaceName"/>
<!--[if !mso]>
<style>
st1\:*{behavior:url(#default#ieooui) }
</style>
<![endif]-->
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
p.MsoHeader, li.MsoHeader, div.MsoHeader
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
p.MsoFooter, li.MsoFooter, div.MsoFooter
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
p
{mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:"Times New Roman";}
span.EmailStyle19
{mso-style-type:personal-compose;
font-family:Arial;
color:windowtext;}
/* Page Definitions */
@page
{mso-endnote-separator:url("cid:header.htm\@01C78803.018F81D0") es;
mso-endnote-continuation-separator:url("cid:header.htm\@01C78803.018F81D0")=
ecs;}
@page Section1
{size:595.3pt 841.9pt;
margin:72.0pt 90.0pt 72.0pt 90.0pt;
mso-footer:url("cid:header.htm\@01C78803.018F81D0") f1;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=3DEN-AU link=3Dblue vlink=3Dpurple>
<div class=3DSection1>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'>Hi all,<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'>I'm trying to create a random phrase generator using Visu=
al
Basic 6 and am stumped. I can make a simple one by creating a string variabl=
e
for each word, and then print random phrases with this simple code:<o:p></o:=
p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'>For phrase =3D 1 To 5<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'> x =3D Int(5 * Rnd(1) + 1)<o:p></o:p></=
span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'> </span></font><font size=3D2 face=3DAr=
ial><span
lang=3DFR style=3D'font-size:10.0pt;font-family:Arial'>y =3D Int(5 * Rnd(1)=
+ 1)<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span lang=3DFR style=3D'fo=
nt-size:10.0pt;
font-family:Arial'> z =3D Int(5 * Rnd(1) + 1)<o:p></o:p></=
span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span lang=3DFR style=3D'fo=
nt-size:10.0pt;
font-family:Arial'> Print adj1(x); " "; adj2(y);=
"
"; noun(z)<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span lang=3DFR style=3D'fo=
nt-size:10.0pt;
font-family:Arial'> </span></font><font size=3D2 face=3DAr=
ial><span
style=3D'font-size:10.0pt;font-family:Arial'>Next phrase<o:p></o:p></span></=
font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'>What I want to be able to do is store the words in a
database and use the recordset command to generate a phrase. I also want to=
be
able to edit (add to and delete) words from the database fields. <o:p></o:p>=
</span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'>Anyone able to help?<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'>Thanks,<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'>Jim<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'>Jim Bunn<br>
CCNA CCAI ITE1<br>
Technology Coordinator<br>
<st1:place w:st=3D"on"><st1:PlaceName w:st=3D"on">Hampton</st1:PlaceName> <s=
t1:PlaceType
w:st=3D"on">Park</st1:PlaceType> <st1:PlaceName w:st=3D"on">Secondary</st1:=
PlaceName>
<st1:PlaceType w:st=3D"on">College</st1:PlaceType></st1:place><br>
Victoria Australia<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 face=3DArial><span style=3D'font-size:10=
.0pt;
font-family:Arial'>8795 9400<o:p></o:p></span></font></p>
<p><font size=3D2 face=3DArial><span style=3D'font-size:10.0pt;font-family:A=
rial'><a
href=3D"mailto:bunn.jim.c@edumail.vic.gov.au">bunn.jim.c@edumail.vic.gov.au<=
/a> </span></font><font
size=3D2 face=3DArial><span style=3D'font-size:10.0pt;font-family:Arial'><o:=
p></o:p></span></font></p>
<p class=3DMsoNormal style=3D'text-align:justify'><font size=3D3
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'><o:p> </o:p><=
/span></font></p>
</div>
<p></p><p><b>Important - </b>This email and any attachments may be confident=
ial. If received in error, please contact us and delete all copies. Before o=
pening or using attachments check them for viruses and defects. Regardless o=
f any loss, damage or consequence, whether caused by the negligence of the s=
ender or not, resulting directly or indirectly from the use of any attached=
files our liability is limited to resupplying any affected attachments. Any=
representations or opinions expressed are those of the individual sender, a=
nd not necessarily those of the Department of Education.</p></body>
</html>