第1题（1.0分）题号:227表达式1 and 0的值【1】.答案：1). False 第2题（1.0分）题号:222把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】. 答案：1). False 第3题（1.0分）题号:60 a 和b 中有仅只有一个为1,相应的Visual Basic逻辑表达式为【1】. 答案：1). a=1 xor b=1 第5题（1.0分）题号:244设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是【1】.答案：1). (x mod 10) * 10 + int(x/10)第7题（1.0分）题号:226表达式32\7 MOD 3^2 的值是【1】. 答案：1). 4第8题（1.0分）题号:288文件按照存取方式及其组成结构可以分为顺序文件和【1】.答案1). 随机文件或随机第9题（1.0分）题号:319Option Base 1的作用是确定数组的下界为【1】.答案：1). 1第1题（1.0分）题号:236所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义.答案：N第2题（1.0分）题号:246ActiveX控件是扩展名为*.ocx的独立文件,使用时需用"工程"/"部件"载入或移去.答案：Y第3题（1.0分）题号:289框架控件和形状控件都不能响应用户的鼠标的单击事件.答案：Y第4题（1.0分）题号:350在窗体模块的声明部分中用Private声明的变量的有效范围是其所在的工程.答案：N第5题（1.0分）题号:354在框架控件上放置的控件可以移动到框架控件的外面. 答案：N第6题（1.0分）题号:231可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案：Y 第8题（1.0分）题号:247Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始角、终止角的大小相关,而且与起始角、终止角的正或负相关.答案：Y 第9题（1.0分）题号:330有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案：Y第10题（1.0分）题号:225Visual Basic程序的运行可以从Main()过程启动,也可以从某个窗体启动.答案：Y第1题（1.0分）题号:319能够改变窗体边框线类型的属性是().A:FontStyleB:BorderStyleC:BackStyleD:Bord er答案：B第2题（1.0分）题号:822以下()对象不具有Clear方法.A:列表框B:组合框C:剪贴板D:图片框答案：D第3题（1.0分）题号:258常量-0.00013579的科学计数法是().A:-1,3579E+0.4B:.00013579C:-13.579E-5D:-1.3579E-0.4答案：C第4题（1.0分）题号:230vb 应用程序是分层管理的,其最高的层次为().A:工程B:模块C:窗体D:过程答案：A第5题（1.0分）题号:837用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见.A:HideB:CheckedC:VisibleD:Enabled答案：C第6题（1.0分）题号:334若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的()属性.A:BACKCOLORB:BORDERSTYLE C:FORECOLOR D:BACKSTYLE答案：D第7题（1.0分）题号:377下列哪个变量的取法是不正确的().A:TNameB:T_TempC:T32D:T32#答案：D第8题（1.0分）题号:380下列数据类型中,占用内存最小的是().A:BooleanB:ByteC:IntegerD:Single答案：B第9题（1.0分）题号:371下列关于设置控件属性的叙述正确的是(). A:用户必须设置属性值B:所有的属性值都可以由用户随意设定C:属性值不必一一重新设置D:不同控件的属性项都完全一样答案：C第10题（1.0分）题号:801要使标签能够显示所需要的东西,则在程序中应设置其哪一属性的值().A:CaptionB:TextC:NameD:AutoSize答案：A第2题（2.0分）题号:277下列说法哪些是正确的（）？A:不能对符号常量重新赋值B:Label控件用来在窗体中显示文本，其中的文本用户不能直接修改C:TAB()函数用于在输出表达式前将输出点定位在第N-1个字符位置D:格式输出函数Format()可以使数值、日期或字符串按用户指定的格式输出答案：ABD第4题（2.0分）题号:285在VB中，需要用数据访问对象对数据库进行访问，下列哪些属于VB的数据访问对象（）。
A:DAOB:ADOC:OADD:RDO答案：ABD第5题（2.0分）题号:276下列语句哪些是错误的语句（）？A:Const Imax As Integer=&o155 B:Const _Ga As String="abc"C:Dim aa,bb As Integer,cc As StringD:yy=8,uu=9答案：BD第1题（10.0分）题号:57'【程序填空】'功能：求1!+2!+……+10!的值。
Private Sub Form_Click()'**********SPACE**********【?】s = 1For I = 2 To 10t = t * I'**********SPACE**********【?】'**********SPACE**********【?】Print sEnd Sub答案：1). t = 12). s = s + t3). Next I 或Next━━━━━━━━━━━━━━━━六、程序改错共2题（共计20分）━━━━━━━━━━━━━━━━第1题（10.0分）题号:460'------------------------------------------------'【程序改错】'------------------------------------------------'题目：已知C的公式表示如下:' n!' C=------------------' (n-m)!*m!'函数过程fac( )求k！函数,在Fomr_Click事件中完成运算，'请修正程序中错误。
'------------------------------------------------ Option ExplicitPrivate Function fac(k As Integer) As Single Dim x As Single, j As Integer'**********FOUND**********x = 0For j = 1 To k'**********FOUND**********x = x ^ jNext jfac = xEnd FunctionPrivate Sub Form_Click()Dim C As SingleDim m As Integer, n As Integerm = Val(InputBox("请输入一个整数(m)："))n = Val(InputBox("请输入一个整数(n)："))'**********FOUND**********C = fac(n) / fac(n - m) * fac(m)Print "C="; CEnd Sub答案：1). x=12). x=x*j 或x=j*x3). C = fac(n) / fac(n - m) / fac(m) 或C = fac(n) / (fac(n - m) * fac(m)) 或C = fac(n) / ( fac(n - m) * fac(m) )\第2题（10.0分）题号:467'【程序改错】'题目：从计算机输入三个数, 找出中间数Option ExplicitPrivate Sub FindMidNum()Dim x As Integer, y As Integer, z As Integer, A As Integerx = InputBox("PLEASE INPUT THE FIRST NUMBER")y = InputBox("PLEASE INPUT THE SECOND NUMBER")z = InputBox("PLESSE INPUT THE THIRD NUMBER")'**********FOUND**********If x > y ThenA = xx = yy = AEnd If'**********FOUND**********If y = z ThenPrint y'**********FOUND**********ElseIf x = z ThenPrint zElsePrint xEnd IfEnd SubPrivate Sub Form_Click()FindMidNumEnd Sub答案：1). If x < y Then 或If y > x Then2). If y >= z Then 或If z <= y Then3). ElseIf x >= z Then 或ElseIf z <= x Then。