Microsoft Small Basic
Program Listing:
Embed this in your website
<object id='sbapp' data='data:application/x-silverlight-2,' type='application/x-silverlight-2' width='640' height='480'> <param name='source' value='http://smallbasic.com/program/ClientBin/SBWeb.xap'/> <param name='onError' value='onSilverlightError' /> <param name='background' value='white' /> <param name='minRuntimeVersion' value='3.0.40624.0' /> <param name='autoUpgrade' value='true' /> <param name='initParams' value='programId=VWG100' /> </object>
labeltop
:
TextWindow
.
Write
(
"Please give length of rectangle :"
)
len
=
TextWindow
.
ReadNumber
(
)
TextWindow
.
Write
(
"Enter a width :"
)
wid
=
TextWindow
.
ReadNumber
(
)
If
(
len
<
0
Or
wid
<
0
)
Then
TextWindow
.
WriteLine
(
"Error : You need to give both values > 0"
)
Goto
labeltop
EndIf
For
k
=
1
To
wid
If
(
k
=
1
Or
k
=
wid
)
Then
For
s
=
1
To
len
TextWindow
.
Write
(
"*"
)
EndFor
Else
For
a
=
1
To
len
If
(
a
=
1
Or
a
=
len
)
Then
TextWindow
.
Write
(
"*"
)
Else
TextWindow
.
Write
(
" "
)
EndIf
EndFor
EndIf
TextWindow
.
WriteLine
(
" "
)
EndFor
Goto
labeltop
Copyright (c) Microsoft Corporation. All rights reserved.