问几道VB的题目!6\x05"求方程8x-5y=3,在|x|
来源:学生作业帮 编辑:大师作文网作业帮 分类:数学作业 时间:2024/11/19 02:07:38
问几道VB的题目!
6\x05"
求方程8x-5y=3,在|x|
6\x05"
求方程8x-5y=3,在|x|
Private Sub Form_Click()
Dim x,y,z As Integer
For x = -150 To 150
For y = -100 To 100
If 8 * x - 5 * y = 3 Then
z = z + 1
End If
Next
Next
Print "答案共有"; z; "组"
End Sub
------------------
Private Sub Form_Click()
Dim i,j,k,l,m,n,Z As Long
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
For l = 0 To 9
For m = 0 To 9
If i * i + j * j + k * k + l * l + m * m = 110 Then
n = i * 10000 + j * 1000 + k * 100 + l * 10 + m
If n > Z Then
Z = n
End If
End If
Next
Next
Next
Next
Next
Print "最大的五位数是:"; Z
End Sub
再问: 谢谢,谢谢!冒昧的问句:还能帮帮忙吗?
再答: 我晕,好吧 '所谓回文数是从左至右与从右至左读起来都是一样的数字,如:121是一个 '回文数。编写程序,求在500-900的范围内所有能被3整除的回文数的个数。 Private Sub Form_Click() Dim i, j, k, z As Integer For i = 5 To 8 For j = 0 To 9 z = i * 100 + j * 10 + i If z Mod 3 = 0 Then Print z k = k + 1 End If Next Next Print k End Sub '已知A,B为正整数, A
Dim x,y,z As Integer
For x = -150 To 150
For y = -100 To 100
If 8 * x - 5 * y = 3 Then
z = z + 1
End If
Next
Next
Print "答案共有"; z; "组"
End Sub
------------------
Private Sub Form_Click()
Dim i,j,k,l,m,n,Z As Long
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
For l = 0 To 9
For m = 0 To 9
If i * i + j * j + k * k + l * l + m * m = 110 Then
n = i * 10000 + j * 1000 + k * 100 + l * 10 + m
If n > Z Then
Z = n
End If
End If
Next
Next
Next
Next
Next
Print "最大的五位数是:"; Z
End Sub
再问: 谢谢,谢谢!冒昧的问句:还能帮帮忙吗?
再答: 我晕,好吧 '所谓回文数是从左至右与从右至左读起来都是一样的数字,如:121是一个 '回文数。编写程序,求在500-900的范围内所有能被3整除的回文数的个数。 Private Sub Form_Click() Dim i, j, k, z As Integer For i = 5 To 8 For j = 0 To 9 z = i * 100 + j * 10 + i If z Mod 3 = 0 Then Print z k = k + 1 End If Next Next Print k End Sub '已知A,B为正整数, A
VB程序设计题目:求方程9X—9Y=1,在|X|
一道vb的题目.x=3:y=5:z=9
VB中求下面方程x+2y+3z=40的正整数解.的代码
求方程x+2y-3x=4,3x-2y+x=6,3x+2y-5x=8的解
vb中举例有一个方程y=(x^3+2x)/(6x^2-2),这个方程很难反推成x关于y的方程,现在有y的值如何算x
x1,x2是方程2x05-3x-5=0的两个根,不解方程,求下列代数式的值:⑴x1分之1+x2分之1
根据导数的几何意义,求函数y=√4-x05在x=1处的导数
已知(x05+mx+n)(x05-3x+2)中,不含x05和x项,求m,n的值
已知sina与cosa是方程3x05-2x-m=0的两个根,求m的值.
关于x的分式方程1/x-2+k/x+2=4/x05-4有增根,求k的值
求曲线y=(x^2-3x+6)/x^2在横坐标x=3处的法线方程.
VB编程问题 用二分法求方程F(X)=X^3-X-1=0在区间[1,1.5]内的解 要求∑=10^-2