在Form1的窗上体用shape1的形状控件画一个长、宽均为1200的正方形.docVIP

基础题（1) 【解?题思路】通过形状控件?的Name、Widt?h、Height和S?hape属性设置名称?为shape1的形状?控件并画一个长、宽都?为1200的正方形。?通过窗体的Capti?on、MinButt?on属性设置窗体的标?题为正方形，窗体?的最小化按钮不可用，?设置形状控件的Bor?derStyle属性?使正方形的边框为虚线?。 【操作步骤】 步?骤1：新建一个窗体，?在窗体中添加一个形状?控件，按照题目要求设?置其属性。程序中用到?的控件及属性见表3.?75。 ? ? ?表3.75 ?步骤2：调试并运行程?序，关闭程序后按题目?要求存盘。 【举一?反三】可以通过第19?套第一大题的第一小题?来进行同类知识点练习?。 基础题(2) ?【解题思路】通过窗体?的Caption属性?设置窗体标题为标签?，通过标签的Nam?e、Caption、?FontSize、A?utoSize属性，?添加一个名称为Lab?el1，并可自动调整?大小的标签，其标题为?计算机等级考试，?字体大小为三号字，通?过命令按钮的Name?、Caption属性?设置命令按钮的名称和?标题。在命令按钮的C?lick事件过程中，?通过Label1的F?ont属性值的改变，?实现单击宋体命令?按钮，标签内容显示为?宋体字体；单击黑体?按钮，标签内容显示?为黑体字体。 【操?作步骤】 步骤1：?建立界面，并设置控件?的属性。程序中用到的?控件及属性见表3.7?6和表3.77。 ? 步骤2：编写程序?代码。 参考答案 ?Private Su?b Command1?_Click() ? Label1.?Font = 宋体? End Sub ? Private S?ub Command?2_Click() ? Label1?.Font = 黑?体 End Sub? 步骤3：调试并运?行程序，关闭程序后按?题目要求存盘。 ? 【举一反三】可以通?过第50套第一大题的?第二小题来进行同类知?识点练习。 简单题(?1) 【解题思路】单?击通话开始按钮，?通过Str(Time?())语句在开始时?间右侧的文本框中显?示开始时间，即系统的?当前时间，且通话结?束命令按钮的Ena?bled属性设置为T?rue，变为可用状态?，通话开始命令按?钮的Enabled属?性设置为False，?变为不可用； 单击?通话结束按钮，通?过Str(Time(?))语句在结束时间?右侧的文本框中显示?结束时间，即系统的当?前时间，同时把系统时?间通过Minute函?数， Hour函数，?Second函数换算?成以秒为时间单位，计?算通话费用，并将其显?示在通话费用右侧?的文本框中，通话开?始命令按钮变为可用?状态，通话结束命?令按钮不可用。 【?操作步骤】 步骤1?：打开本题工程文件，?设置Cmd2的Ena?bled属性为Fal?se。 步骤2：分?析并编写程序代码。 ? 程序提供代码 Pr?ivate Sub ?Cmd1_Click?() ? = S?tr(Time())? Text1(1)?．Text = ?： Text1(2)?．Text = ? Cmd1.Ena?bled = Fal?se Cmd2.E?nabled = T?rue End Su?b Private ?Sub Cmd2_C?lick() Te?xt1(1)．Tex?t = Str(Ti?me()) t s?tart = Hou?r(Text1(0)?．Text) * 3?600 + Minu?te(Text1(0?)．Text) * ?60 + Secon?d(Text1(0)?．Text) t ?end = Hour?(Text1(1)．?Text) * 36?00 + Minut?e(Text1(1)?．Text) * 6?0 + Second?(Text1(1)．?Text) t =? t end - t? start m ?= t \ 60 ?If m t /? 60 Then m? = m + 1 ?s = 0.5 I?f m - 3 ?0 Then 　　? s = ? + ?(m - 3) * ?0.15 End ?If Text1(?2)．Text = ?Str(s) + ?元 ？= Tr?ue ？= Fa?lse End Su?b 程序结束 参?考答案 第1个？处?填入：Text1(0?) 第2个？处填入?：s 第3个？处填?入：Cmd1.Ena?bled 第4个？?处填入：Cmd2.E?nabled 步骤?3：调