2010++下半年VB机试题库5-112010++下半年VB机试题库5-11.docVIP

5◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】 （1）【操作步骤】 步骤1：新建一个窗体，按照题目要求建立控件并设置标签属性。 步骤2：按照步骤1设置其他控件相关属性，程序用到的控件及其属性见表3.19和3.20。 表3.19 控件 标签1 标签2 属性 Name Caption Name Caption 设置值 Label1 姓名 Label2 年龄 步骤3：编写程序代码。 参考答案 Private Sub Command1_Click() Form1.Print Text1.Text ,现年 Text2.Text 岁 End Sub 步骤4：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】 步骤1：新建一个窗体，按照题目要求建立控件并设置图片框的属性 步骤2：按照步骤1设置其他控件相关属性，程序中用到的控件及其 属性见表3.21。 步骤3：编写程序代码。 参考答案 Private Sub Command1_Click() HScroll1.Max = 1500 HScroll1.Min = 100 HScroll1.LargeChange = 100 HScroll1.SmallChange = 10 End Sub Private Sub HScroll1_Change() Picture1.Width = HScroll1.Value End Sub 步骤4：调试并运行程序，关闭程序后按题目要求存盘。 【简单应用】 （1）【操作步骤】 步骤1：打开本题工程文件，按表3.22所列在窗体建立控件并设置其属性。 表3.22 控件 列表框 文本框 属性 Name Name 设置值 List1 Text1 步骤2：分析并编写程序代码。 参考答案 第1个？处填入：Text1.Text 第2个？处填入：List1.ListCount － 1 第3个？处填入：Text1.Text 第4个？处填入：i 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案 第1个？处填入：LBound 第2个？处填入：UBound 第3个？处填入：a 第4个？处填入： 第5个？处填入：a(i) 第6个？处填入：arr2 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【综合应用】 【操作步骤】 步骤1：打开本题工程文件，利用菜单设计器，按表中的设置建立菜 单项，并在窗体Form1中添加一个文本框。 其相关属性及其值见表3.23和3.24。 表3.23 标题控件 读入数据 计算并输出 存盘 名称 Read Calc Save 内缩符号 0 0 0 表3.24 控件 文本框 属性 Name MultiLine ScrollBars Text 设置值 Text1 TRUE 2 步骤2：分析并编写程序代码。 参考答案 Dim sum As Long Private Sub Calc_Click() Text1.Text = For i = 2 To 100 Step 2 Text1.Text = Text1.Text Arr(i) Space(5) sum = sum + Arr(i) Next i Print sum End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData dataout.txt, sum End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。 6◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】 （1）【操作步骤】 步骤1：新建一个窗体，按照题目要求建立命令按钮控件并设置命令按钮和窗体的相应属性。 程序中用到的属性见表3.25。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】 步骤1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性。 控件 标签 属性 Name BorderStyle 设置值 Label1 1 程序中用到的控件及属性见表3.26。 表3.26 步骤2：编写程序代码。 参考答案 Private Sub Form_Click() Label1.Top = 0 Label1.Left = Form1.Width - Label1.Width End Sub 步骤3：调试并运行程序，