计算机二级VB考试题

计算机二级VB考试题1.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为"宋体"，第二个名称为option2用来设置文本框的字体为"黑体"，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。程序如下：(程序运行刚开始时，四个单选按钮都没有选中)PrivateSubCommand1_Click()Text1.FontName=Iif(Option1.Value,"宋体","黑体")Text1.FontSize=Iif(Option3.Value,8,12)EndSub当程序运行时，先单击单选按钮option2，然后单击命令按钮command1，则文本框text1的变化效果是(B)(单)A.字体设置为宋体B.字体设置为黑体C.字体大小设置为8号D.字体大小设置为12号2.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为"宋体"，第二个名称为option2用来设置文本框的字体为"黑体"，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的`字体大小为12号。程序如下：(程序运行刚开始时，四个单选按钮都没有选中)PrivateSubCommand1_Click()Text1.FontName=Iif(Option1.Value,"宋体","黑体")Text1.FontSize=Iif(Option3.Value,8,12)EndSub当程序运行时，先单击单选按钮option3，然后单击命令按钮command1，则文本框text1的变化效果是(C)(单)A.字体设置为宋体B.字体设置为黑体C.字体大小设置为8号D.字体大小设置为12号3.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为"宋体"，第二个名称为option2用来设置文本框的字体为"黑体"，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。程序如下：(程序运行刚开始时，四个单选按钮都没有选中)PrivateSubCommand1_Click()Text1.FontName=Iif(Option1.Value,"宋体","黑体")Text1.FontSize=Iif(Option3.Value,8,12)EndSub当程序运行时，先单击单选按钮option1，然后单击命令按钮command1，则文本框text1的变化效果是(A)(单)A.字体设置为宋体B.字体设置为黑体C.字体大小设置为8号D.字体大小设置为12号4.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为"宋体"，第二个名称为option2用来设置文本框的字体为"黑体"，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。程序如下：(程序运行刚开始时，四个单选按钮都没有选中)PrivateSubCommand1_Click()Text1.FontName=Iif(Option1.Value,"宋体","黑体")Text1.FontSize=Iif(Option3.Value,8,12)EndSub当程序运行时，先单击单选按钮option4，然后单击命令按钮command1，则文本框text1的变化效果是(D)(单)A.字体设置为宋体B.字体设置为黑体C.字体大小设置为8号D.字体大小设置为12号5.在窗体中建立了一个名称为lstBooks的列表框，一个名称为txtItem的文本框，四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按钮。如下程序：SubForm_Load()lstBooks.AddItem"计算机文化基础"lstBooks.AddItem"VB程序设计教程"lstBooks.AddItem"操作系统"EndSubSubcmdAdd_Click()lstBooks.AddItemtxtItemtxtItem=""EndSub对该程序说法不正确的是(D)(单)A.窗体启动时，在列表框中有三个列表项目，依次为：计算机文化基础、VB程序设计教程、操作系统B.单击cmdAdd命令按钮后，把文本框中的信息添加到列表框中C.在列表框中添加列表项目的方法为additem方法D.以上说法都不正确6.在窗体中建立了一个名称为LSTBOOKS的列表框，一个名称为txtItem的文本框，四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按钮。如下程序的功能是将修改后的项目送回列表框，替换原项目，实现修改：SubcmdModify_Ok_Click()LSTBOOKS.List【Lstbooks.lstindex】=txtItemtxtItem=""EndSub7.对以下程序说法不正确的是(C)(单)PrivateSubCombo1_LostFocus()flag=FalseFori=0ToCombo1.ListCount-1IfCombo1.List(i)=Combo1.TextThenflag=TrueExitForEndIfNextiIfNotflagThenCombo1.AddItemCombo1.TextEndIfEndSubA.当焦点离开组合框时组合框的LostFocus事件被触发B.添加到组合框的新项目不能永久保存，下次运行该程序中看不到上次保存的项目，利用该事件过程能够将输入的新内容添加到组合框中，下次运行该程序中能够看到上次保存的项目C.逻辑变量flag=true时，表示组合框的项目中有该输入新项目D.逻辑变量flag=false时，表示组合框的项目中有该输入新项目8.窗体中有两个检查框名称分别为check1和check2，一个命令按钮名称为command1，一个列表框名称为list1，两个单选按钮名称分别为option1和option2。如下程序：PrivateSubCommand1_Click()IfCheck1.Value=1ThenList1.AddItem"品牌：松下"List1.AddItem"数量：3台"EndIfIfCheck2.Value=1ThenIfOption1.Value=TrueThenList1.AddItem"操作系统：Windows2000"ElseList1.AddItem"操作系统：Windows98"EndIfEndIfEndSub当窗体启动后，先选中检查框check1，然后单击命令按钮command1，运行效果为(A)(单)A.列表框List1中的列表项目分别为：品牌：松下数量：3台B.列表框List1中的列表项目分别为：操作系统：Windows2000操作系统：Windows98C.没有任何显示D.以上都不正确*9.窗体中有两个检查框名称分别为check1和check2，一个命令按钮名称为command1，一个列表框名称为list1，两个单选按钮名称分别为option1和option2。如下程序：PrivateSubCommand1_Click()IfCheck1.Value=1ThenList1.AddItem"品牌：松下"List1.AddItem"数量：3台"EndIfIfCheck2.Value=1ThenIfOption1.Value=TrueThenList1.AddItem"操作系统：Windows2000"ElseList1.AddItem"操作系统：Windows98"EndIfEndIfEndSub当窗体启动后，先选中检查框check2(其中单选按钮option1被选中)，然后单击命令按钮command1，运行效果为(B)(单)A.列表框List1中的列表项目分别为：品牌：松下数量：3台B.列表框List1中的列表项目分别为：操作系统：Windows2000操作系统：Windows98C.列表框List1中的列表项目为：操作系统：Windows2000D.以上都不正确53430.窗体中有两个检查框名称分别为check1和check2，一个命令按钮名称为command1，一个列表框名称为list1，两个单选按钮名称分别为option1和option2。如下程序：PrivateSubCommand1_Click()IfCheck1.Value=1ThenList1.AddItem"品牌：松下"List1.AddItem"数量：3台"EndIfIfCheck2.Value=1ThenIfOption1.Value=TrueThenList1.AddItem"操作系统：Windows2000"ElseList1.AddItem"操作系统：Windows98"EndIfEndIfEndSub当窗体启动后，先选中检查框check2(其中单选按钮option2被选中)，然后单击命令按钮command1，运行效果为(B)(单)A.列表框List1中的列表项目分别为：品牌：松下数量：3台B.列表框List1中的列表项目为：操作系统：Windows98C.列表框List1中的列表项目为：操作系统：Windows200011.传值：形参得到的是实参的值，形参值的改变不会影响实参的值。在定义形参前加关键字Byval。√12.以下利用SUB关键字定义的子过程Rate，其调用格式不正确的是(B)(单)A.callRate(12,56)B.Rate(12,56)C.Rate12,56D.以上A和C正确13.如下程序运行后显示结果为(B)(单)PublicTempAsintegerSubForm_Load()DimTempAsIntegerTemp=10Form1.Temp=20PrintForm1.Temp;"和";TempEndSubA.10和20B.20和10C.10和10D.20和2014.以下对静态变量说法不正确的是(D)(单)A.定义格式为：Static变量名[AS类型]B.在子过程名/函数名前加Static，表示该过程/函数体内局部变量全部都是静态变量C.静态变量必须在过程体内定义D.静态变量可以在窗体的"通用声明部"定义15.过程在自身定义的内部调用自己本身的结构称为递归。√16.如下程序功能是求n的阶层：Functionfac(nAsInteger)AsIntegerIfn=1Thenfac=1Elsefac=n*fac(n-1)EndIfEndFunctionSubCommand1_Click()n=val(inputbox("请输入数值"))Print"fac(n)=";fac(n)EndSub以下说法不正确的是(D)(单)A.若fac函数中Ifn=1Thenfac=1没有，仅有语句：fac=n*fac(n-1)，程序运行将会出错B.若输入的n<=0，程序运行将会出错C.若n=4，则输出结果为：fac(n)=24D.以上说法都不正确17.利用递归求最大公约数的程序为：PublicFunctiongcd(mAsInteger,nAsInteger)AsIntegerIf(mModn)=0Thengcd=【n】Elsegcd=gcd(n,mModn)EndIfEndFunctionPrivateSubForm_Click()Printgcd(10,4)EndSub18.以下程序的作用是单击Check1检查框将使得Text1文本框的字体在"加粗"和"常规"之间进行切换。√PrivateSubCheck1_Click()Text1.FontBold=NotText