在Form1上添加两个标签(名称分别为L1、L2,标题为“身高”“体重”)VIP免费

基础题(1)【解题思路】文本框的内容由Text属性设置，命令按钮标题则由Caption属性设置，单击命令按钮触发Click事件。并且在程序中用到了InputBox()函数。【操作步骤】步骤1：建立界面并设置控件属性。程序中用到的控件及其属性见表3.81和表3.82。表3.81控件标签1标签2属性NameCaptionNameCaption设置值Label1身高Label2体重表3.82控件文本框1文本框2命令按钮属性NameNameNameCaption设置值Text1Text2Command1输入步骤2：分析并编写程序代码。参考答案PrivateSubCommand1_Click()Text1.Text=InputBox("请输入身高","输入对话框",,100,100)Text2.Text=InputBox("请输入体重","输入对话框",,100,100)EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。基础题(2)【解题思路】在窗体上建立好控件后，先设置控件属性，再编写程序代码。调节图片的大小就是调节图片框的Width属性和Height属性的值。要使滚动条的Value值改变影响图片框的大小，需要通过编写代码将其和图片框的高和宽联系起来。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.83。表3.83步骤2：编写程序代码。参考答案PrivateSubCommand1_Click()VScroll1.Max=2400VScroll1.Min=100VScroll1.LargeChange=200VScroll1.SmallChange=20EndSubPrivateSubVScroll1_Change()Picture1.Height=VScroll1.ValueEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题(1)【解题思路】使用AddItem方法向列表框中添加列表项目，其格式为：列表．AddItem项目字符串[，索引值]AddItem方法把"列表字符串"的文本内容放入列表框中。如果省略"索引值"则文本放在列表框的尾部。"索引值"可以指定插入项在列表框中的位置，表中的项目从0开始计数，"索引值"不能大于表中的项数减1。该方法只能单个地向列表框中添加项目。使用RemoveItem方法从列表框中删除列表项目，其格式为：列表．RemoveItem索引值RemoveItem方法从列表框中删除以"索引值"为地址的项目，该方法每次只能删除一个项目。【操作步骤】步骤1：建立界面并设置控件属性。程序中用到的控件及其属性见表3.84。表3.84步骤2：分析并编写程序代码。程序提供代码PrivateSubCommand1_Click()Text1.Text=InputBox("请输入要添加的项目")'List1.AddItem?EndSubPrivateSubCommand2_Click()Text1.Text=InputBox("请输入要删除的项目")'Fori=0To?'IfList1.List(i)=?Then'List1.RemoveItem?EndIfNextiEndSub程序结束参考答案第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：分析并编写程序代码。程序提供代码OptionBase1PrivateFunctionFindMax(a()AsInteger)DimStartAsIntegerDimFinishAsInteger,iAsInteger'Start=？(a)'Finish=？(a)'Max=？(Start)Fori=StartToFinish'Ifa(i)?MaxThenMax=?NextiFindMax=MaxEndFunctionPrivateSubCommand1_Click()Dimarr1Dimarr2(4)AsIntegerarr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))Fori=1To4'arr2(i)=CInt(？）Nexti'M=FindMax(？)Print"最大值是："；MEndSub程序结束参考答案第1个？处填入：LBound第2个？处填入：UBound第3个？处填入：a第4个？处填入：>第5个？处填入：a(i)第6个？处填入：arr1(i)第7个？处填入：arr2步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【解题思...