《2023年上海计算机二级VB试卷.pdf》由会员分享，可在线阅读，更多相关《2023年上海计算机二级VB试卷.pdf（11页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2 0 2 3 年上海市高等学校计算机等级考试试卷二级 V i sua 1 B a s i c 程序设计(考试时间12 0 分钟一一A卷)一、单选题(共1 5 分，每 题 1分)1.是合法的变量名。【A】A.X_ y z oB.1 2 3abc。C.I ntegep D.X-Y2.R n d函数不也许的返回值是 a o 必 o A A.1B.0C.0.0 0 0 1 oD.O.999 93.要将一个值传递给子过程A的1n参数，并通过n 参数返回一个结果，子过程定义中对的的是 o 0 0 0 0 0 【B】A.Sub A (ByVai m!,By Vai n!)B.Sub A (ByV a 1
2、m!,B yRe f n!)C.Sub A(ByVai m!,ByRef(n+1)!)D.Sub A(B y Vai m+1,By V a 1 n+2)4.能在窗体F o r m l 的标题栏中显示“V i sua 1 Ba s i c 窗体”的语句是_。CA.Fo r ml.Name=Vi s u alBasic 窗体 。B.Fo r m 1 .Tit 1 e=,V isualB a s ic 窗体”C.Fo rm l.Cap tion=,Vis u a IB a s i c 窗 体 D.Fo r ml.T ex t=Visual B a sic窗体”5.在用通用对话框控件建立打开文献对话框
3、时，在文献列表框中只允许显示j Pg图像类型的文献，则F i 1 ter属 性 的 对 的 设 立 是。M D。A.Pi c t ur e(.j pg)|*.j pgB.Pi c t u r e(.j p g)(*.j pg)C.图片文献I(.j pg)D.图片(.j pg )I*.j pg6.关于多重窗体程序的叙述中，错误的是。C A.用H i d e方法隐藏窗体，用Sh o w方法显示窗体B.可以根据需要指定启动窗体C.若各窗体都建立了一个文本框控件(TextB ox),它们的N a m e不能相同D.若各窗体都有菜单，则各菜单是彼此独立的7.按 照 结 构 化 程 序 设 计 的 规 定
4、,语 句 是 非 结 构 化 程 序 设 计 语 句。【C】A.I f语句B.F o r语句C.GoTo 语句。D.Selec t C a s e 语句8 .同一个窗体中，各个对象的 属性值是不同的，它用于唯一辨认对象。A.L oc a ti onB.N a m e B C.S i ze T ext D.S elec t C a s e 语句9.有一个名为M e nu 1菜单项，为了在运营时使该菜单项失效(变灰)，应使用的语句为A.M e n u 1 .E na b led=Fa ls e B.M enu 1 .E n a b led=T r u eC.M e nu 1 .V i s i b
5、1 e=Tr ue D .M e nul.V i s i b le=F a Ise。A 1 0 .要暂时关闭定期器,应把定期器的 属性设立为F a I s e。A.V i s i b le B.T i merC.E na b led D.I n t e r va l C 1 1.在VB中，属于方法的是。A A.S e tFo c u sB.LostFocusC.KeyPressD.Select e dTex t12.使 用 Dim A(100)As S in g le 语句声明了数组A,A 数 组 的 下 标 取 值 范 围 是。B A.0 99sB 0100C.99。D.P l 0013.列
6、表框List 1 中已有5 个列表项,要删除列表框Lis t 1最后一项,语句是对的的。“A h A.L istl.Removelt e m L i st 1.Li stC o unt-1B.L istl.Removeitem 5C.Li s t 1.Remo v e Li s tl.ListC o unt-1D.L i s t 1.Rem o ve 514.要向D 盘根目录下的名为d a ta,t x t 的顺序文献中添加内容，应先使用 语句打开文献。B A A.0 pen d a t a.t x t F o rAp p end A s#1B.Open D：d a t a.t x t Fo
7、r App e nd As#1C.Op e n d a ta.t x t For Outpu t As#1D.Open Z，D:data.t xt For 0 ut p ut As#11 5.要 使 文 本 框 输 入 的 字 符 均 显 示 为*,则 设 立 _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ oDJA.Vi s i b le属性为*B.N a m e 属性为火C.Text属性为*D.PassW o rd Char属性为*二、程序调试题(共2()分，每错2.5分，第1题有2处错，第2题3处错，第3题3处错)启动工程文献C:kscxtsl.v bp,程序存在
8、8处错误，请调试改正，并按原文献名和位置保存。对的结果见样例c xtsl.e xe。改错方法：不能修改或重新定义变量，不允许增长或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记 *。调试改错题1.程序中有2 个错误。以下程序的功能是在文本框中输入百分制成绩，单击按钮后，在标签上显示成绩等第，分优秀、合格和不合格，规定：成绩次0 为“优秀;6 0 三 成绩80为 合格;成绩60为 不合格”。Priv a t e Sub Comman d l_Cli c k()D i m d%,s$d=Va 1 (Textl.Te xt)10Select C ase dC ase d=8s=优秀”C
9、 ase 6 To 7s=合格Case El s es=不合格”End Se 1 ectLa b ell.T e xt=成绩等第为:“+sEn d Su b对的答案:Case Is=8 或 8 T o i 0 或8,9,10Label 1 .C a ption 或 Label 1调试改错题2,程序中有3 个错误。单 击“调试改错题2”按钮，在P i ctu r e l显示有规律数字字符和字母字符图，见样例。P r i v at e Sub Comm a nd 2 _ Clic k()Dim ch$,i%,j%Pi c turel.C IsFor i=1 To 5Ch=T r im(i)F o
10、rj=1TO5 输出数字字符P ic t urel.Print C h；Next jPi c turel.P r i nt Space(3);For j=iTo5o o 输出字母字符Pi c t u rel.P r i n t Chr(6 5)；Ne x t jP i cturel.P r i ntNext jE n d Su b对的答案：F or j=1 To iPictu r e l.Pr i nt Chr(i+6 4);N e xt i调试改错题3,程序中有3 个错误。单 击“调试改错题3”按钮，自动产生两个5 9 9 9 之间的随机正整数a,b,在Text2显示较小的数a,Te xt3
11、显示较大的数b。计算a到b之间的偶数和，结果显示在Labe13。Privat e Sub Command2_C 1 ick()Dim a%,b%,c%,i%a=I nt(R n d*9 9 5+5)b=I nt(Rnd*995+5)If a b Thent=b:a=b:b=tEnd IfT e x t 1 =aTex t 2=bs=1F or i=a T o b。I f Mo d(i,2)=0 T h en s=s+iNext iL abe 1 3=S u m=n&sE nd S ub对的答案:t=aS=0i mo d 2=0三、程序填空题(共30分，每空2.5 分)1.按公式s=r+22+3
12、2+,求累加和s不超过100 0 的最大项数n。规定每行显示每个n的累加和如图所示，并将所有结果保存在c：data.txt中。Pr 1 vate Sub Form_Cl i ck()程序填空第1题E2叵 区I0455。S15M30559114202838EN123456789101 1Dim n%,s$n=1s=(1)P r int”Nn,”S”Do Wh i le(2)s=s+n*nP r in t n,sn=n+lL oopPrint”累加和不超过100 0 的最大项数n 二”;n-2O p en uc:jg.txt For(3)As#lP r i n t#l,n=H;n-2Close#1
13、End Sub答案：(1)0。(2)s 1000(3)Outp u t2.以下程序段的功能是:在一个字符串变量s t r i 中查找子串变量str 2 中出现的个数，并显示是否找到及查找到的结果。样例为查找子串“al”出现的个数为2 个。Private Sub Form_ Clic k()D i m st r 1$,str 2$,c d 1%,cd2%,n%,i%strl=T ex t 1.Texts tr2=Te x 12.Tex tcdl=L e n(strl)c d 2=Le n(st r 2)i=1n=0Do While i 03.以下程序段的子过程R ig h t S h ift的功
14、能是：将一维字符数组s 中的元素循环右移一位并输出变动后的结果。Commanded i ck()事件过程通过键盘输入右移位数，调用子过程Ri gh t Shif t 完毕对给定的字符数组元素循环右移，样例为右移3 次的结果。HGFEGFEDFEDcEDcBDcBAcBAHBAHGAHGF之后后后昉右右右领次次次女123右移Pri v at e Sub C o mm a ndl_Click()Dim i%,m%,a()a=Array。A“，”B”C”，”E F“，”G”，“H)Pri n t”原始顺序为:；Fori=0 To UBound(a)Print a(i)&”H;Nex t iPri n
15、 t(1)=Input Box(”请输入右移位数：”)Fo r i=1 To mPrint 第“&i&”次右移后：”；CallN e x t iEnd Su bSub Righ t Shi f t(ByRef s()Dim Last$,i%n%n=(3)_Las t=s(n)For i=n To 1 Step-1 c 逐位右移s(i)=(4)Next is(0)_(5)_For i=0 To n 显示右移后的结果Print s(i)&;Next iPri n tE n d Su b答案(2)R ightSh i f t(a)。(3)U B ound(s)。(4)s(i-1)(5)Las t四、
16、编 程 题(3 5 分)1.参见样例，在 F o r m l窗体上放置2 个列表框。建立如下菜单:菜单项菜单名备注应用Menul一级菜单产生Me n ull二级菜单计算Me n u 1 2二级菜单ba r分隔线结束Menul3二级菜单绘图M e n u2一级菜单在 Form2上，放 置“绘图”和“返回”2 个命令按钮。2.单 击“产生”菜单项，在列表框L is tl中随机生成10个3位正整数。单 击“计算”菜单项，在列表框List2中显示L istl各数据项每位数之和。3.单 击“绘图”菜单项时，显示窗体2,并隐藏窗体1；单击 结束”菜单项时，结束程序的运营。4 .在窗体2上单击“绘图”命令按钮，定义窗体坐标系(-1,60)-(20,-6 0),绘制坐标轴线;按公式y=(3*Si n(x)+Cos(5*x)*20绘制直线(0W x W 2 0)。单 击“返回”命令按钮则关闭窗体2,显示窗体1。5.在C:K S 目录下将工程保存为b e t 1.vbp、Form 1窗体为bctl 1.f r m、Fo r m2窗体为 bctl2.frm。.2010VB6.0应 用 绘 图734 14580 13621 9360 9371 11797 23112 4784 19833 14被H 18