经典算法程序实现15常见算法(共3页).docx

精选优质文档-倾情为你奉上经典算法程序实现2018(综合练习)班级：_姓名：_1.用随机函数产生100个0，99范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。Public Sub GetTJput()Dim a(1 To 100) As IntegerDim x(1 To 10) As IntegerDim i As Integer, p As Integer产生100个0，99范围内的随机整数For i = 1 To 100a(i) = Int(Rnd * 100)If a(i) 10 ThenLab1.Caption= Lab1.Caption & & Str(a(i)ElseLab1.Caption= Lab1.Caption & Str(a(i)End If每行10个在标签Lab1显示出来If _ Then 字符串常量VbCrLf的作用：换行La