. Dim a(1To 10)As Integer Private Sub Form_Load ( ?。?br />Randomize For i=1To 10 a(i)=Int(Rnd ( ?。?100) List1.AddItem Str(a(i)) Next i End Sub Private Sub Command1_Click ( ?。?br />Dim m As Integer,n As Integer m=0 n=0 For i=1To 10 If a(i)>m Then m=a(i) End If If a(i)>50Then n=n+1 Next i Textl.Text=Str(m) Text2.Text=Str(n) End Sub.
40.利用輾轉(zhuǎn)相除法求最大公約數(shù). 輾轉(zhuǎn)相除法,又名歐幾里德算法,是求兩個(gè)正整數(shù)最大公約數(shù)的算法,它的出現(xiàn)可追溯至3000年前.輾轉(zhuǎn)相除法并不需要把數(shù)作質(zhì)因子分解.用輾轉(zhuǎn)相除法求正整數(shù)a、b的最大公約數(shù)運(yùn)算過(guò)程為: 第一步:用被除數(shù)a除以除數(shù)b,得到余數(shù)c; 第二步:如果余數(shù)c不為0,則用上一步的除數(shù)b替換被除數(shù)a,用上一步的余數(shù)c替換除數(shù)b,再次執(zhí)行第一步;如果余數(shù)為0則執(zhí)行下一步; 第三步:則此時(shí)的除數(shù)即是a、b最大公約數(shù). 例如a=60,b=25,運(yùn)算過(guò)程為: ①60÷25=2…10;②25÷10=2…5; ③10÷5=2…0. 第③步時(shí),余數(shù)為0,運(yùn)算結(jié)束,則此步的除數(shù)5即是60和25的最大公約數(shù). Visual Basic代碼實(shí)現(xiàn): Private Sub Command1_Click ( ?。?br />Dim a As Integer,b As Integer Dim ①
a=Val(Text1.Text) b=Val(Text2.Text) c=a Mod b Do While ②
a=b b=c c=a Mod b Loop Text3.Text=Str(b) End Sub 其中①、②空白處應(yīng)填的代碼分別是: ②