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

VB

单选题 在软件开发中，需求分析阶段可以使用的工具是（    ）。 查看答案
单选题 在面向对象方法中，不属于“对象”基本特点的是（    ）。 查看答案
单选题 一间宿舍可住多个学生，则实体宿舍和学生之间的联系是（    ）。 查看答案
单选题 在数据管理技术发展的三个阶段中，数据共享最好的是（    ）。 查看答案
单选题 有三个关系 R、S和 T 如下：

  
由关系 R 和S通过运算得到关系 T，则所使用的运算为（    ）。		 查看答案
单选题 在设计窗体时双击窗体的任何地方，可以打开的窗口是（    ）。 查看答案
单选题 若变量 a 未事先定义而直接使用（例如：a=0），则变量 a 的类型是（    ）。 查看答案
单选题 为把圆周率的近似值 3.14159存放在变量 pi 中，应该把变量 pi 定义为（    ）。 查看答案
单选题 表达式 2*3^2+4*2/2+3^2 的值是（    ）。 查看答案
单选题 以下不能输出“Program”的语句是（    ）。 查看答案
单选题 窗体上有一个名称为 Frame1 的框架（如图），若要把框架上显示的“Frame1”改为
汉字“框架”，下面正确的语句是（    ）。
  		 查看答案
单选题 以下叙述中错误的是（    ）。 查看答案
单选题 设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表
项内容的是（    ）。		 查看答案
单选题 设a=4，b=5，c=6，执行语句 Print a<b And b<c 后，窗体上显示的是（    ）。 查看答案
单选题 执行下列语句
strInput=InputBox ("请输入字符串"，"字符串对话框"，"字符串")
将显示输入对话框。此时如果直接单击“确定”按钮，则变量 strInput 的内容是（    ）。		 查看答案
单选题 窗体上有 Command1、Command2 两个命令按钮。现编写以下程序：
Option Base 0
Dim a( ) As Integer, m As Integer
Private Sub Command1_Click( )
  m=InputBox("请输入一个正整数")
  ReDim a(m)
End Sub
Private Sub Command2_Click( )
  m=InputBox("请输入一个正整数")
  ReDim a(m)
End Sub
运行程序时，单击 Command1 后输入整数 10，再单击 Command2 后输入整数 5，则
数组 a 中元素的个数是（    ）。		 查看答案
单选题 在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Labcl1，然后编
写如下事件过程：
Private Sub Command1_Click( )
  Counter=0
  For i=1 To 4
    For j=6 To 1 Step -2
      Counter=Counter+1
    Next j
  Next i
  Label1.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是（    ）。		 查看答案
单选题 在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序：
Private Sub Command1_Click( )
  Dim M(10) As Integer
  For k=1 To 10
  M(k)=12-k
  Next k
  x=8
  Print M(2+M(x))
End Sub
运行程序，单击命令按钮，在窗体上显示的是（    ）。		 查看答案
单选题 以下关于过程及过程参数的描述中，错误的是（    ）。 查看答案
单选题 在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Label1、Label2
的标签，然后编写如下程序代码：
Private X As Integer
Private Sub Command1_Click( )
  X=5: Y=3
  Call proc(X, Y)
  Label1.Caption=X
  Label2.Caption=Y
End Sub
Private Sub proc(a As Integer, ByVal b As Integer)
  X=a*a
  Y=b+b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是（    ）。		 查看答案
单选题 在窗体上有两个名称分别为 Text1、Text2 的文本框，一个名称为 Command1 的命令
按钮。运行后的窗体外观如图所示。
   
设有如下的类型和变量声明：
Private Type Person
  name As String*8
  major As String*20
End Type
Dim p As Person
设文本框中的数据已正确地赋值给 Person 类型的变量 p，当单击“保存”按钮时，能
够正确地把变量中的数据写入随机文件 Test2.dat 中的程序段是（    ）。		 查看答案
单选题 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编
写如下事件过程：
Private Sub Command1_Click( )
  Dim i As Integer, n As Integer
  For i=0 To 50
    i=i+3
    n=n+1
    If i>10 Then Exit For
  Next
  Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是（    ）。		 查看答案
单选题 假定有以下循环结构
Do Until  条件表达式
循环体
Loop
则以下正确的描述是（    ）。		 查看答案
单选题 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
  Dim I, Num
  Randomize
  Do
    For I=1 To 1000
      Num=Int(Rnd*100)
      Print Num;
      Select Case Num
        Case 12
          Exit For
        Case 58
          Exit Do
        Case 65, 68, 92
          End
      End Select
    Next I
  Loop
