画1个名称为Text1的文本框,其初始内容为空

《画1个名称为Text1的文本框,其初始内容为空》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、基础题（1)【操作步骤】步骤1：新建一个窗体，在窗体上创建一个文本框控件。步骤2：在属性窗口中，设置其Text属性为空。步骤3：在文本框下方绘制一个命令按钮Command1。步骤4：在属性窗口中，将Caption设置为"上一条记录"。步骤5：复制命令按钮"上一条记录"，在窗体的空白位置处粘贴对话框，单击"是"按钮，创建一个控件数组。步骤6：再创建3个命令按钮.步骤7：按照题目要求将复制的3个命令按钮的Caption分别设置为"下一条记录"、"第一条记录"和"最后一条记录"，并将窗体的Caption设置为"显示记录"。步骤8：选择"上一条记录"

2、命令按钮，通过属性窗口设置Enable为False，选择"下一条记录"命令按钮，通过属性窗口设置Default为True.。步骤9：将文件保存至考生文件夹下，且设置窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。基础题(2)【操作步骤】步骤1：打开VB开发环境，新建一个窗体。步骤2：在窗体中添加一个标签控件Lable1，在属性窗口中设置标签的Caption属性为"等级考试"，然后设置其AutoSize属性为True，设置其BorderStyle属性为1。步骤3：然后在窗体中添加一个计时器Timer1，设置其Interval属性为0

3、，Enabled属性为True。步骤4：打开代码窗口，编写代码如下。PrivateSubForm_Load()Timer1.Interval=1000EndSubPrivateSubTimer1_Timer()Label1.Visible=NotLabel1.VisibleEndSub步骤5：运行程序，然后将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。简单题(1)【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符"'",将问号改为正确的内容。参考答案PrivateSubC

4、ommand1_Click()DimflagAsBooleanflag=FalsePicture1.PrintLabel1.Caption,Text1.TextPicture1.PrintFrame1.Caption;"：",Fork=0To3IfCheck1(k).Value=TrueThenPicture1.PrintOption1(k).CaptionEndIfNextkFork=0To2IfOption1(k).Value=1ThenIfNotflagThenPicture1.PrintFrame2.Caption;"：",flag=

5、TrueEndIfPicture1.PrintCheck1(k).Caption;"";EndIfNextkPicture1.PrintEndSubPrivateSubCommand2_Click()Text1.Text=""Fork=0To3Option1(k).Value=FalseNextkFork=0To2Check1(k).Value=0NextkPicture1.ClsCommand1.Enabled=FalseEndSubPrivateSubOption1_Click(IndexAsInteger)Command1.Enable

6、d=TrueEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题(2)【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，去掉程序中的注释符"'",将问号改为正确的内容。参考答案PrivateSubCommand1_Click()Dima%,b%,c%,n%n=Val(Text1.Text)a=Val(List1.List(List1.ListCount-2))b=Val(List1.List(List1.ListCount-1))c=a+bDoWhilec

7、opEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【操作步骤】步骤1：打开本题工程文件。步骤2：打开代码编辑窗口，在指定位置编写如下代码。Fori=1To5Sum=0n=0Forj=1To40Ifa(i,j)<50ThenSum=Sum+a(i,j)n=n+1EndIfNextjLabel1(i-1).Caption=SumText2(i-1).Text=Int(Sum/n*100)/100Nexti步骤3：按照题目要求调试并运行程序，进行"统计"，关闭程序后按题目要求存盘。