2. 计算机
  3. (1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。在窗体上有一个名称为Commandl、标题为“求和”的命令按钮，三个名称分别为Textl、Text2和Text3的文本框，运行界面如图65—4所示。要求程序运行后，在

(1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。在窗体上有一个名称为Commandl、标题为“求和”的命令按钮，三个名称分别为Textl、Text2和Text3的文本框，运行界面如图65—4所示。要求程序运行后，在

admin2010-07-13  38
问题 (1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。在窗体上有一个名称为Commandl、标题为“求和”的命令按钮，三个名称分别为Textl、Text2和Text3的文本框，运行界面如图65—4所示。要求程序运行后，在Textl和Text2中分别输人两个整数，单击“求和”按钮后，可把两个整数之间的所有奇数(不含输入的两个整数)累加起来并在Text3中显示。
    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
    (2)在考生文件夹中有工程文件sj4．vbp及其窗体文件sj4．frm，该程序是不完整的。在窗体上建立一个名称为Textl的文本框，建立一个名称为Commandl、标题为“计算”的命令按钮，如图65—5所示。要求程序运行后，如果单击“计算”按钮，则求出50—200之间所有可以被5整除的数的总和，在文本框中显示出来，并把结果存入考生文件夹下的out．txt文件中。(在考生的文件夹下有一个mode．bas标准模块，该模块中提供了保存文件的过程writedata，考生可以直接调用。)

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案(1)看一个数是否为奇数，只要判断此数是否能被2整除，若不能整除，则是奇数，否则不是奇数。如：N Mod 2=0，则说明余数为0，N能被2整除，否则N不能被2整除。 根据题意将一个命令按钮和三个文本框控件添加到窗体中，命令按钮的名称属性为Commandl、Caption属性为“求和”，三个文本框的名称分别为Textl、Text2和Text3，然后双击Commandl进入代码窗口，补充后的具体代码如下： Private Sub Commandl_Click() Dim total As Long Dim min As Integer Dim max As Integer Dim a As Integer min=Textl．Text’Textl输入的整数 max=Text2．Text’Text2输入的整数 total=0 For a=min+1 To max-1 ’循环操作 If a Mod 2=1 Then’判断是否为奇数 total=total+a’进行相加操作 End If Next a Text3．Text=total ’将得到的数输出到文本框3 End Sub 单击[*]按钮运行程序，并按要求保存。 (2)根据题意，将一个命令按钮和一个文本框控件添加到窗体中，命令按钮的名称Commandl、Caption属性为“计算”，文本框的名称为Textl，本题是为了求50~200之间的能被5整除的数的和，显示到文本框中并保存到OUt．txt中。在“工程”窗口中单击右键，在弹出的快捷菜单中选择“添加”→“添加模块”，然后在弹出对话框的“现存”选项卡中选择“mode．bas”，单击“确定”按钮即添加成功。模块mode．bas中的代码如下： Function writeData(total As Long) ’将数据保存到out．txt中 Open App．Path&"＼out．txt"For Output As#1’打开文件 Write#1，total’进行写入 Close#1 End Function 双击Commandl进入代码窗口，补充后的代码如下： Private Sub Commandl_Click() Dim total As Long Dim n As Integer total=0 For n=50 To 200’循环操作 If n Mod 5=0 Then’判断是否能被5整除 total=total+n’进行相加操作 End If Next n Textl．Text=total’在Textl中显示出来 writeData(total) ’写入OUt．txt文件中 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/4Lmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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