当前位置：文档之家 › vb 2003年(春)笔试部分

vb 2003年(春)笔试部分

  • 格式：doc
  • 大小：82.50 KB
  • 文档页数：11

第二部分 VB程序设计一.填空题21.在VB中可以作为容器的是B。

A.Form、TextBox、PictureBoxB.Form、PictureBox、FrameC.Form、TextBoX、LabelD.PictureBox、TextBox、ListBox22.VB中除窗体能显示图片外，下面列出的控件中可以显示图片的控件有C。

1.PictureBox2.Image3.TextBoxmandButton5.OptionButtonbelA.1、2、3、4、B.1、2、5、6、C.1、2、4、5D.1、2、4、6、23.针对语句If I=1 Then J=1，下列说法正确的是C。

A.I=1和J=1均为赋值语句B.I=1和J=1均为关系表达式C.I=1为关系表达式，J=1为赋值语句D.I=1为赋值语句，J=1为关系表达式24.在某过程中已说明变量a为Integer类型、变量s为String类型，过程中的以下四组语句中，不能正常执行的是C。

A.s=2*a+1B.s="237"&".11":a=sC.s=2*a>3D.a=2:s=16400*a25.下面所列四组数据中，全部是正确的VB常数是 A 。

A.32768,1.34D2,"ABCDE",&O1767B.3276,123.56,1.2E-2,#True#C.&HABCE,02-03-2002,False,D-3D.ABCDE,#02-02-2002#,E-226.下面有关数组处理的叙述中，不正确的是D。

1、在过程中用ReDim语句定义的动态数组，其下标的上下界可为赋了值的变量。

2、在过程中，可以使用Dim、Private和Static语句定义数组。

3、用ReDim语句重新定义动态数组时，不得改变该数组的数据类型。

4、可用Public语句在窗体模块的通用说明处定义一个全局数组。

A.1、2、3、4、B.1、3、4、C.1、2、3、D.2、4、27.第一次显示某窗体时，将引发一系列事件，正确的事件是 B。

A.Load - Initialize - ActivateB.Initialize - Load - ActivateC.Load - Activate- InitializeD.Initialize - Activate - Load28.定义两个过程Private Sub1(St() As String)和Private Sub2(Ch() As String*6)，在调用过程中用Dim S(3) As String*6,A(3) As String定义了两个字符串数组。

下面调用语句中正确的有 D 。

1、Call Sub1(S)2、Call Sub(A)3、Call Sub2(A)4、Call Sub2(S)A.1、2B.1、3C.2、3D.2、429.运行下面程序，单击命令按钮Command1,则立即窗口上显示的结果是A。

Private Sub Command1_Click()Dim A As Integer,B As Boolean,C As Integer,D As IntegerA=20/3 : B=True : C=B : D=A+CDebug. Print A, D, A=A + CEnd SubA. 7 6 FalseB. 6.6 5.6 FalseC. 7 6 A=6D. 7 8 A=830.以下控件中，不能作为数据绑定控件的是 C 。

A. Label(标签)B. TextBox(文本框)C. OptionButton(单选按钮)D.ListBox(列表框)二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）1、正确表示命题“A是一个带小数的正数，且 B是一个带小数的负数”的逻辑表达式是Csng(A)>0 And Csng(B)<0 或者A>O And A<>Int(A) And B<0 And B<>Int(B)。

2、运行下面的程序，当单击窗体时，文本框 Text1 中的内容是 AFT ，文本框 Text2 中的内容是 AatF 。

Private Sub Form_Click()Dim St As StringDim St1 As String, St2 As StringSt = "ASFRSDCFRSKX"Call Change_String(St, St1, St2)Text1.Text = St1Text2.Text = St2End SubPrivate Sub Change_String(S As String, St1 As String, St2 As String) Dim tem As String, i As IntegerFor i = 1 To Len(S)tem = Mid(S, i, 1)If tem = "S" ThenSt1 = St1St2 = St2 & "at"ElseIf tem = "R" ThenSt1 = St1 & "T"Exit ForElseSt1 = St1 & temSt2 = St2 & temEnd IfNext iEnd Sub3、执行下面程序，单击命令按钮Command1 ，则在窗体上显示的第一行是 5 ，第二行是 45 ，第三行是 54 。

