2. 计算机
  3. 本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于—次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示

本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于—次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示

admin2009-02-13  47
问题 本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于—次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。

    Private Sub Command1_Click(  )
   Randomize
   n=CInt(Text1.Text)
   n1=0
   n2=0
   For i=1To【  】
       r=Int(Rnd*2)
       If r=【  】Then
            n1=n1+1
       Else
            n2=n2+1
       End If
   Next
   TcxtText=n1
   TextText=n2
   End Sub
选项
答案n或CInt(Text1.Text)或CInt(Text1)或Text1.Text或Val(Text1.Text)或Val , 1
解析 [6]由于执行次数由n决定，故For i循环的终值为n，即总次数有多少，就要执行多少次For i循环。所以本处填：n或其他等价项目。“Rnd*2”随机产生0与1之间的数，Int函数对“Rnd*1”的返回值只有0与1两种情况。由于Text2用来接受正面(即1)的次数，故在[7]处要填1，即当“r=1”时，变量n1加一次。
转载请注明原文地址:https://kaotiyun.com/show/CK2p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)