首页 - 网校 - 万题库 - 美好明天 - 直播 - 导航
您现在的位置: 考试吧 > 计算机等级考试 > 计算机二级考试 > VB > 模拟试题 > 正文

2018年3月全国计算机二级VB强化练习题及答案(4)

来源:考试吧 2018-03-03 15:53:08 要考试,上考试吧! 万题库
“2018年3月全国计算机二级VB强化练习题及答案(4)”供考生参考。更多计算机等级考试模拟试题等信息请访问考试吧计算机等级考试网。

  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

扫描/长按二维码帮助考试通关
2018年等考报考资讯
2018等考各科通关技巧
2018各科最新预测试卷
2018等考各科备考资料

微信搜索"考试吧"了解更多考试资讯、下载备考资料

  相关推荐:

  2018年全国计算机等级考试必做试题汇总(各科目)

  2018年全国计算机等级考试复习知识点汇总(各科目)

  2018计算机等级考试报名时间|各地报名入口|报名条件

  2018年全国计算机等级考试时间|教材目录(2018年版)

  2018全国计算机等级考试备考经验及应试技巧汇总

  报名方法|考试内容|考试大纲|2018计算机等级考试科目

  历年真题汇总|考试吧策划:2018年计算机等级考试报考指南

0
收藏该文章
0
收藏该文章
文章搜索
万题库小程序
万题库小程序
·章节视频 ·章节练习
·免费真题 ·模考试题
微信扫码,立即获取!
扫码免费使用
版权声明:如果计算机等级考试网所转载内容不慎侵犯了您的权益,请与我们联系800@exam8.com,我们将会及时处理。如转载本计算机等级考试网内容,请注明出处。
Copyright © 2004- 考试吧计算机等级考试网 出版物经营许可证新出发京批字第直170033号 
京ICP证060677 京ICP备05005269号 中国科学院研究生院权威支持(北京)
在线模拟试题
考证通关杀器
考试最新资讯
一次通关技巧