公告： 为响应国家净网行动，部分内容已经删除，感谢读者理解。

话题：在名称为form1的窗体上添加一个名称为shape1的形状控件,通过设置回答：添加3个控件后，以下码：Option ExplicitPrivate Sub Form_Load()Label1.Caption = ＂参数：＂Label1.AutoSize = TrueText1.MaxLength = 5Text1.Text = ＂圆形＂End SubPrivate Sub Text1_Change()Select Case Text1.TextCase ＂矩形＂Shape1.Shape = 0Case ＂正方形＂Shape1.Shape = 1Case ＂椭圆形＂Shape1.Shape = 2Case ＂圆形＂Shape1.Shape = 3Case ＂圆角矩形＂Shape1.Shape = 4Case ＂圆角正方形＂Shape1.Shape = 5End SelectEnd Sub说明：改变Shape控件的Shape属，可以使得Shape绘制不同图形：Opject.Shape = 常数Shape属的常数与图形形状对应如下：常数 设置值 形状描述 VbShapeRectangle 0(缺省值) 矩形 VbShapeSquare 1 正方形 VbShapeOval 2 椭圆形 VbShapeOval 3 圆形 VbShapeRoundedRectangle 4 圆角矩形 VbShapeRoundedSquare 5 圆角正方形

话题：在窗体添加一个shape控件和定时控件,每隔1秒钟修改shape控件的回答：Private Sub Form_Load()Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()RandomizeShape1.Shape = Int(Rnd * 6)Shape1.FillStyle = Int(Rnd * 8)End Sub

参考回答：设置timer.interval =1000在时钟中用随机函数生成属值，关键是怎么让随机函数返回属的值域，计算公式是：Int((最大值 - 最小值 + 1) * 随机数 + 最小值)。别老惦记着给你段现成的码，自己去编，有利于提高成绩。话题：“在shape1中添加7个shape控件,设置名称为shape2的控件数组”是回答：好久没做过了，大概是你下画一个控件shape1，再在1中话shape2，2，在，这个时候就会问你是否建立控件数组，点击是即可。一直到七个话题：VB中使用shape控件画图形显示在窗体上要怎么做？回答：在窗体上添加Shape控件设置它的Shape 属，就可以了；Shape1.Shape=0 '(缺省值)矩形Shape1.Shape=1 '正方形 Shape1.Shape=2 ' 椭圆形Shape1.Shape=3 '圆形Shape1.Shape=4 '圆角矩形Shape1.Shape=5 '圆角正方形

