在Form1上添加两个标签(名称分别为L1、L2,标题为“身高”“体重”)资料.docVIP

基础题(1) 【解题思路】文本框的内容由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：分析并编写程序代码。 参考答案 Private Sub Command1_Click() Text1.Text = InputBox(请输入身高,输入对话框,,100,100) Text2.Text = InputBox(请输入体重,输入对话框,,100,100) End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 基础题(2) 【解题思路】在窗体上建立好控件后，先设置控件属性，再编写程序代码。 调节图片的大小就是调节图片框的Width属性和Height属性的值。要使滚动条的Value值改变影响图片框的大小，需要通过编写代码将其和图片框的高和宽联系起来。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.83。 表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) 【解题思路】使用AddItem方法向列表框中添加列表项目，其格式为： 列表．AddItem 项目字符串[，索引值] AddItem方法把列表字符串的文本内容放入列表框中。如果省略索引值则文本放在列表框的尾部。索引值可以指定插入项在列表框中的位置，表中的项目从0开始计数，索引值不能大于表中的项数减1。该方法只能单个地向列表框中添加项目。 使用RemoveItem方法从列表框中删除列表项目，其格式为： 列表．RemoveItem 索引值 RemoveItem方法从列表框中删除以索引值为地址的项目，该方法每次只能删除一个项目。 【操作步骤】 步骤1：建立界面并设置控件属性。程序中用到的控件及其属性见表3.84。 表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) 【解题思路】文本框里的内容(包括数字)情况下，都是当作字符串来处理的，如果要参与数据运算，则须先用Val() 函数将其转化为数字(如Val(Text1.Text))。 这里需要指出的是，利用Array对数组各元素赋值，声明数组的类型只能是Variant。数组的上下界可用LBound函数和UBound函数分别获得；程序中变量Max保存最大数，最初把数组的第一个元素赋给Max，然后将其后的元素依次与之比较，如果大于Max的值则与之交换，依次类推，最终Max中的元素就是最大值。在窗体上输出信息可以通过Print方法来实现，其形式为： [对象．]Print 要显示的内容 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1