Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a#, b#
        a = InputBox("xxxxxxx", "xxxxxx")
        b = a * 3.14
        MsgBox(b)
    End Sub

求大神告诉我为什么当出现INputbox框时按取消会出现“在 System.InvalidCastException 中第一次偶然出现的“Microsoft.VisualBasic.dll”类型的异常”  和  “从字符串“”到类型“Double”的转换无效。”
程序是可以用的，但我就想知道为什么会有 从字符串 到类型 DOUBLE的转换，我并没有转换

在对象浏览器中查看InputBox函数的返回值为string，赋值给a时就会发生空值无法自动转换为Double了。可以先赋值给string变量，判断该变量可以转换再赋值给a


Public Function InputBox(ByVal Prompt As String, Optional ByVal Title As String = "", Optional ByVal DefaultResponse As String = "", Optional ByVal XPos As Integer = -1, Optional ByVal YPos As Integer = -1) As String
     成员属于: Microsoft.VisualBasic.Interaction
摘要:
在对话框中显示提示，等待用户输入文本或单击按钮，然后返回包含文本框内容的字符串。

参数:
DefaultResponse: 可选的 String 表达式。如果未提供其他输入，则作为默认响应显示在文本框中。如果省略 DefaultResponse，则显示的文本框为空。
Prompt: 必选的 String 表达式，作为消息显示在对话框中。Prompt 的最大长度大约为 1024 个字符，具体取决于所用字符的宽度。如果 Prompt 包含多行内容，则可以在每行之间使用回车符 (Chr(13))、换行符 (Chr(10)) 或回车/换行符组合 (Chr(13) & Chr(10)) 来分隔各行。
YPos: 可选。数值表达式，指定屏幕顶部与对话框上边缘之间的距离（以缇为单位）。如果省略 YPos，则对话框垂直定位在屏幕向下大约三分之一处。
Title: 可选。显示在对话框标题栏中的 String 表达式。如果省略 Title，则标题栏中显示应用程序名称。
XPos: 可选。数值表达式，指定屏幕左边缘与对话框左边缘之间的距离（以缇为单位）。如果省略 XPos，则对话框水平居中。

返回值:
在对话框中显示提示，等待用户输入文本或单击按钮，然后返回包含文本框内容的字符串。