vb中inputbox用法举例
在VB(Visual Basic)中,InputBox 函数用于弹出一个输入框,提示用户输入文本、数字或其他数据,并返回用户输入的值。
以下是一些常见的 InputBox 用法举例: 简单的文本输入 vb复制代码 Dim userInput As String userInput = InputBox("请输入您的姓名:", "输入姓名") MsgBox "您输入的姓名是:" & userInput 在上述代码中: Dim userInput As String 声明了一个字符串变量 userInput,用于存储用户输入的值。
InputBox("请输入您的姓名:", "输入姓名") 弹出一个输入框,第一个参数 "请输入您的姓名:" 是输入框内显示的提示信息,第二个参数 "输入姓名" 是输入框的标题。
MsgBox "您输入的姓名是:" & userInput 将用户输入的姓名通过消息框显示出来。
带默认值的输入 vb复制代码 Dim defaultValue As String defaultValue = "默认文本"Dim userInput As String userInput = InputBox("请输入内容:", "输入示例", defaultValue) MsgBox "您输入的内容是:" & userInput 这里在 InputBox 函数中添加了第三个参数 defaultValue,即输入框会显示默认值 “默认文本”。
用户可以直接点击确定使用默认值,也可以修改后再点击确定。
获取数值输入并进行计算 vb复制代码 Dim num1 As Integer num1 = Val(InputBox("请输入第一个数字:", "数字输入")) Dim num2 As Integer num2 = Val(InputBox("请输入第二个数字:", "数字输入")) Dim sum As Integer sum = num1 + num2 MsgBox "两个数字的和是:" & sum 这段代码中: 使用 Val 函数将 InputBox 返回的字符串转换为数值类型(这里是整数 Integer)。
因为 InputBox 无论用户输入什么,返回的都是字符串类型,如果要进行数学运算,需要转换为合适的数值类型。
分别获取两个数字输入后,将它们相加并通过消息框显示结果。
指定输入框的位置 vb复制代码 Dim userInput As String' 以下四个参数分别是提示信息、标题、默认值、左边距、上边距 userInput = InputBox("请输入信息:", "自定义位置", "", 100, 100) MsgBox "您输入的信息是:" & userInput 在这个例子中,InputBox 函数使用了第五个和第六个参数来指定输入框在屏幕上的左边距和上边距(单位是缇,1 英寸 = 1440 缇),这样可以将输入框显示在指定的位置。