更多"窗体上有一个名称为VScrol11的垂直滚动条，为了设定单击滚动条两端"的相关试题:
[填空题]设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填写。
Dim______As Integer
Private Sub Form_Load（ ）
pos=HScroIII.Value
End Sub
Private Sub HScroIII_Change（ ）
Print______-pos
pos=HScroIII.Value
End Sub
[单项选择]窗体上有一个名称为VScrol11的垂直滚动条，要求程序运行时，滚动块的初始位置在最下端，应该使VScrol11．Value的值等于
A. VScrol11．LargeChange
B. VScrol11．SmallChange
C. VScrol11．Max
D. VScrol11．Min
[单项选择]假定窗体上有一个文本框，名为txtl，为了使该文本框的内容能够换行，并且具有垂直滚动条，没有水平滚动条正确的属性设置为
A. Txtl.MultiLine=True
B. Txtl.MultiLine=True
C. Txtl.MulfiLine=False
D. Txtl.MultiLine=False
[单项选择]设窗体上有1个名称为HScrol11的水平滚动条，其Max、Min属性分别设置为100、1： 有2个名称分别为Option1、Option2的单选按钮，其标题分别为“30”、“50”；还有下面程序代码： Private Sub Option 1_Click（ ） Private Sub Option2_Click（ ） HScrol11=Val(Option 1_Caption) HScrol11=Val(Option 2_Caption) End Sub End Sub 程序运行时，单击Option2单选按钮，则滚动条上滚动框的位置是
A. 在最左边
B. 在最右边
C. 在中间
D. 在中间偏左的位置
[填空题]程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为text1的文本框，用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除；重复上述过程5次。
Option Explicit
Private ______
Dim k As Integer
For k=1 To 100
If k Mod 20 Then
_______
Else
Text1.Text=" "
End If
Print“程序运行完毕，可再双击窗体”
End Sub
[填空题]程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为Text1的文本框，用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除；重复上述过程5次。
Option Explicit
Private 【12】
Dim k As Integer
For k=1 to 100
If k Mod 20 Then
【13】
Else
Text1.Text=""
End lf
Print“程序运行完毕，可再双击窗体”
End Sub
[单项选择]设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是( )。
A. 程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加
B. 程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少
C. 由于滚动条的Max属性值小于Min属性值，程序会出错
D. 由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动
[单项选择]设窗体上有1个水平滚动条，已经通过属性窗V1把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是( )。
A. 程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加
B. 程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少
C. 由于滚动条的Max属性值小于Min属性值，程序会出错
D. 由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动
[单项选择]窗体上有一个名为List 1的列表框和一个名为Command 1的命令按钮，并有下面的事件过程： Private Sub Command 1_Click（ ） n％=List 1．ListIndex If n>0 Then ch$=List 1．List(n) List 1．List(n)=List 1．List(n一1)：List 1．List(n-1)=ch End If End Sub 程序运行时，选中1个列表项，然后单击Command 1按钮，则产生的结果是
A. 若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置
B. 选中的列表现与它前面的列表项互换位置
C. 若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置
D. 选中的列表项与它后面的列表项互换位置
[单项选择]在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：
Private Sub Command1_Click（ ）
Dim i As Integer,n As Integer
For i=0 To 50
i=j+3
n=n+1
If i＞10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的是( )。
A. 2
B. 3
C. 4
D. 5
[单项选择]窗体上有一个名为text1的文本框和一个名为command1的命令按钮，事件过程如下：
Private Sub command1_click（ ）
Dim i As Integer，n As Integer
For j=0 to 50
i=i+3
n=n+1
If i＞10 Then Exit For
Nextj
text1=str(n)
End Sub
程序运行时单击命令按钮，文本框中显示的值是（）。
A. 2
B. 3
C. 4
D. 5
[单项选择]窗体上有一个名为Command1的命令按钮，并有下面的程序：
Private Sub Command1_Click（ ）
Dim arr(5) As Integer
For k=1 To 5
arr(k)=k
Next k
Prog arr（ ）
For k=1 To 5
Print arr(k)
Next k
End Sub
Sub prog(a（ ） as Integer)
n=Ubound(
[单项选择]在窗体上画一个水平滚动条，其属性值Min满足
A. 增加一个SmallChange量
B. 减少一个SmallChange量
C. 增加一个LargeChange量
D. 减少一个LargeChange量
[填空题]窗体“滚动条”属性值有 【8】 个选项。
[单项选择]设窗体上有一个名为Text1的文本框，并编写如下程序：
Private Sub Form_Load（ ） Show
Text1.Text = "" Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As
Single)
Print "程序设计" End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "Visual Basic";
End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内 容是______。
A. Visual Basic
B. 程序设计
C. Visual Basic程序设计
D. a程序设计