话题：C#winform 怎么做一个形状不则的控件回答：C# code?using System;using System.ing;using System.ing.ing2D;using System.Windows.Forms;namespace MYLOVE{ public class BitmapRegion { public BitmapRegion() { } /// /// Create and apply the region on the supplied cool /// 创建支持位图域的控件(目前有button和form) /// /// The Cool object to apply the region to控件 /// The Bitmap object to create the region from位图 public static void CreateCoolRegion(Cool cool, Bitmap bitmap) { // Return if cool and bitmap are null //判断是否存在控件和位图 if (cool == null || bitmap == null) return; // Set our cool''s size to be the same as the bitmap //设置控件大小为位图大小 cool.Width = bitmap.Width; cool.Height = bitmap.Height; // Check if we are dealing with Form here //当控件是form时 if (cool is System.Windows.Forms.Form) { // Cast to a Form object //转换为FORM Form form = (Form)cool; // Set our form''s size to be a little larger that the bitmap just // in case the form''s border style is not set to none in the first place //当FORM的边界FormBorderStyle不为NONE时，应将FORM的大小设置成比位图大小稍大一点 form.Width = cool.Width; form.Height = cool.Height; // No border //没有边界 form.FormBorderStyle = FormBorderStyle.None; // Set bitmap as the background image //将位图设置成窗体图片 form.BackgroundImage = bitmap; // Calculate the graphics path based on the bitmap supplied //计算位图中不透明部分的边界 GraphicsPath graphicsPath = CalculateCoolGraphicsPath(bitmap); // Apply new region //应用新的域 form.Region = new Region(graphicsPath); } // Check if we are dealing with Button here //当控件是button时 else if (cool is System.Windows.Forms.Button) { // Cast to a button object //转换为 button Button button = (Button)cool; // Do not show button text //不显示button text button.Text = ＂＂; // Change cursor to hand when over button //改变 cursor的style button.Cursor = Cursors.Hand; // Set background image of button //设置button的图片 button.BackgroundImage = bitmap; // Calculate the graphics path based on the bitmap supplied //计算位图中不透明部分的边界 GraphicsPath graphicsPath = CalculateCoolGraphicsPath(bitmap); // Apply new region //应用新的域 button.Region = new Region(graphicsPath); } } /// /// Calculate the graphics path that representing the figure in the bitmap /// excluding the transparent color which is the top left pixel. /// //计算位图中不透明部分的边界 /// /// The Bitmap object to calculate our graphics path from /// Calculated graphics path private static GraphicsPath CalculateCoolGraphicsPath(Bitmap bitmap) { // Create GraphicsPath for our bitmap calculation //创建 GraphicsPath GraphicsPath graphicsPath = new GraphicsPath(); // Use the top left pixel as our transparent color //使用左上角的一点的颜色作为我们透明色 Color colorTransparent = bitmap.GetPixel(0, 0); // This is to store the column value where an opaque pixel is first found. // This value will determine where we start scanning for trailing opaque pixels. //第一个找到点的X int colOpaquePixel = 0; // Go through all rows (Y axis) // 偏历所有行(Y方向) for (int row = 0; row bitmap.Height; row++) { // Reset value //重设 colOpaquePixel = 0; // Go through all columns (X axis) //偏历所有列(X方向) for (int col = 0; col bitmap.Width; col++) { // If this is an opaque pixel, mark it and search for anymore trailing behind //如果是不需要透明处理的点则标记，然后继续偏历 if (bitmap.GetPixel(col, row) != colorTransparent) { // Opaque pixel found, mark current position //当前 colOpaquePixel = col; // Create another variable to set the current pixel position //建立新变量来当前点 int colNext = col; // Starting from current found opaque pixel, search for anymore opaque pixels // trailing behind, until a transparent pixel is found or minimum width is reached ///从找到的不透明点开始，继续寻找不透明点，一直到找到或则达到图片宽度 for (colNext = colOpaquePixel; colNext bitmap.Width; colNext++) if (bitmap.GetPixel(colNext, row) == colorTransparent) break; // Form a rectangle for line of opaque pixels found and add it to our graphics path //将不透明点加到graphics path graphicsPath.AddRectangle(new Rectangle(colOpaquePixel, row, colNext - colOpaquePixel, 1)); // No need to scan the line of opaque pixels just found col = colNext; } } } // Return calculated graphics path return graphicsPath； } }} 调用方法：//初始化调用不则窗体生成码将 FormBorderStyle 属设置为 None。BitmapRegion BitmapRegion = new BitmapRegion()；//此为生成不则窗体或者控件的类BitmapRegion.CreateCoolRegion(this, new Bitmap(Properties.Resources.Loveheart));/话题：VB中为什么形状控件老是在图框的下面？？回答：系统默认形状控件在底层，图框在顶层。如果希望 形状控件在图框上面，可在设计阶段用右键点击形状控件→置顶。或者在运行阶段使用码改变形状控件层次，码如下：Shape1.ZOrder 0 '形状控件置于顶层，Shape1.ZOrder 1 '形状控件置于底

参考回答：展开全部 先在窗体上放上一个picturebox，然后在工具栏里单击shape，移动鼠标到picturebox内，按下鼠标左键，在picturebox内拖画出一个shape它就在picturebox上面了。

话题：vb 中怎么实现多个窗口中的shape图像颜色统一变化？回答：添加一个模块，在其中声明一个 Public 变量存放颜色值，然后在每个窗口的Shape控件定义FillColor属的时候都使用这个变量所定义的颜色值。 例如在模块中： Public clr 在启动首窗体中：(也就是程序打开的第一个窗体) Private Sub Form_Load() clr = vbRed Shape1.FillColor = clr End Sub 在其它中： Private Sub Form_Load() Shape1.FillColor = clr End Sub 你也可以随时改变颜色值： Private Sub Command1_Click() clr=vbBlue End Sub

参考回答：举个例吧： 假设你有N多个窗体，每个窗体上都有一个Shape1控件，现在统计改变其填充样式及填充颜色： For i = 1 To Forms.Count Forms(i - 1).Shape1.FillStyle = 2 '统一样式Forms(i - 1).Shape1.FillColor=vbRed '统一填充色为红色Next话题：在设计阶段单击窗体任何一个控件就可以在属窗口中设计窗体的属

