杭州交通信息网九阴真经平民门派:菜鸟求助VB程序
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 10:06:19
A
ABA
ABCBA
ABCDCBA
ABCDEDCBA
............
ABCDEFGHIJKRSTUVWXYZYXWVUTSRKJIHGFEDCBA
实现上面情况VB程序代码!!
求满足如下方程的所有整数解：
5x+3y+z/3=100
x+y+z=100
需求VB程序代码的行吗?
ABA
ABCBA
ABCDCBA
ABCDEDCBA
............
ABCDEFGHIJKRSTUVWXYZYXWVUTSRKJIHGFEDCBA
实现上面情况VB程序代码!!
求满足如下方程的所有整数解：
5x+3y+z/3=100
x+y+z=100
需求VB程序代码的行吗?
第一个：
Private Function PrintX(ByVal midchar As Integer) As String
Dim ReturnStr As String
Dim i As Integer
midchar = Asc("A") + midchar
For i = Asc("A") To midchar
ReturnStr = ReturnStr & CStr(Chr(i))
Next
For i = midchar - 1 To Asc("A") Step -1
ReturnStr = ReturnStr & CStr(Chr(i))
Next
PrintX = ReturnStr
End Function
'测试用
Private Sub Form_Click()
Me.Cls
Dim i As Integer
For i = 0 To 25
Me.Print PrintX(i)
Next
End Sub
第二题··无解，负数解很多嘛··
如果你是单单求正数解：
Private Sub Form_Click()
Dim x As Integer
Dim y As Integer
Dim z As Integer
For x = 0 To 20
For y = 0 To 34
For z = 0 To 100
If (x + y + z) = 100 And (5 * x + 3 * y + z / 3) = 100 Then
Me.Print "X=" & x & "; Y=" & y & "; Z=" & z
End If
Next z
Next y
Next x
End Sub