可以利用msgbox 实现，也可以通过另外的窗体上画出表格实现
创新互联服务项目包括斗门网站建设、斗门网站制作、斗门网页制作以及斗门网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，斗门网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到斗门省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
方法一，利用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
用msgbox（）显示对话框
msgbox的用法很多，基础的就是msgbox（“你要显示的内容”）
或者msgbox（“你要显示的内容”,16,"对话框名称"）'16是对话框的类型，还有几个键的组合代码，这个你可以查查，很多，或者你也可以用提示给出的类型，比如MsgBoxStyle.Exclamation就是显示错误对话框，
尊敬的联想用户您好！
尊敬的联想用户您好！
请您查看该软件的使用说明，或者观看教程来了解详细过程
更多问题您可以咨询联想智能机器人：
如果没有解决您的问题可以吐槽提出您宝贵的意见，再转人工服务。
期待您满意的评价，感谢您对联想的支持，祝您生活愉快！
期待您满意的评价，感谢您对联想的支持，祝您生活愉快！