首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(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
27
问题
(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全国计算机二级
相关试题推荐
对于建立良好的程序设计风格,下面有关数据说明描述错误的是()。
下列叙述中,正确的是()
设有n元关系R及m元关系S,则关系R与S经笛卡儿积后所得新关系是一个()元关系。
以下特点不属于算法的基本特征的是()。
如果在Applet中要访问一个HTML文件,可以请示浏览器实现相应HTML文本的显示。通过AppletContext的【】方法,Applet可以通知浏览器在哪个窗口中显示哪个URL中的文件。
下面______组件可以不添加到容器中。
下列操作中,不属于Applet安全限制的是()。
对鼠标点击按钮操作进行事件处理的接口是()。
char类型数据的取值范围是( )。
随机试题
著名诗人温子升被誉为()。
“三个有利于”标准中,核心是( )
Importforthefirstthreemonthsthisyearislargerthanforthe______periodlastyear.
慢性骨髓炎的手术指征是
真人养脏汤的作用是
重量感觉阈限值的大小与相应的重量感受性高低之问的关系成()。
下列关于法的作用的说法中正确的是()。
以下选项中,符合所给图形的变化规律的是____。
康德
国有公司对其财产享有()。
最新回复
(
0
)