作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/09 09:02:59
VB编程,用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0的元素个数
窗体上放个CommandButton和两个Label:
Private Sub Command1_Click()
Dim i As Integer,j As Integer,n As Integer
Label1.Caption = ""
Randomize
For i = 0 To 99
j = Int(Rnd * 99)
If j Mod 10 = 0 Then n = n + 1
Label1.Caption = Label1.Caption & " " & j
Next i
Label2.Caption = "个位数为0的元素个数:" & n
End Su