Private Sub Command1_Click( )Dim s_data As Integer, d_data As String, k As Integer, p As Strings_data = 29Do Until s_data <= 5p = s_data Mod 5d_data = d_data & ps_data = s_data \ 5Loopd_data = d_data & s_dataPrint s_dataPrint d_datap = ""For k = Len(d_data) To 1 Step -1p = p & Mid(d_data, k, 1)Next kPrint pEnd Sub4、执行下面程序，从键盘输入3，程序运行结束后，A( 1, 1)的值是 17 ，A( 2, 2) 的值是 15 ；A( 2, 3)的值是 12 。

Private Sub Form_Click()Dim I As Integer, J As Integer, K As IntegerDim A() As Integer, N As IntegerN = InputBox("输入N")ReDim A(N, N)For I = 1 To NFor J = 1 To NK = K + 1A(I, J) = K + 10Next JNext ICall Sub1(A, N)End SubPrivate Sub Sub1(A() As Integer, N As Integer) Dim I As Integer, J As IntegerDim T As Integer, K As IntegerK = N + 1For I = 1 To Int(N / 2)For J = I To N - IT = A(I, J)A(I, J) = A(K - J, I)A(K - J, I) = A(K - I, K - J)A(K – I, N + 1 - J) = A(J, K - I)A(J, K - I) = TNext JNext IEnd Sub5、执行下面程序，单击命令按钮Command1 ，则在窗体上第一行显示是0 1 2 3 4，第二行显示是 4 5 6 7 8，第三行显示是 8 。

Private Sub Command1_Click()Output_Count 4Output_Count 8Output_Count 4End SubPrivate Sub Output_Count(UpperLimit As Integer)Static LowerLimit As IntegerDo While LowerLimit < UpperLimitPrint LowerLimit;LowerLimit = LowerLimit + 1LoopPrint LowerLimitEnd Sub6、运行下面程序，单击命令按钮Command1，则在窗体上显示的第一行内容是VLAUSI，第二行内容是VILAUS，文本框Text1中显示的内容是VISUAL 。

Private Sub Command1_Click()Dim S As StringS = "LAUSIV"Text1.Text = Display(S, Len(S))End SubPrivate Function Display(S As String, L As Integer) As StringIf L > 1 Then Display = Display(S, L - 1)S = Left(S, L - 1) & Right(S, 1) & Mid(S, L, Len(S) - L) Display = SPrint DisplayEnd Function7、由键盘输入一个正整数，找出大于或等于该数的第一个素数。

Private Sub Form_Click()Dim p As Integer , x As Integer, flag As Booleanflag = Falsex = InputBox("请输入一个正整数")Do While Not flagp = 2: flag= TrueDo While flag And (p <= (x / 2))If x Mod p = 0 Thenflag = FalseElsep = p + 1End IfLoopIf Not flag Then x = x + 1LoopPrint xEnd Sub8、下面的程序可从一个由字母与数字相混的字符串中选出数字串，并把数字串构成的数写入一个名为List1的列表框中（图1是程序执行的画面）。

Option ExplicitPrivate Sub Cmd1_Click()Dim s As String, k As Integer, c() As StringDim p As String, i As Integers = Text1.Textk = 1For i = 1 To Len(s)If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Thenp= p & Mid(s, i, 1)ElseIf Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" And i <> 1 Then If p <> "" ThenReDim Preserve c(k)c(k) = pk = k + 1p = ""End IfEnd IfNext iReDim Preserve c(k)c(k) = pFor i = 1 To kList1.AddItem c(i)Next iEnd Sub9、给定一个十进制正整数，找出小于它并与其互质的所有正整数（所谓互质数是指最大公约数为1的两个正整数，图2是程序执行画面）。

合集下载

2003年9月全国计算机等级考试二级VB语言笔试试题含答案

2003年9月全国计算机等级考试二级VB语言笔试试题含答案

