本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于—次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。 Private Sub Command1_Click( ) Randomize n=CInt(Text1.Text) n1=0 n2=0 For i=1To 【6】 r=Int(Rnd*2) If r= 【7】 Then n1=n1+1 Else n2=n2+1 End If Next Tcxt2.Text=n1 Text3.Text=n2 End Sub

题库:计算机等级考试 类型:填空题 时间:2021-06-06 13:47:12 免费下载:《填空》Word试卷

本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于—次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。 Private Sub Command1_Click( ) Randomize n=CInt(Text1.Text) n1=0 n2=0 For i=1To 【6】 r=Int(Rnd*2) If r= 【7】 Then n1=n1+1 Else n2=n2+1 End If Next Tcxt2.Text=n1 Text3.Text=n2 End Sub

本题关键词:0-1法,0－1评分法,0-1评分法,代币法,0型面型,投资数据统计表,代币奖励法,代币制疗法,表面反射能力,个体指数;