应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » vb解方程调用未知方程
11/1返回列表
查看: 1028  |  回复: 0
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

未梦狂者

银虫 (初入文坛)

[求助] vb解方程调用未知方程

各位大神，小弟用vb编程解方程，需要在判定条件时调用前面的未知方程，本人用的是call语句，貌似不对
由于原程序太多，现附上相同的简化方程程序：

Private Sub Command1_Click()
Dim t1 As Single
Dim t2 As Single
Dim t3 As Single
Dim t4 As Single
t1 = 1
t2 = 1
t3 = 1
t4 = 1
Call test(s%)
Do
t2 = 1
  Do
t3 = 1
    Do
   t4 = 1
      Do
     t4 = t4 + 1
        Call test(s%)
        If s + t2 ^ 4 + t2 ^ 3 = 116 And t1 ^ 4 - t3 ^ 4 = 15 And t4 ^ 4 - t2 ^ 4 = 544 Then
        Exit Do
        End If
     Loop Until t4 >= 5
     Call test(s%)
         If s + t2 ^ 4 + t2 ^ 3 = 116 And t1 ^ 4 - t3 ^ 4 = 15 And t4 ^ 4 - t2 ^ 4 = 544 Then
        Exit Do
       End If
     t3 = t3 + 1
   Loop Until t3 >= 5
   Call test(s%)
       If s + t2 ^ 4 + t2 ^ 3 = 116 And t1 ^ 4 - t3 ^ 4 = 15 And t4 ^ 4 - t2 ^ 4 = 544 Then
        Exit Do
       End If
  t2 = t2 + 1
  Loop Until t2 >= 5
  Call test(s%)
        If s + t2 ^ 4 + t2 ^ 3 = 116 And t1 ^ 4 - t3 ^ 4 = 15 And t4 ^ 4 - t2 ^ 4 = 544 Then
        Form1.Print t1, t2, t3, t4
        Exit Do
       End If
t1 = t1 + 1
Loop Until ti >= 5
End Sub
Private Sub test(s%)
  s = t1 ^ 4 + t1 ^ 3
  End Sub
我想在判定时，循环式调用s的表达式。
回复此楼

» 猜你喜欢
1楼 2014-05-29 10:33:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子，希望有用哦~

科研从小木虫开始，人人为我，我为人人
相关版块跳转 我要订阅楼主 未梦狂者 的主题更新
11/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