VB程序设计重点

VB程序设计部分 重点程序

08管理VB程序设计部分1.

几里德算法）求两个自然数的最大公约数的算法。

（欧Private Sub Form_Click() Dim n%, m%, g%

n = InputBox("输入N") m = InputBox("输入M") g = gcd(n, m)

Print n; "和"; m; "的最大公约数是："; g Private Function gcd(ByVal a%, ByVal b%) End Sub

Dim r As Integer r = a Mod b Do While r <> 0 a = b b = r

gcd = b

Loop r = a Mod b End Function

2. 存放在数组编写一个数组，随机产生compare中，并从中找出一个最12个两位数，大数和一个最小数。 Option base 1

Private sub form_click()

Dim compare(12) as integer, I%

Dim max As Integer, min As Integer Randomize For i=1 to 12

Next I compare(i)=int(90*rnd)+10 print compare(i); Print

Max=compare(1): min=compare(1) For i=2 to 12

if compare(i)>max then Elseif compare(i)<min then max=compare(i) Min=compare(i) Next i

End if Print Print “End sub

“最大数是：最小数是：””; max ; min 3. Private Sub form_click()

求5！+4！+3！+2！+1！的和。 Dim sum As Integer, i As Integer For i = 5 To 1 Step -1 sum = sum + fact(i) Print "sum="; sum Next i

End Sub

Private Function fact(ByVal n As Integer) As Integer fact = 1

Do While n > 0 fact = fact * n End Function

n = n - 1 Loop 4. Option Base 1

找出100以内的所有素数。 Option Explicit

Private Sub form_click()

Integer

Dim prime(50) As Integer, i As Integer Dim k As Integer, m As Integer, j As prime(1) = 2: m = 1

For i = 3 To 99 Step 2 For k = 2 To Sqr(i)

If i Mod k = 0 Then Exit For Next k

If k > Sqr(i) Then m = m + 1 prime(m) = i End If Next i k = 0

For j = 1 To m k = k + 1

Print prime(j);

End Sub

Next j If k Mod 10 = 0 Then Print 5. Option Explicit

求三个正整数的最小公倍数。 Private Sub Command1_Click() Dim A%, B%, L&, C% A = Text1 B = Text2 C = Text3

Text4 = L L = LCm(LCm(A, B), C) End Sub

Public Function LCm(ByVal X%, ByVal Y%) Dim M%, Flag% flg = flase Do Until flg M = M + X

If M Mod Y = 0 Then flg = True End Function

End If Loop LCm = M Private Sub Command2_Click() End Sub

End 6. 环求编写程序，实现累乘：要求使用N !（N为自然数）。

For循Private Sub Form_Click() Dim i As Integer Dim f As Double Dim n As Integer

入提示 n = ", "5") InputBox("输入一个自然数：", "输 f = 1

For i = 1 To n f = f * i End Sub Next i

Print n; "! ="; f

本文来源：https://www.bwwdw.com/article/9tgj.html