首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上用名称为Shape1的形状控件添加一个其直径为1000(高、宽均为1000)的圆;再添加两个标题分别是“垂直线”和“水平线”,名称分别为Command1、Command2的命令按钮,如图所示。然后编写两个命令按钮的Click事件过
在名称为Form1的窗体上用名称为Shape1的形状控件添加一个其直径为1000(高、宽均为1000)的圆;再添加两个标题分别是“垂直线”和“水平线”,名称分别为Command1、Command2的命令按钮,如图所示。然后编写两个命令按钮的Click事件过
admin
2015-08-12
54
问题
在名称为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://www.kaotiyun.com/show/BSQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为a="ABBACDDCBA"ForI=6To2Step-2x=Mid(a,I,I)y=Leh(a,I)z=Right(a,I)z=x&y&
假定有下面的程序段:Fori=1To3Forj=1ToiFork=jTo3Print"i=";i,"j=";j,"k=";kNext
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivate
下列程序段的执行结果为DimM(10)Fork=1To10M(k)=11-kNextkx=6PrintM(2+M(x))
在窗体上画一个名称为Listl的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
在以下Form1窗体中没有采用的控件是()
决定控件上文字的字体、字形、大小、效果的属性是______。
设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框PrivateSubCommand1_Click()CDl.DialogTitle=“打开文件”CDl.InitDir=“C:\”CDl.Filter=“所有文件
随机试题
阅读下面的文字:二十岁前后是最重要的关键,这正是大学生的在校时期。品格、风趣、嗜好,大半要在此时来作最后的决定。此时若对学问兴趣立下广泛的基础,将来的工作无论如何专精,也不至于害精神偏枯病。若在大学期间,就造成一个眼光短浅的学究,将来若要再作由专
A.利多卡因B.地高辛C.辛伐他汀D.硝苯地平E.地西泮治疗室性心律失常的首选药是
A.苯妥英钠B.苯巴比妥C.乙琥胺D.卡比多巴E.维生素B6癫癎大发作首选的药物是
发现已发出的证书中存在错误,应按________________处理
对于合同履行地点没有约定或约定不明确的,( )。
证券交易所可以作出股票终止上市决定,其前提条件有()。
当事人一方不履行合同义务或者履行合同义务不符合法律规定的,应当()。
已知函数f(x)=4cosxsin(x+)一1.求f(x)的最小正周期;
从某种意义上说,既是计划工作的基础,又是控制基本标准的是()。
ThepresentprimeministerofAustraliais______
最新回复
(
0
)