. Dim a(1To 10)As Integer Private Sub Form_Load ( ) Randomize For i=1To 10 a(i)=Int(Rnd ( )*100) List1.AddItem Str(a(i)) Next i End Sub Private Sub Command1_Click ( ) 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.利用輾轉相除法求最大公約數. 輾轉相除法,又名歐幾里德算法,是求兩個正整數最大公約數的算法,它的出現可追溯至3000年前.輾轉相除法并不需要把數作質因子分解.用輾轉相除法求正整數a、b的最大公約數運算過程為: 第一步:用被除數a除以除數b,得到余數c; 第二步:如果余數c不為0,則用上一步的除數b替換被除數a,用上一步的余數c替換除數b,再次執行第一步;如果余數為0則執行下一步; 第三步:則此時的除數即是a、b最大公約數. 例如a=60,b=25,運算過程為: ①60÷25=2…10;②25÷10=2…5; ③10÷5=2…0. 第③步時,余數為0,運算結束,則此步的除數5即是60和25的最大公約數. Visual Basic代碼實現: Private Sub Command1_Click ( ) 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 其中①、②空白處應填的代碼分別是: ②