在考生文件夹下有一个工程文件sjt5.vbp,在该过程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上画一个名称为Text1的文本框;画一个名称为C1,标题为“计算”的命令按钮;再画两个单选按钮,名称分别为Op1、Op2,标题分别为“求500到600之间能被 7整除的数之和”、“求500到600之间能被3整除的数之和”(如图3—1所示)。请编写适当的事件过程,使得在运行时,选中一个单选按钮,再单击“计算”按钮,就可以按照单选按钮后的文字要求计算,并把计算结果放入文本框中,最后把已经修改的工程文件和

题目

在考生文件夹下有一个工程文件sjt5.vbp,在该过程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上画一个名称为Text1的文本框;画一个名称为C1,标题为“计算”的命令按钮;再画两个单选按钮,名称分别为Op1、Op2,标题分别为“求500到600之间能被 7整除的数之和”、“求500到600之间能被3整除的数之和”(如图3—1所示)。请编写适当的事件过程,使得在运行时,选中一个单选按钮,再单击“计算”按钮,就可以按照单选按钮后的文字要求计算,并把计算结果放入文本框中,最后把已经修改的工程文件和窗体文件以原来的文件名存盘。


相似考题
更多“ 在考生文件夹下有一个工程文件sjt5.vbp,在该过程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上画一个名称为Text1的文本框;画一个名称为C1,标题为“计算”的命令按钮;再画两个单选按钮,名称分别”相关问题
  • 第1题:

    在考生文件夹下有文件in15.txt,文件中有几行汉字。请在Form1的窗体上绘制一个文本框,名称为Text1;能显示多行;再绘制一个命令按钮,名称为Cmd1,标题为Save。编写适当的事件过程,使得在加载窗体时,把in15.txt文件的内容显示在文本框中,然后在文本的最后面手工插入一行字:“计算机等级考试Visual Basic。”如下图所示。最后单击.Save按钮,可以把文本框中修改过的内容存到文件out15.txt中。

    注意:

    只能在最后面插入文字,不能修改原有文字。文件必须存放在考生文件夹中,以 execise15.vbp为文件名存储工程文件,以execise15.frm为文件名存储窗体文件。


    正确答案:

  • 第2题:

    在考生文件夹下有一个工程文件execise21.vbp(相应的窗体文件为execise21.frm),在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上绘制一个名为 Text1的文本框;绘制一个名为Cmd1,标题为“计算”的命令按钮:再绘制两个单选按钮,名称分别为Opt1和Opt2,“求500到600之间能被3整除的数之和”标题分别为“求300到500之间能被3整除的数之和”、“求500到700之间能被7整除的数之和”,如下图所示。

    编写适当的事件过程,使得在运行时,选中一个单选按钮,再单击“计算”按钮,就可以按照单选按钮后的文字要求计算,并把计算结果放入文本框中,最后把已经修改的工程文件和窗体文件以原来的文件名存盘。

    注意:

    考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的“关闭”按钮。在结束程序运行之前,必须至少进行一种计算,否则不得分。


    正确答案:

  • 第3题:

    在窗体上画一个名称为Op1的单选按钮控件数组,其包含4个单选按钮,Index值从0到 3,标题分别为“答案1”、“答案2”、“答案3”和“答案4”;再画一个命令按钮,名称为C1,标题为“选择”;再画一个文本框Text1,名称为Text1,内容为空白。编写适当的程序。程序运行时,单击“选择”按钮,只有选择“答案1”单选按钮时,在Text1文本框中显示“选择正确”,否则显示“选择错误”。程序运行结果如图2—1所示。

    注意,保存时必须存放在考生文件夹下,工程文件名为sjt3.vbp,窗体文件名为sjt3.frm。

    2.在考生文件夹中有工程文件sjt4.vbp,其中包含窗体Form1,该程序是不完整的。请在有?号的地方填入正确内容,然后删除?及所有注释符(即'号),但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下:

    在窗体上有三个名称分别为Text1、Text2、Text3的文本框,一个名称为Command1,标题

    为“计算”的命令按钮(如图2—2所示)。要求程序运行后,在Text1和Text2中分别输入两个整数,单击“计算”按钮后,可把两个整数之间的所有整数(含着两个整数)累加起来并在Text3中显示出来。注意:保存时必须放在考生文件夹下,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。


    正确答案:① 对象主要属性设置如表3所示。 ② 分析:按试题要求在窗体上画一个单选按钮数组(含四个单选按钮)、一个文本框和一个命令按钮并分别将它们的属性按表3的内容进行设置。单选按钮是否被选取由其Value属性来确定当Value值为True时表示单选按钮被选取否则未被选取根据题意只有选择了Op1(0)单选按钮将字符串“选择正确”赋给Text1.Text否则将字符串“选择错误”赋给了Text1.Text。 ③ 编程代码: Private Sub C1_Click() If Op1(0).Value=True Then Text1.Text="选择正确" Else Text1.Text="选择错误" End If End Sub 2.① 试题提供的程序如下: Private Sub Command1_Click() Dim i As Integer Dim j As Integer 'For i=Text1.Text To? 'j=?+i Next i Text3.Text=j End Sub ② 要完成两个数之间所有整数的累加需要使用循环结构来读取两个数之间所有的整数然后将每一个整数累加到一个变量中。 ③ 修改后的程序如下: Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i=Text1.Text To Text2. Text j=j+i Next i Text3.Text=j End Su
    ① 对象主要属性设置如表3所示。 ② 分析:按试题要求在窗体上画一个单选按钮数组(含四个单选按钮)、一个文本框和一个命令按钮,并分别将它们的属性按表3的内容进行设置。单选按钮是否被选取由其Value属性来确定,当Value值为True时,表示单选按钮被选取,否则未被选取,根据题意,只有选择了Op1(0)单选按钮,将字符串“选择正确”赋给Text1.Text,否则将字符串“选择错误”赋给了Text1.Text。 ③ 编程代码: Private Sub C1_Click() If Op1(0).Value=True Then Text1.Text="选择正确" Else Text1.Text="选择错误" End If End Sub 2.① 试题提供的程序如下: Private Sub Command1_Click() Dim i As Integer Dim j As Integer 'For i=Text1.Text To? 'j=?+i Next i Text3.Text=j End Sub ② 要完成两个数之间所有整数的累加,需要使用循环结构来读取两个数之间所有的整数,然后将每一个整数累加到一个变量中。 ③ 修改后的程序如下: Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i=Text1.Text To Text2. Text j=j+i Next i Text3.Text=j End Su

  • 第4题:

    在考生文件夹下有一个工程文件execise44.vbp(相应的窗体文件为execise44.frm),在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上绘制一个名为 Text1的文本框;绘制一个名为Cmd1、标题为“计算”的命令按钮;再绘制两个单选按钮,名称分别为Opt1和Opt2、标题分别为“求100到500之间能被5整除的数之和”和“求 100到500之间能被9整除的数之和”,如下图所示。

    编写适当的事件过程,使得在运行时,选中一个单选按钮,再单击“计算”按钮,就可以按照单选按钮后的文字要求计算,并把计算结果放入文本框中,最后把已经修改的工程文件和窗体文件以原来的文件名存盘。

    注意:

    考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的“关闭”按钮。在结束程序运行之前,必须至少进行一种计算,否则不得分。


    正确答案:

  • 第5题:

    在考生文件夹中有一个工程文件exeeise105.vbp,请在Form1窗体上建立一个名称为 Opt1的单选按钮数组,含有3个单选按钮,其标题分别为“71”、“81”、“91”,Index属性分别为0、1、2;再绘制一个名称为Cmd1的命令按钮,标题为“计算”;绘制一个名称为Text1的文本框,如图所示,

    程序的功能是在选定一个单选按钮并单击“计算”按钮后,可以计算出相应的阶乘值,在Text1中显示该阶乘值。请绘制出上述控件并编写程序。

    注意:

    不得修改工程中已经存在的内容,在结束程序运行之前,必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序,否则无成绩。最后按原文件名存盘。


    正确答案: