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.