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

VB

填空题 测试用例包括输入值集和______值集。 查看答案
填空题 深度为5的满二叉树有______个叶子结点。 查看答案
填空题 设某循环队列的容量为50，头指针Front=5 (指向队头元素的前一位置)，尾指针rear=29（指向队尾元素），则该循环队列中共有______个元素。 查看答案
填空题 在关系数据库中，用来表示实体之间联系的是______。 查看答案
填空题 在数据库管理系统提供的数据定义语言、数据操纵语言和数据控制语言中，______负责数据的模式定义与数据的物理存取构建。 查看答案
填空题 设有以下的循环：要求程序运行时执行3次循环体，请填空。
x=1
DO
  x=x+2
  Print x
Loop Until ______ 		 查看答案
填空题 窗体上命令按钮Command1的事件过程如下：
Private Sub Command1_Click()
  Dim total As Integer
  total = s(1)+s(2)
  Print  total
End Sub
Private Function s(m As Integer)  As Integer
  Static x As Integer
  For i =1 To  m
    x=x+1
  Next i
  S=x
End Function
运行程序，第3次单击命令按钮Command1时，输出结果为 ______ 		 查看答案
填空题 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base l
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= ______
  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)的值互换，请填空。		 查看答案
填空题 在窗体上面一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
  CommonDialog1.Filter=“All Files(*.*)|*.*|Text Files”_
    &”(*.txt)|*.txt|Batch Files(*.bat)|*.bat”
  CommonDialog1 Filterlndex=1
  Commondialog1.ShowOpen
  MsgBox CommonDialog1.File Name
End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是______；如果在对话框中选择d盘temp目录下的tel.txt文件，然后单击“确定”按钮，则在MsgBox信息框中显示的提示信息是______ 。		 查看答案
填空题 以下程序的功能是：把程序文件smtext1.txt的内容全部读入内存，并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
  Dim inData As String
  Text1.Text=“”
  Open“smtext1.txt”  ______As  ______
  Do While ______
    Input#2,  inData
    Text1.Text=Text1.Text& inData
  Loop
  Close #2
End Sub		 查看答案
填空题 对下列二叉树进行中序遍历的结果 ______ 。
   		 查看答案
填空题 按照软件测试的一般步骤，集成测试应在______ 测试之后进行。 查看答案
填空题 软件工程三要素包括方法、工具和过程，其中， ______ 支持软件开发的各个环节的
控制和管理。		 查看答案
填空题 数据库设计包括概念设计、______ 和物理设计。 查看答案
填空题 在二维表中，元组的 ______ 不能再分成更小的数据项。 查看答案
填空题 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click( )
  S$=InputBox("请输入一个字符串")
  Text1.Text=S$
End Sub
Private Sub Text1_Change( )
  Label1.Caption=UCase(Mid(Text1.Text, 7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串
“VisualBasic”，则在标签中显示的内容是______ 。		 查看答案
填空题 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：
Private Sub Command1_Click( )
  a$="National Computer Rank Examination"
  n=Len(a$)
  s=0
  For i=1 To n
    b$=Mid(a$, i, 1)
    If b$="n" Then
      s=s+1
    End If
  Next i
  Print s
End Sub
程序运行后，单击命令按钮，输出结果是______ 。		 查看答案
填空题 为了在运行时把 d:\pic 文件夹下的图形文件 a.jpg 装入图片框 Picture1，所使用的语句
为______ 。		 查看答案
填空题 设有如下程序：
Private Sub Form_Click( )
  Cls
  a$="ABCDFG"
  For i=1 To 6
    Print Tab(12-i);______ 
  Next i
End Sub
程序运行后，单击窗体，结果如图所示，请填空。
    		 查看答案
填空题 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
  Dim Arr
  Arr=Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72)
  pos=0
  neg=0
  For k=1 To 10
    If Arr(k)>0 Then
     ______ 
    Else
     ______ 
    End If
  Next k
  Print pos, neg
End Sub
以上程序的功能是，计算并输出数组 Arr 中 10个数的正数之和 pos 与负数之和 neg，
请填空。		 查看答案
填空题 在窗体上画一个名为 Command1 的命令按钮，然后编写如下程序：
Private Sub Command1_Click( )
  Dim i As Integer
  Sum=0
  n=InputBox("Enter a number")
  n=Val(n)
  For i=1 To n
    Sum=______ 
  Next i
  Print Sum
End Sub
Function fun(t As Integer)As Long
  p=1
  For i=1 To t
    p=p*i
  Next i
 ______ 
End Function
以上程序的功能是，计算 1!+2!+3!+…+n!，其中n 从键盘输入，请填空。		 查看答案
填空题 在窗体上画一个文本框，名称为 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)
  If KeyAscii=13 Then
     If UCase(Text1.Text)=______ Then
       Close #1
       End
     Else
       Write #1,______ 
       Text1.Text=""
     End If
  End If
