首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹中有一个工程文件sj3.vbp和一个窗体文件sj3.frm。窗体上有一个名为Textl的文件框,一个标题为“计算”、名称为Commandl的命令按钮和一个组合框。请在名为Combo1的组合框中输入3个列表项:“5”、“9”和“13”(列表
(1)在考生文件夹中有一个工程文件sj3.vbp和一个窗体文件sj3.frm。窗体上有一个名为Textl的文件框,一个标题为“计算”、名称为Commandl的命令按钮和一个组合框。请在名为Combo1的组合框中输入3个列表项:“5”、“9”和“13”(列表
admin
2009-03-26
33
问题
(1)在考生文件夹中有一个工程文件sj3.vbp和一个窗体文件sj3.frm。窗体上有一个名为Textl的文件框,一个标题为“计算”、名称为Commandl的命令按钮和一个组合框。请在名为Combo1的组合框中输入3个列表项:“5”、“9”和“13”(列表项的顺序不限,但必须是这3个数字),程序运行情况如图36—3所示。
请编写适当的事件过程,使得程序运行时,在组合框中选定一个数字后,单击“计算”按钮,则计算4000以内能够被该数整除的所有数之和,并放入Textl中。最后,按原文件名存盘(提示:由于计算结果较大,应使用长整型变量)。
注意:不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序,否则无成绩。
(2)在考生文件夹中有一个工程文件sj4.vbp及窗体文件sj4.frm。在名为Forml的窗体上有一个圆和一条直线(直线的名称为Linel)构成一个钟表的图案;有两个命令按钮,名称分别为Commandl和Command2,标题分别为“开始”和“暂停”;还有一个名为Timerl的计时器。
程序运行时,钟表指针不动,单击开始按钮,则钟表上的指针(即Linel)开始顺时针旋转(每秒转6
。
,一分钟转一圈);单击暂停按钮,则指针暂停旋转。运行时的窗体如图36—4所示。请设置计时器的适当属性,使得每秒激活计时器的Timer事件一次;编写两个按钮的Click事件过程。文件中已经给出了所有控件和部分程序,不得修改已有程序和其他控件的属性;编写的事件过程中不得使用变量,且只能写一条语句。最后,按原文件名并在原文件夹中保存修改后的文件。
注意:保存时必须存放到考生文件夹下,工程文件名为sj4.vbp,窗体文件名为sj4.frm。
选项
答案
(1)组合框(ComboBox)将文本框与列表框的特性组合在一起,既可在组合框的文本框部分输入信息,也可在列表框部分选择项目;组合框的列表项可以在设计阶段通过其List属性加入,加入时注意每输入完一项后按“Ctrl+Enter”组合键换行再输入下一项,也可以通过代码设置,Addhem方法用来向组合框中添加一个表项,其格式为:组合框.Additem列表项[索引]。 题目给出的源程序中已给设计好窗体,只需在Combol的List属性中添加“5”、“9”和“13”三个列表项,添加完成后,双击Commandl进入代码窗口,补充后的代码如下: Private Sub Commandl_Click() If Comb01.Text=5 Then divide(5) Elself Comb01.Text=9 Then divide(9) Else divide(
13
) End If End Sub Private Sub divide(X AS Integer) Dim i As Integer Dim temp As
Long
For i=1 TO 4000 If i Mod x=0 Then temp=temp+i End If Next i Textl.Text=temp End Sub 单击[*]按钮运行程序.并按要求保存。 (2)本题主要考查计时器控件和形状控件和用法。计时器的Interval属性用于设置每次触发计时器的Timer事件的时间间隔,单位为毫秒。Enabled属性控制计时器是否开始启用,True表示启用,False表示不启用。形状控件用来绘制各种形状,其值有6种,0表示矩形,1表示正方形,2表示椭圆,3表示圆形,4表示圆角矩形,5表示圆角正方形。 根据题意,将计时器的Interval属性设为1 000,双击Commandl命令按钮,进入代码窗口,源程序给出的代码如下: Dim lenth As Integer,q As Integer Const PI=3.14159 Private Sub Form Load() lenth=Linel.Y2-Linel.Y1 q=90 End Sub Private Sub Timerl_Timer() q=q-6 Linel.Y1=Linel.Y2-lenth*Sin(q*PI/180) Linel.X1=Linel.X2+lenth*Cos(q*PI/180) End Sub 补充后的命令按钮事件如下: Private Sub Commandl Click() Timerl.Enabled=True End Sub Private Sub Command2_Click() Timerl=False End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/BN1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
给定下面的代码:byte[]arrayl,array2[];bytearray3[][];byte[][]array4;如果上面的每一个数组都初始化了,以下各项语句中错误的是()。
用synchronized标识的共享数据必须是【】。
数据库设计有两种方法,它们是()。
诊断和改正程序中错误的工作通常称为【】。
当一个应用程序的所有非守护线程终止运行时,但仍然有守护线程在运行,应用程序将
已知表达式intm[]={0,1,2,3,4,5,6};,下面表达式的值与数组下标量总数相等的是()
当数据的物理结构(存储结构、存取方式等)改变时,不影响数据库的逻辑结构,从而不致引起应用程序的变化,这是指数据的【】。
Applet的运行过程要经历4个步骤,其中______不是运行步骤。()
下面叙述正确的是()。
给出下面程序的代码:byte[]array1,array2[];bytearray3[][];byte[][]array4;下面数组操作语句中______是不正确。
随机试题
防排烟联动控制中,由排烟口、排烟窗或排烟阀开启的动作信号作为排烟风机启动的联动触发信号,并由消防联动控制器联动控制排烟风机的启动。()
商品的使用价值反映的是()
跗横关节是由___________关节和___________关节联合构成。
乳牙期牙尖交错牙合的特征有
口腔单纯性疱疹病毒传染途径
某单位会餐的100人中,有30人因食某一被嗜盐弧菌污染的食物,于会餐后的二天内发生腹泻、腹痛,这30%是
主治肝经寒凝气滞证的首选方剂是
机器零件材料内部任一点因外力作用引起的形状和尺寸的相对改变称为()。
请用不超过150字的篇幅,概括出给定资料所反映的主要问题。以政府调研员的身份,用不超过350字的篇幅,提出解决给定资料所反映问题的方案。要有条理地说明,要体现针对性和可操作性。
1946年,世界上第一台计算机【131】,这个庞然大物【132】了一个电脑时代。从那时候起,人们不断革新、创造,把庞然大物的体积【133】减再减,现在我们所见的台式电脑、【134】电脑等都是老电脑的后代。这一切取决于电子管技术向大规模集成电路再向超大规模集
最新回复
(
0
)