首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上用名称为Shape1的形状控件添加一个其直径为1000(高、宽均为1000)的圆;再添加两个标题分别是“垂直线”和“水平线”,名称分别为Command1、Command2的命令按钮,如图所示。然后编写两个命令按钮的Click事件过
在名称为Form1的窗体上用名称为Shape1的形状控件添加一个其直径为1000(高、宽均为1000)的圆;再添加两个标题分别是“垂直线”和“水平线”,名称分别为Command1、Command2的命令按钮,如图所示。然后编写两个命令按钮的Click事件过
admin
2015-08-12
47
问题
在名称为Form1的窗体上用名称为Shape1的形状控件添加一个其直径为1000(高、宽均为1000)的圆;再添加两个标题分别是“垂直线”和“水平线”,名称分别为Command1、Command2的命令按钮,如图所示。然后编写两个命令按钮的Click事件过程。程序运行后,如果单击“垂直线”命令按钮,则圆的内部用垂直线填充;如果单击“水平线”命令按钮,则圆的内部用水平线填充。
注意:程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
【操作步骤】 步骤1:按照题目要求建立窗体和控件,并设置控件的属性。程序中用到的控件及属性见表2和表3。 [*] 步骤2:编写程序代码。 参考答案 Privalte Sub Command1_Click() Shape1.Fillstyle=3 End Sub Private Sub Command2_Click() shape1.Fillstyle=2 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
FillStyle属性用于返回/设置一个形状控件的填充样式。Shape属性用来设置形状控件的形状,0:矩形(默认设置),1:正方形,2:椭圆,3:圆,4:圆角矩形,5:圆角正方形。
转载请注明原文地址:https://kaotiyun.com/show/BSQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了对多个控件执行操作,必须选择这些控件。下列不能选择多个控件的操作是
执行以下程序段,并输入1.23,则程序的输出结果应是【】。N=Str(InputBox("请输入一个实数:"))p=InStr(N,".")PrintMid(N,p)
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()c=1234c1=Trim(Str(C))Fori=1To4
在窗体上画一个名称为Listl的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
从键盘上输入两个字符串,分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是
设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框PrivateSubCommand1_Click()CDl.DialogTitle=“打开文件”CDl.InitDir=“C:\”CDl.Filter=“所有文件
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的,在名称为Forml的窗体上有一个Label控件和两个名称分别为Commandl和Command2、标题分别为“开始”和“关闭”的命令按钮。编写函数Minus(A,N),其功能
随机试题
恋爱观的特点有()。
Educatinggirlsquitepossiblyyieldsahigherrateofreturnthananyotherinvestmentavailableinthedevelopingworld.
单体建筑幕墙工程中的幕墙高度为8000m2的工程,属于()
3,4,7,16,43,()
Predictingthefutureisariskybusinessforascientist.Itissafetosay,however,thattheglobalAIDSepidemicwillgetmu
star公司是一家杰出的顾客产品公司,正在讨论是否要将其全权益资本结构转变为40%的负债的问题。现在公司发行在外的股份数为5000股,同时每股价格为65美元。预计EBIT将保持在每年37500美元。新增负债的利息率为8%,并且没有税收。假设Star公司
Recentlegalresearchindicatedthatincorrectidentificationisamajorfactorinmanymiscarriagesofjustice.Italsosuggest
在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是()。
Sarah:Where’sJohn?Mary:16______Sarah:Thetrafficisverybad.Mary:17______Sarah:Oh,that’sright.Hedoesn’tlikedr
Whyisitsodifficulttofallasleepwhenyouareovertired?Thereisnooneanswerthat【C1】______toeveryindividual.Butmany
最新回复
(
0
)