(精品电大vb程序设计形成性考核2答案

1、电大VB程序设计形成性考核2答案判断题：（共20题每题2分）1、一个对象可以响应一个或多个事件。X参考答案：正确2、一个窗体必须对应一个窗体模块，各种控件对象必须建立在窗体上。糞参考答案：正确3、窗体事件和其中所有控件事件的代码都放在窗体文件（.frm ）中。：X 参考答案：正确4、 在VB中，控件的事件只能通过用户的操作触发。X参考答案：错误5、字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。X参考答案：正确6保存工程时，窗体文件和工程文件的文件名不能相同。*° 正确错误参考答案：错误7、改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。黛正确错误参考答案：正

2、确8、同一过程中，数组和简单变量可以同名。X& 正确0 错误参考答案：错误9、VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。XQ 正确o 错误参考答案：正确10、代码 Const Number1=15: Number1=10合法。参考答案：错误11、允许将块If-Then语句结构中的所有语句都写在一行上。X0 正确参考答案：错误12、 定义数组语句Dim a(b) As Integer是正确的。 淡O 正确lol错误参考答案：错误13、在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。X&

3、#176; 正确0 错误参考答案：正确14、 case是合法的变量命名。XD 正确o 错误参考答案：错误15、按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。寥 ° 正确参考答案：错误16、若一个工程包含多个窗体，则这些窗体之间是可以互相调用的。次参考答案：正确17、窗体间是通过窗体对象的caption来调用的。X参考答案：错误18、 一个数组中的元素必须是相同的数据类型。X参考答案：错误19、用Labell.Caption=" 你好"与Labell ="你好"均可以改变标签标题，且结果完全相同。健0 正确o 错误参考答案：

4、正确20、定时器控件的时间间隔设为0或Enabled属性设为False，都将停止触发Timer 事件。*0 正确0 错误参考答案：正确单选题：（共30道试题，每题1分）1、如果准备读文件，打开顺序文件“ text.dat ”的正确语句是 （ ）。A . open ”text.dat ” For write As # 1B . open ”text.dat ” For Binary As # 1C. ope n ”text.dat ” For In put As # 1。 D. open ”text.dat ” For Random As # 1参考答案：C2、下列 CommonDialogl

5、控件程序代码，Commondialogl.Action=1 ,代表( )。XO A 文件另存为QI B 打开文件O C .色彩|O| D .打印参考答案：B3、下列数据对象数据模型中采用 OLE DB访问数据库的是()Xo A. DAOB . RDOC. ADO参考答案：C4、设ADOrs为Recordset对象，从“学生基本情况表”中获取所有记录的语句是 （ ）。X0 A . ADOrs.Open“elect * From学生基本情况表”0 B . ADOrs.Execute select * From学生基本情况表”0 C. ADOrs.Newselect * From学生基本情况表”Q

6、D. ADOrs.Select select * From学生基本情况表”参考答案：A5、VB中将变量x1声明为Excel应用程序对象的方法是（）XA . Dim x1 As Excel.ApplicationB . Dim x1 As Excel.WorkbookC. Dim x1 As Excel.WorksheetO D. Dim x1 As Excel.Worksheets参考答案：A6 VB程序通常不会产生错误提示的是()Xo A .编译错误QI B .实时错误oC .运行时错误0| D .逻辑错误参考答案：D7、VB程序的编译错误一般通过 VB集成环境的何种设置，自动检测( )。X

7、° A .要求变量声明O B 自动语法检测O C 自动显示快速信息D .根本无法进行检测参考答案:B8、VB程丿序中设置断点的按键是（)°XA.F5键IOIB .F6键lolC.F9键D.F10键参考答案：C9、Err对象中，用来表示错误描述的属性是（），A. ErrNoB. DescriptionC. Number D. Souece 那OA. ErrNoB. DescriptionOC. NumberD. Souece参考答案：B10、能够改变标签（Label）控件显示标题的属性是（）XOA.Name°B .CaptionOC .TextD . Border参

