Visual-Basic本科试卷及其参考答案

VisualBasic本科样卷一、单项选择题（请将答案写到题后的括号内，每小题2分，共30分）。1.下面4个选项，不是窗体属性的是（）A.minbuttonB.borderstyleC.loadD.caption2.下列选项中合法的visualbasic标识符是（）A.DoWhileB.ConstC.8aD.a#x3.表达式2*3^2+2*8/4+3^2的值是（）。A．64B．31C．49D．424.要退出For…Next循环，可使用的语句是()。A．ExitB．ExitDoC．ExitForD．EndDo5.已知a=3,b=4,c=5,表达式abandnotcaorcbandca+b的值是（）。A．TrueB．FalseC．0D．16.设a=visualbasic,则下面使b=basic的语句是（）A.b=left(a,8,12）B.b=mid(a,8,5)C.b=right(a,5,5)D.b=left(a,8,5)7.下列叙述中正确的是（）A.窗体的name属性指定窗体的名称，用来标识一个窗体B.窗体的name属性值是显示在窗体标题栏中的文本C.可以在运行期间改变窗体的name属性值D.窗体的name属性值可以为空8.以下Case语句中错误的是（）A.Case0To10B.CaseIs10C.CaseIs10andIs50D.Case3,5,Is109.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click（）x=InputBox（请输入整数）SelectCasexCase1，3Print分支1CaseIs4Print分支2CaseElsePrintElse分支EndSelectEndSub程序运行后,如果在输入对话框中输入2,则窗体上显示的是()A.分支1B.分支2C.Else分支D.程序出错10.下述程序的运行结果是()。j=0DoWhilej＜30j=（j+1）*（j+2）k=k+1LoopPrintk;jA.01B.3182C.3030D.43011.以下叙述中正确的是（）A．一个Sub过程至少要一个ExitSub语句B.一个Sub过程至少要一个EndSub语句C．可以在Sub过程中定义一个Function过程，但不能定义Sub过程D.调用一个Function过程可以获得多个返回值12.当一个单选按钮被选中时，它的value属性的值是()。A.1B.0C.TrueD.False13.执行语句DimX,YAsInteger后（）A.X和Y均被定义为整型变量B.X和Y均被定义为变体类型变量C.X被定义为整型变量，Y被定义为变体类型变量D.X被定义为变体类型变量，Y被定义为整型变量14.若要删除窗体上的文字信息，要采用下列哪个方法（）。A.clearB.cleanC.clsD.remove15.以下语句用来定义过程subP其中正确的是（）A．DimSubsubP(x,y)B.PublicsubP(x,y)C．PrivateSubsubP(x,y)AsintegerD.SubsubP(x,y)二、填空题（请将答案写在题中的横线上，每空2分，共20分）。1.VB提供了结构化程序设计的三种基本结构，分别是顺序结构、_____________和循环结构。2.表达式5mod3+5^2\3的值为________________。3.MsgBox()函数的返回值类型为_______________。4.PrintSpc(20);”Hello”语句表示在窗体的第_______列输出字符串”Hello”。5.若要将图片框中加载的图片删除，可以使用语句_________________。6.DimA(1To4)定义的数组包含的元素的个数是________________。7.定义数组时，若希望下标从1开始，可以在模块的通用部分使用___________语句将其设为1。8．使用代码向VB6.0列表框添加项目，使用的方法是___。9.为了通过传值方式来传送过程参数，应使用的关键字为_____________。10．假定程序中有以下语句：answer=InputBox(“hello”,”world”,”good”,30),执行该语句后，将显示一个信息框，此时如果单击确定按钮，则answer的值为____________。三、简答题（请将答案写在题后的空白处，每题5分，共20分）。1.简述创建VisualBasic应用程序的基本步骤。2.图片框和图像框有什么区别？3.简述动态数组的定义步骤。4.VisualBasic中常用的键盘事件有哪些？分别在何时触发？四、读程序写结果（请将答案写在题中的横线上，第1小题3分，第2小题3分，第3小题4分，共10分）。1.在窗体上放置一个名称为command1的命令按钮和一个名称为text1的文本框，并编写如下事件代码PrivateSubCommand1_Click()DimjAsIntegerj=5Callproc(j)EndSubPrivateSubproc(nAsInteger)k=1Fori=1TonStep1k=k*iNextiText1.Text=kEndSub当单击该命令按钮时，文本框中显示的内容为______________。2.有如下事件代码：PrivateSubForm_Click()DimA(1To3)AsStringDimcAsIntegerDimjAsIntegerA(1)=4A(2)=8A(3)=12c=1Forj=1To3c=c+Val(A(j))NextjPrintcEndSub当单击窗体后程序运行时，窗体Form1上显示的结果为_______________。3.下面程序运行后的输出结果是___________。x=“a”y=“b”z=“c”Fori=1to2x=yy=zz=xNextiPrintx+y+z五、编程题（请将代码写在题后的空白处，每题10分，共20分）。1.在窗体上放置两个文本框，名称分别为txtX和txtY，再放置一个按钮（cmdCal），在第一个文本框txtX中输入一个数值x，当单击按钮时，按以下公式计算出y值，并将计算结果显示在文本框txtY中。10,11106,162,120,22xxxxxxxxy　　　　　　　　　　　　　　2.在窗体上放置一个按钮（名称为cmdCnt），单击该按钮时，通过InputBox函数输入若干个字符，以？结束，分别统计其中字母、数字和其他字符的个数，将结果以以下格式输出：“字母个数为：m，数字个数为：n，其他字符个数为：p”（其中m,n,p分别为具体数值）。本科样卷参考答案及评分标准一、单项选择题1-5CABCA6-10DACCC11-15BCDCD评分标准：每小题2分，共30分，选错或不选均不给分。二、填空题1．选择结构2．103．整型或（Integer型）4．215．LoadPicture(“”)6．47．OptionBase18．addItem9．ByVal10．good评分标准：每小题2分，共20分，写错或不写均不给分。三、简答题1.创建VB应用程序可分为以下四个步骤：（1）在窗体上建立对象；（1分）（2）设置对象的属性；（1分）（3）编写对象事件过程；（1分）（4）保存和运行程序。（2分）2.2．图像框和图片框的区别如下：（1）图片框是容器控件，而图像框不能作为容器；（1分）（2）图片框可以通过Print方法显示文本，图像框则不能；（1分）（3）图像框比图片框占用内存少，显示速度快；（1分）（4）在图片的自适应问题上，图片框用AutoSize属性控制图片框的尺寸自动适应图片的大小，而图像框用Stretch属性对图片进行大小调整。（2分）3.动态数组的定义通常分两步完成：（1）在窗体、标准模块和过程中用Dim或Public声明一个没有下标的数组（括号不能省略）；（2分）（2）数组重定义。在过程中需要使用该数组前，用Redim语句定义数组大小，下标可为常量、变量或表达式，但变量或表达式必须有值。（3分）4．常用键盘事件过程有三个（1分），分别为：KeyPress事件：用户按下并释放一个能产生ASCⅡ码的键时被触发。（2分）KeyUp事件：用户释放任一键时被触发。（1分）KeyDown事件：用户按下任意键时被触发。（1分）评分标准：每小题5分，共20分，请按参考答案中给出的要点给分，若回答不准确或不完整，可酌情扣分。四、读程序写结果1．1202．253．cbc评分标准：第1小题3分，第2小题3分，第3小题4分，共10分，写错或不写均不得分。五、编程题1．PrivateSubcmdCal_click()（1分）Dimxasdouble,yasdoublex=val(txtX.Text)（1分）ifx=0andx2then（1分）y=x（1分）elseifx6then（1分）y=x*x+1（1分）elseifx10then（1分）y=sqr(x+1)（1分）elsey=1/(x*x+1)（1分）endiftxtY.text=str(y)（1分）EndSub评分标准：本题共10分，请按照上述代码后标出的步骤给分。此题若用4个单分支if语句实现，只要格式和条件及语句书写正确，也可给满分。若忘记写endif，扣0.5分，若没有用val和str函数进行转换，扣0.5分，最终结果四舍五入取整。2．PrivateSubcmdCnt_click()DimstrasString,zmNumasInteger,szNumasInteger,qtNumasIntegerzmNum=0szNum=0qtNum=0str=InputBox(“请输入一个字符”)(1分)dowhilestr“?”(1分)if(str=”A”andstr=”Z”)or(str=”a”andstr=”z”)thenzmNum=zmNum+1(2分)elseifstr=”0”andstr=”9”thenszNum=szNum+1(2分)elseqtNum=qtNum+1(1分)endifstr=InputBox(“请输入一个字符”)LoopPrint“字母个数为：”&zmNum&”，数字个数为：”&szNum&“，其他字符个数为：”&qtNum(2分)评分标准：本题共10分，请按照上述代码后标出的步骤给分。此题若用do…loopwhile结构实现，只要语句编写正确，也可给满分。若有其他写法，只要语句和基本思想正确，可酌情给分。