2003年9月全国计算机等级考试二级VB语言笔试试题含答案一、选择题（（1）~（20）每小题2分，（21）~（30）每小题3分，共70分）（1）以下叙述中错误的是A）Visual Basic 是事件驱动型可视化编程工具B）Visual Basic应用程序不具有明显的开始和结束语句C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D）Visual Basic中控件的某些属性只能在运行时设置（2）以下叙述中错误的是A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B）以.BAS为扩展名的文件是标准模块文件C）窗体文件包含该窗体及其控件的属性D）一个工程中可以含有多个标准模块文件（3）以下叙述中错误的是A）双击鼠标可以触发DblClick事件B）窗体或控件的事件的名称可以由编程人员确定C）移动鼠标时，会触发MouseMove事件D）控件的名称可以由编程人员设定（4）以下不属于Visual Basic系统的文件类型是A）.frm B）.bat C）.vbg D）.vbp（5）以下叙述中错误的是A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）保存Visual Basic程序时，应分别保存窗体文件及工程文件C）Visual Basic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发（6）以下能正确定义数据类型TelBook的代码是A）Type TelBook B）Type TelBookName As String*10 Name As String*10TelNum As Integer TelNum As IntegerEnd Type End TelBookC）Type TelBook D）Typedef TelBookName String*10 Name String*10TelNum Integer TelNum IntegerEnd Type TelBook End Type（7）以下声明语句中错误的是A）Const var1=123 B）Dim var2 = ’ABC’C）DefInt a-z D）Static var3 As Integer（8）设窗体上有一个列表框控件Lis选中的列表项内容的是t1，且其中含有若干列表项。

2003年9月全国计算机等级考试二级VB笔试试题

2003年9月全国计算机等级考试二级VB笔试试题

这学期你的表现一直很出色,在刚开学那一群哭闹的新宝宝中,你的从容就已经表现出了你优秀的能力,而后面的幼儿园生活中你的独立和自理能力得到了充分的体现,自己穿脱衣服叠衣服,帮助他人扣扣子,真是厉害这学期你的表现一直很出色,在刚开学那一群哭闹的新宝宝中,你的从容就已经表现出了你优秀的能力,而后面的幼儿园生活中你的独立和自理能力得到了充分的体现,自己穿脱衣服叠衣服,帮助他人扣扣子,真是厉害,比其他娇生惯养的小公主可爱多了。

还有你的动手能力也体现在美术课上,你能完成一副副好看的涂画作品,老师看了很高兴。

新学期里老师希望你能在众人面前表演的时候更加大方,不会我们可以学到会,会我们就更要表现出来给别人看,你说是不是?老师为你加油!你在这短短半学期的进步是我们有目共睹的,阿姨现在经常向你竖起大拇指呢,确实,刚来幼儿园的时候你很内向,也不敢表达自己的想法,从表情上看就是一副不自然的模样,现在你能大方的向老师问好,课上能高举小手要求回答问题或表演,老师看在眼里可真高兴。

更让老师高兴的是你的能力的提高,如涂色能力、剪纸能力、课堂注意力等,蒙氏课上我们认识动物, 你能多次将动物和其对应的名字卡片配对起来,也给老师带来了惊喜,希望你在新的学期能再接再厉,创造出更多好成绩给老师和爸爸妈妈看。

在经历了每个新入园宝宝必经的不适应甚至哭闹过程后,你已经完全融入到了集体生活中,光这一点就体现了你人际交往能力的进步,现在你能和周围的小伙伴自在的嬉闹玩耍,开心的享受每一天的幼儿园生活了。

另外,你的动手能力也有了进步,以前你在涂画课上总是磨磨蹭蹭的,现在已经能在下课前完成出不错的作品。

