在考生文件夹下有一个工程文件sit5.vbp,相应的窗体文件为sit5.frm。窗体中已经给出了所有控件(框架中的3个单选按钮构成了一个控件数组),如图3—1所示,请编写适当的事件过程。程序运行后,如果选中某个单选按钮,然后单击“计算”命令按钮,则计算出数列1,1,2,3,5,8,13,21,…的第n项的值,并在文本框中显示出来,其中n是选中的单选按钮标题所指定的数值。要计算的数列的变化规律是:从第3个数开始,每个数是它前面两个数之和 (提示:由于计算结果较大,存放结果的变量应使用长整型)。注意:①不得修

题目

在考生文件夹下有一个工程文件sit5.vbp,相应的窗体文件为sit5.frm。窗体中已经给出了所有控件(框架中的3个单选按钮构成了一个控件数组),如图3—1所示,请编写适当的事件过程。程序运行后,如果选中某个单选按钮,然后单击“计算”命令按钮,则计算出数列1,1,2,3,5,8,13,21,…的第n项的值,并在文本框中显示出来,其中n是选中的单选按钮标题所指定的数值。要计算的数列的变化规律是:从第3个数开始,每个数是它前面两个数之和 (提示:由于计算结果较大,存放结果的变量应使用长整型)。

注意:

①不得修改已经给出的程序和已有的控件的属性;

②在结束程序运行之前,必须选中一个单选按钮,并单击“计算”命令按钮获得一个结果;

③必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。

试题所提供的事件过程如下:

Private Sub Form_Unload(Cancel As Integer)

Open"out5.dat"For Output As 1

Print 1,Op1(0).Value,Op1(1).Value,Op1(2).Value,Va1(Text1.Text)

Close 1

End Sub


相似考题

3.(1)在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮,如图64-3所示。程序运行后,单击“计算”命令按钮,通过在对话框输人整数12,放入整型变量a中,然后计算a!(提示:运算结果应放入Long型变量中),在文本框中显示结果,如图64-4所示,并把结果存入文件out.txt中。考生文件夹中有一个标准模块mode.bas,该模块中提供了保存文件的过程PutData,考生可以直接调用。注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。(2)在考生文件夹中有一个工程文件sj4.vbp及窗体文件sj4.frm。在名为Form1的窗体上有两个容器,其中一个容器中有两个单选按钮,另一个容器中有两个复选框,窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,则对文本框中的文字进行相应的设置,如图64-5所示。窗体上的控件已经绘制出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。注意:不能修改已经给出的程序部分和已有的控件;在结束程序运行之前,必须选中一个单选按钮和至少一个复选框,并单击“确定”按钮;必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,按原文件名并在原文件夹中保存修改后的文件。

