2. 计算机
  3. (1)在窗体上设置两个标签，名称分别为Labell与Label2、标题分别为“当前时间为：”和空；要求当单击窗体时，Label2显示当前时间。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图21—3所示。 注意：要求考生在编写完程序后，

(1)在窗体上设置两个标签，名称分别为Labell与Label2、标题分别为“当前时间为：”和空；要求当单击窗体时，Label2显示当前时间。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图21—3所示。 注意：要求考生在编写完程序后，

admin2009-08-26  71
问题 (1)在窗体上设置两个标签，名称分别为Labell与Label2、标题分别为“当前时间为：”和空；要求当单击窗体时，Label2显示当前时间。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图21—3所示。
    注意：要求考生在编写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为sj3．vbp与sj3．frm。
    (2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，O代表反面。在窗体上画3个名称分别为Textl、Text2和Text3的文本框与一个名称为Commandl的命令按钮，其中Commandl的标题为“开始”。文本框分别用于显示用户输入投币总次数、出现正面的次数和出现反而的次数。程序运行后，在文本框Textl中输入总次数，然后单击“开始”按钮，按照输人的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。如图21—4所示。

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案(1)本题主要考查计时器控件和简单事件编程。 计时器控件用以实现在规定的时间间隔触发其Timer事件，执行有关事件过程代码来完成对应功能。Interval属性用于设置触发计时器的Timer事件的时间间隔，单位为毫秒。Enabled属性控制计时器是否开始启用，True为启用，False为不启用；Time()函数用于返回系统当前时间。 根据题意，新建“标准EXE”工程，将两个标签添加到窗体中，名称分别为Labell和Label2，Caption属性都为空，设置完成后双击Form1，进入代码窗口，编写如下代码： Private Sub Form_Click() Label2．Caption=Time End Sub 单击[*]按钮运行程序，并按要求保存。 (2)Rnd()函数用于产生0～1之内的随机数。根据题意，将3个标签、3个文本框控件和一个命令按钮添加到窗体中，标签的Caption属性分别为“总次数”“正面”和“反面”，文本框的名称分别为Textl、Text2和Text3，Caption属性为空，命令按钮的名称为Commandl、Caption属性为“开始”。双击Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Dim a As Integer Dim i As Integer Dim bl As Integer Dim b2 As Integer bl=0 b2=0 a=Val(Textl．Text) ’通过Textl获得总的次数 For i=1 To a a=Rnd()’取随机数 If a=1 Then b1=b1+1 ’当随机到1时，则b1加1 Else b2=b2+1 ’当随机到0时，则b2加1 End If Next i Text2．Text=bl’在Text2中显示1的个数 Text3．Text b2’在Text3中显示0的个数 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/5c1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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