在 VB6 中，你可以使用输入框（TextBox）控件来获取用户输入的数值，并通过编写代码实现数值计算。
下面是一个简单的示例，演示如何使用 VB6 实现自定义输入函数的数值计算：
1. 在窗体上添加两个 TextBox 控件和一个按钮控件，用于输入数值和触发计算操作。
2. 在按钮的点击事件（Click 事件）中编写计算逻辑：
〓〓vb代码如下：〓〓
Private Sub btnCalculate_Click()' 获取输入的数值
Dim num1 As Double
Dim num2 As Double
If IsNumeric(txtNum1.Text) And IsNumeric(txtNum2.Text) Then
num1 = CDbl(txtNum1.Text)
num2 = CDbl(txtNum2.Text)
'执行计算操作
Dim result As Double
result = CustomCalculation(num1, num2)
'显示计算结果
MsgBox "计算结果为：" & result
Else
MsgBox "请输入有效的数值"
End If
End Sub
3. 编写自定义计算函数 CustomCalculation ，该函数接受两个数值参数并返回计算结果。例如，下面的函数实现了两个数值相加的操作：
〓〓vb代码如下：〓〓
Private Function CustomCalculation(num1 As Double, num2 As Double) As Double
Dim result As Double
result = num1 + num2
Return result
End Function
这样，当用户点击计算按钮时，程序会获取用户输入的数值并进行计算，然后显示计算结果。
土嘎嘎技术网友情提示：上面土嘎嘎给出的例子仅是一个简单的演示。根据你的具体需求，你可以扩展和修改代码来实现不同的数值计算逻辑。同时，还要注意输入验证和错误处理，以确保用户提供有效的数值并处理潜在的错误情况。