在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。要求程序运行后，每次移动滚动框时，都执行语句Form1.Print HS1.Value，如图11-14所示（程序中不能使用任何变量)。 注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。

请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码)。在名称为Form1的窗体上画一个名称为Label1、标题为“设置速度”的标签，通过属性窗口把标签的大小设置为自动调整。画一个名称为Hscroll1的水平滚动条，通过属性窗口设置适当属性使滚动条的最大值为80，最小值为1，单击滚动条两端的箭头时，滚动框移动2，滚动框的初始值为30。程序运行后的窗体如图1所示。 [*] 注意 假定建立了一个工程，该工程包括两个窗体，其名称（Name属性)分别为Form1和Fonn2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将程序补充完整。 Private Sub Command1_Click（)______Form1Form2.______ End Sub 在名称为Form1的窗体上画一个文本框，名称为Text1，其宽度为1000；再画一个滚动条，名称为HS1。其刻度值的范围是1000—2000。请编写滚动条的Change事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文木框的宽度。运行时的窗体如下图所示。程序中不能使用任何变量，事件过程只能写一条语句。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt12.vbp， 假定建立了一个工程，该工程包括两个窗体，其名称（Name属性)分别为Form1和Form2，启动窗体为 Form1。在Form1中画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将程序补充完整。 Private Sub Command1_Click（) 【8】 Me Form2． 【9】 End Sub 假定建立了一个工程，该工程包括两个窗体，其名称（Name属性)分别为Form1和Form2，启动窗体为 Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在 【14】 和 【15】 处将程序补充完整。 Private Sub Command1_Click（) 【14】 Form1Form2. 【15】 End Su 设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下： Private Sub Command1_Click（) Dim a As Integer a=10 Call g（Form2，a) End Sub Private Sub g（f As Form, X As Integer) y=IIf（x＞,10, 在考生文件夹下完成如下基本操作： 1．创建名称为Form1的窗体，在该窗体上画一个文本框，名称为Text1，文本框中初始内容为Visual Basic。在文本框的右边画一个垂直滚动条，名称为VScroll1。滚动条的高度为 3000，宽度为375。在图片框的下方画一个命令按钮，名称为Command1，标题为“清除”。文本框的宽度为2000，高度为600，如图3所示。编写一个事件过程，使程序运行后， 在窗体上有三个控件：名称为Label1的标签控件、名称为Text1的文本框控件和名称为Hscroll1的水下滚动条控件。程序的功能是通过滚动条移动Label1，并把滚动条的值显示在文本框中。滚动条的值作为Label1的Left属性。程序运行时的界面如右图所示。Private Sub form_ Load（) HScroll1.Max = form1. Width HScroll1. Min= 0 假定建立了一个工程，该工程包括两个窗体，其名称分别为Form1和Fom2，启动窗体为Form1。在Form1上面画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示Form2，请在 【8】 和 【9】 处将程序补充完整。 Private Sub Command1_Click（) 【8】 form2 【9】 End Sub 一个工程中包含两个名称分别为Form1和Form2的窗体，程序运行后，如果单击 Form1，则隐藏Form1且显示Form2。下列可以执行上述操作的事件过程是 设窗体名称为form1。以下叙述中正确的是（） 完成下列问题：在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其刻度范围为1～100；再画一个名称为Text1的文本框，初始内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置，运行情况如图2所示。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp， 设工程文件中包名称分别为Form1、Form2的两个窗体，且Form1的菜单属性设置如下： 标题（p) 名称（m) 内缩符号 Index 窗体 Mnu（) 无 显示窗体2 Mnu1 1 1 退出 Mnu1 1 2 窗体Form1中的程序如下： Dim Flag As Boolean Private Sub Form_Load（) Flag = True End Sub Private Sub mn 一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为： Form1中定义的过程： Private Sub frmFunctionl（) End Sub Form2中定义的过程： Public Sub fimFunction2（) End Sub mdlFunc中定义的过程： P 一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为Func的标准模块。假定在Form1和Func中分别建立了自定义过程，其定义格式为： Form1中定义的过程： Private Sub Fun1()...... End Sub Func中定义的过程： Public Sub Fun2() ...... End Sub 若要在窗体For2g调用Porm1和Func中分别建立的自定义过程，则调用格式正确的是 ( ) 一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为Func的标准模块。假定在Form1和Func中分别建立了自定义过程，其定义格式为： Form1中定义的过程： Private Sub Fun1（)...... End Sub Func中定义的过程： Public Sub Fun2（) ...... End Sub 若要在窗体For2g调用Porm1和Func中分别建立的自定义过 设工程文件包含两个窗体文件及一个标准模块文件，两个窗体上分别只有一个名称为Command1的命令按钮Form1的代码如下：Form2的代码如下：Module1的代码如下：运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是（） 窗体上有一个名称为Vscroll1的垂直滚动条，要求程序运行时，滚动框的初始位置在最下端，应该使VScroll1.Value的值等于（） 在名为Form1的窗体上绘制一个名为HS1的水平滚动条，请在属性窗口中设置它的属性值，满足以下要求：它的最大刻度值为200，最小刻度值为100，在运行时使用鼠标单击滚动条上滚动框以外的区域（不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面绘制两个名称分别为Lab1和Lab2的标签，并分别显示100和200，运行时的窗体如下图所示。 注意：文件必须存放在考生文件夹中，工程文件名为sj1.vbp 在名为Form1的窗体上绘制一个名为HS1的水平滚动条，请在属性窗口中设置它的属性值，满足以下要求：它的最大刻度值为200，最小刻度值为100，在运行时鼠标单击滚动条上滚动框以外的区域（不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面绘制两个名称分别为Lab1和Lab2的标签，并分别显示100和200，运行时的窗体如下图所示。 注意： 文件必须存放在考生文件夹中，工程文件名为sjt1.vbp