自己写的几个VB小程序,给初学者参考
Private Sub Form_Click()
Dim i, j As Double
j = 0
For i = 10 To 500
If i Mod 2 = 0 Then
j = j + i
End If
Next
Print"10到500间的偶数和为：" j
End Sub
----------------------------
Private Sub Form_Click()
Dim i, j, k, z, sum As Integer
For i = 1 To 9
For j = 0To 9
For k = 0 To 9
z = i * i * i + j * j * j + k * k * k
If z = i * 100 + j * 10 + k Then
sum = sum + z
Print z
End If
Next
Next
Next
Print "总和是："; sum
End Sub
-------------------------------
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
---------------------------------
Private Sub Form_Click()
Dim i, j As Integer
For i = 100 To 650
If i Mod 3 = 0 And i Mod 7 = 0 Then
j = j + 1
End If
Next
Print "100到650之间能同时被3和7整除的数的个数是:"; j; "个"
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
Private Sub Form_Click()
Dim A, B, z, X, Y, Min As Integer
A = 1
Min = 2199
For B = 1 To 2198
For A = 1 To 2198
If A * B = 2198 Then
z = A + B
If Min > z And A < B Then
Min = z
X = A
Y = B
End If
End If
Next
Next
Print "最小的A+B是："; X; " +"; Y; "="; Min
End Sub
---------------------------
'编程设定一个函数过程F(m)，对一个四位数m判断：已知该整数m，
'逆向排列(如：1368逆向排列为8631)获得另一个4位数，是它自身的
'倍数(2倍以上)。主调程序调用该函数，显示1000～9999中满足该条件的数。
Function f(m As Integer) As Boolean
Dim m1 As String
m1 = StrReverse(Str(m))
If Val(m1) / m > 2 Then f = True
End Function
Private Sub Command1_Click()
Dim i As Integer
For i = 1000 To
9999
If f(i) = True Then List1.AddItem i
k = k + 1
Next
Print k
End Sub
------------
同上最慢的算法：
Private Sub Form_Click()
Dim i, j, k, l, N, U, M As Integer
If List1.ListCount = 0 Then
For N = 1000 To 9999
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
For l = 0 To 9
If N = i * 1000 + j * 100 + k * 10 + l Then
U = l * 1000 + k * 100 + j * 10 + i
If U > N * 2 Then
List1.AddItem (N & " " & U)
End If
End If
Next
Next
Next
Next
Next
List1.AddItem ("共" & M & "组"), 0
End If
End Sub
--------------------------------------------