题库 题库
🏠 天天查询 > 题库 > VB

VB

填空题 某人编写如下函数来判断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		 查看答案
填空题 ______ 查看答案
填空题 ______ 查看答案
天天查询
Copyright © 2007-2024 苏ICP备17051061号-7
本站部分内容来自互联网，版权归原作者所有，如有侵权请联系我们。联系QQ：26051639