UC知道inputbox函数
来源：百度知道 编辑：UC知道 时间：2024/05/15 07:09:00
Private Sub Form_Click()
msg1$ = "请输入您的姓名"
msg2$ = "请输入您的年龄"
msg3$ = "请输入您的通信地址"
msg4$ = "请输入您的邮政编码"
msg5$ = "请输入您的电话号码"
msga$ = InputBox(msg1$, 请输入您的基本资料, "chen")
msgb$ = InputBox(msg2$, 请输入您的基本资料, "17")
msgc$ = InputBox(msg3$, 请输入您的基本资料, "辽宁")
msgd$ = InputBox(msg4$, 请输入您的基本资料, "116600")
msge$ = InputBox(msg5$, 请输入您的基本资料, "23456")
Print msga$, msgb$, msgc$, msgd$, msge$
End Sub
为什么最后的电话号码23456在显示的时候 没有出来 是太长了吗 如何解决 谢谢
msg1$ = "请输入您的姓名"
msg2$ = "请输入您的年龄"
msg3$ = "请输入您的通信地址"
msg4$ = "请输入您的邮政编码"
msg5$ = "请输入您的电话号码"
msga$ = InputBox(msg1$, 请输入您的基本资料, "chen")
msgb$ = InputBox(msg2$, 请输入您的基本资料, "17")
msgc$ = InputBox(msg3$, 请输入您的基本资料, "辽宁")
msgd$ = InputBox(msg4$, 请输入您的基本资料, "116600")
msge$ = InputBox(msg5$, 请输入您的基本资料, "23456")
Print msga$, msgb$, msgc$, msgd$, msge$
End Sub
为什么最后的电话号码23456在显示的时候 没有出来 是太长了吗 如何解决 谢谢
你的代码我运行良好 可以显示出来
是不是你的属性值有问题
或是运行框太小了
Print msga$+chr（13）, msgb$+chr（13）, msgc$+chr（13）, msgd$+chr(1）, msge$
这样试一下
把你的Form在设计的时候拉大一点。。。
试试:Print msga$;msgb$;msgc$;msgd$;msge$
"请输入您的基本资料"
该加引号的
________________________
Private Sub Form_Click()
msg1$ = "请输入您的姓名"
msg2$ = "请输入您的年龄"
msg3$ = "请输入您的通信地址"
msg4$ = "请输入您的邮政编码"
msg5$ = "请输入您的电话号码"
msgtitle$ = "请输入您的基本资料"
msga$ = InputBox(msg1$, msgtitle$, "chen")
msgb$ = InputBox(msg2$, msgtitle$, "17")
msgc$ = InputBox(msg3$, msgtitle$, "辽宁")
msgd$ = InputBox(msg4$, msgtitle$, "116600")
msge$ = InputBox(msg5$, msgtitle$, "23456")
Print msga$
Print msgb$
Print msgc$
Print msgd$
Print msge$
End Sub