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

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月购买短装的调研")