在窗体上画一个名称为Text1的文本框和名称为HScrolll的水平滚动条(Max属性为 10，Min属性为0)，然后画两个标题分别为“慢”和“快”的标签。程序运行后，移动滚动块，如果滚动块位于滚动条的正中间位置，则在文本框中显示“适中”；如果滚动块位于滚动条的正中间位置的左侧，则在文本框中显示“慢”；如果滚动块位于滚动条的正中间位置的右侧，则在文本框中显示“快”，如下图所示。请填空。<br>Private Sub HScolll ______()<br>If (HScrolll.Value = 50) Then<br>Textl.Text="适中"<br>Else<br>If HScrolll.Value ______Then<br>Text1.Text = "慢"<br>Else<br>Text1.Text = "快"<br>End If<br>End If<br>End Sub

（1）根据考生文件夹下的“通信录”表和“职工”表建立一个查询“qh_qry”，查询出单位是“清华大学”的所有教师的姓名、职称、电话，要求查询去向是表，表名是“qh_qry．dbf”，并执行该查询。<br>（2）建立表单“optbtn"，表单中有两个命令按钮，按钮的名称分别为“cmdopen”和“emdelose”，标题分别为“打开”和“关闭”。单击“关闭”按钮，使用“ThisForm．Release”退出表单。

有下列函数过程：Function funl(ByVal x As Integer, ByVal y As Integer) Do While y 0 Reminder=x Mody x=y y=reminder Loop Funl=xEnnd Function在下列按钮单击事件中调用该函数，则该程序的运行结果是 Privatr Sub Commandl_Click() Dim a As IntegerDim b As Integer a=100 b=25 x=funl(a,b) Print x End Sub

A. 0
B. 25
C. 50
D. 100

设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是（）。

A. 程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少
B. 由于滚动条的Max值小于Min值，程序运行时滚动条的长度会缩为一点，滚动块无法移动
C. 程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加
D. 由于滚动条的Max属性值小于Min属性值，程序会出错

为从当前文件夹中读入文件File1．txt，某人编写了下面的程序：<br>Private Sub Command1_Click（）<br>Open"File1．txt"For Output As20<br>Do While Not EOF(20)<br>Line Input20，ch$<br>Print ch<br>Loop<br>Close20<br>End Sub<br>程序调试时，发现有错误，下面的修改方案中正确的是（）。

A. 在Open语句中的文件名前添加路径
B. 把程序中各处的“20”改为“1”
C. 把Print ch语句改为Print20，ch
D. 把Open语句中的0utput改为Input

下面循环语句中在任何情况下都至少执行一次循环体的是（）。

A. Do While 循环体 Loop
B. While 循环体 Wend
C. Do 循环体 Loop Until
Do Until 循环体 Loop

窗体上有一个命令按钮Command1，编写如下事件过程：<br>Private Sub Command1_Click()<br>a = 80: b = 50: c = 30<br>If a< b or b >c Then b = c<br>If b = c And a< c then a = a - 30<br>If a = b And b >c Then c = a + b<br>Print a, b, c<br>End Sub<br>运行时，单击按钮，窗体输出的结果是()。

A. 80 50 30
B. 80 30 30
C. 50 30 80
D. 50 30 30

如果在一行中输入多条语句，各语句之间用使用 ;分隔。()

同一条记录中的各数据具有相同的类型。()

在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除(真正删除)。()