在考生文件夹中有一个工程文件execise31.vbp,相应的窗体文件为execise31.frm。在名为Form1的窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并在文本框中显示出来。如下图所示。在窗体的代码窗口中,已给出了部分程序,其中计算0~200范围内能被3整除的所有整数的和的操作在通用过程Fun中实现,请编写该过程的代码。要求:请勿改动程序中的任何内容,只在Function Fun()和End Function之间填入所编写的若干

题目

在考生文件夹中有一个工程文件execise31.vbp,相应的窗体文件为execise31.frm。在名为Form1的窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并在文本框中显示出来。如下图所示。

在窗体的代码窗口中,已给出了部分程序,其中计算0~200范围内能被3整除的所有整数的和的操作在通用过程Fun中实现,请编写该过程的代码。

要求:

请勿改动程序中的任何内容,只在Function Fun()和End Function之间填入所编写的若干语句。最后,按原文件名并在原文件夹中保存修改后的文件。


相似考题
更多“ 在考生文件夹中有一个工程文件execise31.vbp,相应的窗体文件为execise31.frm。在名为Form1的窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整”相关问题
  • 第1题:

    在考生文件夹中有一个工程文件execise14.vbp,相应的窗体文件为execise14.rrm。在名为Form1的窗体上有一个命令按钮和一个文本框(如下图所示)。程序运行后,单击命令按钮,即可计算出0~500范围内不能被3整除的所有整数的和,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,其中计算不能被3整除的整数的和的操作在通用过程Fun中实现,请编写该过程的代码。

    要求;

    请勿改动程序中的任何内容,只在Function Fun()和End Function之间填入所编写的若干语句。最后,按原文件名并在原文件夹中保存修改后的文件。


    正确答案:

  • 第2题:

    在名为Form1的窗体上,绘制一个名为Text1的文本框。设置文本框属性,在文本框中显示“文本框”;再建立一个名为Cmd1,标题为Clear的命令按钮,如下图所示。编写适当的事件过程,使程序运行后,若单击Clear命令按钮,则清除文本框中所显示的信息。

    注意:

    文件必须存放在考生文件夹中,窗体文件名为execise5.frm,工程文件名为exeeise5.vbp。


    正确答案:

  • 第3题:

    在考生文件夹中有一个工程文件execise29.vbp,相应的窗体文件为execise29.frm。在名为Form1的窗体上有一个命令按钮和一个文本框(如下图所示)。程序运行后,单击命令按钮,即可计算出0~1000范围内不能被7整除的整数的个数,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现,请编写该过程的代码。

    要求:

    请勿改动程序中的任何内容,只在Function Fun()和End Function之间填入编写的若干语句。最后,按原文件名并在原文件夹中保存修改后的文件。


    正确答案:

  • 第4题:

    在Form1的窗体上绘制一个命令按钮,名为Cmd1,标题为Display。编写适当的事件过程,使程序运行后,若单击命令按钮,则在窗体上显示ViSBa1 Basic;如果单击窗体,则命令按钮消失。程序运行情况如下图所示。

    注意:

    在程序中不能使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise16.vbp,窗体文件名为execise16.frm。


    正确答案:

  • 第5题:

    在Form1的窗体上绘制一个命令按钮,名为Cmd1,标题为Display,按钮隐藏。编写适当的事件过程,使程序运行后,若单击窗体,则命令按钮出现;此时如果单击命令按钮,则在窗体上显示Visual Basic。程序运行情况如图3—2和图3-3所示。注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为sj2.vbp,窗体文件名为sj2.frm。


    正确答案:
    ①新建一个名为Form1的窗体。
    ②单击工具箱中的CommandButton控件图标,在窗体上拖拉出一个命令按钮,在属性窗口设置该命令按钮名称为Cmdl,Caption属性为Display,Visible属性为False。
    ③打开代码窗口输入如下代码:
    Private Sub Cmd1_(;lick
    Print"VisualBasic" '在窗体显示VisualBasic
    End Sub

    Private Sub Form_Click
    Cmd1.Visible=True'使命令按钮可见
    End Sub
    ④按要求保存文件即完成本题。