填空题 | 某人编写如下函数来判断a是否为素数,若是,则函数返回True;否则返回False Function Prime(a As Integer)AS Boolean Dim k As Interger,isprime AS Boolean If a<2 Then isprime=False Else isprime=True k=2 Do While k If a Mod k=0 Then isprime=False ELSE k=k+1 End IF LOOP End If prime=isprime End Function 在测试时发现有1个非素数也被判断为素数,这个错判的数是______ |
查看答案 |
填空题 | 软件需求规格说明书应具有完整性、无歧义性、正确性、可验证性、可修改性等特性,其中最重要的是 ______ 。 | 查看答案 |
填空题 | 在两种基本测试方法中,______ 测试的原则之一是保证所测模块中每一个独立路径至少要执行一次。 | 查看答案 |
填空题 | 线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表,循环队列是队列的______ 存储结构。 | 查看答案 |
填空题 | 对下列二叉树进行中序遍历的结果为______ 。 |
查看答案 |
填空题 | 在E-R图中,矩形表示______ 。 | 查看答案 |
填空题 | 窗体上有一个组合框,其中已输入了若干个项目。程序运行时,单击其中一项,即可把该项与最上面的一项交换。如单击图1中的“重庆”,则与“北京”交换,得到图 2的结果。以下是可实现此功能的程序,请填空。 Private Sub Combo1_Click( ) Dim temp temp=Combo1.Text ______ =Combo1.List(0) Combo1.List(0)=temp End Sub |
查看答案 |
填空题 | 设窗体有上一个名称为HScrol1的水平滚动条,要求当滚动块移动位置后,能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差,向右移动为正数,向左移动为负数)。以下是可实现此功能的程序,请填空。 Dim ______ As Integer Private Sub From_Load( ) pos=HScrol1.Value End Sub Private Sub HScroll1_Change( ) Print ______ -pos pos=HScroll1.Value End Sub |
查看答案 |
填空题 | 设窗体上有一个名称为CD1的通用对话框、一个名称为Text1 的文本框和一个名称为Command1的命令按钮。程序执行时,单击Command1按钮,则显示打开文件对话框,操作者从中选择一个文本文件,并单击对话框中的“打开”按钮后,则可打开该文本文件,并读入一行文本,显示在Text1中。以下是实现此功能的事件过程,请填空。 Private Sub Command1_Click( ) CD1.Filtetr="文本文件|*.txt|Word文档|*.doc" CD1.FilterIndex=1∶CD1.ShowOpen If CD1.FileName<>“ “ Then Open ______ For Input As #1 Line Input #1,ch$ Close #1∶Text1.Text= ______ End If End Sub |
查看答案 |
填空题 | 下列程序执行时,可以从键盘输入一个正整数,然后把该数的每位数字按逆序输出。如输入7685,则输出5 8 6 7;输入1000,则输出0 0 0 1。请填空。 Private Sub Command1_Click( ) Dim x As Integer x=InputBox("请输入一个正整数") While x> ______ Print x Mod 10; x=x\10 Wend Print ______ End Sub |
查看答案 |
填空题 | 有如图所示的窗体。程序执行时先在Text1文本框中输入编号,当焦点试图离开Text1时,程序检查编号的合法性,若编号合法,则焦点可以离开Text1文本框;否则,显示相应错误信息,并自动选中错误的字符,且焦点不能离开Text1文本框,如图所示。 合法编号的组成是:前2个字符是大写英文字母,第3个字符是“_”,后面是数字字符(至少1个)。以下程序可实现此功能,请填空。 Private Sub Text1_LostFocus( ) Dim k%,n% n=Len(______ ) For k=1 To IIf(n>3,n,4) c=Mid(Text1.Text,k,1) Select Case k Case 1,2 If c<"A" Or c>"Z" Then MsgBox("第"& k &"个字符必须是大写字母!") SetPosition k∶Exit For End If Case 3 If c<>"_"Then MsgBox("第"& k &"个字符必须是字符” “_” “) SetPosition k∶Exit For End If Case Else If c<"0" Or c>"9" Then MsgBox("第"& k &"个字符必须是数字!") SetPosition k∶Exit For End If End Select Next k End Sub Private Sub SetPosition(pos As Integer) Text1.SelStart=Pos-1 Text1.SelLength= ______ Text1. ______ End Sub |
查看答案 |
填空题 | 假设用一个长度为50的数组(数组元素的下标从0到49)作为栈的存储空间,栈底指针bottom指向栈底元素,栈顶指针top指向栈顶元素,如果bottom=49,top=30数组下标),则栈中具有______个元素。 | 查看答案 |
填空题 | 软件测试可分为白盒测试和黑盒测试。基本路径测试属于______测试。 | 查看答案 |
填空题 | 符合结构化原则的三种基本控制结构是:选择结构、循环结构和______。 | 查看答案 |
填空题 | 数据库系统的核心是______。 | 查看答案 |
填空题 | 在E-R图中,图形包括矩形框、菱形框、椭圆框。其中表示实体联系的是______框。 | 查看答案 |
填空题 | 窗体如图所示,其中汽车是名称为Imagel的图像框,命令按钮的名称为Command1,计时器的名称为Timerl,直线的名称为Linel。程序运行时,单击命令按钮,则汽车每0.1秒向左移动100,车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序,以便实现上述功能。 1)Timerl的Interval属性的值应事先设置为______ 2)Private Sub Command1_Click() Timerl.Enabled=True End Sub Private Sub Timerl_Timer() If Imagel.Left>= ______ Then Imagel.Left= ______ -100 End If End Sub |
查看答案 |
填空题 | 设窗体上有一个名称为Combo1的组合框,并有以下程序: Private Sub Combol_KeyPress (KeyAscii As Integer) If ______ =13 Then ' 回车符的ASCII码是13 For k=0 To Combo1.ListCount-1 If Combo1.Text=Combo1.List(k) Then Combo1.Text = "" Exit For End If Next k If Combo1.Text <> "" Then Combo1.AddItem ______ End If End If End Sub 程序的功能是:在组合框的编辑区中输入文本后按回车键,则检查列表中有无与此文本相同的项目,若有,则把编辑区中的文本删除,否则把编辑区中文本添加到列表的尾部。请填空。 |
查看答案 |
填空题 | 在当前目录下有一个名为“myfile.txt”的文本文件,其中有若干行文本。下面程序的功能是读入此文件中的所有文本行,按行计算每行字符的ASCII码之和,并显示在窗体上。请填空。 Private Sub Command1_Click() Dim ch$, ascii As Integer Open "myfile.txt" For ______ As #1 While Not EOF(1) Line Input #1, ch ascii=toascii(______ ) Print ascii Wend Close #1 End Sub Private Function toascii (mystr$) As Integer n=0 For k=1 To ______ n=n+Asc(Mid(mystr,k,1)) Next k toascii=n End Function |
查看答案 |
填空题 | 本程序实现文本加密。先给定序列:al,a2,…,an,它们的取值范围是l~n,且互不相同。加密算法是:把原文本中第k个字符放到加密后文本的第ak个位置处。若原文本长度大于n,则只对前n个字符加密,后面的字符不变;若原文本长度小于n,则在后面补字符“*”使文本长度为n后再加密。 例如:若给定序列al,a2,…,a7分别为2,5,3,7,6,l,4 当文本为“PROGRAM”时,加密后的文本为“APOMRRG” 当文本为“PROGRAMMlNG”时,加密后的文本为“APOMRRGMING” 当文本为“THANK”时,加密后的文本为“*TA*HKN” 下面的过程code实现这一算法。其中参数数组a()中存放给定序列(个数与数组a的元素个数相等)al,a2,a3,…的值,要加密的文本放在参数变量 mystr 中。过程执行完毕,加密后的文本仍放在变量mystr中。请填空。 Option Base 1 Private Sub code (a () As Integer, mystr As String) Dim ch As String, cl As String n=UBound(a) -Len(mystr) If n>0 Then mystr=mystr & strings(n, "*") End If ch = mystr For k=______ To UBound(a) cl=Mid(mystr, k, 1) n= ______ Mid$(ch,n)=c1 Next k mystr=ch End Sub |
查看答案 |
填空题 | 一个队列的初始状态为空。现将元素a,b,c,d,e,f,5,4,3,2,1依次入队,然后再依次退队,则元素退队的顺序为______ 。 | 查看答案 |
填空题 | 设某循环队列的容量为50,如果头指针front=45(指向队头元素的前一位置),尾指针rear=10(指向队尾元素),则该循环队列中共有______ 个元素。 | 查看答案 |
填空题 | 设二叉树如下: 对该二叉树进行后序遍历的结果为______ 。 |
查看答案 |
填空题 | 软件是______、数据和文档的集合。 | 查看答案 |
填空题 | 有一个学生选课的关系,其中学生的关系模式为:学生(学号,姓名,班级,年龄),课程的关系模式为:课程(课号,课程名,学时),其中两个关系模式的键分别是学号和课号,则关系模式选课可定义为:选课(学号,______ ,成绩)。 | 查看答案 |
填空题 | 为了使复选框禁用(即呈现灰色),应把它的value属性设置为______ 。 | 查看答案 |
填空题 | 在窗体上画一个标签、一个计时器和一个命令按钮,其名称分别为labl1、timer1和command1,如图1所示。程序运行后,如果单击命令按钮,则标签开始闪烁,每秒钟“欢迎”二字显示、消失各一次,如图2所示。以下是实现上述功能的程序,请填空。 private sub form_load() label1.capti_dj="欢迎" timer1.enabled=false timer1.interval= ______ end sub private sub timer1_timer() label1.visible= ______ end sub private sub command1_click() ______ end sub |
查看答案 |
填空题 | 有如下程序: private sub form_click() n=10 i=0 do i=i+n n=n-2 loop while n>2 print i end sub 程序运行后,单击窗体,输出结果为______ 。 |
查看答案 |
填空题 | 在窗体上画一个名称为command1的命令按钮。然后编写如下程序: option base 1 private sub command1_click() dim a(10) as integer for i=1 to 10 a(i)=i next call swap (______ ) for i=1 to 10 print a(i); next end sub sub swap(b() as integer) n=ubound(b) for i=1 to n / 2 t=b(i) b(i)=b(n) b(n)=t ______ next end sub 上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……。请填空。 |
查看答案 |
填空题 | 在窗体上画一个文本框,其名称为text1,在属性窗口中把该文本框的multiline属性设置为true,然后编写如下的事件过程: private sub form_click() open "d:\test\smtext1.txt" for input as #1 do while not ______ line input #1, aspect$ whole$=whole$+aspect$+chr$(13)+chr$(10) loop text1.text=whole$ ______ open "d:\test\smtext2.txt" for output as #1 print #1, ______ close #1 end sub 运行程序,单击窗体,将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。 |
查看答案 |
填空题 | 一个栈的初始状态为空。首先将元素5,4,3,2,1依次入栈,然后退栈一次,再将元素A,B,C,D依次入栈,之后将所有元素全部退栈,则所有元素退栈(包括中间退栈的元素)的顺序为______ 。 | 查看答案 |
填空题 | 在长度为n的线性表中,寻找最大项至少需要比较______ 次。 | 查看答案 |
填空题 | 一棵二叉树有10个度为1的结点,7个度为2的结点,则该二叉树共有______ 个结点。 | 查看答案 |
填空题 | 仅由顺序、选择(分支)和重复(循环)结构构成的程序是______ 程序。 | 查看答案 |
填空题 | 数据库设计的四个阶段是:需求分析,概念设计,逻辑设计和______ 。 | 查看答案 |
填空题 | 窗体上有一个名称为Combol的组合框,其初始内容为空,有一名称为Commandl、标题为“添加项目”的命令按钮。程序运行,若单击命令按钮,会将给定数组中的项目添加到组合框中,如图。请填空。 Option Base 1 Private Sub Command1_Click() Dim city As Variant city = ______ ("北京", "天津", "上海", "武汉", "重庆", "西宁") For i = ______ To UBound(city) Combo1.AddItem ______ Next End Sub |
查看答案 |
填空题 | 窗体上有一个名称为Textl的文本框和一个名称为Commandl、标题为“计算”的命令按钮,如图所示。函数fun及命令按钮的单击事件过程如下,请填空。 Private Sub Command1_Click() Dim x As Integer x = Val(InputBox("输入数据")) Text1 = Str(fun(x) + fun(x) + fun(x)) End Sub Private Function fun(ByRef n As Integer) If n Mod 3 = 0 Then n = n + n Else n = n * n End If ______ = n End Function 当单击命令按钮,在输入对话框中输入2时,文本框中显示的是 ______ |
查看答案 |
填空题 | 窗体上有一个名称为Listl的列表框,一个名称为Picturel的图片框。Form_Load事件过程的作用是,把Datal.txt文件中的物品名称添加到列表框中。运行程序,当双击列表框中的物品名称时,可以把该物品对应的图片显示在图片框中,如图所示。以下是类型定义及程序,请填空。 Private Type Pic gName As String * 10 '物品名称 picFile As String * 20 '物品图片的图片文件名 End Type Dim p(4) As Pic, pRec As Pic Private Sub Form_Load() Open "Data1.txt" For Random As #1 ______ = Len(pRec) For i = 0 To 4 Get #1, i + 1, p(i) List1.AddItem p(i). gName Next i Close #1 End Sub Private Sub List1_DblClick() For i = 0 To 4 If RTrim(List1.List(i)) = RTrim(______) Then Picture1.Picture = LoadPicture(p(i). ______ ) Exit For End If Next End Sub |
查看答案 |
填空题 | 窗体上有一个名称为CDl的通用对话框。通过菜单编辑器建立如图l所示的菜单。程序运行时,如果单击“打开”菜单项,则执行打开文件的操作,当选定了文件(例如:G:\VB\2010-9\in.txt)并打开后,该文件的文件名会被添加到菜单中,如图2所示。各菜单项的名称和标题等定义如下表。 以下是单击“打开”菜单项的事件过程,请填空。 Dim mnuCounter As Integer Private Sub mnuOpen_Click() CD1.ShowOpen If CD1.FileName <> "" Then Open ______ For Input As #1 mnuCounter = mnuCounter + 1 Load fname(mnuCounter) fname(mnuCounter).Caption = CD1.FileName fname(mnuCounter). ______ = True Close #1 End If End Sub |
查看答案 |
填空题 | 有序线性表能进行二分查找的前提是该线性表必须是______存储的。 | 查看答案 |
填空题 | 一颗二叉树的中序遍历结果为DBEAFC,前序遍历结果为ABDECF,则后序遍历结果为______。 | 查看答案 |
填空题 | 对软件设计的最小单位(模块或程序单元)进行的测试通常称为______测试。 | 查看答案 |
填空题 | 实体完整性约束要求关系数据库中元组的______属性值不能为空。 | 查看答案 |
填空题 | 在关系A(S,SN,D)和关系B(D,CN,NM)中,A的主关键字是S,B的主关键字是D,则称 ______是关系A的外码。 | 查看答案 |
填空题 | 在窗体上有1个名称为Command1的命令按钮,并有如下事件过程和函数过程: Private Sub Command1_Click() Dim p As Integer p = m(1) + m(2) + m(3) Print p End Sub Private Function m(n As Integer) As Integer Static s As Integer For k = 1 To n s = s + 1 Next m = s End Function 运行程序,单击命令按钮Commandl后的输出结果为 ______ 。 |
查看答案 |
填空题 | 在窗体上画1个名称为Command1的命令按钮,然后编写如下程序: Private Sub Command1_Click() Dim m As Integer, x As Integer Dim flag As Boolean flag = False n = Val(InputBox("请输入任意1个正整数")) Do While Not flag a = 2 flag = ______ Do While flag And a <= Int(Sqr(n)) If n / a = n \ a Then flag = False Else ______ End If Loop If Not flag Then n = n + 1 Loop Print ______ End Sub 上述程序的功能是,当在键盘输入任意的1个正整数时,将输出不小于该整数的最小素数。 请填空完善程序。 |
查看答案 |
填空题 | 以下程序的功能是:先将随机产生的10个不同的整数放入数组a中,再将这10个数按升序方式输出。请填空。 Private Sub Form_Click() Dim a(10) As Integer, i As Integer Randomize i = 0 Do num = Int(Rnd * 90) + 10 For j = 1 To i ‘检查新产生的随机数是否与以前的相同,相同的无效 If num = a(j) Then Exit For End If Next j If j > i Then i = i + 1 a(i) = ______ End If Loop While i < 10 For i = 1 To 9 For j = ______ To 10 If a(i) > a(j) Then temp = a(i): a(i) = a(j): ______ Next j Next i For i = 1 To 10 Print a(i) Next i End Sub |
查看答案 |
填空题 | 窗体上已有名称分别为Dri、,e1、Dirl、Filel的驱动器列表框、目录列表框和文件列表框,且有1个名称为Textl的文本框。以下程序的功能是:将指定位置中扩展名为“*.txt” 的文件显示在Filel中,如果双击Filel中的某个文件,则在Textl中显示该文件的内容。请填空。 Private Sub Form_Load() File1.Pattern = ______ End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_DblClick() Dim s As String * 1 If Right(File1.Path, 1) = "\" Then f_name = File1.Path + File1.FileName Else f_name = File1.Path + "\" + File1.FileName End If Open f_name ______ As #1 Text1.Text = "" Do While ______ s = Input(1, #1) Text1.Text = Text1.Text + s Loop Close #1 End Sub |
查看答案 |
填空题 | ______ | 查看答案 |
填空题 | ______ | 查看答案 |