填空题 | 在面向对象方法中,类的实例称为 ______ 。 | 查看答案 |
填空题 | 诊断和改正程序中错误的工作通常称为 ______ 。 | 查看答案 |
填空题 | 在关系数据库中,把数据表示成二维表,每一个二维表称为 ______ 。 | 查看答案 |
填空题 | 问题处理方案的正确而完整的描述称为 ______ 。 | 查看答案 |
填空题 | 以下语句输出结果是 ______ 。 Print Int(12345.6789 * 100 + 0.5) / 100 |
查看答案 |
填空题 | 在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程: Private Sub Form_Click() Text1.Text = "VB程序设计" End Sub Private Sub Text1_Change() Picture1.Print "VB Programming" End Sub 程序运行后,单击窗体,则在文本框中显示的内容是 ______ ,而在图片框中显示的内容是 ______ 。 |
查看答案 |
填空题 | 阅读下面的程序: Private Sub Form_Click() Dim Check As Boolean, Counter As Integer Check = True Counter = 5 Do Do While Counter < 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do End If Loop Loop Until Check = False Print Counter End Sub 程序运行后,单击窗体,输出结果为 ______ 。 |
查看答案 |
填空题 | 设有如下程序: Private Sub Form_Click() Dim n As Integer, s As Integer n = 8 s = 0 Do s = s + n n = n - 1 Loop While n > 0 Print s End Sub 以上程序的功能是 ______ 。程序运行后,单击窗体,输出结果为 ______ 。 |
查看答案 |
填空题 | 设有如下程序: Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer, i As Integer arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43) Min = ______ For i = 2 To 8 If arr1(i) < Min Then ______ Next Print "最小值是:"; Min End Sub 以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中各元素的最小值。请填空。 |
查看答案 |
填空题 | 在名称为Form1的窗体上画一个文本框,其名称为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$ Close #1 Open "d:\test\smtext2.txt" For Output As #1 Print #1, ______ Close #1 End Sub 上述程序的功能是,把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。 |
查看答案 |
填空题 | 数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段,其中数据独立性最高的阶段是 ______ 。 | 查看答案 |
填空题 | 算法复杂度主要包括时间复杂度和 ______ 复杂度。 | 查看答案 |
填空题 | 在进行模块测试时,要为每个被测试的模块另外设计两类模块:驱动模块和承接模块(桩模块)。其中 ______ 的作用是将测试数据传送给被测试的模块,并显示被测试模块所产生的结果。 | 查看答案 |
填空题 | 一棵二叉树第六层(根结点为第一层)的结点数最多为 ______ 个。 | 查看答案 |
填空题 | 数据结构分为逻辑结构和存储结构,循环队列属于 ______ 结构。 | 查看答案 |
填空题 | 设有以下函数过程: Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum = 0 For k = m To 1 Step -2 sum = sum + k Next k fun = sum End Function 若在程序中用语句 s = fun(10) 调用此函数,则s的值为 ______ 。 |
查看答案 |
填空题 | 在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在Text1中输入的是abDfdb,则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command1_Click( ) Dim str As String, s As String, c As String str = UCase(Text1) s = "" c = "Z" While c >= "A" If InStr(str, c) = 0 Then s = ______ End If c = Chr$(Asc(c) ______ ) Wend If s <> "" Then Text1 = s End If End Sub |
查看答案 |
填空题 | 在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用公式 计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值,单击Command1按钮即可求出选法的个数,并显示在Text3文本框中(见下图)。请填空。 Private Sub Command1_Click( ) Dim r As Integer, n As Integer n = Text1 r = Text2 Text3 = fun(n) / fun(______ ) / fun(r) End Sub Function fun(n As Integer) as long Dim t As Long ______ For k = 1 To n t = t * k Next fun = t End Function |
查看答案 |
填空题 | 以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分),如图所示。请填空。 Private Sub Command1_Click( ) Dim k As Integer Dim sum As Single, max As Single, min As Single sum = Text1(0) max = Text1(0) min = ______ For k = ______ To 6 If max < Text1(k) Then max = Text1(k) End If If min > Text1(k) Then min = Text1(k) End If sum = sum + Text1(k) Next k Text2 = (______ ) / 5 |
查看答案 |
填空题 | 如图所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配项;若未找到,则在Text2中显示“查无此人”。请填空。 Private Sub Command1_Click() Dim k As Integer, n As Integer, found As Boolean found = False n = Len(______ ) k = 0 While k < List1.ListCount And Not found If Text1 = Left$(List1.List(k), n) Then Text2 = ______ found = True End If k = k + 1 Wend If Not found Then Text2 = "查无此人" End If End Sub |
查看答案 |
填空题 | 对长度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为______。 | 查看答案 |
填空题 | 在面向对象方法中,______描述的是具有相似属性与操作的一组对象。 | 查看答案 |
填空题 | 在关系模型中,把数据看成是二维表,每一个二维表称为一个______。 | 查看答案 |
填空题 | 程序测试分为静态分析和动态测试。其中______是指不执行程序,而只是对程序文本进行检查,通过阅读和讨论,分析和发现程序中的错误。 | 查看答案 |
填空题 | 数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时,其逻辑结构可以不变,因此,基于逻辑结构的应用程序不必修改,称为______。 | 查看答案 |
填空题 | 下列语句的输出结果是______。 Print Format(Int(12345.6789*100+0.5)/100,"0000,0.00") |
查看答案 |
填空题 | 在窗体上画1个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim arr(1 To 100)As Integer For i=1 To 100 arr(i)=Int(Rnd*1000) Next i Max=arr(1) Min=arr(1) For i=1 To 100 If______Then Max=arr(i) End If If______Then Min=arr(i) End If Next i Print"Max=";Max,"Min=";Min End Sub 程序运行后,单击命令按钮,将产生100个1000以内的随机整数,放入数组arr中,然后查找并输出这100个数中的最大值Max和最小值Min,请填空。 |
查看答案 |
填空题 | 在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,然后编写如下程序: Function Fun(x As Integer,ByVal y As Integer)As Integer x=x+y If x<0 Then Fun=x Else Fun=y End If End Function Private Sub Command1_Click() Dim a As Integer,b As Integer a=-10:b=5 Text1.Text=Fun(a,b) Text2.Text=Fun(a,b) End Sub 程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是______和______。 |
查看答案 |
填空题 | 在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编 写如下代码: Dim SaveAll As String Private Sub Command1_Click() Text1.Text=Left(UCase(SaveAll),4) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是______。 |
查看答案 |
填空题 | 在窗体上画1个命令按钮和1个通用对话框,其名称分别为Command1和CommonDialog1,然后编写如下事件过程: Private Sub Command1_Click() CommonDialog1. ______="打开文件" CommonDialog1.Filter="All Files(*.*)|*.*" CommonDialog1.InitDir="C:\" CommonDialog1.ShowOpen End Sub 该程序的功能是,程序运行后,单击命令按钮,将显示“打开”文件对话框,其标题是“打开文件”,在“文件类型”栏内显示“AIl Files(*.*)”,并显示C盘根目录下 的所有文件,请填空。 |
查看答案 |
填空题 | 在窗体上画1个文本框,名称为Text1,然后编写如下程序: Private Sub Form_Load() Open"d:\temp\dat.txt"For Output As#1 Text1.Text="" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) lf______=13 Then If UCase(Text1.Text)= ______Then Close 1 End Else Write#1,______ Text1.Text="" End If End If End Sub 以上程序的功能是,在D盘temp目录下建立1个名为dat.txt的文件,在文本框中输入字符,每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容;如果输入“END”,则结束程序。请填空。 |
查看答案 |
填空题 | 下列软件系统结构图 的宽度为______。 |
查看答案 |
填空题 | ______的任务是诊断和改正程序中的错误。 | 查看答案 |
填空题 | 一个关系表的行称为______。 | 查看答案 |
填空题 | 按“先进后出”原则组织数据的数据结构是______。 | 查看答案 |
填空题 | 数据结构分为线性结构和非线性结构,带链的队列属于______。 | 查看答案 |
填空题 | 描述 "X 是小于 100 的非负整数 " 的 Visual Basic 表达式是______。 | 查看答案 |
填空题 | 在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后, Command1 为禁用(灰色),此时如果在文本框中输入字符,则命令按钮 Command1 变为可用。请填空。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1_ ______ () Command1.Enabled=True End Sub |
查看答案 |
填空题 | 在窗体上画一个名称为 "Command1" 的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() DIm a As String a ="123456789" For i=1 To 5 Print Space(6-i);Mid $ (a, ______ ,2*i-1) Next i End Sub 程序运行后,单击命令按钮,窗体上的输出结果是 5 456 34567 2345678 123456789 请填空。 |
查看答案 |
填空题 | 以下程序的功能是:将一维组 A 中的 100 个元素分别赋给二维数组 B 的每个元素并打印出来,要求把 A ( 1 )到 A ( 10 )依次赋给 B ( 1 , 1 )到 B ( 1 , 10 ),把 A ( 11 )到 A ( 20 )依次赋给 B ( 2 , 1 )到 B ( 2 , 10 ),……,把 A ( 91 )到 A ( 100 )依次赋给 B ( 10 , 1 )到 B ( 10 , 10 )。请填空。 Option Base 1 Private Sub Form_Click() Dim i As Integer,j As Integer Dim A(1 To 100) As Integer Dim B(1 To 10,1 To 10) As Integer For i=1 To 100 a(i)=Int(Rnd * 100) Next i For i=1 To ______ For j=1 To ______ b(i,j)= ______ Print B(i,j); Next j Next i End Sub |
查看答案 |
填空题 | 在窗体上画一个名称为 Combo1 的组合框,然后画两个名称分别为 Label1 、 Label2 ,标题分别为 " 城市名称 " 和空白的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在 Label2 中给出提示 " 已成功添加新输入页。 " ,如图所示。如果输入的项目已存在,则在 Label2 中给出提示 " 输入项已在组合框中。 " 。请填空。 Private Sub Combol_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then For i=0 To Combo1.ListCount-1 If Combo1.Text= ______ Then Label2.Capti_dj=" 输入项已在组合框中。 " Exit Sub End If Next i Label2.Capti_dj=" 已成功添加新输入项。 " Combo1.______ Combo1.Text End If End Sub |
查看答案 |
填空题 | 在窗体上画一个命令按钮和一个文本框,其名称分别为 Command1 和 Text1 ,然后编写如下事件过程: Private Sub Command1_Click() Dim inData As String Text1.Text=" " Open "d:\Myfile.txt" for ______ As #1 Do While ______ Input # 1,inData Text1.Text=Text1.Text+inData Loop Close #1 End Sub 程序的功能是,打开 D 盘根目录下的文本文件 myfile.txt, 读取它的全部内容并显示在文本框中。请填空 |
查看答案 |
填空题 | 在深度为7的满二叉树中,度为2的结点个数为______。 | 查看答案 |
填空题 | 软件测试分为白箱(盒)测试和黑箱(盒)测试,等价类划分法属于______ 测试。 | 查看答案 |
填空题 | 在数据库系统中,实现各种数据管理功能的核心软件称为______。 | 查看答案 |
填空题 | 软件生命周期可分为多个阶段,一般分为定义阶段、开发阶段和维护阶段。编码和测试属于______阶段。 | 查看答案 |
填空题 | 在结构化分析使用的数据流图(DFD)中,利用______对其中的图形元素进行确切解释。 | 查看答案 |
填空题 | 1+ + + +…….n 最大的n。请填空 Private Sub Command1__Click() Dim s ,m,n AS Integer m=Val(InputBox(“请输入一个大于100的整数”)) n=______ s=0 Do While s N=n+1 S=s+n*n Loop Print "满足不等式的最大n是" ______ End Sub |
查看答案 |
填空题 | 下面程序的功能是把文件file11.txt中重复字符去掉后(即若有多个字符相同,则只保留1个)写入文件file2.txt。请填空。 Private Sub Command1__Click() Dim inchar AS String,temp AS String,outchar AS String Outchar=” ” Open=”file1.txt” For Input AS #1 Open=”file2.txt” For Output AS ______ n=LOF(______ ) inchar=Input$(n,1) For k=1 To n temp=Mid(inchar,k,1) If InStr(outchar,temp)= ______ Then outchar=outchar & temp End If Next k print #2, ______ close #2 close #1 End Sub |
查看答案 |
填空题 | 在窗体上先画1个名为Text1的文本框和平个名为Label1的标签,再画1个名为OP1的有4个单选按钮数组,其Index属性按季度顺序为 0∽3(见图1)。在文件sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时,鼠标单击1个单选按钮,则Text1中显示相应季度的销售总额,并把相应的文字显示在标签上。图2是单击“第3季度”单选按钮产生的结果。请填空。 Dim sales(12) As Long Private Sub Form__Load() open “sales.txt” For Input AS #1 For k=1 To 12 Input #1,sales(k) Next k Close #1 End Sub Private Sub ______ (Index, AS Integer) Dim sum AS Long ,k AS Ingeger,month AS Ingeger sum=0 m_dj=Index* ______ For k=1 To 3 m_dj=month+1 sum=sum+sales(month) Next k Label1.Capti_dj=Opl(Index). ______& “销售总额:” Text1=sum End Sub |
查看答案 |