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

基础题（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

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 、Top属性和线条的Y1属性，画出直方图，并通过设置形状控件的Visible使平均分的直方图显示出来。

【操作步骤】

步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码

Dim a(5, 10) As Integer

Dim s(5)

Private Sub Command1_Click()

'Open App.Path & "\in4.txt" For ? As #1

For i = 1 To 5

For j = 1 To 10

Input #1, a(i, j)

Next j

Next i

Close #1

End Sub

Private Sub Command2_Click()

For i = 1 To 5

s(i) = 0

For j = 1 To 10

's(i) = ?

Next j

'？= CInt(s(i) / 10)

Text1(i - 1) = s(i)

Next i

End Sub

Private Sub Command3_Click()

For k = 1 To 5

Shape1(k - 1)．Height = s(k) * 20

m = Line2.Y1

'Shape1(k - 1)．Top = ? - Shape1(k - 1)．Height

'Shape1(k - 1)．? = True

Next k

End Sub

程序结束

参考答案

第1个？处填入：Input

第2个？处填入：s(i) + a(i, j)

第3个？处填入：s(i)

第4个？处填入：Line2.Y2

第5个？处填入：Visible

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

综合题

【解题思路】单击"读数据"按钮，则将考生文件夹下in5.dat文件的内容读到变量s中；

单击"统计"按钮，通过Select Case语句判断是否为空格或是字母(文件中仅含有字母和空格，空格用来分隔不同单词)，通过Len函数得出其中最长单词的长度，并通过比较把最长单词赋值给变量B，运用For语句从字符串s的最后开始查找，判断Len(B) ＝Len(R(m))，找出最后一个以该长度出现的单词，并将该单词的长度显示在Text1文本框内，将该单词显示在Text2文本框内。

【操作步骤】

步骤1：打开本题工程文件，添加两个名称分别是Label1和Label2，标题分别为"最长单词的长度"和"以该长度最后一次出现的单词是"的标签；再添加两个名称分别为Text1和Text2，初始

值都为空的文本框。

步骤2：分析并编写程序代码。

程序提供代码

Option Base 1

Dim s As String

Private Sub Command1_Click()

Open App.Path & "\in5.dat" For Input As #1

