VB题库答案 试题答案(26—50)达标篇.doc

26 (1) 【考点分析】本题考点有：文本框的Name和Text属性，命令按钮的Name和Caption属性，标签的Name和Caption属性以及InputBox()函数。 【解题思路】文本框的内容由Text属性设置，命令按钮标题则由Caption属性设置，单击命令按钮触发Click事件。并且在程序中用到了InputBox()函数。 【操作步骤】 步骤1：建立界面并设置控件属性。程序中用到的控件及其属性见表3.81和表3.82。 表3.81 控件 标签1 标签2 属性 Name Caption Name Caption 设置值 Label1 身高 Label2 体重 表3.82 控件 文本框1 文本框2 命令按钮 属性 Name Name Name Caption 设置值 Text1 Text2 Command1 输入 步骤2：分析并编写程序代码。 参考答案 Option Explicit Private Sub Command1 Click() Text1.Text ＝ InputBox(请输入身高) Text2.Text ＝ InputBox(请输入体重) 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【考点分析】本题考点有：命令按钮的Name 、Caption属性，图片框的Name、Caption和Height属性以及垂直滚动条Name、Max、Min、LargeChange、SmallChange和Value属性。 【解题思路】在窗体上建立好控件后，先设置控件属性，再编写程序代码。 调节图片的大小就是调节图片框的Width属性和Height属性的值。要使滚动条的Value值改变影响图片框的大小，需要通过编写代码将其和图片框的高和宽联系起来。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.83 步骤2：编写程序代码。 参考答案 Private Sub Command1 Click() VScroll1.Max ＝ 2400 VScroll1.Min ＝ 100 VScroll1.LargeChange ＝ 200 VScroll1.SmallChange ＝ 20 End Sub Private Sub VScroll1 Change() Picture1.Height ＝ VScroll1.Value End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (1) 【考点分析】本题考点有：列表框的Name属性，命令按钮的Name和Caption属性，文本框的Name 属性，InputBox函数，RemoveItem方法以及AddItem方法。 【解题思路】使用AddItem方法向列表框中添加列表项目，其格式为： 列表．AddItem 项目字符串[，索引值] AddItem方法把列表字符串的文本内容放入列表框中。如果省略索引值则文本放在列表框的尾部。索引值可以指定插入项在列表框中的位置，表中的项目从0开始计数，索引值不能大于表中的项数减1。该方法只能单个地向列表框中添加项目。 使用RemoveItem方法从列表框中删除列表项目，其格式为： 列表．RemoveItem 索引值 RemoveItem方法从列表框中删除以索引值为地址的项目，该方法每次只能删除一个项目。 【操作步骤】 步骤1：建立界面并设置控件属性。程序中用到的控件及其属性见表3.84。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Command1 Click() Text1.Text ＝ InputBox(请输入要添加的项目) List1.AddItem ? End Sub Private Sub Command2 Click() Text1.Text ＝ InputBox(请输入要删除的项目) For i ＝ 0 To ? 　　　　If List1.List(i) ＝ ? Then 　　　　　　List1.RemoveItem ? 　　　　End If Next i End Sub 程序结束 参考答案 第1个？处填入：Text1.Text 第2个？处填入：List1.ListCount － 1 第3个？处填入：Text1.Text 第4个？处填入：i 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【考点分析】本题考点有：LBound函数，UBound函数，Val函数，Print方法，CInt函数以及For循环语句。 【解题思路】文本框里的内容(包括数字)情况下，都是当作字符串来处理的，如果要参与数据运算，则须先用Val() 函数将其转化为数字(如Val(Text1.Text))。 这里需要指出的是，利用Array对数