VB学习资料(12)

VB入门必备,初学者也能看懂,这篇主要是VB入门基础,但却对你深入学习理解VB有很大的帮助,10个财富值,你不亏。

指定每行显示数据的个数 For n=1 to 30

Print n; ” ”;

If n Mod 10 = 0 Then Print Next n

' 每显示10个数据换行 常用算法(1)

1. 不定方程求解。 【例】百鸡问题 x+y+z=100

5x+3y+z/3=100

Private Sub Command1_Click()

Dim x As Integer

Dim y As Integer, z As Integer Print "公鸡", "母鸡", "小鸡" For x = 0 To 20 For y = 0 To 33 z = 100 - x - y

If 5 * x + 3 * y + z / 3 = 100 Then

Print x, y, z

End If

Next y

Next x

End Sub

2．求最大公约数和最小公倍数 辗转相除法：

【例】计算最大公约数和最小公倍数。 Private Sub Command1_Click()

Dim m As Integer, n As Integer Dim u As Integer, v As Integer m = Val(Text1.Text) n = Val(Text2.Text) If m > n Then u = m: v = n Else

u = n : v = m End If Do