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

[主观题]

窗体上有一个名称为HScroll 1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚

动框的位置(即刻度值)。下面能够实现上述操作的事件过程是()。

A． Private Sub HScroll 1_Change() Print HScroll1.Value End Sub

B．Private Sub HScroll 1_Change() Print HScroll1.SmallChange End Sub

C．Private Sub HScroll1 Scroll() Print HScroll1.Value End Sub

D．Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub

提问人：网友suanptzhw 发布时间：2022-01-07

参考答案

查看官方参考答案

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

您可能会需要：

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

安装简答题APP，拍照搜题省时又省心！

更多“窗体上有一个名称为HScroll 1的滚动条，程序运行后，当…”相关的问题

第1题

窗体上有一个名称为HScroll 1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚

动框的位置(即刻度值)。下面能够实现上述操作的事件过程是()。

A． Private Sub HScroll 1_Change() Print HScroll1.Value End Sub

B．Private Sub HScroll 1_Change() Print HScroll1.SmallChange End Sub

C．Private Sub HScroll1 Scroll() Print HScroll1.Value End Sub

D．Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub

点击查看答案

第2题

程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为Text1的文本框，用来显示文本

。程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除；重复上述过程5次。 Option Explicit Private【】 Dim k As Integer For k=1 to 100 If k Mod 20 Then 【】 Else Text1.Text="" End lf Print“程序运行完毕，可再双击窗体” End Sub

点击查看答案

第3题

窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是A）Private

窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是

A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()

End Sub End Sub

C）Private Sub Commandl_Click() D）Private Sub Command_ Click()

End Sub End Sub

点击查看答案

第4题

在窗体上有一个框架框（名称为Frame1)，一个计时器（名称为Timerl)，计时器的时间间隔属性Interva

在窗体上有一个框架框(名称为Frame1)，一个计时器(名称为Timerl)，计时器的时间间隔属性Interval=100，在图片框中有一个复选按钮(名称为Check1)和一个命令按钮(名称为Command1)，用户界面如图1所示。

其中，计时器有Timer1_Timer事件过程如下：

Private Sub Timer1_Timer()

If Frame1.Left ＞= Form1.Width Then Frame1.Left = 0

Frame1.Move Frame1.Left + 50

End Sub

运行后，窗体中的现象是()。

A.仅框架框移动

B.框架框携带复选按钮和命令按钮同时移动

C.框架框携带复选按钮同时移动

D.框架框携带命令按钮同时移动

点击查看答案

第5题

假定窗体上有一个标签，名称为Lahel1，为了使该标签透明并且没有边框，则正确的属性设置为______。

A.Label1. BackStyle=0 Label1. BorderStyle=0

B.Label1. BackStyle=1 Label1. BorderStyle=1

C.Label1. BackStyle=True Label1. BorderStyle=True

D.Label1. BackStyle=False Label1. BorderStyle=False

点击查看答案

第6题

在窗体上有一个名称为List1列表框和一个名称为Command1的按钮，List1的MultiSelect属性设置为2。当

单击Command1按钮时，将会把所有选中的选项全部删除。下列程序缺少的一句是______。Private Sub Command1_ Click () for i = List1. ListCount- 1 To 0 Step- 1 if ______ = True then List1. RemoveItem i End if Next iEnd Sub

A．List1.Select(i)

B．List1.Sort(i)

C．List1.List(i)

D．Ltst1.Select(List1.Listindex)

点击查看答案

第7题

窗体上有一个名称为text1的文本框，名称为check1的两个复选框构成的控件数组，下标分别为1、2。窗体外观如图所示。

窗体上有一个名称为Text1的文本框，名称为Check1的两个复选框构成的控件数组，下标分别为1、2。窗体外观如图所示。要求在程序运行时，改变复选框选中状态，则文本框中文本的字体做相应变化。为此，某人编写了如下程序代码： Private Sub Check1_Click(Index As Integer) If Index = 1 And Check1(1).Value Then Text1.FontItalic = True Else Text1.FontItalic = False End If If Check1(2).Value = 1 Then Text1.FontBold = True End If If Check1(2).Value = 0 Then Text1.FontBold = False End If End Sub 但是，以上程序在运行中不能完全达到要求，应进行修改，下面正确的修改是_______________。

A、将If Index=1 And Check1(1).Value Then 改为If Check1(1).Value Then

B、将第1个If条件中的Check1(1).Value 改为Check1(1).Value = True

C、将第2个If条件中的Check1(2).Value = 1 改为Check1(2).Value = True

D、将第3个If条件中的Check1(2).Value = 0改为Check1(2).Value = False

点击查看答案

第8题

设窗体上有一个名称为CDl的通用对话框、一个名称为Textl的文本框和一个名称为Commandl的命令按钮。

程序执行时，单击Commandl按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文字文件，并读人一行文本，显示在Textl中。下面是实现此功能的事件过程，请填空。 Private Sub Command1_Click CD1.Filter=“文本文件|*.txt|Word文档|*.doc” CDl.FilterIndex=1：CD1.ShowOpen If CD1.FileName＜＞“” Then Open 【9】 For Input As #1 Line Input#1，ch$ Close#1：Text1.Text= 【10】 End If End Sub

点击查看答案

第9题

窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属

性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。

Private Sub Form_Load（）

For i=1 To 100

If i Mod 7 =0 Then

________

End If

End Sub

Private Sub Command1_Click（）

Sum = 0

For i = 0 To ________

Sum = Sum + ________

Text1.Text = Sum

End Sub

点击查看答案

第10题

在窗体上有一个名称为Check1的复选框数组（含4个复选框)，还有一个名称为Textl的文本框，初始内容为

在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Textl的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(见图)。下面能实现此功能的事件过程是？ A． Private Sub Check1_click(Index As Integer) Text1.Text = "" For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text & Check1(k).Caption & " "？'双引号中是空格 End If Next k End Sub B． Private Sub Check1_Click(Index As Integer) For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text & Check1(k).Caption & " " '双引号中是空格 End If Next k End Sub C． Private Sub Check1_Click(Index As Integer) Text1.Text = "" For k = 0 To 3 If Check1(Index).Value = 1 Then Text1.Text = Text1.Text & Check1(Index).Caption & " " '双引号中是空格 End If Next k End Sub D． Private Sub Check1_Click(Index As Integer) Text1.Text = "" For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text & Check1(k).Caption & " " '双引号中是空格 Exit For End If Next k End Sub？

点击查看答案