新建一个窗体名字叫frmInputBox，画一个Label1作为显示文字的控件
画一个TextBox名字叫txtInput，在画一个Command命名为cmdOK
做一个函数
Function ShowInputBox(sNote as String,sTitle as String) As String
frmInputBox.Show 1
frmInputBox.Label1.Text = sNote
frmInputBox.Caption=sTitle
End Function
窗体里面按OK的代码里加一句InputBoxText = txtInput.Text就可以了
欢迎追问。谢谢采纳
一个文本框控件作输入，一个确定按钮，一个取消按钮，一个LABEL控件作提示
然后定义一个全局变量用来保存用户的输入以供其他窗体调用
VB如何编写类似于MSGBOX INPUTBOX的函数?
假如你要输入一个数字（用到inputbox）,然后用msgbox显示所输入的数字 a=inputbox("请输入数字")msgbox (a)
VB如何编写类似于MSGBOX INPUTBOX的函数?
类似的对话框就很多了，比如说窗体对话框，选项对话框就可以实现msgbox 和 inputbox 函数的功能 你可以在通过“添加窗体”对话框来添加具有对话框功能的窗体，你最好自己去看看到底有多少窗体具有对话框的功能
...自定义函数?格式怎么写?举个例子,比如inputbox函数用function...
1、打开VB6.0，新建一个工程，在窗体中添加一个命令按钮，caption分别改为“调用函数”，将窗体Form1的caption属性改为“VB6.0自定义函数”，将界面设置成下图：2、双击窗体Form1，进入代码编辑窗口，单击左侧下拉三角形，选择通用。3、在通用段输入如下代码：Public Sub F1(n%, ByVal m%)n = n ...
VB的一个程序,帮忙编一下,谢谢
Private Sub Command1_Click() '倒三角形 Dim S As String, i As Integer, n As Integer S = "*"n = InputBox("输入要打印的行数：")For i = n To 1 Step -1 Print Space(n - i) + String(2 * i - 1, S)Next i End Sub Private Sub Command2_Click()Dim S As String,...
VB编写小程序
代码改为：Private Sub Form_Click()Dim a, b, c, d As StringDim sum, aver As Longa = Val(InputBox("请输入第一个数"))b = InputBox("请输入第二个数")c = InputBox("请输入第三个数")d = InputBox("请输入第四个数")sum = a + b + c + d aver = sum \/ 4 Print ...
VB中自定义 inputbox的风格!
InputBox 函数 在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。语法 InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])InputBox 函数的语法具有以下几个命名参数：部分 描述 Prompt 必需的。作为对话框消息出现的字符串...
用VB编这个程序怎么写代码?题目是只要输入正方形的边长就会输出它的面...
Private Sub Form_Load()Text1.Text = ""Label2.Caption = "请输入正方形边长："Label1.Caption = ""Command1.caption="确定"End Sub Private Sub Command1_Click()On Error GoTo kk Dim X As Single Dim L As Single Dim S As Single X = Val(Text1.Text)If X < 0 Or Not Is...
VB 类似 MsgBox 的输入框函数是啥?
VB类似MsgBox的输入框函数是InputBox 函数。InputBox 函数，在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。InputBox 函数示例：本示例说明使用 InputBox 函数来显示用户输入数据的不同用法。如果省略 x 及 y 坐标值，则会自动将对话框放置在两个坐标的正中。如果...
vb.net inputbox与msgbox的使用
虽然下面代码也用了两个inputbox函数，但是比你的应该也要简单点，仅供参考 Const a = 1.5 Dim v0 As String Dim vt As String Dim t As Long Dim s As Double Private Sub Form_Load()v0 = InputBox("请输入初速度(m\/s)", "数据输入框")Text1.Text = v0 t = InputBox("请输入...
vb的inputbox函数怎么用?玩转inputbox函数
下面小编分享下vb(vbs)中，inputbox函数的详细使用方法。先来看看inputbox的函数原型： Sting inputbox(提示文本,[对话框标题],[输入框文本],[窗口所在x轴],[窗口所在y轴],[帮助文件],[帮助图标主题]) []内为可选参数 可见常用的参数只有3个，分别是提示文本、标题、输入框文本。 当我们可选参数...