8、考答案：B11、当一个工程中含有多个窗体时，其中的启动窗体是（）XO A 启动VB时创建的第一个窗体O B .第一个添加的窗体O C .在“工程属性”对话框中指定的窗体O D .最后一个添加的窗体参考答案：C12、下列4项中合法的变量名是（）XO A. 2xyzO B . I ntegerO C. x-yz0 D. x_yz参考答案：D13、下列正确的赋值语句是（）A. x+y=zB . 2=x+y C. z=x+yD. x=lnteger+2 XO A. x+y=zQ B. 2=x+yO C. z=x+yD . x=ln teger+2参考答案：C14、可通过下列何种属性来设置或返回List

9、列表框控件中当前选定项目的索引( )。XO A . Listl ndex° B . ListCou nt° C . ListTextD . LisItem参考答案：A15、若窗体Forml左上角的坐标为（-250,300），右下角的坐标为（350,-200），那么X轴和Y轴的正方向是（）O A .向左和向上 O B .向左和向下 o C.向右和向下 O| D .向右和向上参考答案：D16、如果仅需要得到当前系统时间，则可以使用哪个函数（）X° A. TimeB. YearO C. NowO D. Date参考答案：A17、 数学关系8< y<40表示成

10、正确的VB表达式为（）A. 8<=y<40B . 8<=yAND<40C. 8<=y AND y<40rzO D . 8<=y OR y<40参考答案：C18、应用程序打包后，其包文件的后缀是（）M° A . .cabo B. Me_Load0C. Form1_LoadD. Form_Load参考答案：D20、以读方式打开D盘中的Text.dat文件，正确的语句是（A.仲汕sum.山wiriifpiif r- r 1B. open* D:textdPL For Input As tt 1C . open*' D:Xtext _d

11、af' For Input AsD.open"textFor Randon fts It 1参考答案：B21、在VB中，Access数据库属于（）XId A .本地数据库参考答案：A22、在设计动画时，用时钟控件来控制动画速度的属性是( )XA. EnabledO B .In tervalO C. TimerD. Move参考答案：B23、下列控件中不能响应Click事件的是()X° A. FrameB. Label° C. FormD . Timer参考答案：D24、文本框不具备的属性是（）XOA .EnabledOB.VisibleQIC.BackCo

12、lorOD.Caption参考答案：D25、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是( )。X。A .单选按纽° B.图片框C 该可执行文件有病毒D以上原因都不对参考答案：D27、启动VB后，就意味着要建立一个新（X)0A 文件OB 窗体OC 程序D .工程参考答案：D28、在VB环境中，标准类模块文件的扩展名是（）X0A.vbp0B.frm°C.basD .frx参考答案：C29、Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（)°O A 设计模式OB 执行模式O C 中断模式O D 编写代码模式参考答案

13、：D30、下列4项中合法的变量名是（）。A. 45 xyzEB. SingleC. Rx-yzD. RTx_yz 箕A. 45 xyzE 胡 B . Single参考答案：D单选题：(共6道试题，每题5分)1、阅读程序，运行结果时文件框Text3的结果是()Private Sub Comma nd1_Click()x = 0Do While x < 20x = (x + 1) * (x +3)n = n + 1LoopText1.Text = Str( n)Text2.Text = Str(x)Text3.Text = Val(Text1.Text) + Val(Text2.Text)E

14、nd SubMA. 20参考答案：D阅读程序，程序运行时单击窗体后，窗体Forml上的结果为()Private Sub Form_Click()Dim A(1 To 3) As Stri ngDim c As In tegerj As In tegerA(1) =3”A(2) =6”A(3) =9”c=0For j=1 to 3c = c + Val(A(j)Next jPrint cEnd SubXo| A .18Q B . 20C. 25D. 28参考答案：A3、阅读程序，运行结果为()Private Sub Comma nd1_Click()Dim A(2 To 7) As In tegerDim b As In tegerFor b = 2 To 7A(b) = bNext bTextl.Text = A(b - 2)End SubXD A. 7o B. 10C. 6O D. 9参考答案：C4、阅读程序，运行结果为()Private Sub Form_Click()Dim i As In teger, a As In tegerk = 0For i = 1 To 6