<html xmlns:v=3D"urn:schemas-microsoft-com:vml" xmlns:o=3D"urn:schemas-micro=
soft-com:office:office" xmlns:w=3D"urn:schemas-microsoft-com:office:word" xm=
lns:st1=3D"urn:schemas-microsoft-com:office:smarttags" xmlns=3D"http://www.w=
3.org/TR/REC-html40">
<head>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; charset=3Dus-ascii">
<meta name=3DGenerator content=3D"Microsoft Word 11 (filtered medium)">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]--><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"/>
<o:SmartTagType namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
name=3D"PlaceType"/>
<!--[if !mso]>
<style>
st1\:*{behavior:url(#default#ieooui) }
</style>
<![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* 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.EmailStyle20
{mso-style-type:personal;
font-family:Arial;
color:windowtext;}
span.EmailStyle21
{mso-style-type:personal-reply;
font-family:Arial;
color:navy;}
@page Section1
{size:595.3pt 841.9pt;
margin:72.0pt 90.0pt 72.0pt 90.0pt;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=3DEN-AU link=3Dblue vlink=3Dpurple>
<div class=3DSection1>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span style=3D=
'font-size:
10.0pt;font-family:Arial;color:navy'>Try to no think in terms of the Vb arra=
y
structure.<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span style=3D=
'font-size:
10.0pt;font-family:Arial;color:navy'>A sorted recordset is list with each
record in the list having a record number associated in the internal memory.=
<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span style=3D=
'font-size:
10.0pt;font-family:Arial;color:navy'>Get the index value of your random gene=
rator
to locate the record in the recordset via the recordnumber given by the rand=
om
generated index.<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span style=3D=
'font-size:
10.0pt;font-family:Arial;color:navy'>There is plenty o f MShelp on recordset=
s
to show you how to go about this.<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span style=3D=
'font-size:
10.0pt;font-family:Arial;color:navy'>Good Luck and happy coding.<o:p></o:p><=
/span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span style=3D=
'font-size:
10.0pt;font-family:Arial;color:navy'>Regards,<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span style=3D=
'font-size:
10.0pt;font-family:Arial;color:navy'>Rick Lumsden<o:p></o:p></span></font></=
p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span style=3D=
'font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<div>
<div class=3DMsoNormal align=3Dcenter style=3D'text-align:center'><font size=
=3D3
face=3D"Times New Roman"><span lang=3DEN-US style=3D'font-size:12.0pt'>
<hr size=3D2 width=3D"100%" align=3Dcenter tabindex=3D-1>
</span></font></div>
<p class=3DMsoNormal><b><font size=3D2 face=3DTahoma><span lang=3DEN-US
style=3D'font-size:10.0pt;font-family:Tahoma;font-weight:bold'>From:</span><=
/font></b><font
size=3D2 face=3DTahoma><span lang=3DEN-US style=3D'font-size:10.0pt;font-fam=
ily:Tahoma'>
itapps-bounces@edulists.com.au [mailto:itapps-bounces@edulists.com.au] <b><s=
pan
style=3D'font-weight:bold'>On Behalf Of </span></b>Jim Bunn<br>
<b><span style=3D'font-weight:bold'>Sent:</span></b> Thursday, 26 April 2007=
1:01
PM<br>
<b><span style=3D'font-weight:bold'>To:</span></b> IT Applications mailing l=
ist<br>
<b><span style=3D'font-weight:bold'>Subject:</span></b> [Year 12 IT Apps] of=
f
topic VB6 problem</span></font><span lang=3DEN-US><o:p></o:p></span></p>
</div>
<p class=3DMsoNormal><font size=3D3 face=3D"Times New Roman"><span style=3D'=
font-size:
12.0pt'><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'>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> <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>
<p><b><font size=3D3 face=3D"Times New Roman"><span style=3D'font-size:12.0p=
t;
font-weight:bold'>Important - </span></font></b>This email and any attachmen=
ts
may be confidential. If received in error, please contact us and delete all
copies. Before opening or using attachments check them for viruses and defec=
ts.
Regardless of any loss, damage or consequence, whether caused by the neglige=
nce
of the sender 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, and not necessarily those of the Department of Education.=
<o:p></o:p></p>
<p class=3DMsoNormal><font size=3D3 face=3D"Times New Roman"><span style=3D'=
font-size:
12.0pt'>_______________________________________________ <br>
<a href=3D"ttp://www.edulists.com.au">http://www.edulists.com.au </a>- FAQ,
resources, subscribe, unsubscribe <br>
IT Applications Mailing List kindly supported by <br>
<a href=3D"ttp://www.vcaa.vic.edu.au">http://www.vcaa.vic.edu.au </a>- Victo=
rian
Curriculum and Assessment Authority and <br>
<a href=3D"ttp://www.vitta.org.au">http://www.vitta.org.au </a>- VITTA Victo=
rian
Information Technology Teachers Association Inc<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>