Greetings

I'm struggling to work out how to add option select form
Elements in qbasic using the. Dom.Bas library. 

 I need individual selectable answers 

I'm trying to achieve following 

Print "Example question 1"  (show html select options)  store ans
Print "Example question 2" (show select options) store ans

Basically my questions should show selectable options

Many thanks

A wee bit of SVG and XML just for the heck of it.

'trust the computer
' press <esc> to exit
Screen _NewImage(300, 250, 32)
Dim As Long simg
svgheader$ = "<svg width='" + _Trim$(Str$(_Width)) + "' height= '" + _Trim$(Str$(_Height)) + "'  >"
svgfooter$ = "</svg>"
_PrintMode _KeepBackground
_FullScreen _SquarePixels , _Smooth
i$ = "<rect x='10' y= '10' width='280' height='240' fill='red' stroke='white' stroke-width='3'/>"
i$ = i$ + "<polyline points='100 100 200 100 150 220 100 100' stroke='white' stroke-width='12'/>"
i$ = i$ + "<polyline points='100 100 200 100 150 220 100 100' stroke='black' stroke-width='8'/>"
i$ = i$ + "<polyline points='100 100 200 100 150 220 100 100' stroke='white' stroke-width='3'/>"
i$ = i$ + "<path d='M 130 110 C 120 140, 180 140, 170 110' stroke='white' fill='none' stroke-width='8' />"
i$ = i$ + "<circle cx='40' cy='40' r='12'stroke='white' stroke-width='8'/>"
i$ = i$ + "<circle cx='250' cy='40' r='12'stroke='white' stroke-width='8'/>"
i$ = i$ + "<circle cx='40' cy='40' r='12'stroke='black'fill='none' stroke-width='3'/>"
i$ = i$ + "<circle cx='250' cy='40' r='12'stroke='black'fill='none' stroke-width='3'/>"
svg$ = svgheader$ + i$ + svgfooter$
simg = _LoadImage(svg$, 32, "memory")
Do
    _PutImage , simg
    _PrintString (75, 40), "Praise The Computer"
    _Delay 2
    _PutImage , simg
    _PrintString (45, 70), "The Computer is Your Friend"
    _Delay 2
    _PutImage , simg
    _PrintString (40, 70), "The Computer is Watching You"
    _Delay 2
    _PutImage , simg
    _PrintString (75, 40), "Trust The Computer"
    _Delay 2
    _PutImage , simg
    _PrintString (65, 40), "Freedom Is Digital"
    kk$ = InKey$
Loop Until kk$ = Chr$(27)
_PutImage , simg
_PrintString (25, 55), "This Would Have Looked Better"
_Delay 1
_PrintString (11, 70), "If The Programmer Centered The Text"
_Delay 5
_PutImage , simg
_Delay 3
Cls
_Delay 2
System
_FreeImage simg

being able to load SVGs into memory gives QB64 Phoenix Edition programs a very powerful vector drawing tool. 
This in effect gives us a better draw command.
Here's a simple example that takes a two dimensional array of points and converts it to an SVG to be rendered.

'arrayto_svg    v0.1
'by James D. Jarvis 11/15/2023,   QB64 3.9.0 or higher required
'Convert a two-dimensional numerical array into an SVG and draw that SVG on the screen
'
'made possible due to the SVG example in the QB64 Phoenix Edition WIKI example for _LOADIMAGE
'$dynamic
$Resize:Smooth
Dim As String svg
Dim img As Long
Dim a(3, 2), b(4, 2)
Screen _NewImage(1000, 500, 32)
a(1, 1) = 100: a(1, 2) = 100
a(2, 1) = 100: a(2, 2) = 200
a(3, 1) = 200: a(3, 2) = 200
svg = arrayto_svg$(a(), 20, "#EEEEEE", "#557733") 'convert the array a() into a closed polygon in an SVG
img = _LoadImage(svg, 32, "memory") 'load that SVG into the image
_PutImage , img 'draw the image
_FreeImage img 'free the image
 
b(1, 1) = 300: b(1, 2) = 200
b(2, 1) = 600: b(2, 2) = 200
b(3, 1) = 600: b(3, 2) = 300
b(4, 1) = 300: b(4, 2) = 300
svg = arrayto_svg$(b(), 5, "#770000", "#FFCCCC") 'convert the array a() into a closed polygon in an SVG
img = _LoadImage(svg, 32, "memory") 'load that SVG into the image
_PutImage , img 'draw the image
_FreeImage img 'free the image
Function arrayto_svg$ (aop(), swid, sklr As String, fklr As String)
    'convert a two dimensional numerical array aop(p,2) to a closed polygon to draw as an SVG
    Dim nsvg As String
    maxp = UBound(aop)
    nsvg = "<?xml version='1.0' encoding='utf-8'?>"
    nsvg = nsvg + "<!-- Generator: QB64_SVG, SVG Export . SVG Version: 6.00 Build 0)  -->"
    nsvg = nsvg + "<svg version='1.2' baseProfile='tiny' id='Layer_1' xmlns='http://www.w3.org/2000/svg' xmlns:xlink='http://www.w3.org/1999/xlink'"
    nsvg = nsvg + "    x='0px' y='0px' viewBox='0 0 1000 500' overflow='visible' xmlpace='preserve'>"
    nsvg = nsvg + "<g>"
    nsvg = nsvg + "<path fill='" + fklr + "' stroke='" + sklr + "' stroke-width='" + _Trim$(Str$(swid)) + "' stroke-miterlimit='10' d='M"
    For p = 1 To maxp
        nsvg = nsvg + Str$(aop(p, 1)) + "," + Str$(aop(p, 2)) + ","
    Next p
    nsvg = nsvg + Str$(aop(1, 1)) + "," + Str$(aop(1, 2))
    nsvg = nsvg + "'/>"
    nsvg = nsvg + "</g>"
    nsvg = nsvg + "</svg>"
    arrayto_svg$ = nsvg
End Function

This was one of the first things I worked on when I started with QB64, but never finished. 
Finally I figured it wasn't doing anyone any good just sitting on a hard drive, 
so I stopped procrastinating and made it a playable game and not just a demo. 
There are still a million improvements I would like to do, but it seems to work. 
Give it a try and let me know what you all think, and feel free to reuse or modify however you like.