[问答题] 注意:下面出现的“考生文件夹”均为C:wexam25160002。 在考生文件夹下有一个工程文件sjt5.vbp,在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上画一个名称

25 查阅

[问答题] 注意:下面出现的“考生文件夹”均为C:wexam25160002。 在考生文件夹下有一个工程文件sjt5.vbp,在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上画一个名称为Text1的文本框;画一个名称为C1,标题为“计算”的命令按钮;再画两个单选按钮,名称分别为Op1和op2,标题分别为“求200到300之间能被7整除的数之和”和“求200到300之间能被3整除的数之和”,如图27-5所示。 请编写适当的事件过程,使得在运行时,选中一个单选按钮,再单击“计算”按钮,就可以按照单选按钮后的文字要求计算,并把计算结果放入文本框中,最后把已经修改的工程文件和窗体文件以原来的文件名存盘。 注意:考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前,必须至少要进行一种计算,否则不得分。

参考答案:

解析: 在窗体上建立控件后,先设置控件属性,再事件过程。 程序中提供的事件过程用来求200~300之间能被n个整除的数的和,这里n是传递给Function过程的参数,该Function过程返回求得和。 文本框用Text属性来接收用户的输入。按钮的标题由Caption属性来设置,单击按钮触发的是Click事件。为了检测单选按钮被选中,可以通过检测其Value属性来实现,当Value为True时,表示该单选按钮被选中,否则未被选中。在按钮的 Click事件过程中通过条件语句来调用Function过程,实现程序

在窗体上建立控件后,先设置控件属性,再事件过程。 程序中提供的事件过程用来求200~300之间能被n个整除的数的和,这里n是传递给Function过程的参数,该Function过程返回求得和。 文本框用Text属性来接收用户的输入。按钮的标题由Caption属性来设置,单击按钮触发的是Click事件。为了检测单选按钮被选中,可以通过检测其Value属性来实现,当Value为True时,表示该单选按钮被选中,否则未被选中。在按钮的 Click事件过程中通过条件语句来调用Function过程,实现程序要求的功能。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表27-5。表 27-5控 件属 性设置值文本框NameTextText1空白按钮NameCaptionC1“计算”单选按钮NameCaptionOp1“求200到300之间能被7整除的数之和”单选按钮NameCaption“求200到300之间能被3整除的数之和” 第二步:编写程序代码。 程序提供的代码: 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 fun = s% End Function Private Sub Form_Unload(Cancel As Integer) Open "out5.txt" For Output As #1 Print #1, Opl.Value, Op2.Value, Textl.Text Close #1 End Sub 参考答案: 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 fun = s% End Function Private Sub C1_Click() If Opl.Value Then Text1 = fun(7) End If If Op2.Value Then Text1 = fun(3) End Sub Private Sub Form_Unload(Cancel As Integer) Open "out5.txt" For Output AS #1 Print #1, Opl.Value, Op2.Value, Text1.Text Close #1 End Sub 第三步;调试并运行程序。 第四步:按题目要求存盘。

计算机考试