Dim a, b As String

Private Sub Command1_Click()

b = "单击输入"
Picture1.Print Tab(6); Spc(25); " @"
a = InputBox("请输入第一个数", "请输入您要查询的号码", b)////{@@@@@@@标记行}

Picture1.Print "" & a


End Sub

之后出现：
？？？？？？？？？？？不能贴图？？？？

[quote]以下是引用高三党在2014-6-14 11:26:04的发言：

Dim a, b As String

Private Sub Command1_Click()

b = "单击输入"
Picture1.Print Tab(6); Spc(25); " @"
a = InputBox("请输入第一个数", "请输入您要查询的号码", b)////{@@@@@@@标记行}

Picture1.Print "" & a


End Sub


之后出现：
？？？？？？？？？？？发帖不能贴图？？？？

算了文字描述。。。。。
运行后，本应显示“单击输入”的地方出现乱码。
理由是什么？
还有，当我把inputbox函数属性全填完了之后：

Dim a, b As String

Private Sub Command1_Click()

b = "单击输入"
Picture1.Print Tab(6); Spc(25); " @"
a = [color=#0000FF]InputBox("请输入第一个数", "请输入您要查询的号码", b, 8000, 4000)/////{@@@@@@标记行}

Picture1.Print "" & a


End Sub

应该显示“单击输入”的地方又变正常了,理由是什么？

[ 本帖最后由 高三党 于 2014-6-14 11:34 编辑 ]