编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。

以下是此题的【VB源代码】
Private Sub Form_Click()
n$ = InputBox("请输入您的姓名")
age$ = InputBox("请输入您的年龄")
addr$ = InputBox("请输入您的通信地址")
pos$ = InputBox("请输入您的邮政编码")
tel$ = InputBox("请输入您的电话号码")
Print
Print Tab(6); "姓名"; Space$(3); "年龄"; Space$(3); "通信地址"; Space$(3); "邮政编码"; Space$(3); "电话号码"
Print
Print Tab(5); n$; Space$(3); age$; Space$(3); addr$; Space$(3); pos$; Space$(3); tel$
End Sub

运行此VB源码后结果情况如下图所示：


以下是此题的另一编程方法的【VB源代码】
Private Sub Form_Click()
Dim a As Variant
FontSize = 20
 a = InputBox("请输入姓名：", "数据输入")
 Print "姓名："; a
 a = InputBox("请输入年龄：", "数据输入")
 Print "年龄："; a
 a = InputBox("请输入通信地址：", "数据输入")
 Print "通信地址："; a
 a = InputBox("请输入邮政编码：", "数据输入")
 Print "邮政编码："; a
 a = InputBox("请输入电话：", "数据输入")
 Print "电话："; a
End Sub

visual basic程序设计教程第四版答案 刘炳文 编著

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_5.5.html