inputbox怎么用

InputBox 函数：在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String.

语法　InputBox(prompt[， title] [， default] [， xpos] [， ypos] [， helpfile，
context])

InputBox 函数的语法具有以下几个命名参数的部分描述

Prompt 必需的。作为对话框消息出现的字符串表达式。prompt 的最大长度大约是 1024 个字符，由所用字符的宽度决定。如果 prompt
包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10))
来分隔。

Title 可选的。显示对话框标题栏中的字符串表达式。如果省略 title，则把应用程序名放入标题栏中。

Default 可选的。显示文本框中的字符串表达式，在没有其它输入时作为缺省值。如果省略 default，则文本框为空。

Xpos 可选的。数值表达式，成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略 xpos，则对话框会在水平方向居中。

Ypos 可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。如果省略
ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。

Helpfile 可选的。字符串表达式，识别帮助文件，用该文件为对话框提供上下文相关的帮助。如果已提供 helpfile，则也必须提供
context.

Context 可选的。数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果已提供 context，则也必须要提供
helpfile.

Private Sub Command1_Click()
Dim a()
n = Val(InputBox("n="))
ReDim a(n, n)
For i = 1 To n
For j = 1 To n
a(i, j) = (i - 1) * n + j
Picture1.Print a(i, j);
Next
Picture1.Print
Next
End Sub

n=val(inputbox("请输入n"))

楼上正解！