精选优质文档-倾情为你奉上经典算法程序实现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