可以利用msgbox 实现，也可以通过另外的窗体上画出表格实现
创新互联建站是一家专业提供仙居企业网站建设,专注与成都网站设计、网站制作、HTML5、小程序制作等业务。10年已为仙居众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
方法一，利用msgbox：
Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" vbCrLf _ "│ 库存1 │ 库存2 │ 库存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function
方法二，利用窗体实现：
’新建form2窗体‘将以下代码复制到form2窗体中Private Sub Form_Load()ShowPrint "┌────┬────┬────┐" vbCrLf _ "│ 库存1 │ 库存2 │ 库存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function‘将以下代码复制在form1窗体中Private Sub Command1_Click()Form2.ShowEnd Sub
VB类似MsgBox的输入框函数是InputBox 函数。
InputBox 函数，在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。
InputBox 函数示例：
本示例说明使用 InputBox 函数来显示用户输入数据的不同用法。如果省略 x 及 y
坐标值，则会自动将对话框放置在两个坐标的正中。如果用户单击“确定”按钮或按下“ENTER”按键，则变量 MyValue
保存用户输入的数据。如果用户单击“取消”按钮，则返回一零长度字符串。
Dim Message, Title, Default, MyValue
Message = "Enter a value between 1 and 3" ' 设置提示信息。
Title = "InputBox Demo" ' 设置标题。
Default = "1" ' 设置缺省值。
' 显示信息、标题及缺省值。
MyValue = InputBox(Message, Title, Default)
' 使用帮助文件及上下文。“帮助”按钮便会自动出现。
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)
' 在 100, 100 的位置显示对话框。
MyValue = InputBox(Message, Title, Default, 100, 100)
用MessageBox。
'VB.NET
Imports System.Windows.Forms
MessageBox.Show("你想要显示的内容")
//C#
using System.Windows.Forms;
MessageBox.Show("你想要显示的内容");
还可以修改显示的标题，图标，按钮（参见对象浏览器）。
如果要更多功能，可以用TaskDialog API，非托管，在ComCtl32.dll 第六版中。
用msgbox（）显示对话框
msgbox的用法很多，基础的就是msgbox（“你要显示的内容”）
或者msgbox（“你要显示的内容”,16,"对话框名称"）'16是对话框的类型，还有几个键的组合代码，这个你可以
查查
，很多，或者你也可以用提示给出的类型，比如MsgBoxStyle.Exclamation就是显示错误对话框，
你这2个按钮的目的不是一样吗
Dim fbd As New FolderBrowserDialogfbd.Description = "请选择文件夹。"fbd.RootFolder = Environment.SpecialFolder.Desktop '根目录
fbd.SelectedPath = "C:\Windows" '默认打开文件夹
fbd.ShowNewFolderButton = True '是否可以创建新文件夹
If fbd.ShowDialog(Me) = DialogResult.OK Then
textbox1.text=fbd.SelectedPath
End If
Response.Write("Script Language=JavaScriptalert('消息！');/Script")
此语句没有错误，请检查其它的问题。
