主题：表单页面逻辑显示

控制显示隐藏就可以了，如

Select Case e.Path
    Case "test.htm",""
        Dim wb As New weui
        With wb.AddInputGroup("","ipg2","关于在7月/8月购买短装的调研")
            .AddSelect("会购买短装吗","2.会购买短装吗","|A.会|B.不会").Attribute = "onchange=""if(this.value=='A.会'){不买短装原因.parentNode.parentNode.style.display='none';购买短装因素.parentNode.parentNode.style.display='block';}else{不买短装原因.parentNode.parentNode.style.display='block';购买短装因素.parentNode.parentNode.style.display='none';}"""
            .AddSelect("购买短装因素","3.购买短装因素","|A.店铺上新款|B.促销优惠活动|C.临时有需求(出差/旅游)|D.赠送亲友")
            .AddSelect("偏爱哪种面料","4.偏爱哪种面料","|A.棉(穿着更舒适)|B.涤纶(速干,穿着体验更凉爽)")
            .AddSelect("偏爱哪种版型","5.偏爱哪种版型","|A.翻领POLO|B.圆领T恤")
            .AddSelect("不买短装原因","6.不买短装原因","|A.款式不中意|B.无折扣优惠")
        End With
        wb.AppendHTML("<script>购买短装因素.parentNode.parentNode.style.display='none';偏爱哪种面料.parentNode.parentNode.style.display='none';偏爱哪种版型.parentNode.parentNode.style.display='none';不买短装原因.parentNode.parentNode.style.display='none';</script>")
        e.WriteString(wb.Build) '生成网页
End Select

With wb.AddInputGroup("","ipg2","关于在7月/8月购买短装的调研")

改成

With wb.AddInputGroup("form1","ipg2","关于在7月/8月购买短装的调研")