Question

VB6.0combobox控件问题

combobox里面放了2.5跟3这两个数，我想在第二个窗体点击计算按钮，分别用2.5跟3进行公式计算。公式一＝1.73×2.5+2，公式二＝8.26/3 怎么敲代码？





Answer 1

假定ComboBox名为Combo1，所在窗体是Form1，计算按钮名为Command1，所在窗体是Form2，则

Private Sub Command1_Click()
Print "公式一计算结果："; Form1.Combo1.List(0) * 1.73 + 2
Print "公式二计算结果："; 8.26 / Form1.Combo1.List(1)
End Sub

追问

不用声明公式一二的变量？

追答

我这只是个例子，具体怎么用你自己去搞定。另外，能够不用变量的话尽量不用，可以节省资源。你一定要声明变量就这样：

Private Sub Command1_Click()
Dim x As Double, y As Double
x = Val(Form1.Combo1.List(0))
y = Val(Form1.Combo1.List(1))
Print "公式一计算结果："; x * 1.73 + 2
Print "公式二计算结果："; 8.26 / y
End Sub

追问

我想问一下 用if语句，怎么使得a＝b+b＊（100－c)/100 b＝100＊（a－c）/（100-c）c＝（a－b）＊100/（100-b）成立，彼此之间不冲突，能运行出来！

🙏

追答

If a=b+b*(100-c)/100 And b=100*(a-c)/(100-c) And c=(a-b)*100/(100-b) Then