1、基础题(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
2、Sub Command1_Click() Text1.Text = InputBox(“请输入身高 “,“输入对话框“,100,100) Text2.Text = InputBox(“请输入体重“,“输入对话框“,100,100)End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。基础题(2) 【解题思路】在窗体上建立好控件后，先设置控件属性，再编写程序代码。调节图片的大小就是调节图片框的Width属性和Height属性的值。要使滚动条的Value 值改变影响图片框的大小，需要通过编写代码将其和图片框的高和宽联系起来。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件
3、及属性见表3.83。表3.83步骤2：编写程序代码。参考答案Private Sub Command1_Click()VScroll1.Max = 2400VScroll1.Min = 100VScroll1.LargeChange = 200VScroll1.SmallChange = 20End SubPrivate Sub VScroll1_Change()Picture1.Height = VScroll1.ValueEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题(1) 【解题思路】使用AddItem 方法向列表框中添加列表项目，其格式为：列表AddItem 项目
4、字符串，索引值AddItem方法把 “列表字符串“的文本内容放入列表框中。如果省略“索引值“ 则文本放在列表框的尾部。“ 索引值“ 可以指定插入项在列表框中的位置，表中的项目从0开始计数，“索引值“不能大于表中的项数减1。该方法只能单个地向列表框中添加项目。使用RemoveItem方法从列表框中删除列表项目，其格式为：列表RemoveItem 索引值RemoveItem方法从列表框中删除以“索引值“为地址的项目，该方法每次只能删除一个项目。【操作步骤】步骤1：建立界面并设置控件属性。程序中用到的控件及其属性见表3.84。表3.84步骤2：分析并编写程序代码。程序提供代码Private Sub
5、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：调试并运行
6、程序，关闭程序后按题目要求存盘。简单题(2) 【解题思路】文本框里的内容(包括数字) 情况下，都是当作字符串来处理的，如果要参与数据运算，则须先用Val() 函数将其转化为数字 (如Val(Text1.Text)。这里需要指出的是，利用Array对数组各元素赋值，声明数组的类型只能是Variant。数组的上下界可用LBound函数和 UBound函数分别获得；程序中变量Max保存最大数，最初把数组的第一个元素赋给Max，然后将其后的元素依次与之比较，如果大于Max 的值则与之交换，依次类推，最终Max中的元素就是最大值。在窗体上输出信息可以通过Print方法来实现，其形式为：对象Print 要
7、显示的内容【操作步骤】步骤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()D
8、im 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：调试并运行程序，关闭程序后按题目要求存盘。
9、综合题【解题思路】使用Open方法和Close方法打开和关闭文件，使用循环语句将数值赋给数组。在计算输出时，先定义一个变量，用来保存计算时找出数组中下标为奇数的数进行累加的和，将结果在文本框中显示出来。在窗体上输出内容可以用Print 方法来实现。【操作步骤】步骤1：打开本题工程文件，利用菜单编辑器，按表3.69中的设置建立菜单项，在窗体Form1中绘制一个文本框，其相关属性设置见表3.85和表 3.86。表3.85标题控件 读入数据 计算并输出 存盘名称 Read Calc Save内缩符号 0 0 0表3.86控件 文本框属性 Name MultiLine ScrollBars Text设
10、置值 Text1 Ture 2步骤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 #1P
11、rint #1, NumClose #1End Sub程序结束参考答案Private Sub Calc_Click()Text1.Text = “For i = 1 To 100 Step 2Text1.Text = Text1.Text & Arr(i) & Space(5)sum = sum + Arr(i)Next iPrint sumEnd SubPrivate Sub Read_Click()ReadDataEnd SubPrivate Sub Save_Click()WriteData “dataout.txt“, sumEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
