Question

VB 编写 计算程序

求大神给一个简单的编写方法我不懂VB
就是一个 输入 X 然后进行 Y=100/（1.1*X）
然后输出Y的简单程序。
感谢

Answer 1

既然没人帮你，我就答一下吧，很简单，就一行代码：
Print 100 / (1.1 * InputBox("请输入X的值"))

好吧，给你解释一下，InputBox是输入对话框，用于用户输入x的值，上边代码你可以拆开3行
x=InputBox("请输入X的值")
y=100 / (1.1 *x)
print y
然后，第二行就是求y的值嘛，不过，要注意乘号是“*”，不是“x”
然后，第3行就是输出y
你要简单的，所以我把这3行合并了。
你可以加在任意过程中，一般是你加个按钮控件，双击那个按钮控件，写下代码，完整的代码如下：
Private Sub Command1_Click()
Dim x As Double, y As Double
x = InputBox("请输入X的值")
y = 100 / (1.1 * x)
Print y
End Sub

追问

弄了但是按了确定之后没有显示Y的值啊 = =

追答

看你是新手，我把我设计的窗体源文件给你吧，你下载下来看看，这个不难的。

解压后，双击那个“工程1.vbp” 文件，然后按“F5”执行

（对了，你的是VB6.0吧？如果不是，那你就直接运行我的压缩包里那个VB脚本就行）

代码我上面解释的够清楚了吧？如果还有不明白的，追问就行

Answer 2

楼主您好！

什么也不用画，直接把代码复制粘贴就行了。

代码如下：

Option Explicit
Private Sub Form_Load()
    Dim Y As Double, X As Double            '定义两个双精度型(Double)变量   
    X = Val(InputBox("请输入X的值!", "输入窗口"))     
    '用InputBox函数显示一个输入对话框，由于InputBox函数的返回值是字符型，要用Val函数转换为数值型
    Y = 100 / (1.1 * X)        '计算Y的值
    MsgBox "X=" & X & vbCrLf & _       '用MsgBox函数输出结果，vbCrlf是换行符
           "Y=100/(1.1*" & X & ")" & vbCrLf & _
           "Y=" & Y _
           , vbOKCancel + vbDefaultButton1 + 64, "输出窗口"
End Sub