首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
1. 在考生文件夹中有文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确的内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件夹和文件名。 本题描述如下: 窗体上有一个名称Te
1. 在考生文件夹中有文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确的内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件夹和文件名。 本题描述如下: 窗体上有一个名称Te
admin
2009-03-17
385
问题
1. 在考生文件夹中有文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确的内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件夹和文件名。
本题描述如下:
窗体上有一个名称Text1的文本框,两个复选框,名称分别为Ch1和Ch2,标题分别为“足球”和“乒乓球”;一个名称为C1,标题为“确定”命令按钮。要求程序运行后,如果只选中 Ch1,单击“确定”命令按钮,则在文本框中显示“我喜欢足球”:如果只选中Ch2,单击“确定”命令按钮,则在文本框中显示“我喜欢乒乓球”;如果同时选中Ch1和Ch2,然后单击“确定”命令按钮,则在文本框中显示“我喜欢足球和乒乓球”;如果Ch1和Ch2都不选,然后单击“确定”命令按钮,则在文本框中什么都不显示。程序运行界面如图2—1所示。
2.在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm,该程序是不完整的,请在有?号的地方填入正确的内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
窗口中有一个名称为Picture1的图片框,一个名称为HScroll1的滚动条,3个命令按钮,名称分别为Command1,Command2和Command3,标题分别为“运行”、“暂停”和“结束”,一个计时器控件,名称为Timer1。程序运行后,单击“运行”按钮后,使小球围绕大球转动,并可以使用滚动条调节转动的速度;单击“暂停”按钮后,暂停小球的转动;按“结束”按钮结束程序。
选项
答案
① 复选框用来表示状态,在程序运行期间可以改变其状态。复选框标题由Caption属性来设置,复选框的value属性用来表示复选框的状态,其取值有: 0:表示复选框未被选中; 1:表示复选框被选中; 2:表示复选框被禁止使用(灰色)。 ② 解题步骤; 第一步:编写程序代码。 程序提供韵代码: Option Explicit Private Sub C1_Click() ’ ? ="" If Ch1.Value and Not Ch2.Value Then Text1.Text="我喜欢足球" ’ If Ch1. Value=? And Ch2. Value Then Text1.Text="我喜欢乒乓球" If Chi. Value And Ch2. Value Then Text1. Text="我喜欢足球和乒乓球" End Sub 参考代码: Option Explicit Private Sub C1_Click() Text1. Text="" If Ch1. Value And Not Ch2. Value Then Text1. Text="我喜欢足球" If Ch1. Value=0 And Ch2. Value Then Text1. Text="我喜欢乒乓球" If Ch1. Value And Ch2. Value Then Text1. Text="我喜欢足球和乒乓球" End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。 2.① 在窗体上建立好控件后,先设置控件属性,再编写事件过程。 ② 计时器控件作用是以一定的时间间隔激发计时器事件(Timer)执行相应程序代码。当时计时器控件的Enabled属性为True时,计时器计时开始,当为 False时计时器计时暂停,所以要使小球运动暂停可将Enabled属性值设置为False,要使小球运行,则设置该属性值为True。 ③ 解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控什及其属性见表3。 [*] 表 3控 件 属 性 设 置 值 按钮 Name Caption Command1 运行 按钮 Name Caption Command2 暂停 按钮 Name Caption Command3 结束 滚动条 Name HScroll1 图片框 Name Picture1 第二步:编写程序代码。 程序提供的代码: Option Explicit Dim c As Single, r As Single ’r 小球到大球的球心的距离,c为小球的角度. Dim x As Single, y As Single ’x, y 为小球移动时的圆心 Dim st As Single Private Sub Command1_Click() Timer1. Enabled=True End Sub Private sub Command2_Click() ’ ? End Sub Private Sub Command3_ClickO End End sub Private Sub Form_Load() r=20 c=0 st=0.063 HScroll1.Min=1 ’设置最小值 HSeroll1.Max=100 ’设置最大值 End Sub Private Sub HSeroll1_Change() ’ Timer1.?=200—HScroll1.Value ’根据滚动条的数值设置时间间隔,速度越快,时间月小 End Sub Private Sub Picture1_Paint() Pieture1.FillColor=QBColor (12) Picture1.ForeColor=QBColor (12) Picture1. Circle(0,0), 2 x=Cos(c) *r y=Sin(c) *r Picture1.FillColor=QBColor (14) Picture1.ForeColor=QBColor (14) ’Picture1.? (x,y), 0.5 c=c+st If c>=2*3.14159 Then c=c Mod (2*3.14159) End If End Sub Private Sub Timer1_Timer() ’ ? ’重画图片框 End Sub 参考代码: Option Explicit Dim c As Single, r As Single ’ r 小球到大球的球心的距离,c为小球的角度. Dim x As Single, y As single ’ x,y 为小球移动时的圆心 Dim st As Single Private Sub Command1_Click() Timer1. Enabled=True End Sub Private Sub Command2_Click() Timer1.Enabled=False End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() r=20 c=0 st=0.063 HScroll1.Min=1 ’设置最小值 HSeroll1.Max=100 ’设置最大值 End Sub Private Sub HScroll1_Change() Timer1. Interva1=200—HSeroll1.Value ’ 根据滚动条的数值设置时间间隔,速度越快,间隔越小 End Sub Private Sub Pieture1_Paint() Picture1.FillColor=QBColor (12) Pieture1.ForeColur=QBColor (12) Picture1.Circle (0,0) , 2 x=Cos(c) * r y=Sin(c) * r Picture1.FillColor=QBColor (14) Pieture1.ForeColor=QBColor (14) Pieture1.Circle(x, y), 0.5 c=c+st If c>=2*3.14159 Then c=c Mod (2*3.14159) End If End Sub Private Sub Timer1_Timer() Picture1.Refresh ’重画图片框 End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/uk1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当用户在TextField中输入一行文字后,按回车键,实现【】接口可实现对事件的响应。
在软件设计中,不属于过程设计工具的是()。
在选择运算所得到的结果关系中,所含的元组数不能【】原关系中的元组数。
下面代码段的输出结果为()。publicclassTest{publicstaticvoidmain(Stringsss[]){inti=0xFFFFFFF1;i
一个类要使其对象可以被串行化,它必须实现【】接口。
下面程序的输出结果是()。publicclassSun{publicstaticvoidmain(Stringargs[]){inti=9;switc
Java中对Applet设置了严格的安全限制。下列关于Applet在Java2中的安全限制叙述正确的是()。
对于建立良好的程序设计风格,下面有关数据说明描述错误的是()。
假设线性表的长度为n,则在最坏情况下,冒泡排序需要的比较次数为【】。
面向对象程序设计有许多特性,下列选项中,______用来尽可能隐藏对象的,内部细节。
随机试题
行政处罚明显不当,或者其他行政行为涉及对款额的确定、认定确有错误的,人民法院可以判决变更。()
属于情感波动性障碍的精神症状是【】
某施工工地升降机操作工刘某未注意下方有人即按肩动按钮,造成维修工张某当场被挤压身亡。刘某报告事故时隐瞒了自己按下启动按钮的事实。关于刘某行为的定性,下列哪一选项是正确的?()(2010/2/12)
固态可燃物先是通过热解等过程产生(),()与氧化剂再发生燃烧。
信用证项下不附有商业单据的是()。
民间非营利组织的净资产满足条件时,只能从限定性净资产转为非限定性净资产,不可以由非限定性净资产转为限定性净资产。()
从军队师职干部变为民政部门的服务对象,老张有一种深深的失落感,常常怀念在部队的时光,难以适应到地方的休养生活。而对这种状况,社会工作者首先应采取的介入策略是()。
一个人的对人对己、对事、对物的态度是()
Thecountry’sinadequatementalhealthsystemgetsthemostattentionafterinstancesofmassviolencethatthenationhasseen
对长度为4的顺序表进行查找,若第一个元素的概率为1/8,第二个元素的概率为1/4,第三个元素的概率3/8,第四个元素的概率为1/4,则查找任一元素的平均查找长度为______。
最新回复
(
0
)