2. 计算机
  3. (1)在考生文件夹中有一个工程文件sj3．vbp和一个窗体文件sj3．frm。窗体上有一个名为Textl的文件框，一个标题为“计算”、名称为Commandl的命令按钮和一个组合框。请在名为Combo1的组合框中输入3个列表项：“5”、“9”和“13”(列表

(1)在考生文件夹中有一个工程文件sj3．vbp和一个窗体文件sj3．frm。窗体上有一个名为Textl的文件框，一个标题为“计算”、名称为Commandl的命令按钮和一个组合框。请在名为Combo1的组合框中输入3个列表项：“5”、“9”和“13”(列表

admin2009-03-26  53
问题 (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://www.kaotiyun.com/show/BN1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)