用VB求三元一次方程的解方程是a+b+c=100 4a+3b+c⼀2 =100 我是这样输入代码的拜托了各位 谢谢

2025-05-11 21:00:54
推荐回答(1个)
回答(1):

Private Sub Command1_Click() Dim a, b, c As Long For a = 0 To 100 For b = 0 To 100 For c = 0 To 100 If a + b + c = 100 And 4 * a + 3 * b + c / 2 = 100 Then Text1.Text = a Text2.Text = b Text3.Text = c End If Next c '先c Next b Next a '后a End Sub