End Sub
上述事件过程执行后，下列描述中正确的是（    ）。		 查看答案
单选题 在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
  Dim a
  a=Array(1, 2, 3, 4)
  j=1
  For i=4 To 1 Step -1
    s=s+a(i)*j
    j=j*10
  Next i
  Print s
End Sub
运行上面的程序，其输出结果是（    ）。		 查看答案
单选题 设有如下通用过程：
Public Function Fun(xStr As String)As String
  Dim tStr As String, strL As Integer
  tStr=""
  strL=Len(xStr)
  i=1
  Do While i<=strL/2
    tStr=Tstr & Mid(xStr, i, 1)& Mid(xStr, strL-i+1, 1)
    i=i+1
  Loop
  Fun=tStr
End Function
在窗体上画一个名称为 Command1的命令按钮。然后编写如下的事件过程：
Private Sub Command1_Click( )
  Dim S1 As String
  S1="abcdef"
  Print UCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，输出结果是（    ）。		 查看答案
单选题 某人为计算 n!(0<n<=12)编写了下面的函数过程：
Private Function fun(n As Integer) As Long
  Dim p As Long
  p=1
  For k=n-1 To 2 Step-1
    p=p*k
  Next k
  fun=p
End Function
在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有
3 种是正确的，错误的方案是（    ）。		 查看答案
单选题 假定有以下函数过程：
Function Fun(S As String)As String
Dim s1 As String
For i=1 To Len(S)
s1=LCase(Mid(S, i, 1))+s1
  Next i
Fun=s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim Str1 As String, Str2 As String
Str1=InputBox("请输入一个字符串")
Str2=Fun(Str1)
Print Srt2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确
定”按钮后在窗体上的输出结果为（    ）。		 查看答案
单选题 为计算 a 的值，某人编写了函数 power如下：
Private Function power (a As Integer, n As Integer) As Long
  Dim p As Long
  p=a
  For k=1 To n
    p=p*a
  Next k
  power=p
End Function
在调试时发现是错误的，例如 Print power(5,4)的输出应该是 625，但实际输出是 3125。
程序需要修改。下面的修改方案中有 3 个是正确的，错误的一个是（    ）。		 查看答案
单选题 某人编写了下面的程序
Private Sub Command1_Click( )
  Dim a As Integer, b As Integer
  a=InputBox("请输入整数")
  b=InputBox("请输入整数")
  pro a
  pro b
  Call pro(a+b)
End Sub
Private Sub pro(n As Integer)
  While (n>0)
    Print n Mod 10;
    n=n\10
  Wend
  Print
End Sub
此程序功能是：输入 2个正整数，反序输出这 2 个数的每一位数字，再反序输出这 2
个数之和的每一位数字。例如：若输入 123 和234，则应该输出：
3 2 1
4 3 2
7 5 3
但调试时发现只输出了前 2 行（即2 个数的反序），而未输出第 3 行（即2 个数之和
的反序），程序需要修改。下面的修改方案中正确的是（    ）。		 查看答案
填空题 对下列二叉树进行中序遍历的结果 ______ 。
   		 查看答案
填空题 按照软件测试的一般步骤，集成测试应在______ 测试之后进行。 查看答案
填空题 软件工程三要素包括方法、工具和过程，其中， ______ 支持软件开发的各个环节的
控制和管理。		 查看答案
填空题 数据库设计包括概念设计、______ 和物理设计。 查看答案
填空题 在二维表中，元组的 ______ 不能再分成更小的数据项。 查看答案
填空题 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 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”，则不写入文件，直接结束程序。请填空。		 查看答案
单选题 下列数据结构中，属于非线性结构的是 查看答案
单选题 下列数据结果中，能够按照“先进后出”原则存取数据的是 查看答案
单选题 对于循环队列，下列叙述中正确的是 查看答案
单选题 算法的空间复杂度是指 查看答案
单选题 软件设计中划分模块的一个准则是 查看答案
单选题 下列选项中不属于结构化程序设计原则的是 查看答案
单选题 软件详细设计产生的图如下：
  
该图是		 查看答案
单选题 数据库管理系统是 查看答案
天天查询
Copyright © 2007-2024 苏ICP备17051061号-7
本站部分内容来自互联网，版权归原作者所有，如有侵权请联系我们。联系QQ：26051639