2. 计算机
  3. 在考生文件夹下有一个工程文件sj5．vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Textl的文本框；画一个名称为Commandl、标题为“计算显示”的命令按钮；再画两个单选按钮，名称分别为Optionl和Option

在考生文件夹下有一个工程文件sj5．vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Textl的文本框；画一个名称为Commandl、标题为“计算显示”的命令按钮；再画两个单选按钮，名称分别为Optionl和Option

admin2012-10-09  28
问题 在考生文件夹下有一个工程文件sj5．vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Textl的文本框；画一个名称为Commandl、标题为“计算显示”的命令按钮；再画两个单选按钮，名称分别为Optionl和Option2、标题分别为“求100到250之间能被5整除的数的个数”和“求300到400之间能被6整除的数的个数”，如图62—5所示。

    请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击“计算显示”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。
    注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮来完成。在结束程序运行之前，必须至少要进行一种计算，否则不得分。
选项
答案根据题意，将一个文本框控件，两个单选按钮控件和一个命令按钮添加到窗体中，文本框的名称为Textl，单选按钮的名称：分别为Optionl和Option2，Caption分别为“求100到250之间能被5整除的数的个数”和“求300到400之间能被6整除的数的个数”，命令按钮的名称为Commandl，Caption属性为“计算显示”，设置完成后，双击Commandl进入代码窗口，补充后的具体代码如下： Private Sub Commandl_Click() Dim rain As Integer’下限 Dim max As Integer’上限 Dim i As Integer’循环计数 Dim mum As Integer’个数 Dim tmp As Integer’除数 If Optionl．Value=True Then ’选中Optionl时 min=100 max=250 tmp=5 Else’选中Option2时 rain=300 max=400 tmp=3 End If num=0 For i=min To max’利用循环来逐个判断 If i Mod tmp=0 Then num=num+1 ’如果能被除数整除，则个数加1 End If Next i Textl．Text=hum’在Textl文本框中显示出来 Open"App．Path&＼out5．txt"For Output As#1 Print#1，Textl．Text Close#1 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/J3hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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