VB考試程序

畫四個(gè)TEXT 文本，分別輸入A，x,y,z
注意輸入是數(shù)字哦
一個(gè)按鈕。直接復(fù)制代碼到VB中看，
（起先有事才沒回你呢，你的消息我也沒看到，，回來了才發(fā)現(xiàn)你作業(yè)交了哈哈，，，）
Private Sub Command1_Click()
Dim a As Integer
Dim x As Integer
Dim y As Integer
Dim z As Integer
a = Text1.Text
x = Text2.Text
y = Text3.Text
z = Text4.Text
Dim ax As Integer
Dim ay As Integer
Dim az As Integer
Dim m As Integer
Dim N(1000) As Integer '1000應(yīng)該夠了，，不會(huì)超標(biāo)吧哈哈，，浪費(fèi)點(diǎn)資源
Dim Nx(1000) As Integer
Dim Ny(1000) As Integer
Dim Nz(1000) As Integer
Dim s As Integer
m = 0
ax = (a - a Mod x) / x
ay = (a - a Mod y) / y
az = (a - a Mod z) / z
Dim fx As Integer
Dim fy As Integer
Dim fz As Integer
For fx = 1 To ax
For fy = 1 To ay
For fz = 1 To az
s = a - fx * x - fy * y - fz * z
If s > 0 Then
m = m + 1
N(m) = s
Nx(m) = fx
Ny(m) = fy
Nz(m) = fz
End If
Next fz
Next fy
Next fx '各種情況都存入數(shù)組了
'============================下面比較大小==================
Dim kk As Integer
Dim min As Integer
Dim minx As Integer
Dim miny As Integer
Dim minz As Integer
min = N(1)
For kk = 1 To m - 1
If N(kk) <= min Then
min = N(kk)
minx = Nx(kk)
miny = Ny(kk)
minz = Nz(kk)
End If
Next kk
Print "最小余為:" & min
Print "x截的段數(shù)為：" & minx
Print "x截的段數(shù)為：" & miny
Print "x截的段數(shù)為：" & minz
End Sub