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

admin2009-08-26  29

问题 (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
0

最新回复(0)