以下程序的功能是每隔一定的时间在窗体的文本框中显示当前时间，刷新的时间间隔由滚动条来设定。窗

体中有三个控件：文本框控件Text1用来显示当前时间，水平滚动条控件Hscroll1用来设置Timer1控件发生Timer事件的时间间隔，计时器控件Timer1用来控制每隔一定的时间在Text1中显示一次时间。程序运行的界面如图20-11所示，

以下程序的功能是每隔一定的时间在窗体的文本框中显示当前时间，刷新的时间间隔由滚动条来设定。窗体中有三代码如下，请填空。 Private Sub HScroll1_Change() Timer1．Interval=【】 End Sub Private Sub Timer1_【】() Text1．Text=Time End Sub

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装上学吧APP，拍照搜题省时又省心！

更多“以下程序的功能是每隔一定的时间在窗体的文本框中显示当前时间，…”相关的问题

第1题

假设窗体中已经有了一个驱动器列表框Drivel和一个目录列表框Dirl，如图20-10所示。当改变了驱动器列表框中的驱动器时，希望在目录列表框中显示相应驱动器的目录结构，可在Drive1_Change事件中输入语句【】。

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第2题

图片按钮的【】属性用来设置命令按钮无效时显示的图形。

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第3题

下列程序的功能是：当发生窗体的单击事件时，求出3～1000之间的所有素数的和以及所有能被3和5整除的数的和(素数是指只能被1和它本身整除的数)，并在窗体上把这两个和显示出来。 Private Sub Form_Click() Dim s1 As Long，s2 As Long Dim i As Integer For i=3 To 1000 If prime(i) Then s1=s1+i Else If【】Then s2=s2+i End If Next i Print s1，s2 End Sub Public Function prime(ByVal n As Integer)As Boolean Dim j As Integer For j=2 To n-1 If n Mod j=0 Then Exit For End If Next j If j=n Then 【】 Else prime=False End If End Function

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第4题

下列程序的功能是：单击窗体时将随机生成20个两位数依次赋值给一个由20个元素组成的数组，然后把数组反序存放，再输出。 Option Base 1 Private Sub Form_Click() Dim a(20) As Integer,i As Integer Dim t As Integer,j As Integer Randomize For i=1 To 20 a(i)=10+Int(90*Rnd) Print a(i)； Next i Print i=1：【】 Do While i＜j t=a(i)：【】：a(i)=t i=i+1：j=j-1 Loop For i=1 To 20 Print a(i)； Next i Print End Sub

请帮忙给出正确答案和分析，谢谢！

点击查看答案