End Sub
以上程序的功能是：在D盘 temp 文件夹下建立一个名为 dat.txt 的文件，在文本框中
输入字符，每次按回车键都把当前文本框中的内容写入文件 dat.txt，并清除文本框中
的内容：如果输入“END”，则不写入文件，直接结束程序。请填空。		 查看答案
填空题 某二叉树有5个度为2的结点以及3个度为1的结点为，则该二叉树共有 【1】______个结点。 查看答案
填空题 程序流程图中的菱形框表示的是 【2】______。 查看答案
填空题 软件开发过程主要分为需求分析、设计、编码与测试四个阶段，其中 【3】______阶段产生“软件需求规格说明书”。 查看答案
填空题 在数据库技术中，实体集之间的联系可以是一对一或一对多或多对多的，那么“学生”和“可选课程”的联系为 【4】______。 查看答案
填空题 人员基本信息一般包括：身份证号，姓名，性别，年龄等。其中可以作为主关键字的是 【5】______。 查看答案
填空题 工程中有Form1、Form2两个窗体。Form1窗体外观如图1所示。程序运行时，在Form1中名称为Text1的文本框中输入一个数值（圆的半径），然后单击命令按钮“计算并显示”（其名称为Command1），则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据！”请填空。
  Private Sub Command1_Click()
   If Text1.Text=”” Then
      MsgBox “请输入半径！”
   Else If Not IsNumeric( 【6】______  ) Then
      MsgBox “请输入数值数据！”
   Else
      r=val( 【7】______  )
      Form2.show
      【8】______  .Print “圆的面积是”&3.14*r*r
   End If
End Sub		 查看答案
填空题 设有整形变量s，取值范围为0~100，表示学生的成绩。有如下程序段：
If s>=90 Then
   Level=”A”
Else If s>=75 Then
   Level=”B”
Else If s>=60 Then
   Level=”B”
Else
   Level=”D”
End If
下面用SelectCase结构改写上述程序，使两段程序所实现的功能完全相同。请填空。
Select Case s
Case  【9】______>=90
Level=”A”
Case 75 To 89
Level=”B”
Case 60 To 74
Level=”B”
Case  【10】______
Level=”D”
【11】______ 		查看答案
填空题 窗体上有名称为Command1的命令按钮。事件过程及2个函数过程如下：
Private Sub Command1_Click()
   Dim x As Integer,y As Integer,z
   x=3
   y=5
   z=fy(y)
   print fx(fx(x)),y
End Sub
Function fx(ByBal a As Integer)
   a=a+a
   fx=a
End Function
Function fy(ByRef a As Integer)
   a=a+a
   fy=a
End Function
运行程序，并单击命令按钮，则窗体上显示的2个值依次是 【12】______和 【13】______。		 查看答案
填空题 窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c:\test.txt，并将文件中的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请填空。
Private Sub Command1_Click()
   Text1=””
   Number=FreeFile
      Open “c:\test.txt”For Input As Number
      Do While Not Eof( 【14】______)
         Line Input #Number,s
         Text1.Text=Text1.Text+ 【15】______+Chr(13)+Chr(10)
      Loop
   Close Number
