首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为Form1的窗体上画一个名称为txtInput 的文本框;画两个标题分别为“对齐方式”、“字体”,名称分别为fraAlign、fraFont 的框架;在fraAlign 框架中画三个单选按钮,标题分别为“左对齐”、“居中”、“右对齐”,名称分
(1)在名称为Form1的窗体上画一个名称为txtInput 的文本框;画两个标题分别为“对齐方式”、“字体”,名称分别为fraAlign、fraFont 的框架;在fraAlign 框架中画三个单选按钮,标题分别为“左对齐”、“居中”、“右对齐”,名称分
admin
2019-01-16
45
问题
(1)在名称为Form1的窗体上画一个名称为txtInput 的文本框;画两个标题分别为“对齐方式”、“字体”,名称分别为fraAlign、fraFont 的框架;在fraAlign 框架中画三个单选按钮,标题分别为“左对齐”、“居中”、“右对齐”,名称分别为optLeft、optCenter、optRight;在 fraFont 框架中画两个单选按钮,标题分别为“宋体”、“黑体”,名称分别为optSt、optHt。
要求:编写五个单选按钮的Click事件过程,使程序运行时,单击这些单选按钮,可以对文本框中的文字实现相应的操作,如图1-315所示。
注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为vbsj3.vbp,窗体文件名为vbsj3.frm。
(2)在考生文件夹下有一个工程文件vbsj4.vbp。其窗体上有一个圆,相当于一个时钟,当程序运行时通过窗体的Activate事件过程在圆上产生12个刻度点,并完成其他初始化工作;另有长、短2条(红色、蓝色)直线,名称分别为linLong 和 linShort,表示两个指针。程序运行时,单击“开始”按钮,则每隔0.5秒linLong(长指针)顺时针转动一个刻度,linShort(短指针)顺时针转动1/12 个刻度(即长指针转动一圈,短指针转动一个刻度),单击“停止”按钮,两个指针停止转动,如图1-316所示。在窗体文件中已经给出了全部控件,但程序不完整,要求去掉程序中的注释符,把程序中的“?”改为正确的内容。
提示:程序中的符号常量x0、y0是圆心到窗体左上角的距离,radius是圆的半径。
注意:不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
程序源码:
Const x0=1200, y0=1200, radius
=1000
Dim a, b, len1, len2
Private Sub cmdStart_Click()
Timer1.Enabled=True
End Sub
Private Sub cmdStop_Click()
’ ?
End Sub
Private Sub Form_Activate()
’For k=0 To 359 Step ?
’x=radius * Cos(k * 3.14159 / 180) + ?
y=y0 - radius * Sin(k * _ 3.14159 / 180)
Form1.Circle (x, y), 20
Next k
a = 90
b = 90
len1 = linLong.Y1 - linLong.Y2
len2 = linShort.Y1-
linShort.Y2
End Sub
Private Sub Timer1_Timer()
a = a - 30
linLong.X2 = len1 * Cos(a *
3.14159/180) + x0
’ linLong.? = y0 - len1 * Sin(a
* _
3.14159/180)
’ b = ? - 30 / 12
linShort.X2 = len2 * Cos(b * _
3.14159 / 180) + x0
linShort.Y2 = y0 - len2 * Sin(b
* _
3.14159 / 180)
End Sub
选项
答案
第1小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,按表2-169在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口,分别编写5个按钮的单击事件过程。 参考代码: Private Sub optLeft_Click() txtInput.Alignment = 0 End Sub Private Sub optCenter_Click() txtInput.Alignment = 2 End Sub Private Sub optRight_Click() txtInput.Alignment = 1 End Sub Private Sub optSt_Click() txtInput.FontName = "宋体" End Sub Private Sub optHt_Click() txtInput.FontName = "黑体" End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件 vbsj5.vbp,在代码编辑窗口,去掉程序中的注释符 “’”,将问号“?”改为正确的内容。 参考代码: Timer1.Enabled = False For k = 0 To 359 Step 30 x = radius * Cos(k * 3.14159/180) + x0 linLong.Y2 = y0 - len1 * Sin(a * _ 3.14159/180) b = b - 30/12 步骤2:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/OuFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click()DimnAsInteger,tAsLongStaticsAsIntegert=1Forn=1To3t=
若实体A和B是一对多的联系,实体B和C是一对一的联系,则实体A和C的联系是
工程中有Form1、Form2两个窗体(Form1中有文本框Text1;Form2中有Text1文本框和Command1命令按钮)。Form1是启动窗体。在这些模块中编写下面的程序代码:Form1中的代码如下:PrivateSubT
设窗体上有一个名称为Timer1的计时器控件,其Interval属性被设置为500,Enabled属性被设置为True;还有一个名称为Text1的文本框和下面的事件过程:PrivateSubTimer1_Timer()Sta
在窗体上画两个单选按钮,名称分别为Option1、Option2,标题分别为"宋体"和"黑体";1个复选框(名称为Check1,标题为"粗体")和1个文本框(名称为Text1,Text属性为"改变文字字体"),窗体外观如图所示。程序运行后,要求"宋体"单选
以下叙述中错误的是( )。
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为( )。
在关系模型中,每一个二维表称为一个
由高中数学可知,对于连续函数f(x),若f(x1)与f(x2)值的符号相反,则在x1和x2之间必存在x0,使得f(x0)=0(该点称为"零点")。必存在x0,使得f(x0)=0(该点称为"零点")。设有VB函数:PrivateFunctionf(x
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为()。
随机试题
思瑞公司不能清偿到期债务,债权人向法院申请破产清算。法院受理并指定了管理人。在宣告破产前,持股20%的股东甲认为如引进战略投资者乙公司,思瑞公司仍有生机,于是向法院申请重整。关于重整,下列哪一选项是正确的?
引起语言障碍的因素一般是由生理、心理或()
Lifeisnotpredictable:eventheworst______becomethebest.
影响药物经皮吸收的基质因素有()
A、Molish反应B、红外光谱C、Liebermann-BurChard反应D、Keller-Kiliani反应E、Hammarsten反应可用于区别胆酸和鹅去氧胆酸的反应为()
房地产经纪机构与房地产经纪从业人员的关系不包含()。
货主、物主或其代理人输入水果前必须事先提出申请,并应当在贸易合同或者协议签订后及时办理检疫审批手续。
下列税费中,按照规定一般计入管理费用的有( )。
在冬夜里歌唱的鱼①天空是一片灰蒙蒙的苍茫,鸟儿去了沉寂的北方。火烧云沉到山那一边,山冈上,风一阵冷过一阵,蒿草在风中萧瑟。目光越过一道道山梁,一个人的影子在昏暗中挟裹着晚风,逐渐清晰。我和妹妹就在这样的黄昏,在这样的山梁上等待父亲,还有父亲手中的鱼。②
按照软件测试的一般步骤,集成测试应在【】测试之后进行。
最新回复
(
0
)