1[简答题] 在名称为Form1的窗休上添加一个名称为Label1的标签，字号大小为四号，标题为“等级考试”，如图1所示。通过设置属性使标签初始为不显示。请编写适当的程序，使得运行程序时，窗体的标题立即变为“标签”，单击窗体时，显示标签，如图2所示。

注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为sjt2.frm，工程文件名保存为sit2.vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。

参考解析：

【考点分析】本题考点有：标签的Name、Caption、Visi.ble和FontSize属性以及窗体的Caption属性。

【解题思路】通过标签的Name、Caption和FontSize属性设置标签的名称、标题和字体大小，通过设置标签的Visible属性为False，使标签初始为不可见。编写适当的程序，在Form_Load事件过程中，窗体的Caption属性值立即变为“标签”，在Form_Click事件过程中单击窗体时，设置标签的Visible属性为True显示标签。

【操作步骤】

步骤1：新建一个窗体，按照题目要求建立控件并设置其属性，如表3.37所示。

步骤2：编写程序代码。

参考答案

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

2[简答题](1)在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，其标题分别为“编程语言”和“帮助”，名称分别为vbLanguage和vbHelp，其中“编程语言”菜单包括“C++”、“Basic”和“JAVA”三个子菜单，名称分别为vbLanguage1、vbLanguage2和vbLanguage3。程序运行后，如果在“编程语言”的下拉菜单中选择“C++”，则在文本框内显示“指针”;如果选择“Basic”，则在文本框内显示“对话框”;如果选择“JAVA”，则在文本框内显示“对象”。程序中不能使用任何变量，直接显示字符串。程序运行后，选择“编程语言”的“c++”选项，则界面如图26-3所示。

注意：保存时必须存放在考生文件夹下，窗体文件名为sj3.frm，工程文件名为sj3.vbp。

(2)在考生文件夹中有文件sj4.vbp及其窗体文件sj4.frm，该程序是不完整的。窗体上有一个名称为Text1的文本框;两个复选框，名称分别为Check1和Check2，标题分别为“足球”和“篮球”。要求程序运行后，如果只选中Check1，单击窗体，则在文本框中显示“我的爱好是足球”;如果只选中Check2，然后单击窗体，则在文本框中显示“我的爱好是篮球”;如果同时选中Check1和Check2，单击窗体，则在文本框中显示“我的爱好是足球和篮球”;如果Check1和Check2都不选取，在单击窗体后，则在文本框中什么都不显示。程序运行选中两项时，界面如图26-4所示。

注意：请在有“?”的地方填入正确内容，然后删除“?”及所有注释符“'”，但不能修改其他部分。存盘时不得改变文件夹和文件名。

参考解析：

(1)在Visual Basic中，菜单也被看做控件，具有属性和事件。菜单的建立在菜单编辑器中完成，菜单的级数通过内缩符号来表示，第一级菜单没有内缩符号，第二级菜单的内缩符号为1;文本框的内容由Text属性设置。根据题意，按“Ctrl+E”组合键打开菜单编辑器，在其中添加如下菜单项：

标签名称内缩

编程语言vbLanguage无

C++vbLanguage1一位

BasicvbLanguage2一位

JAVAvbLanguage3一位

帮助vbHelp无

单击“确定”按钮，完成菜单编辑。再将一个文本框控件添加到窗体中，将其名称设为Text1，在代码窗口中编写如下代码：

(2)在Visual Basic中，复选按钮的标题由Caption属性设置，Value属性用来表示复选框的状态，复选框的Value属性有0、1或2三种取值，0表示未选中;1表示选中该复选框;2表示该复选框被禁止(灰色)。

根据题意，将一个文本框控件和两个复选框添加到窗体中，文本框控件的名称设为Text1，复选框的名称分别设为Check1和Check2，Caption属性分别设为“足球”和“篮球”。双击复选框进入代码窗口，补充后的具体代码如下：

3[单选题] 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

程序运行后，如果在输入对话框中输入2，则窗体上显示的是(　　)。

A.分支1B.分支2C.Else分支D.程序出错

参考答案：C

参考解析：本题考查对Case语句的使用。SelectCase.语句为分支选择语句，根据不同的条件选择不同的操作。InputBox用于获得用户的输入，以字符串格式存入变量，由于在程序运行后输入2，因此程序将执行Else分支，即输出“Else分支”。

