作业帮 > 综合 > 作业

求和VB程序用随机函数产生100个【0,99】范围内的随机整数统计个位上的数字为C的元素个数,个位上的数字为1的元素的个

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/09 05:16:23
求和VB程序
用随机函数产生100个【0,99】范围内的随机整数统计个位上的数字为C的元素个数,个位上的数字为1的元素的个数,个位上的数字为9的元素个数!
Private Sub Command1_Click()
c = InputBox("", "", "")
For a = 1 To 100
b = Int(Rnd * 99)
If Int(Right(Str(b), 1)) = Int(c) Then d = d + 1
If Int(Right(Str(b), 1)) = 1 Then e = e + 1
If Int(Right(Str(b), 1)) = 9 Then f = f + 1
Next
Print "元素c:" & c
Print "元素c的个数:" & d
Print "元素1的个数:" & e
Print "元素9的个数:" & f
End Su