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

VB

填空题 在面向对象方法中，类的实例称为 ______ 。 查看答案
填空题 诊断和改正程序中错误的工作通常称为 ______ 。 查看答案
填空题 在关系数据库中，把数据表示成二维表，每一个二维表称为  ______ 。 查看答案
填空题 问题处理方案的正确而完整的描述称为 ______ 。 查看答案
填空题 以下语句输出结果是 ______ 。
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
Print
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		 查看答案
天天查询
Copyright © 2007-2024 苏ICP备17051061号-7
本站部分内容来自互联网，版权归原作者所有，如有侵权请联系我们。联系QQ：26051639