If CommitConditionally(textView, completionSurface, " ") Then

textView.Caret.MoveToPreviousCaretPosition()

args.Handled = True

End If

<b><center><span style="font-size:3em;">Small Visual Basic 3.1:</span>

* The reference book may not be the easiest way for kids and beginners to start learning sVB with, and this is why I am publishing the ["Small Visual Basic Kid Programmer" book series](https://www.amazon.com/dp/B0DNX2ZR4D) on Amazon.

<a href="https://www.amazon.com/dp/B0DNX2ZR4D">

<img src="blob:https://marketplace.visualstudio.com/5280dd5a-f721-4f5e-9064-11699bb3c994"/>

* Small Visual Basic is easier than Python for kids and young beginners!

1. Python is a full stack language, while sVB is only for desktop apps and only for educational purposes, which make it more focused on its purpose. But this doesn't mean sVB has no future, or it is just a toy. It is actually the doorway to a popular and powerful development platform: the DotNET and VS .NET. It is easy to use your understanding of sVB syntax, library, form designer, and even the code editor experience to move to VB .NET (and later to C# if you want). But actually sVB has some advanced topics, like designing a multi-form application, using XAML styles, using multi-threading and creating code libraries. sVB also comes with the LitDev external library that contains a 3D engine and a Physics engine, which allows endless advanced possibilities.

2. Both Python and sVB are dynamically typed languages, but sVB is easier in this aspect, because it doesn't require type conversions.

3. Python is case-sensitive (and surprisingly, the True and False keywords starts with uppercase letters), while sVB is case-insensitive, and the code editor makes sure to fix words to their original casing. This makes it more easier to learn.

4. Python lists have 0-based indexes, while sVB arrays by default have 1-based indexes, which is more natural and easier for kids to deal with, but nothing prevents them from using the 0 index or even negative indexes, because arrays in sVB are actually dictionaries, so indexes are actually keys!

5. Trigonometry functions use radian angles in Python. This is the default case in sVB, but you can disable this behavior to use degrees by using:

Math.UseRadianAngles = False

6. Python for loops can be confusing because of the range exclusive end:

for i in range(5, 0, -1):

print(i)

while for loops are very simple in sVB:

For I = 5 To 1 Step -1

TW.WriteLine(I)

7. Python block indentation is confusing for kids, and make nested statement harder to understand and more error borne because of miscounted spaces, while sVB uses end blocks (like EndIf, EndSub, and Next) which makes the code readable and well constructed. The sVB editor automatically adds the end block token while the kid is typing. It also adjusts block indentation and pretty-lists spaces and identifier casing. It even enforces a variable casing rule: local vars and parameters start with a lowercase, while global vars, subroutines and functions start with uppercase. So, in sVB, kids focus only on the code logic, not formatting!

8. The sVB IDE is easy and powerful to deal with forms and graphics.

Imports Microsoft.SmallVisualBasic.Statements

Public Function GetMethodInfo(mc As MethodCallStatement) As System.Reflection.MethodInfo

If mc Is Nothing Then Return Nothing

Return GetMethodInfo(mc.MethodCallExpression)

End Function

Public Function GetMethodInfo(mc As MethodCallExpression) As System.Reflection.MethodInfo

If mc Is Nothing Then Return Nothing

Return GetMethodInfo(mc.TypeName, mc.MethodName)

End Function

Public Function GetMethodInfo(typeName As Token, methodName As Token) As System.Reflection.MethodInfo

Dim typeInfo = Me.GetTypeInfo(typeName)

If typeInfo Is Nothing Then Return Nothing

Dim key = methodName.LCaseText

If Not typeInfo.Methods.ContainsKey(key) Then Return Nothing

Return typeInfo.Methods(key)

End Function

Public Function GetPropertyInfo(typeName As Token, propName As Token) As System.Reflection.PropertyInfo

Dim typeInfo = Me.GetTypeInfo(typeName)

If typeInfo Is Nothing Then Return Nothing

Dim key = propName.LCaseText

If Not typeInfo.Properties.ContainsKey(key) Then Return Nothing

Return typeInfo.Properties(key)

End Function

L = LblRange.Width

St = LblRange.Left

LblSrart.Width = 0

LblEnd.Width = 0

LblMsg.Width = 0

TextBox1.Focus()

Num = Math.GetRandomNumber(100)

Trials = 0

Start = Date.Now

Min = 1

' ------------------------------------------------

Sub BtnRand_OnClick()

TextBox1.Text = ""

Trials = 0

LblRange.Left = St

LblRange.Width = L

Min = Math.Rnd(0, 10) * 10 + 1

LblSrart.Text = Min - 1

LblSrart.Right = St

LblEnd.Text = Min + 100

LblEnd.Left = LblRange.Right

LblMsg.Text = Text.Format(

"Guess a number between [1] and [2]",

{Min, Min + 99}

)

Num = Math.Rnd(Min, Min + 99)

TextBox1.Focus()

Start = Date.Now

EndSub

' ------------------------------------------------

Sub BtnGuess_OnClick()

BtnRand.Enabled = False

d = Date.Now - Start

n = TextBox1.Text

Trials = Trials + 1

Me.Text = Trials & " trials in " & Math.Round(d.TotalSeconds) & " seconds"

If n = Num Then

Sound.PlayBeep()

Forms.ShowMessage("Yes, that is right! You can play again.", "Well done!")

BtnRand_OnClick()

BtnRand.Enabled = True

Return

EndIf

Sound.PlayBellRing()

x = St + (n - Min + 1) * L / 100

If LblRange.Left < x And LblRange.Right > x Then

If n < Num Then

LblRange.Left = x

LblRange.Width = LblEnd.Left - LblRange.Left

LblSrart.Text = n

LblSrart.Right = LblRange.Left

Else

LblRange.Width = x - LblSrart.Right

LblRange.Right = x

LblEnd.Text = n

LblEnd.Left = LblRange.Right

EndIf

EndIf

TextBox1.SelectAll()

TextBox1.Focus()

EndSub

' ------------------------------------------------

Sub TextBox1_OnKeyDown()

If Event.LastKey = Keys.Enter Then

BtnGuess_OnClick()

Event.Handled = True

EndIf

EndSub

'@Form Hints:

'#Form1{

' LblMsg: Label

' TextBox1: TextBox

' BtnGuess: Button

' Label2: Label

' LblRange: Label

' LblSrart: Label

' LblEnd: Label

' BtnRand: Button

'}

Me = "form1"

LblMsg = "form1.lblmsg"

TextBox1 = "form1.textbox1"

BtnGuess = "form1.btnguess"

Label2 = "form1.label2"

LblRange = "form1.lblrange"

LblSrart = "form1.lblsrart"

LblEnd = "form1.lblend"

BtnRand = "form1.btnrand"

_path = Program.Directory + "\form1.xaml"

Form1 = Forms.LoadForm("Form1", _path)

Form.SetArgsArr(form1, Stack.PopValue("_form1_argsArr"))

'#Events{

' BtnGuess: OnClick

' TextBox1: OnKeyDown

' BtnRand: OnClick

'}

' BtnGuess Events:

Control.HandleEvents(BtnGuess)

Control.OnClick = BtnGuess_OnClick

' TextBox1 Events:

Control.HandleEvents(TextBox1)

Control.OnKeyDown = TextBox1_OnKeyDown

' BtnRand Events:

Control.HandleEvents(BtnRand)

Control.OnClick = BtnRand_OnClick

Form.Show(Me)

<Canvas Background="#FFF0F0F0" Name="Form1" Width="590.393700787401" Height="329.92125984252" FlowDirection="LeftToRight" AutomationProperties.HelpText="Form1" xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:s="clr-namespace:System;assembly=mscorlib"><Canvas.Tag><s:Boolean>False</s:Boolean></Canvas.Tag><Label FontWeight="Bold" Name="LblMsg" Width="Auto" MaxWidth="Infinity" Height="34.0157480314961" MaxHeight="Infinity" Visibility="Visible" IsEnabled="True" Canvas.Left="117.165354330709" Canvas.Top="102.047244094488" AutomationProperties.Name="LblMsg"><TextBlock Text="Guess a number between 1 and 100" TextWrapping="Wrap" /></Label><TextBox HorizontalScrollBarVisibility="Auto" VerticalScrollBarVisibility="Auto" IsInactiveSelectionHighlightEnabled="True" Width="109.606299212598" MaxWidth="Infinity" Height="45.3543307086614" MaxHeight="Infinity" Visibility="Visible" IsEnabled="True" Canvas.Left="192.755905511811" Canvas.Top="245.669291338584" AutomationProperties.Name="TextBox1" xml:space="preserve" /><Button Foreground="#FF0000FF" FontWeight="Bold" Name="BtnGuess" Width="49.1338582677168" MaxWidth="Infinity" Height="41.5748031496063" MaxHeight="Infinity" Visibility="Visible" IsEnabled="True" Canvas.Left="321.259842519685" Canvas.Top="245.669291338583" AutomationProperties.Name="BtnGuess"><TextBlock Text="Try" TextWrapping="Wrap" /></Button><Label Background="#FF181616" Width="536.692913385827" MaxWidth="Infinity" Height="37.7952755905512" MaxHeight="Infinity" Visibility="Visible" IsEnabled="True" Canvas.Left="22.6771653543307" Canvas.Top="162.51968503937" AutomationProperties.Name="Label2"><TextBlock Text="Label2" TextWrapping="Wrap" /></Label><Label Background="#FF008000" Name="LblRange" Width="487.55905511811" MaxWidth="Infinity" Height="37.7952755905512" MaxHeight="Infinity" Visibility="Visible" IsEnabled="True" Canvas.Left="41.5748031496063" Canvas.Top="162.51968503937" AutomationProperties.Name="LblRange" AutomationProperties.HelpText=""><TextBlock TextWrapping="Wrap" /></Label><Label Background="#FF6F0B0B" Foreground="#FFFFFFFF" Name="LblSrart" Width="19.1633333333333" MaxWidth="Infinity" Height="37.8" MaxHeight="Infinity" Visibility="Visible" IsEnabled="True" Canvas.Left="22.6771653543307" Canvas.Top="162.51968503937" AutomationProperties.Name="LblSrart"><TextBlock Text="0" TextWrapping="Wrap" /></Label><Label Background="#FF6F0B0B" Foreground="#FFFFFFFF" Name="LblEnd" Width="37.49" MaxWidth="Infinity" Height="37.7952755905512" MaxHeight="Infinity" Visibility="Visible" IsEnabled="True" Canvas.Left="529.133858267717" Canvas.Top="162.51968503937" AutomationProperties.Name="LblEnd"><TextBlock Text="101" TextWrapping="Wrap" /></Label><Button Foreground="#FF0000FF" FontWeight="Bold" Name="BtnRand" Width="105.826771653543" MaxWidth="Infinity" Height="34.0157480314961" MaxHeight="Infinity" Visibility="Visible" IsEnabled="True" Canvas.Left="219.212598425197" Canvas.Top="45.3543307086614" AutomationProperties.Name="BtnRand"><TextBlock Text="Rand start" TextWrapping="Wrap" /></Button><Control Name="__FORM__PROPS__" Tag="{x:Null}" MinWidth="0" MaxWidth="Infinity" MinHeight="0" MaxHeight="Infinity" ToolTip="{x:Null}" Canvas.Left="Auto" Canvas.Top="Auto" /></Canvas>

N = Math.GetRandomNumber(100)

Win = False

Count = 0

While Win = False

TW.Write("Guess the number between 1 & 100: ")

X = TW.ReadNumber()

Count = Count + 1

If X = N Then

TW.WriteLine("Bravo. You win in " & Count & " steps.")

Win = True

ElseIf X < N Then

TW.WriteLine("Try a bigger number!")

Else

TW.WriteLine("Try a smaller number!")

EndIf

Wend

Turtle.Speed = 10

Side1 = 200

R = 0.5

Angle1 = 60

Angle2 = (90 - Angle1) * 2

X1 = Turtle.X

Y1 = Turtle.Y

Turtle.TurnLeft()

Turtle.Turn(180 - Angle1)

Turtle.Move(Side1)

X2 = Turtle.X

Y2 = Turtle.Y

Turtle.Turn(180 - Angle2)

Turtle.Move(Side1)

X3 = Turtle.X

Y3 = Turtle.Y

W = (X3 - X1) / 2

H = Y3 - Y2

X4 = X1 + W

Y4 = Y2 + R * H

Turtle.MoveTo(X4, Y4)

Turtle.MoveTo(X1, Y1)