《程序设计语言VB》试卷含答案

PAGE第1页共5页《程序设计语言VB》试卷(A卷)姓名_________班级___________学号___________成绩___________一、单选题（每题1分，共20题,总计20分）1.设A=7,B=4,C=6,，则表达式AMod3+B^3/C\5的值为____C________。 A．1 B．2 C．3 D．出错2.下列选项中，为字符串常量的是_____B____。A．6/12/2001B．"6/12/2001"C．#6.12.2001#D．'6/12/2001’3.执行语句PrintFormat(5459.478,"##,##0.00")，正确的输出是_______B__。 A．5459.48 B．5,459.48 C．5,459.478 D．5,459.474.表达式123+27mod10\6+asc(“A”)的值为__B_________。A．191B．65C．189D．1885.假定有一个菜单项，名为Menuitem，为了在运行时使该菜单失效，以下正确的语句是_____A___。A．Menuitem.Enabled=FalseB．Menuitem.Enabled=TrueC．Menuitem.Visible=TrueD．Menuitem.Visible=False6.下列控件中，______B____控件没有“Caption”属性。A．CheckBox（复选框）B．Text（文本框）C．Frame（框架）、D．Label（标签）7.下面Sub子过程的各个语句中，正确的是__D________。①PrivateSubSub1(A()Asstring)②PrivateSubSub1(A(1to10)Asstring*8)③PrivateSubSub1(SAsstring)④PrivateSubSub1(sAsstring*8)AabcdBabcCacdDac8.若要设置定时器控件的定时时间，需设置的属性是__A________。 A.Interval B.Value C.Enabled D.Text9.36.有如下程序，该程序的执行结果是__C________。PrivateSubCommand1_Click()n=5m=1k=1DoWhilek<=nm=m*2k=k+1LoopPrintmEndSubA．1B．5C．32D．40二、填空题（每空2分，共10空,总计20分）1.下面程序中，统计随机产生的十个数中偶数与奇数的个数，并求出偶数与基数各自的总和。PrivateSubCommand1_Click()DimxAsInteger,s1AsInteger,s2AsIntegerDimn1AsInteger,n2AsInteger,iAsIntegerRandomizeFori=1To10x=Int(Rnd*90)+10Printx;IfxMod2=0Thenn1=n1+1s1=s1+xElsen2=n2+1s2=s2+xEndIfNextiPrintPrint"偶数个数=";n1EndSub2.运行下面的程序，当单击窗体时，窗体上显示的第一行内容是861，第二行内容是56，第三行内容是872。PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=5:b=3Callsub1(a,b)Printa,bEndSubPublicSubsub1(ByValmAsInteger,nAsInteger)StaticxAsIntegerx=x+1m=m+n:n=m-n+xPrintm,n,xEndSub三、该错题（改正一处错误得2分，总计12分）1、给定程序MODI1.BAS其功能是:建立并打印一个5×5的矩阵，该矩阵的主对角线为1，其余元素为0。要求输出形式为：1000001000001000001000001但程序有错，请改正之。注意：不得增行或删行，也不得更改程序结构！OPTIONBASE1DIMA(5,5)CLSFORI=1TO5FORJ=1TO5IFI=JTHEN'**********found**********A(I,J)=0ELSE'**********found**********A(I,J)=1ENDIF'**********found**********PRINTA(I,J)NEXTJPRINTNEXTIEND四、编程题（总计18分）1.编程完成如下要求，界面设置如右图所示（8分）编程要求：(1)程序参考界面如图所示。其中label1对象用于显示不同运算符选择。编程时不得增加或减少界面对象或改变对象种类。(2)实现功能：在“操作”中选择圆面积或圆周长，界面上label1对象的caption属性将岁运算符选择不同而改变；单击“=”按钮，则根据输入的数据和运算符选择，求出结果，并显示在文本框中。(3)在下面的事件中填写适当的代码段。代码如下：PrivateSubcommand1_Click()’单击“=”按钮EndSubPrivateSubOption1_Click()’单击“+”单选按钮EndSubPrivateSubOption2_Click()’单击“