填空题

在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，如图16-11所示，然后编写如下几个事件过程：

Private Sub Form_Load()
Timer1. Enabled=False
Timer1. Interval= 【8】
End Sub
Private Sub Form_Cliek()
Timer1. Enabled= 【9】
End Sub
Private Sub Timer1_Timer()
Label1. Caption= 【10】
End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟改变一次。请填空。

【参考答案】

[8]1000 [9]True或任何非0数值 [10]Time或Time$

<上一题目录下一题>

热门试题

填空题

设有如下记录类型： Type student Number As String*10 Name As String*8 End Type 窗体中有若干控件，单击其中的一个按钮Command1时，执行如下事件过程，该过程的功能是把数据输出到指定的文件中。根据题意，请完善下列程序。 Private sub Command1_click() Dim stu As student Open C: file, dat For Random As #1 Len=Len( 【11】 ) Title $= 写记录到随机文件 Str1 $= 请输入学生名 Str2 $= 请输入学生名 For i=1 To 5 stu. Number=InputBox(Str1 $, Title $) stu. Name=InputBox$(Str2 $, Title $) 【12】 #1, i, stu Next i Close 【13】 End Sub

填空题

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

相关试题