JSFiddle - React, Tailwind, and code Playground
HTML
<pre><code>
txt1.Text = Val(Text1.Text)
Dim i As Integer
Dim j As Integer
For i = Val(Text1.Text) To 1 Step -1
For j = 1 To i
txt1.Text = txt1.Text & j
Next j
txt1.Text = txt1.Text & vbCrLf
Next i
</code></pre>