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

《在Form1添加一个标签(标题为“输入信息”)一个文本框》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、基础题(1)【解题思路】根据题意，须在命令按钮的Click事件过程中，将标签和文本框的Visible属性值设置为False，并用Print方法将文本框的内容输出到窗体上。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.99。表3.99步骤2：编写程序代码。参考答案PrivateSubCommand1_Click()Form1.PrintText1.TextLabel1.Visible=FalseText1.Visible=FalseEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。基础题(2)【解题思路】FontSize

2、属性可用来设置文本框中字体的大小。Value属性用于设置滚动条滑块的当前位置值，当滚动框的位置改变时，触发Change事件。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.100。表3.100步骤2：编写程序代码。参考答案PrivateSubHScroll1_Change()Text1.FontSize=HScroll1.ValueEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题(1)【解题思路】通过InpatBox函数接收用户输入信息，在"添加项目"单击事件过程中，运用AddItem方法添加列表框内容，在"删除

3、项目"单击事件中运用RemaneItem方法移除列表框内容。【操作步骤】步骤1：打开本题工程文件，添加一个名称为List1列表框和一个名称为Text1文本框，然后建立一个菜单，其属性见表3.101。表3.101标题控件项目添加项目删除项目名称ItemAddDelete内缩符号011步骤2：分析并编写程序代码。程序提供代码PrivateSubAdd_Click()　　　　Text1.Text=InputBox("请输入要添加的项目")　　　　'List1.AddItem?EndSubPrivateSubDelete_Click()Text1.Text=InputB

4、ox("请输入要删除的项目")'Fori=0To?　　　　'IfList1.List(i)=?Then　　　　　　'List1.RemoveItem?　　　　EndIfNextiEndSub程序结束参考答案第1个？处填入：Text1.Text第2个？处填入：List1.ListCount-1第3个？处填入：Text1.Text第4个？处填入：i步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题(2)【解题思路】本题在For循环语句中，应使用CInt函数将数组arr1中每个元素的数据类型转换为整型，并赋给数组arr2具有相同下标的元素。变量temp记录的是4

5、个文本框中输入数据的平均值，显示在窗体标题栏中。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码OptionBase1PrivateSubSort(a()AsInteger)DimStartAsInteger,FinishAsIntegerDimiAsInteger,jAsInteger,tAsInteger'Start=？(a)'Finish=？(a)'Fori=?To2Step-1　　　　'Forj=1To?　　　　　　'Ifa(j)?a(j+1)Then　　　　　　　　t=a(j+1)　　　　　　　　a(j+1)=a(j)　　

6、　　　　　　a(j)=t　　　　　　EndIf　　　　NextjNextiEndSubPrivateSubCommand1_Click()Dimarr1Dimarr2(4)AsIntegerarr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))Fori=1To4　　　　arr2(i)=CInt(arr1(i))NextiSortarr2()Text1.Text=arr2(1)Text2.Text=arr2(2)Text3.Text=arr2(3)Text4.Text=

7、arr2(4)EndSub程序结束参考答案第1个？处填入：LBound第2个？处填入：UBound第3个？处填入：4第4个？处填入：3第5个？处填入：>步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【解题思路】本题需编写"读入数据"、"计算并输出"和"存盘"命令的单击事件过程。在"读数"命令的单击事件过程中，通过调用ReadData过程将数据从in5.txt文件读入数组Arr(窗体变量)中；在"计算"命令的单击事件过程中，在For循环语句(循环变量i的初值为1，终值为100)中依次将数组Arr中大于等于50的元素的值显示在文本框中，并将其值累加到变量s

8、um；在"保存"命令的单