标题为`“等级考试”;再画1个文本框

《标题为`“等级考试”;再画1个文本框》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、基础题(1)【操作步骤】步骤1：打开VB开发环境，新建一个窗体。步骤2：在窗体中添加一个命令按钮，在属性窗口中设置其名称为C1，设置其Caption属性为"等级考试"。步骤3：再在窗体中添加一个文本框，在属性窗口中设置其名称为T1。步骤4：打开代码窗口，编写代码如下：PrivateSubT1_Change()C1.Visible=FalseT1.Text=C1.CaptionEndSub步骤5：运行程序，然后将文件保存至考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。基础题(2)【操作步骤】步骤1：打开VB开发环境，新建一个窗体，并在属性窗口中将窗体的Caption

2、属性设置为"菜单演示"。步骤2：在窗体中添加一个标签Lable1，设置其Caption属性为空，设置其BorderStyle属性为1。步骤3：在窗体中右击鼠标，打开"菜单编辑器"建立一个菜单，菜单项的属性设置如表2.370所示。表3.270步骤4：打开代码窗口，编写代码如下：PrivateSubClock_Click()Label1.Caption=Time()EndSubPrivateSubTitle_Click()Label1.Caption=Form1.CaptionEndSub步骤5：运行程序，然后将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。

3、简答题(1)【操作步骤】步骤1：打开本题工程文件。步骤2：将窗体Form1的Caption属性设置为"二分法查找"。步骤3：打开代码编辑窗口，去掉程序中的注释,将问号改为正确的内容。参考答案Dom=(low+high)2SelectCasea(m)CaseIs=xflag=1ExitDoCaseIs>xhigh=mCaseElselow=mEndSelectLoopUntillow=highIfflag=1ThenText2.Text="查找成功，该数的位置为"+Str(m)+"！"ElseText2.Text="查找失败，该数不存在！"EndIf步骤4：调试并运行程序，关闭程序后按题目要

4、求存盘。简答题(2)【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释,将问号改为正确的内容。参考答案DimFlagAsBooleanPrivateSubForm_Load()DrawWidth=2EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenFlag=TrueEndIfEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs

5、Single)IfFlagThenMe.Circle(X,Y),300EndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenFlag=FalseEndIfEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释,将问号改为正确的内容。参考答案PrivateFunctionf(mAsInteger)AsLongs=1Fori=1Toms=s*mNextf=sEndFunct

6、ion步骤3：在代码编辑窗口中的指定位置编写如下代码。PrivateSubCommand1_Click()'=======考生编写程序开始================DimiAsIntegerDimjAsIntegerDimtotalAsLongi=Text1.TextForj=1Toitotal=total+f(j)NextText2.Text=total'=========考生编写程序结束===============OpenApp.Path&"out5.dat"ForOutputAs#1Print#1,Text1,Text2Close#1EndSub步骤4：按照题目要求调试和运行

7、程序，然后按照题目要求存盘并关闭程序。