我这样测试没问题
Select Case e.Path
Case "test.htm", ""
Dim wb As new WeUI
If e.PostValues.Count = 0 Then
wb.AddForm("","form24","/test.htm")
With wb.AddInputGroup("form24","ipg2","<a style='color: #3CB371;'>填空题回答区:</a>")
.AddInput("xmA","第1个空","text").Placeholder = "请输入第一个答案"
.AddInput("xmB","第2个空","text").Placeholder = "请输入第二个答案"
.AddInput("xmC","第3个空","text").Placeholder = "请输入第三个答案"
End With
With wb.AddButtonGroup("form24","btngrp1", False)
.Add("btn4", "提交", "submit") '提交
End With
Else
MessageBox.Show(e.PostValues("xmA")) '获取录入值为空白怎么处理
End If
e.WriteString(wb.Build) '生成网页
End Select