在考生文件夹下提供了一个通用过程,可供考生直接调用。请在窗体上绘制一个名称为Textl的文本框,绘制一个名称为C1、标题为“计算”的命令按钮和两个名称分别为0p1和Op2、标题分别为“求200~300之间能被7整除的数之和”和“求200~300之间能被3整

admin2010-07-13  33

问题 在考生文件夹下提供了一个通用过程,可供考生直接调用。请在窗体上绘制一个名称为Textl的文本框,绘制一个名称为C1、标题为“计算”的命令按钮和两个名称分别为0p1和Op2、标题分别为“求200~300之间能被7整除的数之和”和“求200~300之间能被3整除的数之和”的单选按钮,如图44—5所示。

    编写适当的事件过程,使得在程序运行后,选中一个单选按钮,再单击“计算”按钮,就可以按照单选按钮后的文字要求计算。
    注意:保存时必须存放在考生文件夹下,窗体文件名为sj5.frm,工程文件名为sj5.vbp。在结束程序运行之前,至少要进行一种计算,否则无成绩。

选项

答案本题主要考查循环程序设计思想的使用。程序中提供的事件过程用来求200~300之间能被n整除的数之和,这里n是传递给Function过程的参数,该Function过程返回所求得的和。 文本框用Text属性来接收用户的输入。按钮的标题通过Caption属性来设置,单击按钮触发的是Click事件。为了检测单选按钮是否被选中,可以通过检测其Value属性来实现,当Value属性为True时,表示该单选按钮被选中,否则未被选中。在按钮的Click事件过程中通过条件语句来调用Function过程,实现程序要求的功能。 ①建立控件并设置控件属性。程序中用到的控件及其属性见下表: [*] ②打开工程资源管理器,右击窗体,选择查看代码项,在弹出的代码窗口输入代码如下: Private Function fun(a As Integer)As Integer s%=0 For i%=200 To 300 If Int(i%/a)=i%/a Then s%=s%+i% End If Next i% fun=s% End Function Private Sub C1_Click() If Opl.Value Then Textl=fun(7) End If If Op2.Value Then Textl=fun(3) End If End Sub Private Sub Form_Unload(Cancel As Integer) Opl.Value=False Op2.Value=True C1 Click Open"out.txt"For Output As#1 Print#1,Opl.Value,Op2.Value,Textl.Text Close#l End Sub ③调试并运行程序。 ④按题目要求存盘。

解析
转载请注明原文地址:https://kaotiyun.com/show/XGmp777K
0

最新回复(0)