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

VB

单选题 在E-R图中，用来表示实体联系的图形是 查看答案
单选题 有三个关系R，S和T如下：

  
其中关系T由关系R和S通过某种操作得到，该操作为		 查看答案
单选题 以下变量名中合法的是 查看答案
单选题 把数学表达式 图1 表示为正确的VB表达式应该是 查看答案
单选题 下面有关标准模块的叙述中，错误的是 查看答案
单选题 下面控件中，没有Caption属性的是 查看答案
单选题 用来设置文字字体是否斜体的属性是 查看答案
单选题 若看到程序中有以下事件过程，则可以肯定的是，当程序运行时
Private Sub Click_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As Single)
Print “VB Program”
End Sub		 查看答案
单选题 可以产生30-50（含30和50）之间的随机整数的表达式是 查看答案
单选题 在程序运行时，下面的叙述中正确的是 查看答案
单选题 窗体上有名称为Command1的命令按钮和名称为Text1的文本框
Private Sub Command1_Click()
Text1.Text=”程序设计”
Text1.SetFocus
End Sub
Private Sub Text1_GotFocus()
Text1.Text=”等级考试”
End Sub
运行以上程序，单击命令按钮后		 查看答案
单选题 设窗体上有名称为Option1的单选按钮，且程序中有语句：
If Options.Value=True Then
下面语句中与该语句不等价的是		 查看答案
单选题 设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述正确的是 查看答案
单选题 有如下过程代码：
Sub var_dim()
Static numa As Integer
Dim numb As Integer
numa=numa+2
numb=numb+1
print numa;numb
End Sub
连续3次调用var_dim过程，第3次调用时的输出是		 查看答案
单选题 在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
For i=5 to 1 step -0.8
Print Int(i);
Next i
End Sub
运行程序，单击命令按钮，窗体上显示的内容为		 查看答案
单选题 在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m Or n=4-m Then
a(m,n)=0
End If
Print a(m,n);
Next n
Print
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为		 查看答案
单选题 设有以下函数过程
Function fun(a As Integer,b As Integer)
Dim c As Integer
If a<b Then
c=a:a=b:b=c
End If
c=0
Do
c=c+a
Loop Until c Mod b=0
fun=c
End function
若调用函数fun时的实际参数都是自然数，则函数返回的是		 查看答案
单选题 窗体上有1个名称为Text1的文本框；1个名为Timer1的计时器控件，其Interval属性值为5000，Enable属性值是True。Timer1的事件过程如下：
Private Sub Timer1_Timer()
Static flag As Integer
If flag=0 Then flag=1
flag=-flag
If flag=1 Then
Text1.ForeColor=&HFF&  ‘&HFF&为红色
Else
Text1.ForeColor=&HC000& ‘&HC000&为绿色
End If
End Sub
以下叙述正确的是		 查看答案
单选题 为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：
Private Sub Command1_Click()
Dim a%,s%,k%
s=1
a=2
For k=2 To 10
a=a*2
s=s+a
Next k
Text1.Text=s
End Sub
执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是		 查看答案
单选题 标准模块中有如下程序代码：
Public x As Integer,y As Integer
Sub var_pub()
x=10:y=20
End Sub
在窗体上有1个命令按钮，并有如下事件过程：
Private Sub Command1_Click()
Dim x As Integer
Call var_pub
x=x+100
y=y+100
Print x;y
End Sub
运行程序后单击命令按钮，窗体上显示的是		 查看答案
单选题 设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：
Function fun(a As Integer,b As Integer)
While a>b
a=a-b
Wend
fun=a
End Function
在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是		 查看答案
单选题 下列关于通用对话框CommonDialog1的叙述中，错误的是 查看答案
单选题 在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出（X）”菜单项的访问键，可以将该菜单项的标题设置为 查看答案
单选题 在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序：
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii As integer)
If chr(KeyAscii)<>””Then ss=ss+chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Dim m As String,i As Integer
For i=Len(ss) To 1 step -1
m=m+Mid(ss,i,1)
Next
Text1.Text=Ucase(m)
End Sub
程序运行后，在文本框中输入“Number100”，并单击命令按钮，则文本框中显示的是		 查看答案
单选题 窗体的左右两端各有1条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上（见图）；另有1个名称为Timer1的计时器控件，其Enable属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。
  
为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序：
Private Sub Timer1_Timer()
For k=Line1.X1 To Line2.X1 Step 100
If Shape1.Left+Shape1.Width<Line2.X1 Then
Shape1.Left=Shape1.Left+100
End If
Next k
End Sub
运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是		 查看答案
单选题 下列有关文件的叙述中，正确的是 查看答案
单选题 窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮（名称为Command1），则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：
 
Private Sub Command1_Click()
Dim n%,k%
n=Len(Text1.Text)
For k=0 To List1.ListCount-1
If Left(List1.List(k),n)=Text1.Text Then
List1.RemoveItem k
End If
Next k
End Sub
在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1.ListCount-1改为		 查看答案
填空题 某二叉树有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		 查看答案
单选题 在深度为5的满二叉树中，叶子结点的个数为 查看答案
单选题 若某二叉树的前序遍历访问顺序是abdgcefh，中序遍历访问顺序是dgbaechf，则其后序遍历的结点访问顺序是 查看答案
单选题 一些重要的程序语言(如C语言和Pascal语言) 允许过程的递归调用。而实现递归调用中的存储分配通常用 查看答案
单选题 软件工程的理论和技术性研究的内容主要包括软件开发技术和 查看答案
单选题 开发软件时对提高开发人员工作效率至关重要的是 查看答案
单选题 在软件测试设计中，软件测试的主要目的是 查看答案
单选题 数据处理的最小单位是 查看答案
单选题 索引属于 查看答案
单选题 下述关于数据库系统的叙述中正确的是 查看答案
单选题 数据库系统的核心是 查看答案
单选题 下列说法错误的是 查看答案
单选题 下列四组控件属性中，属性值的类型不相同的一组是 查看答案
单选题 下列方法中不能退出Visual Basic的是 查看答案
单选题 任何控件都有的属性是 查看答案
天天查询
Copyright © 2007-2024 苏ICP备17051061号-7
本站部分内容来自互联网，版权归原作者所有，如有侵权请联系我们。联系QQ：26051639