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

基础题(1) 【解题思路】文本框的内容由Text属性设置，命令按钮标题则由Caption属性设置，单击命令按钮触发Click事件。并且在程序中用到了InputBox()函数。【操作步骤】步骤1：建立界面并设置控件属性。程序中用到的控件及其属性见表3.81和表3.82。表3.81控件标签1标签2属性NameCaptionNameCaption设置值Label1身高Label2体重表3.82控件文本框1文本框2命令按钮属性NameNameNameCaption设置值Text1Text2Command1输入步骤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 = 20End SubPrivate Sub VScroll1_Change() Picture1.Height = VScroll1.ValueEnd 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 SubPrivate Sub Command2_Click()Text1.Text = InputBox(请输入要删除的项目)For i = 0 To ?If List1.List(i) = ? ThenList1.RemoveItem ?End IfNext iEnd 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 1Private Function FindMax(a() As Integer)Dim Start As IntegerDim Finish As Integer, i As IntegerStart = ？(a)Finish = ？(a)Max = ？(Start)For i = Start To FinishIf a(i) ? Max Then Max = ?Next iFindMax = MaxEnd FunctionPrivate Sub Command1_Click()Dim arr1Dim arr2(4) As Integerarr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text)For i = 1 To 4arr2(i) = CInt(？）Next iM = FindMax(？)Print 最大值是： ； MEnd Sub程序结束参考答案第1个？处填入：LBound第2个？处填入：UBound第3个？处填入：a第4个？处填入：第5个？处填入：a(i)第6个？处填入：arr1(i)第7个？处填入：arr2步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【解题思路】使用Open方法和Close方法打开和关闭文件，使用循环语句将数值赋给数组。在计算输出时，先定义一个变量，用来保存计算时找出数组中下标为奇数的数进行累加的和，将结果在文本框中显示出来。在窗体上输出内容可以用Print方法来实现。【操作步骤】步骤1：打开本题工程文件，利用菜单编辑器，按表3.69中的设置建立菜单项，在窗体Form1中绘制一个文本框，其相关属性设置见表3.85和表3.86。表3.85标题控件读入数据计算并输出存盘名称ReadCalc Save内缩符号000表3.86控件文本框属性NameMultiLineScrollBarsText设置值Text1Ture2步骤2：分析并编写程序代码。程序提供代码Option Base 1Dim Arr(100) As IntegerDim sum As IntegerSub ReadData()Open App.Path & & datain1.txt For Input As #1For i = 1 To 100Input #1, Arr(i)Next iClose #1End SubSub WriteData(Filename As String, Num As Integer)Open App.Path & & Filename For Output As #1Print #1, NumClose #1End Sub程序结束参考答案Private Sub Calc_Click() Text1.Text = For i = 1 To 100 Step 2 Text1.Text = Text1.Text & Arr(i) & Space(5) sum