填空题:本程序的功能是利用随机数函数模拟投币,方法是:每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。在窗

  • 题目分类:VB
  • 题目类型:填空题
  • 查看权限:VIP
题目内容:
本程序的功能是利用随机数函数模拟投币,方法是:每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。在窗体上有三个文本框,名称分别是Text1、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如下图所示。程序运行后,在文本框Textl中输入总次数,然后单击“开始”按钮,按照输入的次数模拟投币,分别统计出现正面、反面的次数,并显示结果。以下是实现上述功能的程序,请填空。

Private Sub Command 1_Click()
Randomize
n=CInt(Text1.Text)
nl=0
n2=0
For i=1 T0 【1】
r=Int(Rnd*2)
If r= 【2】Then
N1=n1+1
Else
n2=n2+1
End If
Next
Text2.Text=n1
Text3.Text=n2
End Sub
参考答案:
答案解析:

在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程:Private Su

在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程:Private Sub Command1_lick()Cou

查看答案

在窗体上画一个命令按钮和两个标签,其名称分别为Command1、Label1和Label2,然后编写如下事件过程:Pri

在窗体上画一个命令按钮和两个标签,其名称分别为Command1、Label1和Label2,然后编写如下事件过程:Private Sub Command 1_C

查看答案

设a=5,b=6,c=7,d=8,执行下列语句后,x的值为x=IIf((a>B.And(c>D.,10,20)(  )

设a=5,b=6,c=7,d=8,执行下列语句后,x的值为x=IIf((a>B.And(c>D.,10,20)(  )A.10 B.20 C.True D.Fa

查看答案

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮C

查看答案

设组合框Combol中有3个项目,则以下能删除最后一项的语句是(  )

设组合框Combol中有3个项目,则以下能删除最后一项的语句是(  )A.ComboRemoveltem Text B.ComboRemoveItem 2 C.

查看答案