4[单选题] 如果要在窗体上画一个标签，应在工具箱窗口中选择的图标是

A.

B.

C.

D.

参考答案：B

参考解析：标签控件在工具箱中的图标是B。而A是文本框控件的图标，C是按钮控件的图标，D是形状控件的图标。

5[单选题] 有一个名称为Form1的窗体，上面没有控件，设有以下程序(其中方法Pset(X，Y)的功能是在坐标X，Y处画一个点)：

此程序的功能是(　　)。

A.每按下鼠标键一次，在鼠标所指位置画一个点

B.按下鼠标键，则在鼠标所指位置画一个点;放开鼠标键，则此点消失

C.不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线

D.按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线

参考答案：D

参考解析：Pset(X，Y)函数是在X，Y处画出一个点，Form_MouseDown函数中只有一个cmdmave=True，即当鼠标按下就将cmdmave赋值为True，Form Mouse-Move函数是当cmdmave为True时就执行Pset(x，y)函数，即当移动鼠标且cmdmave=True时就不断地画点，即形成一条线;而Form_MouseUp函数是将cmdmave赋为false，即松开鼠标时不再画点。故整个程序的功能是按下鼠标键并拖动鼠标，沿鼠标拖动的轨迹画一条线，放开鼠标键就结束画线。

6[单选题] 下列叙述中正确的是(　　)。

A.在面向对象的程序设计中，各个对象之间具有密切的关系

B.在面向对象的程序设计中，各个对象都是公用的

C.在面向对象的程序设计中，各个对象之间相对独立，相互依赖性小

D.上述3种说法都不对

参考答案：C

参考解析：面向对象的程序设计是用对象模拟问题领域中的实体，各对象之间相对独立，相互的依赖性小，通过消息来实现对象之间的相互联系。

7[单选题] 设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Modulel.bas，两个窗体上分别只有一个名称为Command1的命令按钮。

Public y As Integer

运行以上程序，单击Form1的命令按钮Command1，则显示Form2;再单击Form2上的命令按钮Command1，则窗体上显示的是(　　)。

A.1 5B.0 5C.0 0D.程序有错

参考答案：B

参考解析：本题考查的考点是有关变量的作用域的。本题中的y就是在标准模块中定义的全局变量，在任何一个窗体中都能应用，并在Form1中被赋值为5;x是Form1中定义的局部变量，要想在Form2中引用，必须用Form1.x格式来引用。

8[单选题] 下列说法正确的是(　　)。

A.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器

B.只有当代码窗口为当前活动窗口时，才能打开菜单编辑器

C.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器

D.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器

参考答案：C

参考解析：VisuaI Basic关于菜单编辑的规定：只有当某个窗体为当前活动窗体时，才能打开菜单编辑器。

9[单选题] 设有如下程序：

Printx;y

EndSub

运行程序，单击窗体，输出结果为

参考答案：A

参考解析：函数传递参数有值传递和引用传递。默认是引用传递。sV(ByValnlAsInteger，nAsInteger)函数中m为值传递，n为引用传递。值传递不改变实参值。即在Form_CLick()过程中调用sV不会改变X的值。选A.。

10[简答题] 在名称为Form1　　的窗体上添加一个名称为Text1的文本框;再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使程序运行时，单击“隐藏”菜单项，文本框消失;单击“显示”菜单项，文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sit2.vbp，窗体文件名保存为sjr2.frm。

参考解析：

【考点分析】本题考点有：菜单编辑器的使用(标题、名称、内缩符号)，文本框的Name、Text和Visible属性以及菜单的Click事件。

【解题思路】文本框的Visible属性用于设置其在运行时是否可见。通过“菜单编辑器”窗口建立菜单项。

【操作步骤】

步骤1：新建一个“标准EXE”工程，在窗体中绘制一个文本框，在属性设置窗口中将其Name属性值设置为Textl。打开菜单编辑器，按表3.25设置建立菜单项。

步骤2：打开代码编辑窗口，在指定位置编写如下代码。

参考答案

Private Sub Hide_Click()

Text1.Visible=False´当用户单击了”隐藏”菜

单项时，则Text1不可见

End Sub

Private Sub Show_Click()

Text1.Visible=True’同理，Textl可见

End Sub

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