属性为1在Form1加标签(Label1-标签为空白-BorderStyle属性为1).doc

《属性为1在Form1加标签(Label1-标签为空白-BorderStyle属性为1).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、基础题（1）控件标签属性NameCaptionBorderStyleVisible设置值Label11FALSE表3.105控件文本框命令按钮属性NameTextNameCaption设置值Text1Command1显示步骤2：编写程序代码。参考答案PrivateSubCommand1_Click()Label1.Visible=TrueLabel1.Caption=Text1.TextText1.Visible=FalseEndSub基础题（2）参考答案PrivateSubHScroll1_Change()Text1.Height=HScroll1.ValueT

2、ext1.Width=1.2*Text1.HeightEndSub简单题（1）【操作步骤】步骤1：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见表3.107。表3.107步骤2：分析并编写程序代码。程序提供代码PrivateSubForm_Click()IfOption1.Value=TrueThen　　　　Text1.Text=InputBox("请输入要添加的项目")　　　　'List1.AddItem?EndIfIfOption2.Value=TrueThen　　　　Text1.Text=InputBox("请输入要删除的项目")　　　　'Fo

3、ri=0To?　　　　　　'IfList1.List(i)=?Then　　　　　　　　'List1.RemoveItem?　　　　　　EndIf　　　　NextiEndIfEndSub程序结束参考答案第1个？处填入：Text1第2个？处填入：List1.ListCount-1第3个？处填入：Text1.Text第4个？处填入：i简单题（2）程序提供代码OptionBase1PrivateSubSort(a()AsInteger)DimStartAsInteger,FinishAsIntegerDimiAsInteger,jAsInteger,tAsInteger　

4、　　　　　'Start=？(a)'Finish=？(a)'Fori=?To2Step-1　　　　'Forj=1To?　　　　　　'Ifa(j)?a(j+1)Then　　　　　　　　t=a(j+1)　　　　　　　　a(j+1)=a(j)　　　　　　　　a(j)=t　　　　　　EndIf　　　　NextjNextiEndSubPrivateSubCommand1_Click()Dimarr1Dimarr2(4)AsIntegerarr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Te

5、xt))Fori=1To4　　　　arr2(i)=CInt(arr1(i))NextiSortarr2()Text1.Text=arr2(1)Text2.Text=arr2(2)Text3.Text=arr2(3)Text4.Text=arr2(4)EndSub程序结束参考答案第1个？处填入：LBound第2个？处填入：UBound第3个？处填入：4第4个？处填入：3第5个？处填入：<综合题标题控件读入数据计算并输出存盘名称ReadCalcSave内缩符号000表3.109控件文本框属性NameMultiLineScrollBarsText设置值Text1TRUE

6、2步骤2：分析并编写程序代码。程序提供代码OptionBase1DimArr(100)AsIntegerSubReadData()OpenApp.Path&""&"datain1.txt"ForInputAs#1Fori=1To100　　　　Input#1,Arr(i)NextiClose#1EndSubSubWriteData(FilenameAsString,NumAsInteger)OpenApp.Path&""&FilenameForOutputAs#1Print#1,NumClose#1EndSub程序结束参考答案PrivateSubCalc_Cli

7、ck()Text1.Text=""Fori=1To100IfArr(i)<50ThenText1.Text=Text1.Text&Arr(i)&Space(5)sum=sum+Arr(i)EndIfNextiPrintsumEndSubPrivateSubRead_Click()ReadDataEndSubPrivateSubSave_Click()WriteData"dataout.txt",sumEndSub