用INPUTBOX函数显示一输入对话框

level 1

jy00807943 楼主

用INPUTBOX函数显示一输入对话框，要求用户输入要查询的编号
该对话框的标题为（数据查询）。用户输入后用MSGBOX语句将用户输入的值显示出来？
请问个位代码怎么写？
谢谢拉

2009年06月28日 14点06分 1

level 1

烁灵

暂定为你点击Fom1窗体后显示INPUT对话框
private sub Form1_click()
  dim str
  str = Inputbox("请输入要输入的字符串","输入对话框","")
  msgbox "您输入的是：",vbokonly,"MSGBOX对话框"
end sub

2009年07月14日 01点07分 2

level 1

烁灵

不好意思，打错了几个字
暂定为你点击Fom1窗体后显示INPUT对话框
private sub Form1_click()
  dim str
  str = Inputbox("请输入要输入的字符串","输入对话框","")
  msgbox "您输入的是：" & str,vbokonly,"MSGBOX对话框"
end sub

2009年07月14日 01点07分 3

level 1

烁灵

对应句子你适当改改就行

2009年07月14日 01点07分 4