| 查看: 1034 | 回复: 0 | ||
[求助]
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的表达式。 |
回复此楼» 猜你喜欢
一志愿太原理工安全工程300分，求调剂
已经有5人回复
-
调剂求院校招收
已经有4人回复
-
求化学调剂
已经有4人回复
-
085600，材料与化工321分求调剂
已经有7人回复
-
一志愿武汉理工，总分321，英一数二，求老师收留。
已经有6人回复
-
考研调剂
已经有6人回复
-
0856求调剂
已经有12人回复
-
0703化学
已经有9人回复
-
0703化学求调剂
已经有10人回复
-
317求调剂
已经有6人回复
找到一些相关的精华帖子，希望有用哦~
用matlab求解含有bessel函数的方程
已经有5人回复
- 求助：用Matlab解微分方程，命令怎么编辑？有例子
已经有13人回复
- 这个两个二阶微分方程的求解
已经有7人回复
- 用matlab 求解参数方程组
已经有8人回复
- 用mathematics解方程组
已经有19人回复
- 求C语言算法 求自然指数方程的根
已经有4人回复
- 用fortran程序遗传算法解非线性方程组
已经有7人回复
- 求解这类方程 用什么软件编程较好····
已经有8人回复
- 求助，用1stopt解方程组，两次得到的解不唯一？什么原因，大神帮忙
已经有6人回复
- 数值求解N-S方程一般用什么编程啊？？？
已经有9人回复
- 用matlab如何解方程？
已经有6人回复
- 各位朋友，如何用matlab编写这个方程，并求解？
已经有15人回复
- 求matlab 解方程的问题
已经有5人回复
- 【求助】帮忙求解一个一元四次方程
已经有9人回复
- 圆柱螺旋线轨迹方程怎么写！
已经有5人回复
- 思考怎样用vb语言解该非齐次方程，重谢
已经有5人回复
- 就解方程组，未知数不收敛，要怎么办？诚求！
已经有12人回复
- 【求助】matlab 求解微分方程中的未知参数
已经有20人回复
- 求助：八个未知数八个方程的求解
已经有13人回复
- 【求助】不仅控制方程里含有未知参数，边界条件里也有
已经有5人回复
- 【求助】100金币求助高人一个程序解方程
已经有15人回复
- 【求助】求助：vb编程中用牛顿迭代解三次方程为什么只得到一个根？【已完成】
已经有15人回复
- 解方程组的软件
已经有9人回复
点击这里搜索更多相关资源科研从小木虫开始，人人为我，我为人人
10
