在考生文件夹下有一个工程文件execise59.vbp及窗体文件execise59.frm。在窗体上有两个命令按钮,名称分别为Cmd1和Cmd2,标题为“添加”和“清除”;一个文本框,名称为Text1,程序运行前,文本框的编辑区为空白;一个列表框,名称为List1。程序界面如下图所示。在文本框中输入文本,若单击“添加”按钮,则将文本框中的文本作为列表框的一个列表项添加到列表框的末尾,且使“添加”按钮变为无效,“清除”按钮变为有效:若单击“清除”按钮,则使文本框中的内容为空,且使“添加”按钮变为有效,“清除”按钮变为无效。要求:去掉程序中的注释“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。保存时,工程文件名仍为execise59.vbp,窗体文件名仍为execise59.frm。
算法的主要运算如下,其中i的初值为0,s初值为0,“=”为赋值号。 While i<n do { s=0; While s<n do { s=s+1; } i=i+1; } 该算法的时间复杂度为()
下面的程序代码实现将一个一维数组中元素向右循环移动,移位次数由文本框Text1输入。例如数组各元素的值依次为0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10; 移动三次后,各元素的值依次为 8, 9, 10, 0, 1,2 3,4,5,6,7。 Private Sub MoveRight (x() As Integer) Dim i As Integer Dim j As Integer Dim k As Integer i = UBound (x) j = x(i) For k = i To【 】Step -1 【 】 Next k x(LBeund(x)) = j End Sub Private Sub Command1_click() Dim a(10) As Integer Dim i As Integer Dim j As Integer Dim k As Integer For i = 0 To 10 a(i) = i Next i j = Val(TextText) k=0 Do k=k+1 Call MoveRight(A) Loop Until k = j For i = 0 To 10 Print a(i); Next i End Sub
设a=2,b=3,c=4,d=5,则表达式Not a<=c Or 4*c=b^2 And ba+c的值是
(1)新建一个工程,包含两个窗体,窗体文件名为sjll.frm和sjl2.frm,名称分别为Forml和Form2,Forml上包含一个计时器Timerl,两个窗体上均包含一个标签。运行后,在Forml的标签上显示“祝您”,时间为3秒,3秒后,Forml消失,Form2出现,在标签上面显示“考试成功”。程序中不得使用任何变量,程序运行时的窗体界面如图23—1所示。注意:保存时必须存放在考生文件夹下,窗体文件名为sj11.frm和sj12.frm工程文件名为sj1.vbp。(2)在窗体上绘制一个命令按钮,名称为Commandl、标题为“剪切粘贴”.两个名称分别为Textl和Text2的文本框控件。请编写适当的事件过程,使得程序在运行时,单击“剪切粘贴”按钮,Textl中的内容将在Text2中显示,同时将Text1中的内容删除。程序中不得使用任何变量,程序运行时的窗体界面如图23—2所示。注意:保存时必须存放在考生文件夹下,窗体文件名为sj2.frm,工程文件名为sj2.vbp。
在考生文件夹中有一个工程文件execise32.vbp,相应的窗体文件为execise32.frm。在名为Form1的窗体上有一个名称为Cmd1,标题为“小于500的整数之和”的命令按钮。其功能是产生20个0~1000的随机整数,放入一个数组中,然后输出这20个整数中小于500的所有整数之和。程序运行后,单击命令按钮,即可求出这些整数的和,并在窗体上显示出来,如下图所示。本程序不完整,请补充完整,并能正确运行。要求:去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。
单击命令按钮后,下列程序代码的执行结果是______。Public Sub fun (Byval a () As Integer)Static n As IntegerDoa(n) = a (n) + a(n + 1)n = n + 1Loop While n < 3End SubPrivate Sub command1_ click()Dim m As Integer, n As Integer, a(10) As IntegerFor n = 0 To 2: a(n) = n + 1: Next nFor n = 1 To 2: Call fun(a): Next nFor n = 0 To 3: Print a(n): Next nEnd Sub
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗体上建立一个列表框、一个组合框和两个命令按钮。程序运行后,在列表框中选择所需要的项目,单击“导出”按钮,把所选择的项目移到组合框中。如果单击“导人”按钮,则把组合框中所选择的项目移到列表框中。程序运行时的窗体界面如图50—3所示。注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“'”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序是不完整的。本题在窗体Forml中有一个文本框,名称为Textl;另有一个命令按钮,名称为Commandl,标题为“判断”。要求该应用程序具有数据过滤功能,即检查用户在文本框中输入的数值是否在能被3整除。如果是,则退出程序;否则在文本框巾显示“不能被3整除”,同时使焦点重新回到文本框中。程序运行时的窗体界面如图50—4所示。注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“'”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为L,abell、标题为“设置速度”的标签,通过属性窗口把标签的大小设置为自动调整。画一个名称为HScrolll的水平滚动条,通过属性窗口设置适当属性使滚动条的最大值为80,最小值为1,单击滚动条两端的箭头时,滚动框移动2,滚动框的初始值为30。程序运行后的窗体如图1-161所示。注意:存盘时必须存放在考生文件夹下,工程文件名为sitl.vbp,窗体文件名为sjtl.frm。(2)在名称为Forml的窗体上画一个名称为Shape1的形状控件,画两个名称分别为Commandl、Command2,标题分别为“圆形”、“红色边框”的命令按钮。将窗体的标题设置为“图形控件”,如图1-162(a)所示。请编写适当的事件过程,使得在运行时,单击“圆形”按钮将形状控件设为圆形。单击“红色边框”按钮,将形状控件的边框颜色设为红色(&HFF&),如图1-162(b)所示。注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
下列程序段的执行结果为 m=1 n=1 Select Case m Case 1 Select Case n Case 0 print "A" Case 1 Print "B" End Select Case 2 Print "C" End Select
(1)考生文件夹下有一个工程文件sj3.vbp。程序的功能是:通过键盘向文本框中输入数字,如果输入的是非数字字符,则提示输入错误,且文本框中不显示输入的字符。单击名称为Commandl、标题为“添加”的命令按钮,则将文本框中的数字添加到名称为Comb01的组合框中。在给出的窗体文件中已经添加了全部控件,但程序不完整。要求去掉程序中的注释符(即“'”),把程序中的“?”改为正确的内容。 注意:不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生目录下有一个工程文件sj4.vbp。该程序的功能是计算M!+(M+1)!+(M+2)!+…+N!之和。窗体上有名称分别为Textl、Text2的两个文本框,用于接收输入的M和N(要求M
在c盘当前文件夹下有一个已建立好的顺序文件Alph.txt,文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体,打开A1ph.txt文件,读取字符串并显示在文本框Textl中,然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示在文本框Text2巾,最后将重新排列的字符串存入AIpO.txt文件巾(无双引号界定符)。清选择横线处合适的语句( )。 Private Su b Form Load() Dim Strln As String,StrOut As String Open“C:\Alph.txi”For Input As#1 Close Textl.Text=Sttin Text2。Text=Str()ut Open“C:\Alp().txt”For Output AS#2 Close End Sub Private Function StrSort(s As String)As String Dim sArr()As String*1.j As Integer,J As Integer,1/As Integer DimtAs String*1 ReDim sArr(n) For i=1 To n sArr(i)=Mid(s,i,1) Next i For i=1 T0 n。1 For i=i+1 To n If sArr(i)>sArrj Then t=sArr(i):sArr(i)=sArr(i):sArr(j)=t End 1f Nexl i.i For i=l To n StrSort=StrSort&sArr(i) Next i End Function
在窗体上画一个名称为Labell、标题为“VisualBasic考试”的标签,两个名称分别为Commandl和Command2、标题分别为“开始”和“停止”的命令按钮,然后画一个名称为Timerl的计时器控件,并把其Interval属性设置为500.如图所示。编写如下程序:PrivateSubFormLoad()Timerl.Enabled=falseEndSubPrivateSubCommandlClick()Tlinerl.Enabied=TrueEndSubPrivateSubTimerlTimer()IfLabell.Left
软件的需求分析阶段的工作,可以概括为4个方面:______、需求分析、编写需求规格说明书和需求评审。
下图窗体上有三个文本框Text1、Text2和Text3以及一个按钮Command1。为完成已知圆直径求圆周长和圆面积的功能,程序如下:程序填空处应是________。
软件测试是软件开发过程的重要阶段,是软件质量保证的重要手段,下列各项中,______是软件测试的任务。 Ⅰ.预防软件发生错误 Ⅱ.发现改正程序错误 Ⅲ.提供诊断错误信息
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sit3.frm。其功能是产生20个0~1000的随机整数,放入一个数组中,然后输出这20个整数的平均值。程序运行后,单击命令按钮(名称为Command1,标题为“输出平均值”),即可求出其平均值,并在窗体上显示出来(如图1-136所示)。这个程序不完整,请把它补充完整,并能正确运行。要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,其中计算能被3整除的整数的和的操作在通用过程Fun中实现,请编写该过程的代码。要求:请勿改动程序中的任何内容,只在FunctionFun()和EndFunction之间填入编写的若干语句。最后把修改后的文件按原文件名存盘。
在考生文件夹中有一个工程文件execise50.vbp及窗体文件execise50.frm。在名为Form1的窗体上有一个名称为Cmd1,标题为“显示”的命令按钮,一个名称为List1的列表框。要求程序运行后,如果多次单击列表框中的项,则可同时选择这些项。而如果单击“显示”按钮,则在窗体上输出所有选中的列表项,如下图所示。要求:修改列表框的适当属性,使得运行时可以多选;去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序中的其他部分。最后把修改过的程序按原名保存。
在名为Form1的窗体上绘制一个标签,其名称为Lab1,在属性窗口中把BorderStyle属性设置为1。编写适当的事件过程,使程序运行后,若单击窗体,则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。程序的运行情况如下图所示。注意:不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为execise32.vbp,窗体文件名为execise32.frm。
在名称为Forml的窗体上画一个文本框,名称为Textl,MultiLine属性为True,ScrollBars属性为2;两个命令按钮,名称分别为Cmdl和Cmd2.标题分别为“读入数据”和“保存数据”,如图55—8所示。程序运行后,如果单击“读人数据”按钮,则读入in.txt文件中的100个整数,放人一个数组中(数组下界为1),并在文本框Textl中显示出来;如果单击“保存数据”按钮,则把数组中的前50个数据在文本框Textl中显示出来,并存入考生文件夹中的result.txt文件中(考生文件夹中有标准模块prog.bas,其中的putdata过程可以把指定个数的数组元素存人restJlt.txt文件)。注意:保存时必须存放在考生文件夹下,窗体文件名为sj5.frm,工程文件名为sj5.vbp,结果存入out.txt文件,否则没有成绩。
