在 VB中，利用隨機函數產生 10個 1---100 之間的隨機整數，找出其中能被 5 整除的數並求其和

Text1.Text?=?""

Dim?AA(1?To?20)?As?Integer,?SS?As?Integer,?SDA?As?Integer

For?I?=?1?To?20

Randomize

AA(I)?=?Int(Rnd?*?99?+?1)

Next?I

For?I?=?1?To?19

For?J?=?1?To?20?-?I

If?AA(J)?>?AA(J?+?1)?Then

SDA?=?AA(J)

AA(J)?=?AA(J?+?1)

AA(J?+?1)?=?SDA

End?If

Next?J

Next?I

Text1.Text?=?Text1.Text?&?"生成的20個隨機數："?&?vbCrLf

For?I?=?1?To?20

If?AA(I)?<?10?Then

Text1.Text?=?Text1.Text?&?"0"?&?AA(I)?&?Space(3)

Else

Text1.Text?=?Text1.Text?&?AA(I)?&?Space(3)

End?If

If?I?Mod?10?=?0?Then

Text1.Text?=?Text1.Text?&?vbCrLf

End?If

Next?I

Text1.Text?=?Text1.Text?&?vbCrLf

Text1.Text?=?Text1.Text?&?vbCrLf

Text1.Text?=?Text1.Text?&?"能夠被5整除的數："?&?vbCrLf

For?I?=?1?To?20

If?AA(I)?Mod?5?=?0?Then

Text1.Text?=?Text1.Text?&?AA(I)?&?Space(3)

SS?=?SS?+?AA(I)

End?If

Next?I

Text1.Text?=?Text1.Text?&?vbCrLf

Text1.Text?=?Text1.Text?&?vbCrLf

Text1.Text?=?Text1.Text?&?"能夠被5整除的數的總和是："?&?vbCrLf

Text1.Text?=?Text1.Text?&?SS

End?Sub