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

基础题（1) 【解题思路】通过形状控件的Name、Width、Height和Shape属性设置名称为shape1的形状控件并画一个长、宽都为1200的正方形。通过窗体的Caption、MinButton属性设置窗体的标题为正方形，窗体的最小化按钮不可用，设置形状控件的BorderStyle属性使正方形的边框为虚线。 【操作步骤】 步骤1：新建一个窗体，在窗体中添加一个形状控件，按照题目要求设置其属性。程序中用到的控件及属性见表3.75。 表3.75 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第19套第一大题的第一小题来进行同类知识点练习。 基础题(2) 【解题思路】通过窗体的Caption属性设置窗体标题为标签，通过标签的Name、Caption、FontSize、AutoSize属性，添加一个名称为Label1，并可自动调整大小的标签，其标题为计算机等级考试，字体大小为三号字，通过命令按钮的Name、Caption属性设置命令按钮的名称和标题。在命令按钮的Click事件过程中，通过Label1的Font属性值的改变，实现单击宋体命令按钮，标签内容显示为宋体字体；单击黑体按钮，标签内容显示为黑体字体。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.76和表3.77。 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Label1.Font = 宋体 End Sub Private Sub Command2_Click() Label1.Font = 黑体 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第50套第一大题的第二小题来进行同类知识点练习。 简单题(1) 【解题思路】单击通话开始按钮，通过Str(Time())语句在开始时间右侧的文本框中显示开始时间，即系统的当前时间，且通话结束命令按钮的Enabled属性设置为True，变为可用状态，通话开始命令按钮的Enabled属性设置为False，变为不可用； 单击通话结束按钮，通过Str(Time())语句在结束时间右侧的文本框中显示结束时间，即系统的当前时间，同时把系统时间通过Minute函数， Hour函数，Second函数换算成以秒为时间单位，计算通话费用，并将其显示在通话费用右侧的文本框中，通话开始命令按钮变为可用状态，通话结束命令按钮不可用。 【操作步骤】 步骤1：打开本题工程文件，设置Cmd2的Enabled属性为False。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Cmd1_Click() ? = Str(Time()) Text1(1)．Text = ： Text1(2)．Text = Cmd1.Enabled = False Cmd2.Enabled = True End Sub Private Sub Cmd2_Click() Text1(1)．Text = Str(Time()) t start = Hour(Text1(0)．Text) * 3600 + Minute(Text1(0)．Text) * 60 + Second(Text1(0)．Text) t end = Hour(Text1(1)．Text) * 3600 + Minute(Text1(1)．Text) * 60 + Second(Text1(1)．Text) t = t end - t start m = t \ 60 If m t / 60 Then m = m + 1 s = 0.5 If m - 3 0 Then 　　 s = ? + (m - 3) * 0.15 End If Text1(2)．Text = Str(s) + 元 ？= True ？= False End Sub 程序结束 参考答案 第1个？处填入：Text1(0) 第2个？处填入：s 第3个？处填入：Cmd1.Enabled 第4个？处填入：Cmd2.Enabled 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第19套第一大题的第二小题来进行同类知识点的练习。 简单题(2) 【解题思路】单击读入数据按钮，运用文件操作和For循环语句从文件in4.txt中读入数据放到二维数组a中。在Command2 Click事件过程，计算5门课程的平均分，通过CInt函数对平均分取整，存入数组s(i)，并依次放入Text1文本框数组中。在Command3 Click事件过程中，通过形状控件的Height 、To