★重點掌握結構程序設計的方法和思想;
★理解和掌握VB中常用算法的思想和設計方法;
一、計數、求和、求階乘等簡單算法
此類問題都要使用循環(huán),要注意根據問題確定循環(huán)變量的初值、終值或結束條件,更要注意用來表示計數、和、階乘的變量的初值。
例:用隨機函數產生100個[0,99]范圍內的隨機整數,統(tǒng)計個位上的數字分別為1,2,3,4,5,6,7,8,9,0的數的個數并打印出來。
本題使用數組來處理,用數組a(1 to 100)存放產生的確100個隨機整數,數組x(1 to 10)來存放個位上的數字分別為1,2,3,4,5,6,7,8,9,0的數的個數。即個位是1的個數存放在x(1)中,個位是2的個數存放在x(2)中,……個位是0的個數存放在x(10)。
將程序編寫在一個GetTJput過程中,代碼如下:
Public Sub GetTJput()
Dim a(1 To 100) As Integer
Dim x(1 To 10) As Integer
Dim i As Integer, p As Integer
'產生100個[0,99]范圍內的隨機整數,每行10個打印出來
For i = 1 To 100
a(i) = Int(Rnd * 100)
If a(i) < 10 Then
Form1.Print Space(2); a(i);
Else
Form1.Print Space(1); a(i);
End If
If i Mod 10 = 0 Then Form1.Print
Next i
'統(tǒng)計個位上的數字分別為1,2,3,4,5,6,7,8,9,0的數的個數,并將統(tǒng)計結果保存在數組x(1),x(2),…,x(10)中,將統(tǒng)計結果打印出來
For i = 1 To 100
p = a(i) Mod 10 ' 求個位上的數字
If p = 0 Then p = 10
x(p) = x(p) + 1
Next i
Form1.Print "統(tǒng)計結果"
For i = 1 To 10
p = i
If i = 10 Then p = 0
Form1.Print "個位數為" + Str(p) + "共" + Str(x(i)) + "個"
Next i
End Sub
相關推薦:
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內蒙古 |