s = Input(LOF(1), #1)

Close #1

End Sub

Private Sub Command2_Click()

'需考生编写

End Sub

Private Sub Form_Unload(Cancel As Integer)

Open App.Path & "\out5.dat" For Output As #1

Print #1, Text1.Text, Text2.Text

Close #1

End Sub

程序结束

参考答案

Private Sub Command2_Click()

For i = 1 To Len(s)

J = Asc(Mid(s, i, 1))

Select Case J

Case 48 To 57, 65 To 90, 97 To 122

Case Else

Mid(s, i, 1) = "-"

End Select

Next i

J = Len(s) - 1

For i = 1 To J

If Mid(s, i, 1) = "-" And Mid(s, i + 1, 1) = "-" Then

s = Left(s, i) + Right(s, J - i)

J = J - 1

i = i - 1

End If

Next i

s = Left(s, Len(s) - 1)

R = Split(s, "-")

B = R(0)

For i = 1 To UBound(R)

If Len(B) < Len(R(i)) Then B = R(i)

Next i

For m = UBound(R) To 1 Step -1

If Len(B) = Len(R(m)) Then

Exit For

End If

Next

Text1.Text = Len(B)

Text2.Text = R(m)

End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【举一反三】可以通过第34套第三大题来进行同类知识点练习。

C#在主窗体Panel中添加新的窗体

在主窗体Panel中添加新的窗体(C#，winform开发) 本文的要写的是如何将窗体（Form）添加到panel中。 为什么要这样呢？ 1）如果用tab控件，整个窗体的控件太多，不易于我们编程； 2）可以更灵活的控制窗体的布局。 我想你一定看过这样的配制信息窗体吧（迅雷的配置页面）。 在你的项目开发中,是否也希望做出做出这种效果呢?应该如何设置呢?单击窗体的左边的按钮,窗体右边的内容会根据单击的按钮变化. 开始是想到的设置思路很简单,主窗体(如上图),右边放置一个Panel控件.然后根据单击的按钮将子窗体显示在Panel控件上.在按钮的单击事件中加入下面的代码:private void button1_Click(object sender, EventArgs e) {ChildForm child = new ChildForm(); this.panel1.Controls.Add(child); child.Show(); }运行程序显示“不能将顶级控件添加到一个控件上”出现“不能将顶级控件添加到一个控件上”错误怎么处理？在代码中加入 child.TopLevel = false;OK.新问题又出现了.我们不希望子窗体的标题和边筐也显示在父窗体中,再添加如下代码.

child.FormBorderStyle = FormBorderStyle.None;现在的感觉是不是舒服多了.但是还隐藏着一个新问题.怎样动态设置子窗体的Size、Location等呢?我希望在调整父窗体大小时，Panel1中子窗体的大小也跟随动态自动调整 .需要加入下面的事件 private void panel1_Resize(object sender,System.EventArgs e) { try { this.child.ClientSize=new System.Drawing.Size(panel1.Size.Width,pa nel1.Size.Height); } catch(System.Exception Er) { MessageBox.Show(Er.ToString()); } }编译无错，执行时（Error:未将对象引用设置到对象的实例） 但连续点了4个一样的错误提示确认后，程序却可以正常执行，并且form1调整窗体大小form2也可以随之响应了。 此计不行,又生一计.我们可以把子窗体当成一个控件,设置Dock属性不就行了吗?赶快测试一下:private void button1_Click(object sender, EventArgs e) {ChildForm child = new ChildForm(); child.TopLevel = false; child.Dock = System.Windows.Forms.DockStyle.Fill; child.FormBorderStyle = FormBorderStyle.None; //child.Parent = this.panel1; this.panel1.Controls.Add(child); child.Show(); }

使用窗体控件

第2章使用窗体控件 课堂练习：为控件创建事件处理程序 5）传递给这个事件处理程序的第二个参数(e)的目的是什么？ 答：参数e包含事件数据。它是一个EventArgs 对象（实际不包含事件数据的基类），或者是一个派生类（像MouseEventArgs）的实例。要查看派生类的完整列表，请在Visual Studio .NET帮助文档中使用短语“EventArgs 类”进行查找，然后点击链接转到“派生类”。 ●为Click 事件创建一个事件处理程序。 3）上面的双击动作为什么创建了一个Click 事件处理程序？ 答：当在设计视图中双击一个控件时，IDE会自动为默认事件创建一个事件处理程序。课堂练习：创建和使用ToolBar控件 8）为什么不能向ToolBar 按钮添加图像呢？ 答：ToolBar 控件将ImageList 控件作为图像源。使用ToolBar 控件的ImageList 属性指定Toolbar 将从哪个ImageList 控件获取图像。 13）运行应用程序。单击工具栏按钮时有事情发生吗？必须处理什么事件以响应单击ToolBar按钮？ 答：ToolBar 的ButtonClick事件用来处理ToolBar按钮的单击。ToolBarButtonClickEventArgs 用来确定单击了哪个按钮。 课堂练习：在运行时添加和移除控件 ●添加新控件 6）为什么decimalCheckBox 出现在GroupBox1控件的左上角？ 答：控件位置属性的默认坐标X和Y的值均为零。 课堂练习：在运行时更新菜单 ●使用另一个MainMenu 9）什么时候能在一个应用程序中使用多个MainMenu 控件? 答：在应用程序的上下文改变或者应用程序有多种状态时，使用（显示）多个MainMenu 对象会很有帮助。 ●将一个ContextMenu 分配给一个控件。 5）如何找出哪个控件与ContextMenu 有关联？ 答：ContextMenu.SourceControl 属性获取显示快捷方式菜单的控件。 ●找出与ContextMenu关联的控件

向用户窗体中添加控件

若要向用户窗体中添加控件，请在“工具箱”中查找要添加的控件，将该控件拖到窗体上，然后拖动控件上的调整柄，直至控件的外边框成为所需的大小和形状。 注意如果将控件（或若干“成组”的控件）从窗体拖回到“工具箱”，将创建该控件的一个模板，该模板可被重新使用。对于实现应用程序的标准界面，这是非常有用的功能。 向窗体添加了控件之后，可用 Visual Basic 编辑器中“格式”菜单上的命令调整控件的对齐方式和间距。 上页：Excel VBA教程：向文档中添加控件下页：Excel VBA教程：应用程序对象事件 Excel VBA Excel VBA教程：应用程序对象事件Excel VBA教程：图表对象事件 Excel VBA教程：控件和对话框事件Excel VBA教程：在某一 Microsoft Office 应用程序中控制其他 Microsoft Office 应 用程序 Excel VBA教程：创建自定义对话框Excel VBA教程：新建工作簿 Excel VBA教程：创建“用户窗体”Excel VBA教程：显示自定义对话框 Excel VBA教程：获取有关 Macintosh 关键 字的帮助 Excel VBA教程：在单元格区域中循环Excel VBA教程：如何引用单元格和区域Excel VBA教程：初始化控件属性Excel VBA教程：打开工作簿Excel VBA教程：QueryTable对象事件 Excel VBA教程：引用工作表上的所有单元格Excel VBA教程：用 A1 样式记号引用单元格 和单元格区域 Excel VBA教程：用编号引用单元格Excel VBA教程：相对于其他单元格来引用单 元格 Excel VBA教程：用 Range对象引用单元格Excel VBA教程：用快捷记号引用单元格

《在窗体中添加控件》

说课教案 课题：在窗体中添加控件 教材：中等职业学校计算机技能型紧缺人才培养规划教材—— 《中文Access2003实用教程》李耀洲等主编说课教师：杭州市电子信息职业学校黄水萍 一．教材分析 1．教材的地位与作用 “在窗体中添加控件”是李耀洲等主编的中职计算机技能型紧缺人才培养规划教材《中文Access2003实用教程》第五章的核心内容。在前面的教学过程中学生已经掌握了设计、使用和编辑“表”对象，能够根据需要设计出合理的“查询”对象，本章的“窗体”对象起着联系数据库和用户的桥梁作用，因此学生能够设计出既美观又方便用户操作的窗体对象将对以后他们的数据库软件设计之路打好扎实的基础。 2．教材的处理 教材中只是一味地为了介绍某一控件而介绍它的使用方法，并没有给学生一个直观的能激发学生学习兴趣的实例来说明，对于我们中职的学生，学生认知水平较低，推理能力较弱，另外对于他们来说更重要的是培养他们的知识应用能力和技能，因此我把在窗体中添加控件自行设计了两个大项目来进行学习，第一个项目中包含“标签”、“文本框”、“绑定对象框”、“选项组”这些控件的使用方法，第二个项目主要介绍了“选项卡控件”和“命令按钮”控件，同时设计了一个综合练习，从而让学生能够对窗体中的常用控件有一个全面的认识。现在我正针对第二个项目的学习进行说课。 3．教学目标的确定 在中职教育培养目标指导下，结合教学大纲和学生的特点，我确定本内容的教学目标如下。 ①知识目标：进一步掌握标签、文本框、绑定对象框和组合框的使用方法；理解使用选项卡和命令按钮的目的；基本掌握选项卡和命令按钮的设计方法。 ②技能目标：培养学生的观察能力；培养学生自主学习、协作学习及分析问题、解决问题的能力；培养学生对知识的应用能力。 ③情感目标：由于学生众多，层次差异较大，教师培养的小助手不但可以协助教师更有