考试首页 | 考试用书 | 培训课程 | 模拟考场 | 考试论坛  
全国  |             |          |          |          |          |         
  当前位置:计算机等级 > 二级考试 > Visual Basic > VB模拟试题 > 文章内容
  

计算机二级VB考试题及答案(12)

中华IT学院   【 】  [ 2017年6月22日 ]

  1.在窗体上建立一个名称为Command1的命令按钮,一个名称为Text1的文本框,以及四个单选按钮:第一个名称为option1用来设置文本框的字体为"宋体",

  第二个名称为option2用来设置文本框的字体为"黑体",第三个名称为option3用来设置文本框的字体大小为8号,第四个名称为option4用来设置文本框的字体大小为12号。

  程序如下:(程序运行刚开始时,四个单选按钮都没有选中)

  Private Sub Command1_Click( )

  Text1.FontName = Iif(Option1.Value, "宋体", "黑体")

  Text1.FontSize = Iif(Option3.Value, 8, 12)

  End Sub

  当程序运行时,先单击单选按钮option2,然后单击命令按钮command1,则文本框text1的变化效果是(B) (单)

  A.字体设置为宋体

  B.字体设置为黑体

  C.字体大小设置为8号

  D.字体大小设置为12号

  2.在窗体上建立一个名称为Command1的命令按钮,一个名称为Text1的文本框,以及四个单选按钮:第一个名称为option1用来设置文本框的字体为"宋体",

  第二个名称为option2用来设置文本框的字体为"黑体",第三个名称为option3用来设置文本框的字体大小为8号,第四个名称为option4用来设置文本框的字体大小为12号。

  程序如下:(程序运行刚开始时,四个单选按钮都没有选中)

  Private Sub Command1_Click( )

  Text1.FontName = Iif(Option1.Value, "宋体", "黑体")

  Text1.FontSize = Iif(Option3.Value, 8, 12)

  End Sub

  当程序运行时,先单击单选按钮option3,然后单击命令按钮command1,则文本框text1的变化效果是(C) (单)

  A.字体设置为宋体

  B.字体设置为黑体

  C.字体大小设置为8号

  D.字体大小设置为12号

  3.在窗体上建立一个名称为Command1的命令按钮,一个名称为Text1的文本框,以及四个单选按钮:第一个名称为option1用来设置文本框的字体为"宋体",

  第二个名称为option2用来设置文本框的字体为"黑体",第三个名称为option3用来设置文本框的字体大小为8号,第四个名称为option4用来设置文本框的字体大小为12号。

  程序如下:(程序运行刚开始时,四个单选按钮都没有选中)

  Private Sub Command1_Click( )

  Text1.FontName = Iif(Option1.Value, "宋体", "黑体")

  Text1.FontSize = Iif(Option3.Value, 8, 12)

  End Sub

  当程序运行时,先单击单选按钮option1,然后单击命令按钮command1,则文本框text1的变化效果是(A) (单)

  A.字体设置为宋体

  B.字体设置为黑体

  C.字体大小设置为8号

  D.字体大小设置为12号

  4.在窗体上建立一个名称为Command1的命令按钮,一个名称为Text1的文本框,以及四个单选按钮:第一个名称为option1用来设置文本框的字体为"宋体",

  第二个名称为option2用来设置文本框的字体为"黑体",第三个名称为option3用来设置文本框的字体大小为8号,第四个名称为option4用来设置文本框的字体大小为12号。

  程序如下:(程序运行刚开始时,四个单选按钮都没有选中)

  Private Sub Command1_Click( )

  Text1.FontName = Iif(Option1.Value, "宋体", "黑体")

  Text1.FontSize = Iif(Option3.Value, 8, 12)

  End Sub

  当程序运行时,先单击单选按钮option4,然后单击命令按钮command1,则文本框text1的变化效果是(D) (单)

  A.字体设置为宋体

  B.字体设置为黑体

  C.字体大小设置为8号

  D.字体大小设置为12号

  5.在窗体中建立了一个名称为lstBooks的列表框,一个名称为txtItem的文本框,四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按钮。

  如下程序:

  Sub Form_Load( )

  lstBooks.AddItem "计算机文化基础"

  lstBooks.AddItem "VB程序设计教程"

  lstBooks.AddItem "操作系统"

  End Sub

  Sub cmdAdd_Click( )

  lstBooks.AddItem txtItem

  txtItem = ""

  End Sub

  对该程序说法不正确的是(D) (单)

  A.窗体启动时,在列表框中有三个列表项目,依次为:计算机文化基础、VB程序设计教程、操作系统

  B.单击cmdAdd命令按钮后,把文本框中的信息添加到列表框中

  C.在列表框中添加列表项目的方法为additem方法

  D.以上说法都不正确

  6.在窗体中建立了一个名称为LSTBOOKS的列表框,一个名称为txtItem的文本框,四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按钮。如下程序的功能是将修改后的项目送回列表框,替换原项目,实现修改:

  Sub cmdModify_Ok_Click( )

  LSTBOOKS.List【Lstbooks.lstindex】 = txtItem

  txtItem = ""

  End Sub

  7.对以下程序说法不正确的是(C) (单)

  Private Sub Combo1_LostFocus( )

  flag = False

  For i = 0 To Combo1.ListCount - 1

  If Combo1.List(i) = Combo1.Text Then

  flag = True

  Exit For

  End If

  Next i

  If Not flag Then

  Combo1.AddItem Combo1.Text

  End If

  End Sub

  A.当焦点离开组合框时组合框的LostFocus事件被触发

  B.添加到组合框的新项目不能永久保存,下次运行该程序中看不到上次保存的项目,利用该事件过程能够将输入的新内容添加到组合框中,下次运行该程序中能够看到上次保存的项目

  C.逻辑变量flag=true时,表示组合框的项目中有该输入新项目

  D.逻辑变量flag=false时,表示组合框的项目中有该输入新项目

  8.窗体中有两个检查框名称分别为check1和check2,一个命令按钮名称为command1,一个列表框名称为list1,两个单选按钮名称分别为option1和option2。如下程序:

  Private Sub Command1_Click( )

  If Check1.Value = 1 Then

  List1.AddItem "品牌:松下"

  List1.AddItem "数量:3台"

  End If

  If Check2.Value = 1 Then

  If Option1.Value = True Then

  List1.AddItem "操作系统:Windows 2000"

  Else

  List1.AddItem "操作系统:Windows 98"

  End If

  End If

  End Sub

  当窗体启动后,先选中检查框check1,然后单击命令按钮command1,运行效果为(A) (单)

  A.列表框List1中的列表项目分别为:品牌:松下数量:3台

  B.列表框List1中的列表项目分别为:操作系统:Windows 2000 操作系统:Windows 98

  C.没有任何显示

  D.以上都不正确

  *9.窗体中有两个检查框名称分别为check1和check2,一个命令按钮名称为command1,一个列表框名称为list1,两个单选按钮名称分别为option1和option2。如下程序:

  Private Sub Command1_Click( )

  If Check1.Value = 1 Then

  List1.AddItem "品牌:松下"

  List1.AddItem "数量:3台"

  End If

  If Check2.Value = 1 Then

  If Option1.Value = True Then

  List1.AddItem "操作系统:Windows 2000"

  Else

  List1.AddItem "操作系统:Windows 98"

  End If

  End If

  End Sub

  当窗体启动后,先选中检查框check2(其中单选按钮option1被选中),然后单击命令按钮command1,运行效果为(B)(单)

  A.列表框List1中的列表项目分别为:品牌:松下数量:3台

  B.列表框List1中的列表项目分别为:操作系统:Windows 2000 操作系统:Windows 98

  C.列表框List1中的列表项目为:操作系统:Windows 2000

  D.以上都不正确

  53430.窗体中有两个检查框名称分别为check1和check2,一个命令按钮名称为command1,一个列表框名称为list1,两个单选按钮名称分别为option1和option2。如下程序:

  Private Sub Command1_Click( )

  If Check1.Value = 1 Then

  List1.AddItem "品牌:松下"

  List1.AddItem "数量:3台"

  End If

  If Check2.Value = 1 Then

  If Option1.Value = True Then

  List1.AddItem "操作系统:Windows 2000"

  Else

  List1.AddItem "操作系统:Windows 98"

  End If

  End If

  End Sub

  当窗体启动后,先选中检查框check2(其中单选按钮option2被选中),然后单击命令按钮command1,运行效果为(B)(单)

  A.列表框List1中的列表项目分别为:品牌:松下数量:3台

  B.列表框List1中的列表项目为:操作系统:Windows 98

  C.列表框List1中的列表项目为:操作系统:Windows 2000

  11 .传值:形参得到的是实参的值,形参值的改变不会影响实参的值。在定义形参前加关键字Byval。√

  12.以下利用SUB关键字定义的子过程Rate,其调用格式不正确的是(B) (单)

  A.call Rate(12,56)

  B.Rate(12,56)

  C.Rate 12,56

  D.以上A和C正确

  13.如下程序运行后显示结果为(B) (单)

  Public Temp As integer

  Sub Form_Load( )

  Dim Temp As Integer

  Temp=10

  Form1.Temp=20

  Print Form1.Temp;"和";Temp

  End Sub

  A.10和20

  B.20和10

  C.10和10

  D.20和20

  14.以下对静态变量说法不正确的是(D) (单)

  A.定义格式为:Static 变量名 [AS 类型]

  B.在子过程名/函数名前加Static,表示该过程/函数体内局部变量全部都是静态变量

  C.静态变量必须在过程体内定义

  D.静态变量可以在窗体的"通用声明部"定义

  15 .过程在自身定义的内部调用自己本身的结构称为递归。√

  16.如下程序功能是求n的阶层:

  Function fac(n As Integer) As Integer

  If n = 1 Then

  fac = 1

  Else

  fac = n * fac(n - 1)

  End If

  End Function

  Sub Command1_Click( )

  n=val(inputbox("请输入数值"))

  Print "fac(n)=";fac(n)

  End Sub

  以下说法不正确的是(D) (单)

  A.若fac函数中If n = 1 Then fac = 1没有,仅有语句:fac = n * fac(n - 1) ,程序运行将会出错

  B.若输入的n<=0 ,程序运行将会出错

  C.若n=4,则输出结果为:fac(n)=24

  D.以上说法都不正确

  17.利用递归求最大公约数的程序为:

  Public Function gcd(m As Integer, n As Integer) As Integer

  If (m Mod n) = 0 Then

  gcd =【n】

  Else

  gcd = gcd(n, m Mod n)

  End If

  End Function

  Private Sub Form_Click( )

  Print gcd(10, 4)

  End Sub

  18 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√

  Private Sub Check1_Click( )

  Text1.FontBold = Not Text1.FontBold

  End Sub

  *19 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√

  Private Sub Check1_Click( )

  Text1.FontItalic = Not Text1.FontItalic

  End Sub

  *20 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√

  Private Sub Check1_Click( )

  Text1.FontUnderline = Not Text1.FontUnderline

  End Sub

分享到:
本文纠错】【告诉好友】【打印此文】【返回顶部
将考试网添加到收藏夹 | 每次上网自动访问考试网 | 复制本页地址,传给QQ/MSN上的好友 | 申请链接 | 意见留言 TOP
关于本站  网站声明  广告服务  联系方式  站内导航  考试论坛
Copyright © 2006-2017 中华考试网(Examw.com) All Rights Reserved  营业执照