2. 计算机
  3. (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在名称为Forml的窗体上有两个名称分别为Labell和Label2的标签，两个名称分别为Textl和Text2的文本框控件和两个名称分别为Commandl和Comma

(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在名称为Forml的窗体上有两个名称分别为Labell和Label2的标签，两个名称分别为Textl和Text2的文本框控件和两个名称分别为Commandl和Comma

admin2009-03-26  46
问题 (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在名称为Forml的窗体上有两个名称分别为Labell和Label2的标签，两个名称分别为Textl和Text2的文本框控件和两个名称分别为Commandl和Command2的命令按钮。该程序的主要功能是求从1到用户输入的任意自然数n的偶数的累加和。本题要求刚启动工程时，“计算”和“清空”按钮均为灰色，可以在Textl文本框内输入任意自然数(n值太大时，运算时间将很长，建议不超过9位)。在输入数的同时“计算”变为可用；当计算完成后．“计算”变为不可用；当输人为非数值时，累加结果为0。单击“计算”可以在Text2中显示累加和，且该框内的文字不可修改；同时“计算”变灰。“清空”变为可用。单击“清空”，输入框和显示框均被清空，同时“计算”和“清空”变为不可用。如图56—3所示。   
    注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
    (2)在考生文件夹中有文件sj4．vbp及其窗体文件sj4．frm，窗体已经设计好，要求考生用If语句编写程序，使得程序运行。窗体上有两个复选框，名称分别为Checkl和Check2。标题分别为“ItelTll”和“Itern2”；两个单选按钮，名称分别为Optionl和Option2。标题分别为“选择”和“其他”；一个名称为Labell、Caption属性为空的标签；一个名称为Commandl、标题为“显示”的命令按钮，一个名称为Textl的文本框，Text属性为空。要求程序运行后，对选中Optionl时checkl和Check2可用，Textl也可用，当选中Option2的时候，Textl可用，Checkl和claeck2不可用，然后单击显示按钮．可在窗体上显示相应的信息，如选中Optionl，则显示选中复选框的信息，选择Option2则显示Textl中的信息。程序运行时的界面如图56—4所示。

    注意：不得使用任何变量。存盘时不得改变文件夹和文件名。
选项
答案 (1)根据题意，将一个Label控件、两个Text控件和两个Command控件添加到窗体上，Label的Caption属性为“求1到用户输入数之间的所有偶数之和，并将结果显示出来。”，Text的名称分别为Textl和Text2、Text属性分别为空和Text2，Text2的Enable属性为False，Command的名称分别为Commandl和Command2、Caption属性分别为“计算”和“清空”。双击Commandl命令按钮，编写如下代码： Private Sub Commandl_Click() Dim a As Integer Dim total As Long Dim i As Integer a=Val(Textl．Text) ’将Textl中的数据读入，放到a中 total=0 For i=1 To a’利用For循环逐个判断 If i Mod 2=0 Then’当判断是偶数时 total=total+i’则相加 End If Next i Text2．Text=total’将结果写入Text2中 Commandl．Enabled=False ’Commandl不可用 End Sub Private Sub Command2一Click() Textl．Text="" ’Textl清空 Text2．Text="" ’Text2清空 Commandl．Enabl ed=False ’Commandl不可用 Command2．Enabled=False ’Command2不可用 End Sub Priyate Sub Text1_Change() Commandl．Enabled=True’Commandl可用 Command2．Enabled=True ’Command2可用 End Sub 单击[*]按钮运行程序，并按要求保存。 (2)按要求设计好窗体后，双击Commandl命令按钮打开代码窗口，补充完整后的代码如下： Private Sub Commandl_Click() Dim str As String str="" If Optionl．Value=True Then’如果选择的是Optionl If Checkl．Value=1 Then’则判断选中的复选按钮 str=str+Checkl．Caption’如果选中Checkl，则显示Iteml End If If Check2．Value=1 Then’如果选中Check2 str=str+Check2．Caption ’则显示Item2 End If C1s Print str’在窗体上打印出来 Else，’如果选择的是Option2 Cls Print Textl．Text’则显示Textl的内容 End If End Sub Private Sub Optionl_Click() ’单击Optionl Textl．Enabled=False’Textl不可用 Checkl．Enabled=True’Checkl可用 Check2．Enabled=True ’Check2可用 End Sub Private Sub Option2_Click() Textl．Enabled=True Checkl．Enabled=False Check2．Ena bled=False End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/UV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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