更多“ 在考生文件夹下有一个工程文件sit5.vbp,相应的窗体文件为sit5.frm。窗体中已经给出了所有控件(框架中的3个单选按钮构成了一个控件数组),如图3—1所示,请编写适当的事件过程。程序运行后,如果选中某个单”相关问题
  • 第1题:

    以下数列:1,1,2,3,5,8,13,21…的规律是从第3个数开始,每个数都是其前面两个数之和。

    在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”按钮,则计算出上述数列第n项的值,并在文本框中显示,n是选中的单选按钮后面的数值(提示:因计算结果较大,应使用长整型变量)。

    注意:不能修改已经给出的程序和已有的控件的属性;在结束程序运行之前,必须选中一个单选按钮,并单击“计算”按钮以获得一个结果;必须使用窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。


    正确答案:
    【考点分析】本题考点有:文本框的Text属性,单选按钮的Name、Caption和Value属性,单选按钮控件数组,For循环语句,If条件判断语句以及内部函数Val()。
    【解题思路】单选按钮数组常用于提供唯一选择,Value属性值决定每个单选按钮的选中状态:Fise为未选中,True为选中,Caption属性用于设置单选按钮的标题。本题在For循环语句(循环变量k的初值为0,终值应为3)中逐一检查每个单选按钮是否被选中,用变量n记录选中单选按钮的索引号。然后取消对当前选中单选按钮的选择,使单选按钮数组中的下一个按钮被选中。如果当前已经选中最后一个单选按钮,则将n赋值为0,重新从单选按钮数组的第一个元素开始。
    【操作步骤】
    步骤1:打开本题工程文件。
    步骤2:打开代码编辑窗口,在指定位置编写如下代码。
    参考答案
    Private Sub Command1_Click()
    Dim a () As Long
    Dim i As Integer
    Dim n As Integer
    ′Op1.Count是单选按钮数目,这里用的是控件数组
    For i=0 To Op1.Count-l
    ′判断哪一项被选择,把它后面的数值赋给n,确定n值
    If Op1(i).Value=True Then
    n=Val(Op1(i).Caption)
    Exit For
    End If
    Next
    ReDim a(n)′重新申请空间,这里是动态申请
    a(1)=1
    a(2)=1′数列第一项、第——4值确定
    For i=3 To n
    a(i)=a(i-1)+a(i-2)’后一项值是
    前两项值之和
    Next
    Text1.Text=a(n)
    End Sub
    步骤3:调试并运行程序,关闭程序后按题目要求存盘。
    【易错提示】在定义数组a的时候,要注意定义为长整型Long,可以防止溢出;单选按钮数组的Index属性分别为0,1,2,在编写循环语句的时候要注意循环变量Opl.Count-1。

  • 第2题:

    在考生文件夹中有一个工程文件execise107.vbp及窗体文件execise107.frm。在名为 Form1的窗体上已经绘制出所有控件,如下图所示。在运行时,如果单击Move按钮,则窗体上的汽车图标每0.1秒向右移动一次(初始状态下不移动);如果单击Stop按钮,则停止移动。

    要求:

    (1)设置适当控件的适当属性,使得汽车图标每0.1秒向右移动一次,而初始状态下不移动。

    (2)请去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容。

    (3)为两个命令按钮编写适当的事件过程。最后以原文件名保存。

    注意:

    不得修改已经给出的程序。编写的事件过程中不能使用变量,每个事件过程中只能有一条语句。


    正确答案:

  • 第3题:

    在考生文件夹中有一个工程文件execise96.vbp及窗体文件execis96.frm。在名为Form1的窗体上有一个命令按钮Cmd1(标题为NEXT)。要求在窗体上建立一个单选按钮数组 Opt1,含4个单选按钮,标题分别为First、Second、Third和Forth,初始状态下,First为选中状态。程序运行情况如下图所示。

    窗体文件中已经给出了命令按钮的Click事件过程,但不完整,请去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使得每单击命令按钮‘次,就选中下一个单选按钮,如果已经选中最后一个单选按钮,再单击命令按钮,则选中第1个单选按钮。

    注意:

    不能修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。


    正确答案:

  • 第4题:

    在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有一个名称为Text1的文本框数组,下标从0开始。程序运行时,单击“产生随机数”按钮,就会产生10个3位数的随机数,并放入Text1 数组中,如图6(a)所示单击“重排数据”按钮,将把Text1中的奇数移到前面,偶数移到后面,如图6(b)所示。文件中已经给出了所有控件和部分程序。 要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 提示:在“重排数据”按钮的事件过程中有对其算法的文字描述,请仔细阅读。


    正确答案:
    【审题分析】本题原程序巾,变量i和j均用做txtRnd文本框数组的索引号(即Index属性值),根据算法中的第1条,可知i=0、j=9、temp=Text2(i),其中“暂存最后一个数”的目的是为空出一个位置放第一个偶数。根据算法中的第3条,检查第J个数是否为奇数的条件表达式为:Text1(j)Mod 2=1。算法中的第2条和第3条交替运行,将实现-后(偶数)-前(奇数)重排数据的目的。根据算法中的第4条,可知在i向后移、j向前移过程中,当i=j时则停It 这种移动(故While循环的条件表达式为i<j)。将先前暂存的数(temp)放到当前空缺位置,以实现算法中的第5条。

  • 第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
    ④按要求保存文件即完成本题。