在1添加一个标签(标题为“输入信息”)一个文本框.doc

基础题(1)【解题思路】根据题意，须在命令按钮的Click事件过程中，将标签和文本框的Visible属性值设置为False，并用Print方法将文本框的内容输出到窗体上。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.99。 表3.99步骤2：编写程序代码。参考答案Private Sub Command1_Click() Form1.Print Text1.Text Label1.Visible = False Text1.Visible = FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。基础题(2) 【解题思路】FontSize属性可用来设置文本框中字体的大小。Value属性用于设置滚动条滑块的当前位置值，当滚动框的位置改变时，触发Change事件。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.100。 表3.100步骤2：编写程序代码。参考答案Private Sub HScroll1_Change() Text1.FontSize = HScroll1.ValueEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题(1)【解题思路】通过InpatBox函数接收用户输入信息，在添加项目单击事件过程中，运用AddItem方法添加列表框内容，在删除项目单击事件中运用RemaneItem方法移除列表框内容。【操作步骤】步骤1：打开本题工程文件，添加一个名称为List1列表框和一个名称为Text1文本框，然后建立一个菜单，其属性见表3.101。表3.101标题控件项目添加项目删除项目名称ItemAddDelete内缩符号011步骤2：分析并编写程序代码。程序提供代码Private Sub Add_Click()Text1.Text = InputBox(请输入要添加的项目)List1.AddItem ?End SubPrivate Sub Delete_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) 【解题思路】本题在For循环语句中，应使用CInt函数将数组arr1中每个元素的数据类型转换为整型，并赋给数组arr2具有相同下标的元素。变量temp记录的是4个文本框中输入数据的平均值，显示在窗体标题栏中。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Option Base 1Private Sub Sort(a() As Integer)Dim Start As Integer, Finish As IntegerDim i As Integer, j As Integer, t As IntegerStart = ？(a)Finish = ？(a)For i = ? To 2 Step -1For j = 1 To ?If a(j) ? a(j + 1) Thent = a(j +1)a(j + 1) = a(j)a(j) = tEnd IfNext jNext iEnd SubPrivate 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(arr1(i)Next iSort arr2()Text1.Text = arr2(1)Text2.Text = arr2(2)Text3.Text = arr2(3)Text4.Text = arr2(4)End Sub程序结束参考答案第1个？处填入：LBound第2个？处填入：UBound第3个？处填入：4第4个？处填入：3第5个？处填入：步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【解题思路】本题需编写读入数据、 计算并输出和存盘命令的单击事件过程。在读数命令的单击事件过程中，通过调用ReadData过程将数据从in5.txt文件读入数组Arr(窗体变量)中；在计算命令的单击事件过程中，在For循环语句(循环变量i的初值为1，终值为100)中依次将数组Arr中大于等于50的元素的值显示在文本框中，并将其值累加到变量sum；在保存命令的单击事件过程中，通过调用WriteData过程将Sum的值写入数据文件out5.txt。【操作步骤】步骤1：打开本题工程文件，利用菜单设计器，按表3.83中的设置建立菜单项，在窗体Form1中绘制一个文本框，其相关属性及其值见表3.102和表3.103。表3.102标题控件读入数据计算并输出存盘名称ReadCalc Save内缩符号000表3.103控件文本框属性NameMultiLineScrollBarsText设置值Text1TRUE2步骤2：分析并编写程序代码。程序提供代码Option Base 1Dim Arr(100) 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 If Arr(i) = 50 Then Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) Next