1(水平滚动条).docVIP

1 【解题思路】水平滚动条的最大刻度值和最小刻度值分别由Max和Min属性设置；单击滚动条上滚动框以外的区域移动刻度值大小由LargeChange属性设置，而单击滚动条两边按钮移动刻度大小由SmallChange属性设置，本题要求单击滚动条上滚动框以外的区域移动刻度大小则由LargeChange属性设置；标签标题显示由Caption属性设置。 【操作步骤】 步骤1：打开Visual Basic，按照题目的要求新建窗体并添加一个水平滚动条控件。 步骤2：在属性窗口中，设置水平滚动条的名称为H1,然后设置其LargeChange的值为10，Max的值为100，Min的值为1。 步骤3：再在窗体上水平滚动条的左右两端的下方添加两个标签控件Label1和Label2。 步骤4：在属性窗口中将Label1的名称设置为L1，将Caption属性设置为1;再将Label1的名称设置为L2，将Caption属性设置为100.程序中用到的控件及属性见表3.1。 步骤5：按下键盘上的F5键运行程序。 步骤6：保存工程，设置工程文件名为sjt1.vbp,设置窗体文件名为sjt1.frm。 2 【解题思路】在编辑窗体中单击右键选择菜单编辑器来创建菜单，在菜单的Click事件中，通过对Text2.Text属性的设置来完成对于内容的清除和复制。 【操作步骤】 步骤1：新建窗体，按表3.2建立菜单项并设置其属性。 步骤2：菜单项设置完成后，单击确定按钮。 步骤3：添加文本框控件，按照表3.3设置文本框的属性。 表3.3 控　件 文本框1 文本框2 属　性 Name Name 设置值 Text1 Text2 步骤4：编写程序代码。 参考答案 Private Sub Clear_Click Text2.Text End Sub Private Sub Copy_Click Text2.Text Text1.Text End Sub 步骤5：调试并运行程序，关闭程序后按题目要求存盘。 1 【解题思路】通过文本框的Name属性设置文本框名称；在窗体上添加单选按钮，通过Name属性设置名称，右击单选按钮进行复制，弹出对话框，选择创建单选按钮数组，并通过Caption属性设置每一个单选按钮的标题；通过命令按钮Name和Caption属性分别设置命令按钮的名称和标签；设置两个字符型变量a、b ，a ＝ 我坐，b ＝ 我开，用于Select Case选择语句的字符串连接；通过对单选按钮数组Index属性查询，实现单击单选按钮完成字符串连接和文本框显示操作的功能。 【操作步骤】 步骤1：打开本题工程文件，在窗体中添加一个单选按钮数组，包含3个单选按钮。再添加一个文本框。 步骤2：按照题目要求设置控件的属性，见表3.4。 步骤3：分析并编写程序代码。　 Private Sub Op1 Click Index As Integer Dim a As String, b As String, c As String a 我坐 b 我开 Select Case ? Case 0 Text1.Text a ＋ Me.Op1 0 ．Caption ＋ 去 Case 1 Text1.Text ＋ Me.Op1 1 ．Caption ＋ 去 Case 2 Text1.Text b ＋ Me.Op1 2 ．Caption ＋ 去 End Select End Sub 程序结束 参考答案 第一个？处填入：Index 第二个？处填入：a 2 【解题思路】在窗体上建立好控件后，先设置控件属性，再编写事件过程。本题需注意容器中控件的画法。命令按钮标题由Caption属性设置，单击命令触发Click事件；单选按钮的标题由Caption属性设置，程序中需要检测的单选按钮的状态，通过Value属性来实现，如果单选按钮被选中，则Value值为1，否则Value值为0。在文本框中显示内容通过Text属性实现，其形式为：文本框名．Text 显示的内容。 在VB程序中，Open语句用于打开数据文件，打开顺序文件的基本格式为：Open FileName For Mode As #FileNumber。其中，FileName表示要打开的文件的路径；Mode为打开模式，OutPut用于输出，Append用于追加写入，Input用于读取；FileNumber为打开文件时指定的句柄。 读文件操作在窗体的Load事件过程中完成，写文件操作在命令按钮的Click事件过程中完成。 【操作步骤】 步骤1：打开本题工程文件，在窗体中添加两个框架，一个命令按钮和4个单选按钮。　 步骤2：为步骤1建立的控件设置相关属性，程序中用到的控件及属性见表3.5和表3.6。 步骤3：分析并编