2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5.vbp，在该过程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Text1的文本框；画一个名称为C1，标题为“计算”的命令按钮；再画两个单选按钮，名称分别为Op1、Op2，标题分别为“求500到60

在考生文件夹下有一个工程文件sjt5.vbp，在该过程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Text1的文本框；画一个名称为C1，标题为“计算”的命令按钮；再画两个单选按钮，名称分别为Op1、Op2，标题分别为“求500到60

admin2009-03-17  17
问题 在考生文件夹下有一个工程文件sjt5.vbp，在该过程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Text1的文本框；画一个名称为C1，标题为“计算”的命令按钮；再画两个单选按钮，名称分别为Op1、Op2，标题分别为“求500到600之间能被 7整除的数之和”、“求500到600之间能被3整除的数之和”(如图3—1所示)。请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击“计算”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。
选项
答案① 建立界面和设置控件属性。 题目提供了程序用到的控件，修改后的控件及其属性如下表4所示。 [*] ② 编写程序代码。 题目提供给考生的代码： Private Function fun(a As Integer)As Integer s%=0 For i%＝500 To 600 If Int (i%/a)＝i%/a Then s%＝s%+i% End If Next fun=s% End Function Private Sub Form_Unload(Cancel As Integer) Open "out5.txt"For Output As #1 Print #1,Op1. Value,Op2. Value,Text1. Text Close #1 End Sub 参考代码： Private Sub C1_Click() If Op 1. Value Then Text1. Text＝fun(7) ElseIf Op2.Value Then Text1.Text＝fun(3) End If End Sub ③ 按题目要求存盘并进行相应的操作。
解析
转载请注明原文地址:https://kaotiyun.com/show/Xj1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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