1、姓名: 学号: 学院: 专业班级: ( 密 封 线 内 不 答 题 )密封线线_ _ (本科)试卷(A卷)2013- 2014 学年第 二 学期VB试卷题序一二三四五六七八总 分得分评卷人注意:请务必在答题卡上作答。得分一、选择题( 共 40 分,每题 1 分)1VisualBasic是一种面向对象的可视化程序设计语言,采取了_的编程机制。 A、事件驱动B、按过程顺序来执行 C、从主程序开始执行D、按模块顺序执行2VisualBasic是一种面向对象的程序设计语言,_不是面向对象系统所包含的三要素。 A、变量B、事件 C、方法D、属性3为了保存一个Visual Basic应用程序,应当_。 A
2、、只保存工程文件(.vbp) B、分别保存工程文件、窗体文件和标准模块文件 C、分别保存工程文件和标准模块文件(.bas) D、只保存窗体模块文件(.frm) 4为了使窗体右移200(twip),应使用的语句是_。 A、 Form1.Move Width+200 B、 Form1.Move 200 C、 Form1.Move Form1.Height+200 D、 Form1.Move Left+2005VB的一个应用程序至少包含一个_文件,该文件存储窗体上使用的所有控件对象和有关的_、对象相应的_过程和_代码。 A、模块、方法、事件、程序B、窗体、属性、事件、程序C、窗体、程序、属性、事件D
3、、窗体、属性、事件、模块6有程序代码如下:text1.text=text1.text则text1、text、text1.text分别代表_。 A、对象、值、属性B、对象、方法、属性 C、对象、属性、值D、属性、对象、值7若要设置文本框中所显示的文本颜色,应设置_属性的值 A、ColorB、FillColor C、BackColorD、ForeColor8当运行程序时,系统自动自动执行启动窗体的_事件过程。A、LoadB、ClickC、UnLoadD、GotFocus9设a=10,b=5,c=1,执行语句print abc后,窗体上显示的是_。 A、FalseB、出错 C、True D、1 10
4、函数String(2,book)的值是_。 A、oB、BOOK C、bbD、 bookbook11以下语句的输出结果是_。PrintFormat$(32548.5,000,000.00)A、32,548.5B、032,548.50 C、32548.5D、32,548.5012InputBox函数返回值的类型为_。 A、数值B、字符串 C、数值或字符串(视输入的数据而定)D、变体13当Visual Basic执行下面语句后,A的值为_ A=1 If A0 then A=A+1 If A1 then A=0 A、3B、2 C、1D、0 14假定有下面的情况语句: Select case x 为了确
5、定x的绝对值大于5,正确的Case子句为_。 A、Case -5 to 5B、Case abs(x)5 C、Case Not(-5 to 5)D、Case Is5 15以下程序段的输出结果为_。 x=1 y=4 do until y4 x=x*y 姓名: 学号: 系别: 年级专业:( 密 封 线 内 不 答 题 )密封线 y=y+1 loop print x A、8B、20 C、1D、4 16下面的程序计算的数学式是_。T=1S=0ForI=1to19step2T=T*I S=S+TNextIPrintS A、1+3+5+.+19B、1+1*3+1*3*5+.+1*3*5*.19C、1*3*5
6、*.*19D、1!+3!+5!+.+19!17执行下列程序,从键盘输入10,运行结果是_。PrivateSubCommand1_Click()S=InputBox(请输入一个数字:) SelectCaseS CaseIs0 Print0 CaseIs3 Print3 CaseIs5Print5EndSelectEndSubA、3B、0C、出错D、518下面程序段的运行结果为:For i=3 to 1 step -1 Print Spc(5-i); For j=1 to 2*i-1 Print “*”; Next jprintNext iA、 *B、 *C、 *D、 * * * * * * *
7、*19执行下列代码的结果是_。PrivateSubCommand1_Click() Dima(10) ForI=1To10 a(I)=I*10 NextI Printa(I)EndSubA、110B、10 C、100D、数组下标越界20执行下面的程序段后,x 的值为_。 x = 5 For i = 1 To 20 Step 2 x = x + i 5 Next i A、24B、23 C、21D、2221语句Dim a(-3 to 4,3 to 6) as integer定义的数组元素的个数是_。 A、32B、21 C、18D、28 22设如下程序: Option base 1 Private
8、Sub Form_Click() Dim arr arr=array(10,20,ABCDE) For i=3 to 1 step -1 Print arr(i); Next i End Sub 程序运行后,单击窗体,在窗体上显示的内容为_。 A、ABCDE 10 20B、出错信息 C、10 20 ABCDED、ABCDE 20 10 23可获得当前系统日期的函数是_。、Date( )、Time( )、IsDate( )、Year( )24以下正确的函数定义形式是_。A、Public f1(a As Single)B、Private f1(a As Single)C、Sub f1(a As S
9、ingle)D、Function f1(A) As String25在窗体上添加一个名为Command1的命令按钮和两个名为Label1、Label2的标签,程序代码如下:PrivatexAsIntegerPrivateSubproc(ByValaAsInteger,ByValbAsInteger)x=a*ay=b+bEndSubPrivateSubCommand1_Click()x=5y=3Callproc(x,y)Label1.Caption=xLabel2.Caption=yEndSub程序运行后,单击命令按钮,两个标签中显示的内容分别是_。A、25和3B、25和6C、5和6D、5和3 26在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程: Private Sub Command1_Click() Dim b as integer b=b+1 End Sub 运行程序,第3次单击命令按钮后,变量b的值为_。 A、1B、3 C、0D、2 27、阅读程序:Functionp1(aAsInteger) Staticbb=b+1 p1=a*bEndFunctionPrivateSubcommand1_click()DimaAsInteger
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1