使用vbs实现填空弹窗并且包含弹窗样式

当然可以！以下是一个使用VBScript编写的填空弹窗，并包含了一些弹窗样式的示例代码：

Option Explicit

' 创建一个填空弹窗
Function CreateFillBlankPopup(prompt)
    Dim objFillBlankPopup, response

    Set objFillBlankPopup = CreateObject("WScript.Shell")
    
    ' 弹窗样式
    response = objFillBlankPopup.InputBox(prompt, "填空弹窗", "", 10, 10)
    
    ' 返回用户填写的答案
    CreateFillBlankPopup = response
    
    Set objFillBlankPopup = Nothing
End Function

' 示例使用
Dim prompt, answer

prompt = "请填写你的姓名："
answer = CreateFillBlankPopup(prompt)

' 判断答案是否为空
If answer <> "" Then
    MsgBox "你好，" & answer & "！", vbInformation + vbSystemModal + vbOKOnly, "欢迎"
Else
    MsgBox "姓名不能为空！", vbExclamation + vbSystemModal + vbOKOnly, "错误"
End If

这段代码使用 `WScript.Shell` 对象创建了一个填空弹窗，并通过设置不同的参数来实现不同的弹窗样式。在弹窗中，您可以输入提示信息，并获取用户填写的答案。根据您的具体需求，您可以在代码中添加更多的校验逻辑。

希望能对您有所帮助！如有任何疑问，请随时追问。