新的学期有新的要求,老师希望你在课堂上能更专心更投入,这样才能学到更多本领,更好的体现出你的聪明才智哦!这学期你的表现很好,你喜欢自由的玩玩具,在放松的状态下你能充分发挥你的想象力和创造力,建构出好多种造型,而不像别的男孩子只知道搭枪,在建构出来后你还会给他们取好听的名字,更愿意将你的作品和想法呈现给老师看,而当老师给予肯定和表扬时,你的脸笑得像一朵花,看来你很享受被表扬的感觉哦!在新的学期希望你凭自己的努力得到更多的表扬!你是一个很聪明的宝宝,在这学期,老师看到你身上很多的闪光点,先是对音乐敏感学唱歌特别快,然后是知识比同龄宝宝要广,还有记忆力好,老师教过的有点难度的内容等到复习的时候你能很快回答出来,让老师倍感欣慰。

全国计算机等考试VB语言笔试试题及答案(一)

全国计算机等考试VB语言笔试试题及答案(一)

全国计算机等考试VB语言笔试试题及答案(一)全国计算机等级考试(VB语言)笔试试题及答案为了让广大考生能更好的备考，本文将为大家提供全国计算机等级考试VB语言笔试试题及相关答案解析。

VB语言考试是比较热门的一种考试，因此备考也是非常重要的。

下面是试题及答案解析，希望对大家有所帮助。

一、单选题1、在VB语言中，执行时间比较久的程序可以采用的方法是：A.增加循环次数B.加快程序运行速度C.使用进度条等控件D.以上都不对【答案及解析】C。

在程序运行期间，如果程序执行时间太长，可以使用进度条控件使用户知道程序正在执行，以及当前运行到哪一步，提升程序的运行效率和用户体验。

2、在VB语言中，某控件的Tag属性表示：A.控件的位置B.控件所在窗口的名称C.控件的类型D.控件存储数据的指针【答案及解析】D。

在VB语言中，每个控件都可以设置其Tag属性，Tag属性可以存储控件相关的任何数据，该属性非常灵活方便。

3、在VB语言中，数组存储数据的方式是：A.栈存储B.堆存储C.静态存储D.以上都错【答案及解析】B。

在VB语言中，数组存储在堆中，即动态内存分配，这样以便在程序运行时更好地管理和利用内存。

二、多选题1、在VB语言中，下列哪些是合法的数组定义方式？（）A. Dim arr(3,5) As IntegerB. Dim arr(3)(5) As IntegerC. Redim arr(3,5)D. Dim arr() As Integer【答案及解析】A、D。

A、D都是合法的数组定义方式。

选项B是二维数组，但是定义方式不合法。

选项C是改变数组大小的方式，不是定义数组的方式。

2、在VB语言中，下列哪些事件是窗体的事件？( )A.LoadB.MouseMoveC.ClickD.Resize【答案及解析】A、D。

Load和Resize是窗体的事件，B和C是每个控件都有的事件。

三、判断题1、在VB语言中，Option Explicit语句可以保证变量在使用前被声明，从而减少程序出错的几率。

vb 2003年(春)上机部分

vb 2003年(春)上机部分

2003年（春）Visual Basic 上机试卷 (VB1)[考试须知]1. 改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅供参考；2. 考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分；3. 程序代码书写应呈现锯齿型。

一、改错题（17分）[题目]本程序的功能是求数列的和，规定计算到第k项的值≤10-6为止。

（输入X=2测试程序，正确结果为S=0.9985868）。

Option ExplicitPrivate Function pt(x As Single, n As Integer) As SingleDim p As Integer, i As Integerp = 0For i = 1 To np = p * i / (x + i)Next ipt = pEnd FunctionPrivate Sub Form_Click()Dim x As Single, k As Integer, i As IntegerDim a As Double, s As Single, p As DoubleDox = InputBox("输入一个大于1的数：", , 1)If x <= 1 Then MsgBox "数据错误，重输！", vbOKOnlyLoop Until x < 1k = 1Doa = pt(k)s = s + aIf a <= e-6 Then Exit Dok = k + 1LoopPrint sEnd Sub[要求]1．新建工程，输入上述代码，改正程序中的错误2．改错时，不得增加或删除语句，但可适当调整语句位置；3．将窗体文件和工程文件分别命名为 F1.frm 和 P1.vbp ，并保存到软盘 A 的根目录下。

二、编程题（23分）【题目】编程找出10000以内的所有可以表示为两个平方数和的素数。