代表的程序（编写程序以三三两分的方式使用代表计算）不起作用

Question

所以，这个程序没有打印任何东西，我认为这是因为我需要放console.writeline()但我不知道放在哪里或放在()中的内容。这是迄今为止的计划：

Module Module1
Public Delegate Sub MyDelegate()
Sub Main()
    Dim Fns As MyDelegate
    Fns = New MyDelegate(AddressOf FnsTwos)
    Fns()
    Fns = New MyDelegate(AddressOf FnsThrees)
    Fns()
End Sub
Sub FnsTwos()
    Dim x As Integer
    x = x + 2
    Do While 0 < x < 100
    Loop
    Stop
End Sub
Sub FnsThrees()
    Dim x As Integer
    x = x + 3
    Do While 0 < x < 100
    Loop
    Stop
End Sub
End Module