VB试题3
1.信息系统的开发与管理是一项系统工程，主要包括___软件工程技术、数据库设计技术、程序设计方法和应用领域的业务知识_________。
2.下列不属于结构化分析的常用工具的是_____PAD图_______。数据字 典判定树数据流图
3. VB是用于开发___Windows___环境下的应用程序的工具。不是（DOS和Windows    ；UNIX；DOS      ）
4. 以下叙述中错误的是___在同一窗体的菜单项中，不允许出现标题相同的菜单项_____。正确（程序运行过程中，可以重新设置菜单的Visible属性；在菜单的标题栏中，"&"所引导的字母指明了访问该菜单项的访问键；弹出式菜单也在菜单编辑器中定义）
5. 单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的___框架控件（Frame）或图片框（PictureBox）____中安排适当的单选按钮，即可实现。不是（组合框（ComboBox）或图像控件(Image)；组合框（ComboBox）或图片框（PictureBox）；框架控件（Frame）或图像控件(Image)）
6. SQL语句集数据查询、数据操纵、数据定义和数据控制功能于一体，语句INSERT、DELETE和UPDATE实现的功能为_____数据操纵___。不是（数据控制；数据定义；数据查询）
7. 以下能够触发文本框Change事件的操作是___改变文本框的内容_____。不是（文本框获得焦点；文本框失去焦点；设置文本框的焦点）
8. 下列各组中，两个函数功能完全相反的一组是____Str(x)与Val(x)__。不是（Sin(x)与Cos(x)  ；Timer()与Time()；Len(x)与Trim(x)    ）
9. 以下叙述中错误的是___在同一窗体的菜单项中，不允许出现标题相同的菜单项___。不是（程序运行过程中，可以重新设置菜单的Visible属性；在菜单的标题栏中，"&"所引导的字母指明了访问该菜单项的访问键；弹出式菜单也在菜单编辑器中定义）
10. 执行语句Dim a(3,4) As Single创建一个二维数组，数组元素的个数有__20__个。
11. 在代码编辑器中,如果一条语句太长,无法在一行内写下(不包括注释),要折行书写,可以在行末使用续行字符___一个空格加一个下划字符（ _）___,表示下一行是当前行的继续。不
是（一个空格加一个连字符（ －）；直接回车  ；一个下划字符（_））
12. 为了建立一个随机文件，其中每一条记录由多个不同数据类型的数据项组成，应使用____记录类型_______。不是（数组；字符串类型；变体类型）
13. 若在应用程序的标准模块.窗体模块和过程Sub1的说明部分，分别用"Public G As Integer"、"Private G As Integer"和"Dim G As Integer"语句说明了三个同名变量G。如果在过程Sub1中使用赋值语句"G=3596"，则该语句是给在____过程Sub1 _____说明部分定义的变量G赋值。不是（窗体模块；标准模块；标准模块.窗体模块和过程Sub1）
14. 表达式Mid("SHANGHAL")的值是___有错___。不是（SHA；SHANGH；ANGH）
15. 下面关于随机文件的描述不正确的是____一个文件中记录号不必唯一_______。不是（每条记录的长度必须相同；可通过编程对文件中的某条记录方便地修改；文件的组织结构比顺序文件复杂）
16. 在数据库系统设计中，数据流程图作用是____使用直观的图形符号，描述系统业务过程、信息流和数据要求___。不是（使用直观的图形符号，描述系统业务过程、控制流；使
用文字叙述，描述系统业务过程、信息流；使用文字叙述，描述系统业务过程、信息流和数据要求）
17. 如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是___如果工程中含有Sub Main过程，则程序一定首先执行该过程_____。正确（用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体；不能把标准模块设置为启动模块；任何时刻最多只有一个窗体是活动窗体）
18. 软件测试是软件开发过程中的一个重要环节。软件产品在交付前必须经历三种测试，它们是___模块测试、集成测试和验收测试__。不是（逻辑测试、物理测试和验收测试；过程测试、功能测试和数据测试；模块测试、集成测试和功能测试）
19. Option Explicit语句不可以放在___任何事件过程中___。可以（类模块的声明段中；标准模块的声明段中；窗体模块的声明段中）
20. 程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是___Load  _。    可以( Mousedown; Click; Mouseup)
21. 在窗体上有一个文本框控件，名称为Txttime，一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：
Private Sub Timer1_ _____（）
  Txttime.Text=Time
End Sub
在下划线上应填入的内容是 ____Timer____。
22. 名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是_Private Sub sort(A() As Integer)__。不是（Private Sub sort(A(10) As Integer)）
23. 下面关于关系数据模型的描述错误的是___关系数据模型与关系数据模式是两个相同的概念____正确（关系的操作结果也是二维表；关系数据模型中，实体集、实体集之间的联系均用二维表表示；关系数据模型的存取路径对用户透明）
24. 设有一个命令按钮，若要实现按回车键等同按此键，应设置其___Default属性设为Tru
e______ 。不是（Cancel属性设为False）
25. 在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，在文本框中输入以下字符串:
Microsoft Visual Basic Programming
然后编写如下事件过程:
Private Sub Command1_Click()
    Open "D:\Temp\Outf.Txt" For Output As #1
    For I = 1 To Len(Text1.Text)
        C = Mid(Text1.Text, I, 1)
        If C >= "A" And C <= "Z" Then
          Print #1, Lcase(C);
        End If
    Next I
Close  程序运行后,单击命令按钮后,文件Outf.Txt中的内容是____mvbp___
24. 输入任一正整数N，求最大的K，使1*1+2*2+……+K*K<N成立。比如：输入5000，在窗体上输出1*1+2*2+……+K*K<5000的最大K值为24。
Private Sub Form_Click()
  Dim k As Integer, n As Integer
  Dim sum As Integer
  n = InputBox("输入正整数：")
  If n <= 0 Or Not IsNumeric(n) Then
      MsgBox "必须输入正整数"
      Exit Sub
  End If
  k = 1
  ___sum=1___
  Do
    k = k + 1
    sum = ___sum+k*k______
  Loop Until sum > n
  Print "1*1+2*2+……+K*K<"; n; "的最大K值为"; k-1
End Sub
25. 编程输出所有满足下列条件的三位正整数，它除以11所得的商等于各位数字的平方和。
Option Explicit
Private Sub Command1_Click()
  Dim n As Integer, r As Integer, s As Integer
  Dim p As Integer, m As Integer
  For n = 100 To 999
    p = n \ 11
    m = n
    ______________     
    Do
      r = m Mod 10
      s = s + r * r
      ____________ 
    Loop Until m = 0
    If __________  Then Print n;
  Next n
End Sub
26. 以下程序段首先按降序输入10个数到数组Y的前10个元素中，又输入一个x插入到数组Y中，要求插入x后Y中的数据仍按降序排列。
Dim Y(1 To 11)
For  i=1 To  10
  Y(i)=Val(InpuBox("请输入:"))
Next i
x=Val(InpuBox("请输入x:"))
For i=10  To 1  Step -1
  If  ________  Then 
    Exit  For
  End If
  Y(i+1)=Y(i)
Next  i
  ________ =x
Text1.Text = ""
For  i=1 To 11
  Text1.Text= Text1.Text &  Str(Y(i))  &  "  "  （实验书上69页）
27. textbox控件边框设置在窗体上画一个名称为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(ByVal a As Integer, ByVal b As Integer)

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。