vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果

来源：学生作业帮助网编辑：作业帮时间：2024/04/29 06:08:05

x��TKOQ�+7]H��4iI�`4�a,q��t�G�;d\A��@cy��G��HJQ��?3wf��/x��b��|�|��:��u��F��#�*�"W)�q]��KSU ��r��f��G��T�۰/~��11Ĩ�Z�SV-gח��e��K�8{B+�$K��q��O��y�*E�?��e!S!�j@��|��3��afz:t�O$��90(r�;%��@T��䩟��t ��Ի%�a �L��&��e$�ш��y�"1Db }B��dùN��j��G��s^0�7�5��#*��z��9�{Ӧ��#r�0 |fa�G~�[�*��k��O]�Ep��4>Ԯ��P�[� j��

vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果
vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果

vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果
先在窗体上添加一个TextBox文本框（将其Multiline属性设置为True,并调整宽高以便能较好的显示出100个随机数）和一个Button按钮.然后双击Button按钮跳转到代码编辑窗口,粘帖以下代码就可以了.（以验证通过）
'vb利用随机函数产生100个0到9之间的整数,统计一共产生了多少个0,多少个1,统计结果
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
Dim CountofZero As Integer = 0
Dim CountofOne As Integer = 0
Dim Ran As New Random
Randomize() '初始化随机数生成器
For i As Integer = 1 To 100
TextBox1.Text = TextBox1.Text & Str(Int(10 * Ran.NextDouble))
Next
For n As Integer = 1 To TextBox1.Text.Length
Select Case Mid(TextBox1.Text,n,1)
Case 0
CountofZero = CountofZero + 1
Case 1
CountofOne = CountofOne + 1
Case Else
Exit Select
End Select
Next
TextBox1.Text = TextBox1.Text & vbCrLf & "有" & CountofZero & "个0； " & "有" & CountofOne & "个1"
End Sub