2015-10二级VB真题(1)

合集下载

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

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

计算机二级VB考试题及答案为了使广大考生在备战计算机等级考试时,更快的掌握相应知识点,下面是搜索的计算机二级VB考试题及答案,供参考练习,预祝考生们考出自己理想的成绩!1.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:Private Sub Command1_Click( )n = Val(Text1.Text)If n2 = n/2 Thenf = f1(n)Elsef = f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x*xf1=x+xEnd FunctionPublic Function f2(ByVal x)x=x*xf2=x+x+xEnd Function程序运行后,在文本框中输入3,然后单击命令按钮,窗体上显示的是(D)(单)A.72 36B.108 36C.72 6D.27 32.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )c = "1234"For i = 1 To 4c1 = Trim(Str( ))Print c1Next iEnd Sub程序运行后,单击命令按钮,要求在窗体上显示如下内容 121231234则在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Private Sub Command1_Click( )n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j >Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是(C)(单)A.输出n以内的奇数B.输出n以内的偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1_Click( )Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序运行后,单击命令按钮,在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后,单击命令按钮,在文本框中显示的值是(D)(单)A.15B.14C.13D.126.Visual Basic应用程序中标准模块文件的扩展名是【BAS 或.BAS】(注意不要写点)。

计算机等级考试二级VB笔试模拟试卷1(含答案)

计算机等级考试二级VB笔试模拟试卷1(含答案)

计算机等级考试二级VB笔试试卷(含参考答案)一、选择题((1)—(20)每小题2分,(21)—(30)每小题3分,共70分)(1) 设窗体上有一个文本框,名称为text1,程序运行后,要求该文本框不能接受键盘输入,但能输出信息,以下属性设置正确的是:A)text1.maxlength=0 B)text1.enabled=flaseC)text1.visible=flase D)text1.width=0(2) 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是A) ="VisualBasic窗体"B) Form1.Title="VisualBasic窗体"C) Form1.Caption="VisualBasic窗体"D) Form1.Text="VisualBasic窗体”(3) 在窗体上画一个名称为Text1的文本框,然后画一个名称为HScroll1的滚动条,其Min 和Max属性分别为0和100。

程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图所示:以下能实现上述操作的程序段是A) Private Sub HScroll_Change()Text1.Text=HScroll1.ValueEnd SubB) Private Sub HScroll_Click()Text1.Text=HScroll1.ValueEnd SubC) Private Sub HScroll_Change()Text1.Text=HScroll.CaptionD) Private Sub HScroll_Click()Text1.Text=HScroll.CaptionEnd Sub(4) 设菜单中有一个菜单项为"Open"。

若要为该菜单命令设计访问键,即按下Alt及字母O 时,能够执行"Open"命令,则在菜单编辑器中设置“Open"命令的方式是A) 把Caption属性设置为&OpenB) 把Caption属性设置为O&penC) 把Name属性设置为&OpenD) 把Name属性设置为O&pen(5) 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x=InputBox("Input")Select Case xCase 1,3Print "分支 1"Case Is >4Print "分支 2"Case ElsePrint "Else 分支 "End SelectEnd Sub程序运行后,如果在输入对话框中输入2,则窗体上显示的是A)分支1 B)分支2 C) Else分支 D) 程序出错(6) 以下关于MsgBox的叙述中,错误的是A) MsgBox函数返回一个整数B) 通过MsgBox函数可以设置信息框中图标和按钮的类型C) MsgBox语句没有返回值D) MsgBox函数的第一个参数是一个整数,该参数只能确定对话框中显示的按钮数量(7)在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是A)Timer1.InterVal=0.5 B) Timer1.Interval=5C) Timer.Interval=50 D) Timer1.Interval=500(8) 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Static x As IntegerClsFor i=1 To 2y=y+xx=x+2NextPrint x,yEnd Sub程序运行后,连续三次单击Command1按钮后,窗体上显示的是A) 4 2 B) 12 18 C) 12 30 D) 4 6(9) 以下关于多重窗体程序的叙述中,错误的是A)用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体B)在多重窗体程序中,各窗体的菜单是彼此独立的C)在多重窗体程序中,可以根据需要指定启动窗体D)对于多重窗体程序中,而且单独保存每个窗体(10)以下关于文件的叙述中,错误的是A)顺序文件中的记录一个接一个地顺序存放B)随机文件中记录的长度是随机的C)执行打开文件的命令后,自动生成一个文件指针D)LOF函数返回给文件分配的字节数(11) 以下叙述中错误的是A)事件过程是响应特定事件的一段程序B)不同的对象可以具有相同名称的方法C)对象的方法是执行指定操作的过程D)对象事件的名称可以由编程者指定(12) 以下合法的Visual Basic标识符是A) ForLoop B) Const C) 9abc D) a#x(13) 当一个复选框被选中时,它的Value属性的值是A) 3 B) 2 C) 1 D) 0(14) 表达式 5 Mod 3+3\5*2的值是A) 0 B) 2 C)4 D) 6(15) 设x=4,y=8,z=7,以下表达式的值是x<y And (Not y>z) Or z<xA) 1 B) -1 C) True D) False(16) 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后,单击命令按钮,在窗体上显示的内容是A) VVV B) Vis C) sic D) 11(17) 设有如下程序段:x=2For i=1 To 10 Step 2Next运行以上程序后,x的值是A) 26 B) 27 C) 38 D) 57(18) 以下叙述中错误的是A) 在KeyPress事件过程中不能识别键盘的按下与释放B) 在KeyPress事件过程中不能识别回车键C) 在KeyDown和KeyUp事件过程中,将键盘输入的"A"和"a"视作相同的字母D) 在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符资料来源:东方教育网全国计算机等级考试频道 (19) 执行如下两条语句,窗体上显示的是a=9.8596Print Format(a,"$00,00.00")A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.86(20)在窗体上画一个名称为CommandDialog1的通用对话框,一个名称为Command1的命令按钮。

