首页 > 大学专科> 电子信息

题目内容（请给出正确答案）

[主观题]

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

体中有三个控件：文本框控件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题

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

在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，然后编写如下几个事件过程： Private Sub Form_Load() Timer1.Enabled=False Timer1.Interval=【】 End Sub Private Sub Form_Click() Timer1.Enabled=【】 End Sub Private Sub Timer1_Timer() Label1.Caption=【】 End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次(见图)。请填空。

在窗体上画一个标签（名称为Label1)和一个计时器（名称为Timer1)，然后编写如下几个事件过程

点击查看答案

第2题

在窗体上画一个标签（名称为Label1)和一个计时器（名称为Timer1)，如图16－11所示，然后编写如下几个

在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，如图16-11所示，然后编写如下几个事件过程： Private Sub Form_Load() Timer1. Enabled=False Timer1. Interval=【】 End Sub Private Sub Form_Cliek() Timer1. Enabled=【】 End Sub Private Sub Timer1_Timer() Label1. Caption=【】 End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟改变一次。请填空。

在窗体上画一个标签（名称为Label1)和一个计时器（名称为Timer1)，如图16－11所示，然后

点击查看答案

第3题

行政部门承办的责任是（）。A.监督部门是否按程序办文B.监督部门是否传达文件精神C.到一定的时间

行政部门承办的责任是（）。

A.监督部门是否按程序办文

B.监督部门是否传达文件精神

C.到一定的时间组织有关部门清退文件，按规定收回文件

D.将文件按类归档

点击查看答案

第4题

以下关于VB的叙述中，错误的是A.VB采用事件驱动的编程机制B.如果程序中有Sub_Main过程时

以下关于VB的叙述中，错误的是

A.VB采用事件驱动的编程机制

B.如果程序中有Sub_Main过程时，则一定从该过程开始执行

C.工程文件中包含多个窗体时，可以指定启动窗体

D.VB程序既可以编译执行，也可以解释执行

点击查看答案

第5题

Word“自动保存”功能可以每隔一定时间保存一次文档，自动保存以后可用于断电恢复，但不能代替正常存盘。（)

点击查看答案

第6题

在窗体上画一个标签、一个计时器和…个命令按钮，其名称分别为Label1、Tliner1和Command1，如图1所示。

程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“炊迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。

Prirate Sub Form_L．aad()

Labell．Caption=“欢迎”

Timer1．Enabled=False

Timer1．Interval=【】

Commandl．Caption=“开始闪烁”

End sut)

Private Sub Timer1_rrimer()

Label1．visible=【】

Emi sub

PTivate Sub Commandl_Click()

【】

End sub

在窗体上画一个标签、一个计时器和…个命令按钮，其名称分别为Label1、Tliner1和Comman

点击查看答案

第7题

以下叙述错误的是（）。A. 滚动条的重要事件是Change和ScrollB. 框架的主要作用是将控件进行分组，

以下叙述错误的是（）。

A. 滚动条的重要事件是Change和Scroll

B. 框架的主要作用是将控件进行分组，以完成各自相对独立的功能

C. 组合框是组合了文本框和列表框的特性而形成的一种控件

D. 计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上

点击查看答案

第8题

本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于—次投币，1代表

正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。

本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于—次投币，1代表正 Private Sub Command1_Click() Randomize n=CInt(Text1.Text) n1=0 n2=0 For i=1To【】 r=Int(Rnd*2) If r=【】Then n1=n1+1 Else n2=n2+1 End If Next TcxtText=n1 TextText=n2 End Sub

点击查看答案

第9题

以下所列程序的功能是：在窗体上有一个文本框控件，程序运行后，用户可以利用鼠标左键来拖动该文本

框控件(注意：拖动时，文本框移动的距离和方向由鼠标指针移动的距离和方向来确定)，按下鼠标右键则可以在文本框中显示出当前文本控件的位置。 Public yx As Integer Public yy As Integer Private Sub Form_ MouseMove(Button AS Integer，Shift As Integer，_ X As Single，Y As Single) If Button=1 Then Text1．Left=【】 Text1．Top=【】 End If End Sub Private Sub Form_ MouseDown (Button As Integer，Shift As Integer，_ X As Single，Y As Single) If【】Then yx=Text1．Left-X yy=Text1．Top-Y End If If Button=2 Then Text1．Text=“X坐标：”+Str(Text1．Left)+“Y坐标：”+Str(Text1．Top) End If End Sub

点击查看答案

第10题

在窗体中添加一个命令按钮，（其Name属性为Command1)，然后编写代码。程序的功能是产生100个小于1000

在窗体中添加一个命令按钮，(其Name属性为Command1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。请在【】和【】、【】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a(100) For j=1 To 100 a(j)=Int (【】) If a(j)【】5=0 Then【】 Print a(j) Next j Print print k/100 End Sub

点击查看答案

湖南中本聪区块链科技有限公司版权所有 ©2024

湘ICP备20004669号-2 营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）