河北省对口计算机期末考试VisualBasic试卷

河北省对口计算机期末考试VisualBasic试卷注意事项：1.本试卷共有六道大题。总分120分。2.第I卷（选择题）、第二卷（非选择题）的答案写在答题卡上，答在试卷上不得分。用蓝黑钢笔、碳素笔答题。3.答题前将密封线内项目填写清楚。第I卷（选择题共60分）一、单项选择题1．在VisualBasic中，UCASE(12ABcd34)的值是()A．abcdB．1234C．12ABCD34D．12abcd342．VisualBasic窗体模块文件的扩展名是()A．.FRMB．.WINC．.VBGD．.BAS3．在VisualBasic中，产生15到35之间（含15和35）的随机整数，哪个公式正确()A．Int(21*Rnd)+35B．15+Int(21*Rnd)C．Int(15+21)*RndD．40-15*Int(Rnd)4．下面不是VisualBasic合法数据的是()A．2E2.1B．2%C．A+AD．True5．执行VisualBasic语句PRINT100+45的显示结果是()A．145B．10045C．100+45D．语句有语法错误6．读下面VisualBasic程序，最后一行输出结果是（）a=-22:b=5c=Len(Str(a)+Str(b))PrintcA．4B．5C．6D．77．设a=3:b=4:c=5:d=6，下面VisualBasic表达式的值是（）表达式：NotabOrc=9Andd9A．1B．0C．TrueD．False8．下面VisualBasic中数据中，表示1978年10月20日正确的格式是()A．10-20-1978B．10/20/1978C．#1978.10.20#D．#10-20-1978#9．在VisualBasic中，PrintLenB(ABab河北)的值是（）A．4B.6C.8D.1210．VisualBasic中声明数组DimA(-3to100,1to4),则Lbound(A,1)的值是（）A.1B.100C.-3D．411．在VisualBasic中，语句PrintMid(ABCDEFG,2,3)=bcd的输出结果班级姓名准考证号是（）A.FalseB.TrueC．A123EFGD.12312.下面VisualBasic表达式不合法的是（）A.12+12B.ab+12C.ab+12D.Now+113．VisualBasic中,表达式13.5Mod3.2*4的值是（）A.0B.1C.2D．314．执行下面VisualBasic程序，数组a中元素值是w的数据经过一系列位置变化后，其最终位置的下标是哪个选项（）OptionBase0PrivateSubCommand1_Click()DimwAsIntegerw=20a=Array(10,15,6,8,93,84,w)DimiAsIntegerDimjAsIntegerDimtAsIntegerFori=0To5Forj=i+1To6Ifa(i)a(j)Thent=a(i):a(i)=a(j):a(j)=tEndIfNextjNextiEndSubA.2B.4C.6D.815．在VisualBasic中，语句PrintInStr(2,abcdeabfg,ab)的输出结果是()A.0B.1C．5D.616．执行下面VisualBasic程序，最后输出s的值是（）DimaAsIntegerDimsAsIntegera=2s=0Fori=1To10s=s+i*aNextiPrintsA.55B.20C.110D.10017．在BASIC中，以下不正确的实型常数是（）A．9876.432D-2B．8975.98E100C．12.5#D．12.3E+2518．计算MOD(-8，-6)的结果为（）A．2B．1C．-2D．-119．在BASIC中，运行PRINTX=3*5输出结果是（）A．X=15B．15C．falseD．ture20．执行以下程序段,输出的结果为()a$=abbacddcbaFori=6To2Step-2x=Mid(a,i,i):y=Left(a,i)z=Right(a,i):z=UCase(X&Y&z)NextiPrintzA．ABAB．BBABBAC．ABBABAD．AABAAB21．下面表达式的值为True的是________。A．Mid(VisualBasic，1，12)=Right(ProgramminglanguageVisualBasic，12)B．ABCRGabcdeC．Int(134.69)=Cint(134.69)D．78.9／32.77=97.5／43.97And–45.4-4.9822．代数表达式yxxex3sinln对应的VisualBasic表达式是________。A．Log(Abs((Exp(x)+Sin(x)^3)／(x+Y)))B．Ln(Abs((Exp(x)+Sin(x)^3)／(X+Y)))C．Log(Abs(Exp(x)+Sin(x)^3)／(X+Y))D．Log|(Exp(x)+Sin(x)^3)／x+y|23．若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用________关键字在该过程中定义局部变量。A．DimB．PrivateC．PublicD．Static24．下列程序段的运行结果为（）Fori=3To1Step-1PrintSpace(5-i);Forj=1To2*i-1Print*;NextjPrintNextiA.*B.*****C.*****D.*************************25.在Visualbasic中赋值语句：a=123&MID(123456,3,2)执行后，a变量的值是（）A.12334B.123C.12334D.15726.窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b和c，且变量a的值为5，变量b的值为7，变量c的值为12。以下语句中可以使文本框内显示的内容为：5+7=12的是（）A．Text1．Text=a+b=cB．Text1．Text=a+b=cC．Text1．Text=a&+&b&=&cD．Text1．Text=a&+&b&=&c27.窗体上画一个名称为Command1命令按钮，然后编写如下程序：PrivateSubCommand1_Click（）DimiAsInteger，jAsIntegerDima（10，10）AsIntegerFori=1To3Forj=1To3a（i，j）=（i-1）*3+jPrinta（i，j）;NextPrintNextiEndSub程序运行后，单击命令按钮，窗体上显示的是______。A．123B．234246345369456C．147D．12325845636978928.在VisualBasic中，设A$=AbCdEf,下列返回值与函数MID(A$,2)相同的是（）A．Left(A,2)B.Right(A,5)C.Left(Lcase(A),5)D.Instr(2,A，AbCdEf)29.在VisualBasic中，若x是一个正实数，对其第3位小数四舍五入并保留2位小数的正确表达式是()A．0.01*Int(x+0.005)B.0.01*Int(100*(x+0.005))C.0.01*Int(100*(x+0.05))D.0.01*Int(x+0.05)30.在VisualBasic中，X=5,执行语句printX＝X*10后窗体上显示的结果是（）A.X＝50B.50C.TureD.False第Ⅱ卷（非选择题共60分）二、判断题（本大题5小题，每小题1分，共5分。将答案涂在答题卡上，正确的填涂“√”格，错误的填涂“×”格）1.已知A$=87654321，则表达式Val(Left$(A$，4)+Mid$(A$,4,2))的值是：876554。()2.PublicPi=3.1415可以将Pi定义为符号常量。()3.表示x是5的倍数或是9的倍数的逻辑表达式为:xMod5=0ORxMod9=0。()4.在同一行内，续行符后面可以再加注释符号。（）5.使用OptionBase语句可以对变量进行显示声明。（）三、填空题（本大题共5小题，每小题2分，共10分。）1.代数式))()((csbsass在VisualBasic中的算术表达式是。2.表示x是5的倍数或9的倍数的逻辑表达式是。3.在变量名后加上尾符可表示变量的类型，货币型和双精度实型分别加。4.字符串比较函数的函数值为，函数值的数据类型为。5.设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为。四、程序分析（本大题共2大题，每小题5分，共10分，读程序并分析结果）1.阅读下面的Basic程序：语句B$=mid(A$,i,1)执行的次数是，变量n=。A$=职2教6jsj9VB3L=len(A$):n=0Fori=1toLB$=mid(A$,i,1)IfB$=0andB$=9Thenn=n+1Nexti2.以上VisualBasic程序单击窗体后，语句k=k+1运行的次数是PrivateSubForm_Click()DimiAsInteger,jAsInteger,kAsIntegerk=0Fori=0To10Step3Forj=1To10Ifj5Thenk=k+4:ExitFork=k+1NextjPrinti,kNextiEndSub五、写出下列程序的运行结果（本大题共2大题，每小题5分，共10分,请填写在答题纸上）1.运行下面的程序，单击窗体后在窗体上显示的结果是PrivateSubForm_Click()DimStr1AsString,Str2AsStringDimStr3AsString,IAsIntegerStr1=eForI=1To2Str2=UCase(Str1)Str1=Str2&Str1Str3=Str3&Str1Str1=Chr(Asc(Str1)+I)NextIPrintStr3EndSub2.分析下面VisualBasic程序段Optionbase1DimiAsIntegerDimjAsIntegerDimsAsIntegerDima(5,3To7)AsIntegers=0Fori=1To2Forj=1To2If(i+j)Mod2=0Thens=s+LBound(a,j)s=s+UBound(a,j)EndIfNextjNextiPrints上面程序运行后，s的值是。六、程序改错（本大题共2小题，每题5分，共10分。每个程序有两处错误，请在答题纸上写出错误行代码和改正后的代码。改错不扣分）1.下列公式用于计算公式：1！+2！+3！+……+n!PrivateSubForm_Click()10DimxAsInteger,nAsInteger,yAsInteger20n=InputBox(请输入变量的值)30Fori=1Ton40p=050Forj=1Toi60p=p*j70Nextj80s=s+p90Nexti100PrintsEndSub2.下面程序的功能是：统计字符串中“I”的个数PrivateSubForm_Click()10DimaAsString,bAsString,mAsInteger,jAsInteger20a=BEIJINGUNIONUNIVERSITY30m=a40Forj=1Tom50b=Mid(a,j,j)60Ifb=IThenx=x+170Nextj80Printx=;xEndSub七、程序填空（本大题共3个空，每空5分，共15分，按程序要求在答题卡上填入相应的内容，使程序完整正确）题目：以下程序功能是输入三个数，由大到小排序。OptionExplicitDimAAsIntegerDimBAsIntegerDimCAsIntegerPrivateSubForm_Click()DimnTempAsIntegerA=Val(InputBox(Pleaseinpu