计算机二级《VB》考试卷含答案

计算机二级《VB》考试卷含答案

计算机二级《VB》考试卷含答案2015年计算机二级《VB》考试卷(含答案)一、选择题1下列说法有错误的是A.默认情况下,属性Visible的值为FalseB.如果设置控件的Visible属性为False,则运行时控件会隐藏C.Visible的值可设为True或者FalseD.设置Visible属性同设置Enabled属性的功能是相同的,都是使控件处于失效状态参考答案:D2下列程序的执行结果为PrivateSubCommand1_Click()DimFirStrAsStringFirSt="abcdef"PrintPat(FirStr.EndSubPrivateFunctionPat(xStrAsString.AsStringDimtempStrAsString,strLenAsIntegertempStr=""strLen=Len(xStr.i=1DoWhilei<=Len(xStr.-3tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1)i=i+1LoopPat=tempStrEndFunctionA.abcdefB.afbecdC.fedcbaD.defabc参考答案:B3下列叙述中,不属于软件需求规格说明书的作用的是()A.便于用户、开发人员进行理解和交流B.反映出用户问题的结构,可以作为软件开发工作的基础和依据C.作为确认测试和验收的依据D.便于开发人员进行需求分析参考答案:D4在VisualFoxPro中,用于建立或修改过程文件的命令为()A.MODIFY<文件名>B.MODIFYFILE<文件名>C.MODIFYPROCEDURE<文件名>D.以上B、C都正确参考答案:B5执行命令.STORE″3.1416″TOTEST.?TYPE(″TEST″)其结果为()A.DB.LC.CD.N参考答案:C6数据结构作为计算机的一门学科,主要研究数据的逻辑结构、对各种数据结构进行的运算,以及()A.数据的存储结构B.计算方法C.数据映像D.逻辑存储参考答案:A7下列有关数据库的描述,正确的是A.数据处理是将信息转化为数据的过程B.数据的物理独立性是指当数据的逻辑结构改变时,数据的存储结构不变C.关系中的每一列称为元组,一个元组就是一个字段D.如果一个关系中的属性或属性组并非该关系的关键字,但它是另一个关系的关键字,则称其为本关系的外关键字参考答案:D8一个VisualFoxPro过程化程序,从功能上可将其分为()A.程序说明部分、数据处理部分、控制返回部分B.环境保存与设置部分、功能实现部分、环境恢复部分C.程序说明部分、数据处理部分、环境恢复部分D.数据处理部分、控制返回部分、功能实现部分参考答案:A9单击命令按钮时,下列程序的执行结果为PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=32CallProc(x,y.Printx;yEndSubPublicSubProc(nAsInteger,ByValmAsInteger.n=nMod10m=mMod10EndSubA.1232B.232C.23D.123参考答案:B10决定微调控件最大值的属性是()A.KeyboardHighValueB.ValueC.KeyboardLowValueD.Interval 参考答案:A11在“报表设计器”中,可以使用控件是()A.标签、文本框和列表框B.标签、域控件和列表框C.标签、域控件和线条D.布局和数据源参考答案:C12下列程序段执行结果为x=5y=-6IfNotx>0Thenx=y-3Elsey=x+3Printx-y;y-xA.-33B.5-9C.3-3D.-65参考答案:A13以下不是查询结果去向的是()A.浏览B.报表C.表单D.表参考答案:C14数据库、数据库系统和数据库管理系统之间的关系是()A.数据库包括数据库系统和数据库管理系统B.数据库系统包括数据库和数据库管理系统C.数据库管理系统包括数据库和数据库系统D.3者没有明显的包含关系参考答案:B15下列有关数据库的描述,正确的是A.数据库是一个DBF文件B.数据库是一个关系C.数据库是一个结构化的数据集合D.数据库是一组文件参考答案:C16VisualFoxPro出现的各类文件扩展名()A.由系统默认B.由用户使用SET命令预先定义C.必须用户定义D.由系统默认或由用户定义参考答案:B17只有将组合框的Style属性设置为何值时,才能触发DblClick事件?A.0B.1C.2D.3参考答案:B18链表不具有的特点是A.不必事先估计存储空间B.可随机访问任一元素C.插入删除不需要移动元素D.所需空间与线性表长度成正?/P>参考答案:B19在VisualBasic中,要将一个窗体加载到内存进行预处理但不显示,应使用的语句是。

2015黑龙江省全国计算机等级考试二级笔试试卷VB考资料

2015黑龙江省全国计算机等级考试二级笔试试卷VB考资料

1、下面描述中,符合结构化程序设计风格的是(A)A. 使用顺序、选择和重复(循环)三种基本控制结构表示程序的控制逻辑B. 模块只有一个入口,可以有多个出口C. 注重提高程序的执行效率D. 不使用goto语句2、在软件开发中,下面任务不属于设计阶段的是(D)A. 数据结构设计B. 给出系统模块结构C. 定义模块算法D. 定义需求并建立系统模型3、将E-R图转换到关系模式时,实体与联系都可以表示成(B)A. 属性B. 关系C. 键D. 域4、检查软件产品是否符合需求定义的过程称为(A)A. 确认测试B. 集成测试C. 验证测试D. 验收测试5、下列叙述中正确的是(A)A. 线性表是线性结构B. 栈与队列是非线性结构C. 线性链表是非线性结构D. 二叉树是线性结构6、在结构化方法中,用数据流程图(DFD)作为描述工具的软件开发阶段是(B)A. 可行性分析B. 需求分析C. 详细设计D. 程序编码7、下面对对象概念描述错误的是(A)A. 任何对象都必须有继承性B. 对象是属性和方法的封装体C. 对象间的通讯靠消息传递D. 操作是对象的动态性属性8、数据的存储结构是指(B)A. 数据所占的存储空间量B. 数据的逻辑结构在计算机中的表示C. 数据在计算机中的顺序存储方式D. 存储在外存中的数据9、在下列选项中,哪个不是一个算法一般应该具有的基本特征(C)A. 确定性B. 可行性C. 无穷性D. 拥有足够的情报10、下面对对象概念描述错误的是(A)A. 任何对象都必须有继承性B. 对象是属性和方法的封装体C. 对象间的通讯靠消息传递D. 操作是对象的动态性属性11、软件调试的目的是(B) 注:与软件测试要对比着复习A.发现错误B.改正错误C.改善软件的性能D.挖掘软件的潜能12、算法一般都可以用哪几种控制结构组合而成(D)A. 循环、分支、递归B. 顺序、循环、嵌套C. 循环、递归、选择D. 顺序、选择、循环。

【最全最详细】国家二级VB程序设计题及答案

【最全最详细】国家二级VB程序设计题及答案

Vb专项练习第一套题目1、打开“考生文件夹\96\工程1.vbp”,完善程序并保存。

实现功能:假设有一个5位数密码。

只记得密码为67□□8,其中百位和十位的数字记不清了,但知道该密码能够被78整除,也能被67整除。

请完善算法帮忙找出这个密码。

''请不要更改源程序的结构,删除原题里的①、②、③。

填写正确的代码,使程序完善Private Sub Command1_Click()Dim x As LongFor x = ① To 67998 Step 10If (x Mod 67 = 0) And (x Mod 78 = 0) ThenPrint ②End If③End Sub2、“考生文件夹\51\工程1.vbp”是采用“穷举法”求出所有水仙花数的程序,请完善程序并保存。

说明:若一个三位数abc,满足:abc=a3+b3+c3,则称abc为水仙花数。

如三位数153满足:13+53+33=1+125+27=153,则153是水仙花数。

'请不要更改源程序的结构,删除原题里的①、②、③。

填写正确的代码,使程序完善Private Sub Command1_Click()Dim i, a, b As IntegerFor i = 100 To ①a = i \ 100b = (i - a * 100) \ 10c = ②If a * a * a + b * b * b + c * c * c = i ThenPrint CStr(i)③Next iEnd Sub3、打开“考生文件夹\12\工程1.vbp”,完善程序并保存。

实现功能:在Text1中输入一个代表秒数的整数后,单击“计算”按钮后,在Label1、Label2、Label3中显示对应的小时、分钟和秒数。

如在Text1中输入“3672”,Label1、Label2、Label3中分别显示“1”、“1”、“12”,即1小时1分12秒。

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

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

计算机二级考试VB考试题及答案计算机二级考试VB考试题及答案为了使广大考生在备战计算机等级考试时,更快的掌握相应知识点,下面是店铺搜索整理的计算机二级考试VB考试题及答案,供参考练习,预祝考生们考出自己理想的成绩!计算机二级考试VB考试题及答案1、窗体中有一个名称为txtSpeed的文本框,一个名称为hsbSpeed的滚动条。

以下程序:Private Sub hsbSpeed_Change( )txtSpeeD.Text = hsbSpeeD.ValueEnd Sub当单击滚动条hsbSpeed右端的箭头时,以下说法不正确的是(B) (单)A.此时会触发change事件B.此时不会触发change事件C.在文本框中显示了滚动条滑块所在位置的值D.此时不会触发scroll事件2.利用窗体中的滚动条HScroll1改变窗体的背景色,可以这样编写代码:Private Sub HScroll1_Change( )R= HScroll1.Valueform1.BackColor = RGB(R,int(Rnd*256),int(Rnd*256))End Sub以下说法不正确的是(C) (单)A.窗体的背景色是一个随机的颜色B.RGB函数取得到的颜色有256*256*256种C.表达式int(Rnd*256)取得随机数的范围为0-256之间的整数D.表达式int(Rnd*256)取得随机数的范围为0-255之间的整数3.窗体中有一个名称为Slider1的可选择性刻度滑块控件,一个名称为text1的文本框,如下程序:Private Sub Slider1_change( )Text1.FontSize =【Slider1.value】End Sub当拖动滑块时,以上程序实现用Slider控件设置文本框中的字体大小的功能。

4.窗体中有一个名称为Slider1的可选择性刻度滑块控件,一个名称为text1的文本框,如下程序:Private Sub Slider1_change( )Text1.【Fontsize】 = slider1.valueEnd Sub当拖动滑块时,以上程序实现用Slider控件设置文本框中的字体大小的功能。

2015年计算机二级VB考前预测题12套(含答案)

2015年计算机二级VB考前预测题12套(含答案)

2015年计算机二级VB考前预测题12套(含答案)
为大家分享一下计算机二级VB考前测试试卷,均包括详细的答案解析,内容经典丰富。

为了节省篇幅空间,方便阅读,所以按照以下方式清晰呈现。

大家下载文章后ctrl+单击左键即可查看内容,
方便实用。

请大家放心使用本资料。

1.2015计算机二级VB预测题(一)及答案
2.2015计算机二级VB预测题(二)及答案
3.2015计算机二级VB预测题(三)及答案
4.2015计算机二级VB预测题(四)及答案
5.2015计算机二级VB预测题(五)及答案
6.2015计算机二级VB预测题(六)及答案
7.2015计算机二级VB预测题(七)及答案
8.2015计算机二级VB预测题(八)及答案
9.2015计算机二级VB预测题(九)及答案
10.2015计算机二级VB预测题(十)及答案
11.2015计算机二级VB预测题(十一)及答案
12.2015计算机二级VB预测题(十二)及答案
祝大家考试顺利。

以上资料绝对经典,值得收藏!。

2015计算机二级vb考试试题及答案

2015计算机二级vb考试试题及答案

2015计算机二级vb考试试题及答案一、选择题(每题2分,共20分)1. VB中,以下哪个关键字用于声明变量?A. DimB. SubC. FunctionD. Const答案:A2. 下列哪个选项不是VB中的控件?A. TextBoxB. LabelC. ButtonD. ComboBox答案:D3. 在VB中,下列哪个函数用于计算字符串的长度?A. LenB. UCaseC. LCaseD. Mid答案:A4. VB中,以下哪个选项是正确的循环结构?A. ForB. WhileC. DoD. All of the above5. 在VB中,以下哪个选项是正确的事件处理程序?A. ClickB. LoadC. ChangeD. All of the above答案:D6. VB中,以下哪个关键字用于定义过程?A. FunctionB. SubC. ClassD. Property答案:B7. 在VB中,以下哪个选项是正确的数据类型?A. IntegerB. StringC. DoubleD. All of the above答案:D8. VB中,以下哪个选项不是窗体的属性?A. NameB. TextC. BackColorD. Print答案:D9. 在VB中,下列哪个选项用于打开文件?B. CloseC. SeekD. Get答案:A10. VB中,以下哪个关键字用于声明数组?A. DimB. ReDimC. EraseD. All of the above答案:D二、填空题(每题2分,共20分)1. 在VB中,使用________关键字可以声明一个变量。

答案:Dim2. VB中的________控件用于显示文本,但不能编辑。

答案:Label3. VB中,使用________函数可以将字符串转换为大写。

答案:UCase4. VB中,________循环用于执行一个或多个语句,直到满足特定条件。

2015山东省全国计算机等级考试二级VB笔试试卷及参考答案考资料

2015山东省全国计算机等级考试二级VB笔试试卷及参考答案考资料
26、汉字系统中,汉字字库里存放的是汉字的( C )
A、内码 B、外码 C、字形码 D、国标码
27、DRAM存储器的中文含义是( B )
A、静态随机存储器 B、动态随机存储器
C、静态只读存储器 D、动态只读存储器
1、过程控制的特点是( D )
A计算量大,数值范围广 B、数据输入输出量大,计算相对简单
C、进行大量的图形交互操作 D、具有良好的实时性和高可靠性
2、计算机病毒是可以造成机器故障的( D )
A、一种计算机设备 B、一种计算机芯片
C、打印出来 D、压缩后存储到硬盘中
8、硬盘连同驱动器是一种( B )
A、内存储器 B、外存储器 C、只读存储器 D、半导体存储器
9、关于调制解调器的叙述不正确的是( C )
A、调制解调器是计算机通信的一种重要工具,采用“拨号上网”的方式,必须有一个调制解调器
4、在计算机的应用中,“OA”表示( C)
A、管理信息系统 B、决策支持系统
C、办公自动化 D、人工智能
5、在计算机应用中,“计算机辅助设计”的英文缩写为( A )
A、CAD B、CAM C、CAE D、CAT
14、通常说1.44MB软盘中1.44MB指的是( D )
A、厂家代号 B、商标号 C、磁盘编号 D、磁盘容量
15、计算机病毒是可以造成机器故障的( D )
A、一种计算机设备 B、一种计算机芯片
C、一种计算机部件 D、一种计算机程序
16、下面哪个迹象最不可能像感染了计算机病毒( B )
A、开机后微型计算机系统内存空间明显变小
B、开机后微型计算机电源泉指示灯不亮
C、文件的日期时间值被修改成新近的日期或时间(用户自己并没有修改)

全国计算机二级VB上机题库(题+答案)

全国计算机二级VB上机题库(题+答案)

一、基本操作题下面出现的“考生文件夹”均为c:\wexam\20060001。

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

1.在窗体上建立一个二级菜单,该菜单含有“文件”和“帮助”两个主菜单项(名称分别为vbFile和vbHelp),其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项(名称分别为vbOpen、vbClose和vbExit)。

只建立菜单,不必定义其事件过程。

注意:保存时必须存放在考生文件夹下,窗体文件名为kt1.frm,工程文件名为kt1.vbp。

2.在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。

编写适当的事件过程,要求程序运行后,如果单击“喜欢”命令按钮,则在窗体上显示“数理化”;如果单击“不喜欢”命令按钮,则在窗体上显示“政史地”。

程序中不能使用任何变量,直接显示字符串。

注意:保存时必须存放在考生文件夹下,窗体文件名为kt2.frm,工程文件名为kt2.vbp。

一、基本操作题答案1.【解题步骤】(1)打开“菜单编辑器”。

(2)菜单设计见表4-1。

表4-1标题名称内缩符号文件vbFile0打开vbOpen1关闭vbClose1退出vbExit1帮助vbHelp0(3)按要求设计含有“文件”和“帮助”的菜单栏。

(4)为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。

(5)设计完成之后,按规定方式存盘。

2.【解题步骤】(1)建立界面和控件并设置控件属性。

程序中用到的控件及其属性见表4-2。

表4-2控件属性设置值按钮Name Cmd1Caption喜欢按钮Name Cmd2Caption不喜欢(2)编写程序代码。

参考代码:Private Sub Cmd1_Click()Print"数理化"End SubPrivate Sub Cmd2_Click()Print"政史地"End Sub(3)调试并运行程序。

2015年计算机二级VB考试答案

2015年计算机二级VB考试答案

2015年计算机二级VB考试答案一、选择题1. 在Visual Basic中,下列哪个选项是合法的变量名?A. 2variableB. variable2C. _variableD. variable-2答案:B2. 以下哪个函数用于返回字符串中子字符串出现的次数?A. LeftB. RightC. InStrD. Mid答案:C3. Visual Basic中,以下哪个控件用于显示图像?A. LabelB. PictureBoxC. TextBoxD. ComboBox答案:B4. 如果一个变量被声明为Static,那么它的生命周期是?A. 仅在过程调用期间B. 直到程序结束C. 直到窗体关闭D. 直到应用程序关闭答案:B5. 在Visual Basic中,下列哪个选项是正确的事件处理程序的写法?A. Private Sub Button1_Click()B. Public Sub Button1_Click()C. Private Function Button1_Click()D. Public Function Button1_Click()答案:A二、填空题1. 在Visual Basic中,使用___________函数可以获取当前系统时间。

答案:Now2. 当需要在程序中使用一个变量来存储多个值时,可以使用___________数据类型。

答案:Array3. 在Visual Basic中,要创建一个单选按钮组,需要将___________属性设置为True。

答案:GroupName4. 使用___________方法可以关闭一个打开的文件。

答案:Close5. 在Visual Basic中,要使一个窗体在显示时位于屏幕中央,可以设置窗体的___________属性。

答案:StartUpPosition三、简答题1. 简述Visual Basic中如何实现事件驱动编程。

答案:在Visual Basic中,事件驱动编程是通过编写事件处理程序来实现的,这些程序会在特定的事件发生时自动执行。

国家二级VB机试(基本操作题)模拟试卷1(题后含答案及解析)

国家二级VB机试(基本操作题)模拟试卷1(题后含答案及解析)

国家二级VB机试(基本操作题)模拟试卷1(题后含答案及解析) 题型有:1.1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1、标题为“列表框练习”的窗体上画一个名称为List1的列表框,表项内容依次输入XXX、ddd、mmln和aaa,且以宋体14号字显示表项内容,如图3-102(a)所示。

最后设置相应属性,使运行后列表框中的表项按字母升序方式排列,如图3-102(b)所示。

注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt1.frm,工程文件名为sjt1.vbp。

(2)在名称为Form1的窗体上,画一个名称为Label1的标签,其标题为“计算机等级考试”,字体为宋体,字号为12号,且能根据标题内容自动调整标签的大小。

再画两个名称分别为Command1、Command2,标题分别为“缩小”和“还原”的命令按钮(如图3-103所示)。

要求:编写适当的事件过程,使得单击“缩小”按钮,Label1中所显示的标题内容自动减小两个字号;单击“还原”按钮,Label1所显示的标题内容的大小自动恢复到12号。

注意:存盘时,将文件保存至考生文件夹下,窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。

要求程序中不得使用变量,每个事件过程中只能写一条语句。

正确答案:第1小题【操作步骤】步骤1:新建一个“标准EXE”工程,如表4-62在窗体中画出控件并设置其相关属性。

步骤2:按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1:新建一个“标准EXE”工程,如表4-63在窗体中画出控件并设置其相关属性。

步骤2:打开代码编辑窗口,编写两个命令按钮的Click事件过程。

参考代码:步骤3:按要求将文件保存至考生文件夹中。

2.(1)在名称为Form1、标题为“球类项目没有最大化和最小化按钮的窗体上画1个名称为Combo1的组合框。

组合框中的文本内容为空,表项内容有“乒乓球”、“羽毛球”和“网球”3项。

二级VB语言程序设计考试题及答案

二级VB语言程序设计考试题及答案

二级VB语言程序设计考试题及答案不管从事何种工作,如果要想做出高效、实效,务必先从自身的开始。

有了方案,才不致于使自己思想迷茫、头脑空洞,不知从哪里着手开展工作。

下面是搜索的二级VB语言程序设计考及答案,供大家参考学习!1.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:Private Sub Command1Click( )n = Val(Text1.Text)If n2 = n/2 Thenf = f1(n)Elsef = f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x*xf1=x+xEnd FunctionPublic Function f2(ByVal x)x=x*xf2=x+x+xEnd Function程序运行后,在文本框中输入3,然后单击命令按钮,窗体上显示的是(D)(单)A.72 36B.108 36C.72 6D.27 32.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1Click( )c = "1234"For i = 1 To 4c1 = Trim(Str( ))Print c1Next iEnd Sub程序运行后,单击命令按钮,要求在窗体上显示如下内容1121231234那么在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Private Sub Command1Click( )n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j >Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是(C)(单)A.输出n以内的奇数B.输出n以内的偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1Click( )Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序运行后,单击命令按钮,在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1Click( )Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后,单击命令按钮,在文本框中显示的值是(D)(单)A.15B.14C.13D.126.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。

全国计算机二级考试《VB》操作试题及答案

全国计算机二级考试《VB》操作试题及答案

全国计算机二级考试《VB》操作试题及答案全国计算机二级考试《VB》操作试题及答案一、基本操作题(1)请在名称为Forml的窗体上添加一个名称为H1的水平滚动条,并在属性窗口中设置它的属性值,使其满足下列要求:它的最小刻度值为1,最大刻度值为100,在程序运行时,用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮),滚动框移动10个刻度。

再在滚动条下面画两个名称分别为L1和L2的标签,并分别显示1和100,运行时的窗体如图所示。

注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。

(2)在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框,初始内容均为空;再建立一个下拉菜单,菜单标题为“操作”,名称为M1,此菜单下含有两个菜单项,名称分别为Copy和Clear,标题分别为“复制”、“清除”,请编写适当的事件过程,使得在程序运行时,单击“复制”选项菜单,则把Textl中的内容复制到Text2中,单击“清除”选项菜单,则清除Text2中的内容(即在Text2中填入空字符串)。

运行时的窗体如图所示。

要求在程序中不得使用任何变量,每个事件过程中只能写一条语句。

注意:存盘时必须存放在考生文件夹下,工程文件名为sit2.vbp,窗体文件名为sjt2.frm。

二、简单应用题(1)在考生文件夹F有一个工程文件sjt3.vbp,窗体上已经有一个标签Labell,请添加一个单选按钮数组,名称为Opl,含三个单选按钮,它们的Index 属性分别为0、1、2,标题依次为“飞机”、“火车”、“汽车”,再添加一个名称为Textl的文本框。

窗体文件中已经给出了Opl的Click事件过程,但不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容,使得在程序运行时单击“飞机”或“火车”单选按钮时,在Textl中显示“我坐飞机去”或“我坐火车去”,单击“汽车”单选按钮时,在Text1中显示“我开汽车去”,如图所示。

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

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

计算机二级VB考试题及答案计算机二级VB考试题及答案「篇一」1.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.7/21/97 1997年7月21日B.7-21-97 1997年7月21日C.97/7/21 1997年7月21日D.7/21/97 97年7月21日2.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段运行的结果为(C)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后,单击命令按钮,结果为(B)(单)A.显示对话框,提示信息为"帐号正确"B.显示对话框,提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后,单击命令按钮,结果为(A)(单)A.显示对话框,提示信息为"帐号正确"B.显示对话框,提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"Gong",则程序运行结果为(A)(单)A.显示对话框,提示"密码帐号正确!"B.显示对话框,提示"密码错误"C.程序出错D.没有任何提示7.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <>4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"gong",则程序运行结果为(B)(单)A.显示对话框,提示"密码帐号正确!"B.显示对话框,提示"密码错误"C.程序出错D.没有任何提示8.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"123",显示"密码错误"对话框,关于此对话框描述正确的是(A)(单)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名称为label1的标签,一个名称为command1的命令按钮,编写如下代码:Private Sub Command1_ClickDim x, y, z, t!x = Text1y = Text2z = Text3If x < y Thent = xx = yy = tEnd IfIf y < z Thent = yz = tIf x< y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x & "," & y & "," & zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8,则标签显示的结果为(C)(单)A.3,5,8B.5,3,8C.8,5,3D.3.8.510.以下程序段:Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入1,则label1的标题显示结果为(A)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.511.以下程序段:Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入2,则label1的标题显示结果为(B)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.512.以下程序段:Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的'整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入3,则label1的标题显示结果为(C)(单) A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.513.以下程序段:Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数")) Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入4,则label1的标题显示结果为(D)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.514.以下程序段的作用是(A)(单)Private Sub Picture1_ClickDim asci As Integer, i As Integeri = 0For asci = 32 To 126Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;i = i + 1If i = 7 Then i = 0: Picture1.PrintNext asciA.打印ASCII码表,一行7个表达式B.打印九九乘法表,一行7个表达式C.打印ASCII码表,一行8个表达式D.以上说法都不正确15.我国现在人口有13亿,按人口增长0.8%计算,多少年后我国人口将超过26亿。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

1. 信息技术指的是用来扩展人的信息器官功能、协助人们进行信息处理的一类技术。

在下列基本信息技术中,用于扩展人的效应器官功能的是____。

A.感测与识别技术B.通信与存储技术C.计算与处理技术D.控制与显示技术2. 数据通信中数据传输速率是最重要的性能指标之一,它指单位时间内传送的二进位数目,计量单位Gb/s的正确含义是________。

A.兆位每秒B.千兆位每秒C.百兆位每秒D.百万位每秒3. 下列关于PC CPU的叙述中,错误的是______。

A.目前CPU芯片的主频越来越高,主流CPU芯片的主频已超过10 GHzB.目前Intel公司的Core i7是一种高端CPU 芯片,它有4个或6个内核C.AMD公司也是重要的PC CPU生产厂商,其CPU芯片与Intel保持指令系统兼容D.为了提高CPU性能,目前主流CPU芯片都采用了流水线处理技术和超线程技术4. USB是一种可以连接多个设备的总线式串行接口,目前在PC及各种数字设备中普遍使用。

在下列相关叙述中,错误的是____。

A.通过USB接口与PC连接的外部设备均不需要外接电源,所有设备均通过USB接口提供电源B.USB符合"即插即用"(PnP)规范,USB接口支持热插拔C.USB 2.0接口使用4线连接器,其连接器分为A型、B型等类型D.USB 3.0的最高数据传输速率可达数百兆字节每秒5.下列有关操作系统的叙述中,错误的是______。

A.目前个人计算机和移动设备使用的操作系统主要有Windows、iOS和Android等B.UNIX和Linux这两种操作系统曾经流行,目前基本无用户使用C.Windows操作系统采用并发多任务方式支持系统中多个任务的执行D.在一台个人计算机中用户可以安装两个不同版本的Windows操作系统6.下列关于程序设计语言的叙述中,错误的是_____。

A.虽然机器语言不易记忆、机器语言程序难以阅读和理解,但目前还是有很多人使用其编写程序B.汇编语言与计算机的指令系统密切相关,不同类型的计算机,其汇编语言通常不同C.VBScript语言是VB的子集,用其编写的程序可以嵌入在HTML文档中以扩充网页的功能D.Java语言是一种适用于网络环境的程序设计语言,目前许多手机软件就是用Java语言编写的7. 在下列有关通信技术的叙述中,错误的是____。

A.通信的基本任务是传递信息,因而至少需由信源、信宿和信道组成B.通信可分为模拟通信和数字通信,计算机网络属于数字通信C.在通信系统中,采用多路复用技术的目的主要是提高传输线路的传输速率和距离D.学校的计算机机房一般采用5类无屏蔽双绞线作为局域网的传输介质8. 因特网的IP地址由三个部分构成,从左到右分别代表_________ 。

A.类型号、网络号和主机号B.网络号、主机号和类型号C.网络号、类型号和主机号D.主机号、网络号和类型号9.以下关于汉字编码标准的叙述中,错误的是_____。

A.Unicode和GB 18030中的汉字编码是相同的B.GB 18030汉字编码标准兼容GBK标准和GB 2312标准C.我国台湾地区使用的汉字编码标准主要是BIG5D.GB 18030编码标准收录的汉字数目超过2万个10. 颜色空间的类型,指彩色图像所使用的颜色描述方法,也叫颜色模型。

下列颜色模型中,彩色打印机通常使用的是_____。

A.RGB模型B.CMYK模型C.HSB模型D.YUV模型11. 以下所列的5个控件中,具有Caption属性的有_______个。

①CommandButton(命令按钮)②Frame (框架)③OptionButton(单选按钮)④ListBox(列表框) ⑤TextBox(文本框)A.5 B.4C.3 D.212. "A≥B>C"对应的正确的VB表达式是____________。

A.A>=B And >CB.A>=B>CC.A>=B Or B>CD.A>=B And B>C13.14. 窗体模块的通用声明处有语句Option Base 1,下列在某事件过程中用于说明数组的语句中,错误的是____。

A. Dim A(15,3 To 5) As IntegerB. Static A(15,3 To 5) As IntegerC.Dim A(15,-3 To -5) As IntegerD. Dim A(15,-5 To -3) As Integer15. 以下有关Function自定义函数过程的叙述中,错误的是________。

A.Function函数过程形参的类型与函数返回值的类型无必然关系B.Function函数过程通过函数名返回的值可以有多个C.Function函数过程的数组形参,只能以传址方式传递D.如果未指明Function函数过程名的类型,则返回值为变体类型16.执行下面的程序,单击命令按钮Commandl,则窗体上显示的第一行是__________ ,第三行是________。

Option ExplicitOption Base 1Private Sub Command1_Click()Dim s As String, k As IntegerDim q As String, a() As String, n As Integer s = "ABCDEFG"n = 1Dok = k + 1ReDim Preserve a(k)a(k) = Mid(s, n, n)n = n + 1Loop While n + Len(a(k)) <= Len(s)For n = 1 To UBound(a)q = " "Call sub1(a(n), q)Print qNext nEnd SubPrivate Sub sub1(s As String, q As String) Dim i As IntegerFor i = 1 To Len(s)q = Mid(s, i, 1) & qNext iEnd Sub17.执行下面的程序,单击命令按钮Command1.则数组元素a(l,2)的值是______,a(3,1)的值是______。

Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(3, 3) As Integer, i As Integer, j As IntegerFor i = 1 To 3For j = 1 To 3If (i + j) Mod 2 = 0 Thena(i, j) = i + jElsea(i, j) = (i * 3 + j) / 2End IfPrint a(i, j);Next jPrintNext iEnd Sub18.执行下面的程序,单击命令按钮Commandl,则数组元素a(5)的值是_____________,窗体上显示的第二行是_____________,第三行是_____________。

Option ExplicitOption Base 1Private Sub Command1_Click()Dim i As Integer, a(5) As Integer, j As IntegerFor i = 1 To 5a(i) = 2 * i - 1Print a(i);Next iPrintFor i = a(5) To a(3) Step -1Print fun(i, a(i - 4))Next iEnd SubPrivate Function fun(a As Integer, b As Integer) As Integera = a - 1b = b - 1fun = (a + b) / 2End Function19.执行下面的程序,单击命令按钮Commandl.则数组元素yz(l)的值是_____________, 数组元素yz(3)的值是_____________,窗体上显示的最后一行是_____________。

Option ExplicitOption Base 1Private Sub Command1_Click()Dim n As Integer, yz() As Integer, s As IntegerDim i As Integern = 12Call subl(n, yz)For i = 1 To UBound(yz)s = s + yz(i)Print yz(i)Next iPrint sEnd SubPrivate Sub subl(n As Integer, a() As Integer) Dim k As Integer, i As IntegerFor i = 2 To n / 2If n Mod i = 0 Thenk = k + 1ReDim Preserve a(k)a(k) = iEnd IfNext iEnd Sub。

相关文档
最新文档