End Sub		 查看答案
填空题 在树结构中，树根结点没有______。 查看答案
填空题 Jackson结构化程序设计方法是英国的M.Jackson提出的，它是一种面向______ 的设计方法。 查看答案
填空题 面向对象的模型中，最基本的概念是对象和______ 。 查看答案
填空题 软件设计模块化的目的是______ 。 查看答案
填空题 数据模型按不同应用层次分成3种类型，它们是概念数据模型、 ______ 和物理数据模型。 查看答案
填空题 在Visual Basic的立即窗口内输入以下语句
X＝65
?Chr$(X)
在窗口中显示的结果是 ______ 。		 查看答案
填空题 下列程序是判断一个整数(>=3) 是否为素数，请补充完整。
Dim n As Integer
n=InputBox("请输入一个整数(>=3) ")
k=Int(Sqr(n) )
i=2
swit=0
While i <=k And swit=0
If n Mod i=0 Then
______
Else
______
End If
Wend
If swit=0 Then
Print n; "是一个素数。"
Else
Print n; "不是一个素数。"
End If		 查看答案
填空题 下面程序是用来打印九九乘法表的，请补充完整。
Dim i As Integer, j As Integer, Str1$
Str1=""
For i=1 To 9
For j=1 To 9
If ______ Then
Str1=Str1 + Str$(j) + "×" + Str$(i) + "=" + Str$(Val(i j) )
Else
Str1=Str1 & Chr(13)
______
End If
Next j
Next i
Print Str1		 查看答案
填空题 在窗体上有一个命令按钮，然后编写如下程序：
Function Trans(ByVal num As Long) As Long
Dim k As Long
k=1
Do While num
k=k * (num Mod 10)
num=num ＼ 10
Loop
Trans=k
Print Trans
End Function
Private Sub Command1_Click()
Dim m As Long
Dim s As Long
m=InputBox("请输入一个数")
s=Trans(m)
End Sub
程序运行时，单击命令按钮，在输入对话框中输入"789"，输出结果为 ______ ,在输入对话框中输入"987"输出 ______ ,在输入对话框中输入"879"，输出结果为______ 。		 查看答案
填空题 下面程序的功能是产生10个小于100(不含100) 的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
Sub PR()
Randomize
Dim a(10)
For j=1 To 10
a(i) =Int( ______ )
If ______ Then k=k + 1
Print a(j)
Next j
Print
Print k / 10
End Sub		 查看答案
填空题 数据的逻辑结构有线性结构和______ 两大类。 查看答案
填空题 顺序存储方法是把逻辑上相邻的结点存储在物理位置 ______ 的存储单元中。 查看答案
填空题 一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件的 ______ 。 查看答案
填空题 软件工程研究的内容主要包括： ______ 技术和软件工程管理。 查看答案
填空题 关系操作的特点是 ______ 操作。 查看答案
填空题 函数Str$(256.36) 的值是 ______。 查看答案
填空题 执行下面的程序段，x的值为 ______ 。
Private Sub Command1_Click()
For i=1 To 9
a=a + i
Next i
x=Val(i)
MsgBox x
End Sub		 查看答案
填空题 以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。请补充完整下列程序段。
Dim x, amax, amin As Single
x=InputBox("Enter a score")
amax=x
amin=x
Do While ______
If x > amax Then
amax=x
End If
If ______ Then
amin=x
End If
x=InputBox("enter a score")
Loop
Print "max="; amax, "min="; amin		 查看答案
填空题 下列程序的输出结果为 ______ 。
num=2
While num <=3
num=num + 1
Print num
Wend		 查看答案
天天查询
Copyright © 2007-2024 苏ICP备17051061号-7
本站部分内容来自互联网，版权归原作者所有，如有侵权请联系我们。联系QQ：26051639