大学vb考试题库

大学vb考试题库 第1题 (2分) 题号:2681 i=0 对象在响应某个事件时，计算机要执行一段程序a=Array(1,-2,9,0,-1,9) Do K=a(i) ， For m=10 To k Step -以完成相应的操作，这样的程序片段叫做( )2 过程。 n=k+m (A).方法 Next m (B).事件 Print n+m (C).调动 i=i+1 Loop While Abs(m+n)<>27 (D).编译 (A).3 -8 27 答案:B (2分) 题号:2667 (B).3 27 第1题 -8 下列不是Visual Basic文件的是______。 (C).-8 27 3 (A).*.frm文件 (D).-8 3 27 (B).*.bas文件 答案:A (C).*.cls文件 第9题 (2分) 题号:2909 (D).*.txt文件 定义该数组的大小，但不清除其中的元素，合法答案:D 的数组定义是_____。 第2题 (2分) 题号:2661 (A).Dim Ary() 下列不属于Visual Basic特点的是______。 (B).Redim Preserve Ary(15) ((A).对象的链接与嵌入 C).Public Ary(1 To 5) As String (B).结构化程序设计 (D).Static Ary() (C).编写跨平台应用程序 答案:B (D).事件驱动程序编程机制 第10题 (2分) 题号:2920 答案:C 下列程序运行后，信息框显示的内容是()。 第3题 (2分) 题号:2671 Private Sub Commandl_Click() 以下不能在“ Dim s1 As String ,s2 AS Integer 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 管理器”窗口中列出的文件类 s1 = "Hello-World,2003" 型是______。 s2 (A)..bas = Len(s1) + InStr(1,S1,"2") (B)..res MsgBOX s2 (C)..frm End Sub A).Hello-World (D)..ocx ((B).2003 答案:D (C).16 第4题 (2分) 题号:2743 "计算机等级考试"这七个汉字作为字符串常量，(D).29 在Visual Basic中可以表示为_____。 答案:D (A).{计算机等级考试} (B).(计算机等级考试) 第11题 (2分) 题号:2655 (C).计算机等级考试 与传统的程序设计语言相比，VisualBasic最突(D)."计算机等级考试" 出的特点是______。 答案:D (A).结构化程序设计 第5题 (2分) 题号:2719 (B).程序开发环境 在表示长整数时，可作为长整数尾部符号的是(C).事件驱动编程机制 _______。 (D).程序调试技术 (A).# 答案:C (B).! 第12题 (2分) 题号:2951 (C).& 下列说法错误的是( )。 (D).$ (A).在同一模块不同过程中的变量可以同名 答案:C (B).不同模块中定义的全局变量不可以同名 第6题 (2分) 题号:2718 (C).引用另一模块中的全局变量时,必须在变量将Cos(y)四舍五人保留3位小数的表达式是名前加模块名 _______。 (D).同一模块中不同级的变量可以同名 (A).Int((Cos(Y)+0.5)*1000)/1000 答案:B (B).Int(Cos(Y*1000))/1000+0.5 第13题 (2分) 题号:2928 (C).Int(Cos(Y)*1000+0.5)/1000 下述程序的运行结果是______。 (D).Int(Cos(Y*1000)+0.5)/1000 Private Sub Command1_Click() 答案:C Dim a As Integer,b As Integer a=5 第7题 (2分) 题号:2700 b=5 如果逻辑与(And)运算的结果为"真",与它所连接 Value a,b 的两个条件必须是_______。 End Sub (A).前一个为"真",后一个为"假" Sub Value(a As Integer,b As Integer) (B).前一个为"假",后一个也为"假" calcl a,b (C).前一个为"真",后一个也为"真" calc2 a,b (D).前一个为"假",后一个为"真" Print a; 答案:C Print b End Sub 第8题 (2分) 题号:2873 Private Sub calcl(a As Integer,b As Integer) 下述语句的运行结果是______。 a=a+b Dim a End Sub Private Sub calc2(a As Integer,b As Integer) (C).256 b=a*b (D).127 End Sub 答案:C (A).10 50 (B).5 25 第20题 (2分) 题号:3170 (C).5 5 关于Image控件和PictureBox控件的说明,其中(D).10 5 错误的是______. 答案:A (A).Image控件和PictureBox控件都有Picture 属性 第14题(B).Image控件和PictureBox控件都支持Print (2分) 题号:2734 方法 以下不合法的单精度实数是_____。 (A).4.12E3.2 (C).Image控件和PictureBox控件都可以用L(B).45.6! oadPicture函数把图形文件装入控件中 (C).12.34 (D).Image控件和PictureBox控件都能在属性窗 口装入图形文件,也都能在运行期间装入图形文(D)..0012 件答案:A 答案:B 第15题 (2分) 题号:2965 使用Open语句打开文件时需果指定参数Len的是第1题 (2分) 题号:2666 下列叙述不正确的是______。 _____。 (A).注释语句是非执行语句,仅对程序的有关内(A).打开文本文件 容起注释作用,客观存在不被解释和编译 (B).打开随机文件 (C).打开二进制文件 (B).注释语句可以放在代码中的任何位置 (D).打开顺序文件 (C).注释语句不能放在代码中的任何位置 答案:B (D).代码中加入注释语句的目的是提高程序的可第16题读 (2分) 题号:2720 性 下列表达式中，与其他3个大小不同的一个是__答案:B _____。 (A).15 第2题 (2分) 题号:2672 (B).&HA 通用过程可以通过执行“工具”菜单中的_____命(C).1111 令来建立。 (D).&017 (A).添加过程 答案:C (B).通用过程 第17题 (2分) 题号:2998 (C).添加窗体 以下叙述中错误的是( )。 (D).添加模块 (A).一个工程中只能有一个SubMain过程 答案:A (B).窗体的Show方法的作用是将指定的窗体装 入内存并显示该窗体 第3题 (2分) 题号:2668 (C).窗体的Hide方法和Unload方法的作用完全与传统的程序设计语言相比，Visual Basic最突相同 出的特点是______。 (D).若工程文件中有多个窗体,可以根据需要指(A).结构化程序设计 定一个窗体为启动窗体 (B).程序开发环境 答案:C (C).事件驱动程序编制 (D).程序调试技术 第18题 (2分) 题号:3075 答案:C 在窗体上添加一个文本框，名为Text1，然后编第4题 (2分) 题号:2693 写如下的Load事件过程，则程序的运行结果是_下列符号_______是Visual Basic中的合法变量__... 名。 Private Sub Form_Load() (A).x23 Textl.Text="" (B).8xy Textl.SetFocus (C).END t=1 (D).X8[B] For k=10 To 6 Step -2 答案:A t=t*k Next k 第5题 (2分) 题号:2717 Text1.Text=t 语句Print"Int(-13.2)=";Int(-13.2)的输出结End Sub 果为_______。 (A).在文本框中显示120 (A).Int(-13.2)=-13.2 (B).文本框中仍为空 (B).Int(-13.2)=13.2 (C).在文本框中显示480 (C).Int(-13.2)=-13 (D).出错 (D).IRI(-13.2)=-14 答案:C 答案:D 第6题 (2分) 题号:2742 第19题 (2分) 题号:3148 下列选项中是Visual Basic中的合法变量名的是使用通用对话框控件打开字体对话框时,如果要_____。 在字体对话框中显示样式和颜色,必须设置通用(A).AB7 对话.. (B).7AB (A).128 (C).If (B).225 (D).A.7 答案:A (D).5 10 第7题 (2分) 题号:2697 答案:B 有如下程序: 第13题 (2分) 题号:2927 a$="China" 下述程序的运行结果是______。 b$=Right(a$,3):c$=String$(3,b$) Private Sub Command1_Click() Print c$ a=1.5 运行后,输出结果是_______。 b=1.5 (A).Chi Call fun(a,b) (B).aaa Print a,b (C).iii End Sub (D).ina Private Sub fun(x,y) 答案:C x=y*y 第8题 (2分) 题号:2896 y=y+x 在Visual Basic中，下面的4个数组说明语句语End Sub 法正确的是_____。 (A).2.25 1.5 (A).Dim a[l0] (B).1.5 2.25 (B).Del fn(10) (C).2.25 3.75 (C).Dim a(10) (D).0.75 1.5 (D).Dimension a(10) 答案:C 答案:C 第14题 (2分) 题号:2684 第9题 (2分) 题号:2887 语句Print "Sgn(-26)=":Sgn(-26)的输出结果下列程序的输出结果是______。 为______。 Dim a (A).Sgn(-26)=26 a=Array(1,2,3,4,5,6,7,8,) (B).Sgn(-26)=-26 i=0 (C).Sgn(-26)=+1 For K=100 To 90 Step -2 (D).Sgn(-26)=-1 s=a(i)^2 答案:D If a(i)>3 Then Exit For 第15题 (2分) 题号:2964 i=i+1 返回文件大小应使用的函数为_____。 Next k (A).Loc k;a(i);s Print (B).LOF (A).88 6 36 (C).EOF (B).88 1 2 (D).FileAttr (C).90 2 4 答案:B (D).94 4 16 第16题 (2分) 题号:2744 答案:D 在Visual Basic中，6个关系运算符<>、=、<、>、>=、第10题 (2分) 题号:2872 <=中，优先级最高的是_____。 下面的数组声明语句中______是正确的。 (A).> (A).Dim A[3,4] As Integer (B).= (B).Dim A(3,4) As Integer (C).无先后之分 (C).Dim A[3;4] As Integer (D).<> (D).Dim A(3;4) As Integer 答案:C 答案:B 第17题 (2分) 题号:2996 当窗体被加载时运行,发生的事件是_____。 第11题 (2分) 题号:2678 (A).Load 在Visual Basic中，系统的基本运行实体是(B).Unload _____。 (C).Resize (A).属性 (D).Paint (B).事件 答案:A (C).对象 第18题 (2分) 题号:3115 (D).函数 能够将文本框Textl控件隐藏起来的属性是(). 答案:C (A).Clear 第12题 (2分) 题号:2926 (B).Visible 下列程序输出结果为: (C).Hide Private Sub Command1_Click() (D).New a%=10 答案:C b%=5 第19题 (2分) 题号:3147 Change a,b 下列关于菜单的说法中,错误是_____. Print a,b (A).每个菜单项都是一个控件,与其他控件一样End Sub 也有其属性和事件. Private Sub Change(ByVol a As Integer,b As (B).除了Click事件之外,菜单项不可能影响其Integer) 他事件 Tmp=a (C).菜单项的索引号必须从1开始 a=b (D).菜单项的索引号可以不连续 b=tmp 答案:C End Sub 第20题 (2分) 题号:3176 (A).5 5 要更改VisualBasic坐标系统的单位.要设置的(B).10 10 属性是_____. (C).10 5 (A).Scaletype (B).Scaletop 在窗体上画一个命令按钮(其Name属性为Co(C).Scalemode mmand1)，然后编写如下代码: (Option Base 1 D).Scalewidth Private Sub Command答案:C 1_Click() 第1题 (2分) 题号:2663 Dim a(4,4) 下面关于Visual Basic 6.0工具栏的说法不正 For i=1 To 4 确的是______。 For j=1 To 4 (A).工具栏的位置可以任意改变 a(i,j)=(i-1)*3+j (B).工具栏一定在菜单栏的下方 Next j (C).工具栏可以显示或隐藏 Next i (D).VisualBasic有多个工具栏 For i=3 To 4 答案:B For j=3 To 4 Print a(j,i); 第3题 (2分) 题号:2654 Next j 对象可以识别和响应的某些行为称为______。 Print (A).属性 Next i (B).方法 End Sub (C).继承 程序运行后，单击命令按钮，其输出结果为____(D).事件 _。 (A).6 9 7 10 答案:D (B).7 10 8 ll 第4题 (2分) 题号:2729 (C).8 11 9 12 可以删除字符串尾部空格的函数是_____。 (A).Ltrim (D).9 12 10 13 (B).Rtrim 答案:D (C).Trim 第10题 (2分) 题号:2863 (D).Mid 表达式Str(Len"123"))+Str(77.7)的值是__答案:B_____。 (A).377.7 第5题 (2分) 题号:2708 有如下程序: (B).3 77.7 Dim zxs As Integer (C).80.7 zxs%=232 (D).12377.7 zxs=232.32 答案:B Print 第12题 zxs%;zxs (2分) 题号:2934 运行后，输出结果是_______。 下面过程定义语句中合法的是_____。 (A).232232032 (A).Sub Proc(ByVal n()) (B).232232 (B).Sub Proc(n) As Integer (C).232.32232.32 (C).Function Proc(Proc) (D).显示出错信息 (D).Function Proc(ByValn) 答案:B 答案:D 第6题 (2分) 题号:2732 设a=2,b=3,c=4,d=5,下列表达式的值是_____。 第13题 (2分) 题号:2960 (A).a>b And C<=d Or 2*a>c 有如下函数过程: (B).True Function gys(ByVal X AS Integer, ByVal (C).False y AS Integer) AS Integer (D).-1 DO While y <> 0 答案:B preminder = x / y 第7题 (2分) 题号:2738 x = y 表达式4+5\6*7/8 Mod 9的值是_____。 y = preminder (A).4 Loop (B).5 gys = x (C).6 End Function (D).7 以下是调用该函数的事件过程，该程序的运行结答案:B 果是( )。 第8题 (2分) 题号:2910 Private Sub Command1_Click() 有如下程序: Dim a AS Integer Private Sub Command1_Click() Dim b AS Integer m$="ABC" a = 10 n$="abc" b = 2 k$=LCase$(mS) x = gys(a,b) j$=UCase$(n$) Print x Print Asc(k$+j$) End Sub End Sub (A).0 程序运行后，输出的结果是_____。 (B).25 (A).abcabc (C).5 (B).ABCABC (D).100 (C).65 答案:C (D).97 第14题 (2分) 题号:2748 答案:D 下列程序执行后，n的值为_____。 第9题 (2分) 题号:2899 n=0 For I=1 To 100 (A).执行"运行"菜单中的"启动"命令 If I Mod 4=0 Then n=n+1 (B).单击工具栏中的"启动"命令 (C).按下F5键 Next I (D).按下Ctrl+F5键 (A).5050 答案:D (B).25 (C).26 (D).33 第3题 (2分) 题号:2652 答案:B 以下不是Visual Basic的特点的选项是______。 (A).可视编程 第15题(B).算法设计 (2分) 题号:2972 (C).事件驱动 下列关于LOC函数说法正确的是_____。 (A).对于随机方式打开的文件返回上一次对文件(D).面向对象 进行读出或写入的记录号 答案:B (B).对于顺序打开的文件返回上一次读出或写入 的字节位置 第4题 (2分) 题号:2753 (C).对于二进制数方式打开的文件返回当前字节表达式Int(Rnd*11+10)的值的范围是( )。 位置除以128的值 (A).(0,10) (D).对于文本方式打开的文件返回当前位置 (B).[10,10] 答案:A (C).[10,20] (D).[0,20] 第16题 (2分) 题号:2686 答案:C 有如下程序: 第5题 (2分) 题号:2705 a=6:b=8 函数UCase("basic")的值为_______。 F=Sqr(a*a十b*b) (A).Basic Print F (B).basic 运行后输出的结果是_____。 (C).BAsic (A).6 (D).BASIC (B).8 答案:D (C).10 第6题 (2分) 题号:2701 (D).14 Randomize语句的功能是_______。 答案:C (A).产生个(0,1)之间的随机小数 (B).产生一个[1,10]之间的随机整数 第17题 (2分) 题号:3001 (C).产生一个(-1,1)之间的随机小数 每建立一个窗体，工程管理器窗口中就会增加一(D).产生新的随机整数. 个( )。 答案:D (A).工程文件 第7题 (2分) 题号:2732 (B).窗体文件 设a=2,b=3,c=4,d=5,下列表达式的值是_____。 (C).程序模块文件 (A).a>b And C<=d Or 2*a>c (D).类模块文件 (B).True 答案:B (C).False 第18题 (2分) 题号:3096 (D).-1 在下列的属性中,不属于列表框的是(). 答案:B (A).cls (B).ListCount 第9题 (2分) 题号:2897 (C).Text 以下程序的输出结果是_____。 (D).Listlndex Private Sub Command1_Click() 答案:A Dim a(10),p(3) As Integer k=5 第19题 (2分) 题号:3160 For i=1 To 10 菜单控件仅支持下面哪一事件(). a(i)=i (A).Click Next i (B).MouseDown For i=1 To 3 (C).KeyPress p(i)=a(i*i) (D).Load Next i 答案:A For i=1 To 3 第20题 (2分) 题号:3165 k=k+p(i)*2 下述程序的输出图形是_______。 Next i For k=0 To 360 Print k Cr=Int(160*Rnd) End Sub ang=-3.1415926/180*k (A).33 Circle(200,200),50,cr,O,ang (B).28 Next (C).35 (A).一段彩色圆弧 (D).37 (B).一个彩色扇形 答案:A (C).一个彩色空心圆 第10题 (2分) 题号:2885 (D).一个辐射状彩色圆形 下列程序段的执行结果为______。 答案:D Dim M(10) 第2题 (2分) 题号:2677 For i=0 To 10 以下不能运行工程的操作是_____。 M(i)=2*i Next i 答案:D Print M(M(3)) 第17题 (2分) 题号:2993 (A).12 下列说法中正确的是_____。 (B).6 (A).窗体?命令按钮?标签和文本框控件都有(C).0 Tabindex属性 (D).4 (B).不同控件的Tabindex属性可以相同 答案:A (C).同一窗体中不同的Tabindex属性值必须小第11题 (2分) 题号:2662 于窗体中的控件个数 下列不是Visual Basic 6.0中打开工程的方法(D).同一窗体中不同的Tabindex属性值可以任为意设置 ______。 答案:C (A).按Alt+O组合键 (B).执行"文件"菜单中的"打开工程"命令 第18题 (2分) 题号:3009 (C).按Ctrl+O组合键 设置标签边框的属性是_____。 (D).单击 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 工具栏上的"打开工程"按钮 (A).BorderStyle 答案:A( B).BackStyle 第12题 (2分) 题号:2946 (C).AutoSize 不能在标准模块中使用的是_____。 (D).Alignment (A).私有变量 答案:A (B).公共变量 第19题 (2分) 题号:3159 假定有一个菜单项,(C).通用过程 名为Menultem,为了在运行(D).事件过程 时使该菜单项失效(变灰),应使用的语句为_____ 答案:D (A).Menultem.Enabled=False 第13题 (2分) 题号:2958 (B).Menultem.Enabled=True 在窗体上画一个名称为Command1的命令按钮，(C).Menultem.Visible=True 然后编写如下事件过程: (D).Menultem.Visible=False 答案:A Private Sub f(k,y) 第20题 y = 1 (2分) 题号:3172 For j = 1 To k 如果在列表框中每次只能选择一个列表项,则应 y = y * j 将其Multiselect属性设置为______. Next j (A).0 End Sub (B).1 Private Sub Command1_Click() (C).2 Sum = 0 (D).3 For i = 1 To 3 答案:A Call f(i,s) 第1题 (2分) 题号:2676 Sum = Sum + S 下列可以立即打开窗口的操作是_____。 (A).Ctrl+D Next i (B).Ctrl+G Print Sum (C).Ctrl+F End Sub 程序运行后，单击命令按钮，则窗体上显示的内(D).Ctrl+E 容是( )。 答案:B (A).0 第2题 (2分) 题号:2658 (B).3 Visual Basic 6.0集成环境的主窗口中不包括__(C).6 ____。 (D).9 (A).标题栏 答案:D (B).菜单栏 第14题 (2分) 题号:2695 (C).状态栏 表达式Val(".123E2CD")的值是_______。 (D).工具栏 (A).123 答案:C (B).12.3 (C).0 (D)..123E2CD 第4题 (2分) 题号:2739 答案:B 用户自定义数据类型时,其成员不能是_____。 第15题 (2分) 题号:2971 (A).定长字符串和数组 下列说法中，不属于随机文件特点的是_____。 (B).数组 (A).可以随意读取随机文件中任一记录的数据 (C).货币型和日期型 (B).随机文件没有只读或只写的操作方式,随机(D).变长字符串和货币型 文件只要一打开,就既可读又可写 答案:B (C).随机文件的操作是以记录为单位进行的 第5题 (2分) 题号:2713 (D).随机文件的读?写操作语句与顺序文件的读以下4组语句中不正确的是_______。 写操作语句一样 (A).A=I:A+A 答案:D (B).Const A=I:A=A+I+[10,10] 第16题 (2分) 题号:2711 (C).A=B=1 在Visual Basic中，以10为底的x的常用对数表(D).Print A>=B 达式为_______。 答案:B (A).Lo(x) 第6题 (2分) 题号:2737 (B).LOglO(x) 表达式Sqr(2+5^2*3) Mod 4的值是_____。 (C).LOg(x)/Log(e) (A).0 (D).Log(x)/Log(10) (B).1 (C).2 第12题 (2分) 题号:2948 (D).3 有如下函数过程: 答案:B Function Cys(ByVal x As Integer,ByVal y As Integer) As Integer 第8题 (2分) 题号:2893 Do While y<>0 单击窗体时，下列程序代码的执行结果是_____。 Reminder=x Mod y Private Sub lnvert(ByVal xstr As String,ystr x=y As String) y=Reminder Dim tempstr As String Loop Dim I As Integer Cys=x I=Len(xstr) End Function Do While I>=1 以下是调用该函数的事件过程，该程序的运行结 Tempstr=tempstr+Mid(xstr,I,1) 果是_____。 I=I-1 Private Sub Command7_Click() loop ystr=tempstr Dim a As Integer Dim b As Integer End Sub Private Sub Form_Click() a=100 Dim s1 As String,s2 As String b=25 S1="abcdef" x=Gys(a,b) Invert s1,s2 Print x Print s2 End Sub End Sub (A).0 (A).abcdef (B).25 (B).afbecd (C).50 (C).fedcba (D).100 (答案:B D).defabc 第13题 答案:C (2分) 题号:2924 第9题 (2分) 题号:2858 已知数组a(1 To 10) As Integer，下面调用G下述程序的运行结果是______。 etValue函数正确的是______。 For m=3 T0 1 Step -1 Private Function GetValue(a() As Integer) As x$=String$(m,"#") Integer Print x$ For i=1 To 10 Next m GetValue=GetValue+a(i) (A).1# 2# 3# Next i (B).### ## # End Function (C).# ## ### (A).S=GetValue(a(1 To10) (B).S=GetValue(a) (D).3# 2# 1# (C).S=CetValue(a(10)) 答案:B 第10题 (2分) 题号:2911 (D).S=GetValue a 假定有如下的Sub过程: 答案:B Sub fun(x As Single,y As Single) 第14题 (2分) 题号:2752 t=X 如下语句: x=t\y Type Address Street As String y=t Mod y ZipCode As String End Sub Phone As String 在窗体上画一个命令按钮和两个文本框(其NameEnd Type 属性分别为Txt1和Txt2)，然后编写如下事件过Dim MyHome As Address 程: With MyHome Private Sub Command1_Click() .Street="阜成路" Dim a As Single,b As Single .ZipCnde="100037" a=CInt(Txt1.Text) .Phone="12345" b=CInt(Txt2.Text) End With Call fun(a,b) Print MyHome.Phone Print a,b 的结果是_____。 End Sub (A).阜成路 程序运行时在两个文本框中输入5和6，单击命(B).100037 令按钮，输出结果为_____。 (C).12345 (A).5 6 (D).2345 (B).0 5 答案:C (C).1 4 第15题 (2分) 题号:2968 (D).1 2 设x=10,y=20,z=30.要按如下的格式将x,y,z的答案:B 值写入顺序文件中该使用语句_____。 第11题 (2分) 题号:2674 (A).Print #l x,y,z 以下关于保存工程的说法正确的是_____。 (B).Print #l x;y;z (A).保存工程时只保存窗体文件即可 (C).Write #l x,y,z (B).保存工程时只保存工程文件即可 (D).Write #l x;y;z (C).先保存窗体文件,再保存工程文件 答案:A (D).先保存工程文件,再保存窗体文件 第16题 (2分) 题号:2741 答案:C 下列对变量的定义中，能定义a为变体变量的是 _____。 (D).1 (A).Dim a As Double 答案:A (B).Dim a As Variant (C).Dim a As String 第8题 (2分) 题号:2878 (D).a=24 有如下程序，运行后输出的是______。 答案:B Private Sub Command1_Click() 第17题 (2分) 题号:2985 Dim aj(1 To 10) 下面是窗体Forml的Click事件过程，实现运行 For j=6 To 10 时每次单击窗体，窗体均向右移动100缇: aj(j)=j*2 Private Sub_____() Next j Static Print aj(1)+aj(j) Intleft As Integer Intleft=Intleft+100 End Sub Forml.Left=intleft (A).5 End Sub (B).20 (A).Forml_Click() (C).22 (B).Form_Click() (D).显示出错信息 (C).Command_Click() 答案:D (D).Conunandl_Click() 答案:B 第9题 (2分) 题号:2917 第18题若有数组说明语句为:Dim a(- (2分) 题号:3057 3 To 8)，则数组程序启动未执行任何操作前，为了在按下回车键a包含元素的个数是()。 时执行某个命令按钮的事件过程， (A).5 需要把该命令按钮的一个属性设置为Ture，这(B).8 个属性是______。 (C).11 (A).Value (D).12 (B).Default 答案:D (C).Cancel 第10题 (2分) 题号:2922 (D).Enabled 编写如下事件过程: 答案:B Private Sub form_Click() 第19题 (2分) 题号:3144 S$="abcdefabcdefabcdef" 打开菜单编辑器的快捷键是_____ k=InStr(S$,"c") (A).Ctrl+E DO While k > 0 (B).Shift+E n = n + 1 (C).Alt+E S$=Mid(S$,k+1) (D).Tab+E k=InStr(S$,"c") 答案:A Loop 第20题 (2分) 题号:3173 Print n 设置复选框或单选按钮标题对齐方式的属性是End Sub ______. 程序运行后，单击窗体，则其上显示的内容是(A).Align ()。 (B).Style (A).1 (C).Sorted (B).2 (D).Alignment (C).3 答案:D (D).4 答案:C 第1题 (2分) 题号:2679 第11题 (2分) 题号:2657 面向对象的程序设计方法中，对象间的通信是靠为了用键盘打开菜单和执行菜单命令，第一步应( )来传递的。 按的键是______。 (A).类 (A).功能键F1O或Alt键 (B).实例 (B).Shift+功能键F4 (C).继承 (C).ctrl或功能键F8 (D).消息 (D).Ctrl+Alt键 答案:D 答案:A 第12题 (2分) 题号:2941 以下关于过程及过程参数的描述中，错误的是_第4题 (2分) 题号:2723 ____。 下列可作为Visual Basic变量名的是_______。 (A).过程的参数可以是控件名称 (A).A#A (B).用数组作为过程的参数时,使用的是"传地址(B).4A "方式 (C).?xy (C).只有函数过程能够将过程中处理的信息传回(D).constA 到调用的程序中 答案:D (D).窗体可以作为过程的参数 答案:C 第13题 (2分) 题号:2956 第6题 (2分) 题号:2749 在窗体上画一个名称为Command1的命令按钮，语句Print 5/5*5的输出结果是_____。 然后编写如下事件过程: (A).5 Private Sub Convert(y AS Integer) (B).25 k=y:y=1 (C).0 For j=1 To k y=y*i Form1.Cls Next i For r=35 To 85 Step 25 End Sub Circle(300,240),r Private Sub Command1_Click() Next r Dim sum AS Integer 单击窗体后，窗体上显示的是_______。 sum=3 (A).3个相交圆 Convert sum (B).3个同心不相交圆 Print sum (C).4个同心不相交圆 End Sub (D).两个同心不相交圆 程序运行后，答案:B 单击命令按钮，则窗体上显示的内。 第14题 (2分) 题号:2734 容是( ) (A).0 以下不合法的单精度实数是_____。 (B).1 (A).4.12E3.2 (C).3 (B).45.6! (D).6 (C).12.34 答案:D(D)..0012 答案:A 第14题 (2分) 题号:2690 第1题 (2分) 题号:2675 函数Int(Rnd*6+1)的取值范围是_____。 下列关于面向对象程序设计的叙述不正确的是(A).从1到7共7个整数 _____。 (B).从0到7共8个整数 (A).对象具有属性?方法等特性 (C).从1到6共6个整数 (B).对象之间的通信产生了消息 (D).从0到6共7个整数 (C).一个对象是一个软件构造块,它包含数据与答案:C 相关的操作 第15题 (2分) 题号:2975 (D).对象的属性不能被改变 下面对语句 答案:D Open"Text.Dat"For Output As #FreeFile 第2题 (2分) 题号:2668 的功能说明中错误的是( )。 与传统的程序设计语言相比，Visual Basic最突(A).以顺序输出模式打开文件"Text.Dat" 出的特点是______。 (B).如果文件"Text.Dat"不存在,则建立一个新(A).结构化程序设计 文件 (B).程序开发环境 (C).如果文件"Text.Dat"已存在,则打开该文件,(C).事件驱动程序编制 新写入的数据将增添到该文件中 (D).程序调试技术 (D).如果文件"Text.Dat"已存在,则打开该文件,答案:C 新写入的数据将覆盖原有的数据 第3题 (2分) 题号:2656 答案:C 在正确安装Visual Basic 6.0后，可以通过多种第16题 (2分) 题号:2726 方式启动Visual Basic。 下列不能作为Visual Basic中的变量名的符号是以下方式中，不能启动Visual Basic的是________。 ___。 (A).A45 (A).通过"开始"菜单中的"程序"命令 (B).P12 (B).通过"我的电脑"找到vb6.exe,双击该文件(C).89Ta 名 (D).xy (C).通过"开始"菜单中的"运行"命令 答案:C (D).进ADOS方式,执行vb6.exe文件 第17题 (2分) 题号:2981 答案:D 决定一个窗体有无控制菜单的属性是_____。 第4题 (2分) 题号:2710 (A).MinButton 有如下程序: (B).Caption Const st$="CHINA" (C).MaxButton st$="GREAT" (D).ControlBox 运行后输出的结果是_______。 答案:D (A).CHINA 第18题 (2分) 题号:3079 (B).GREAT 要使文本框可输人多行文字,要设置的默认选项(C).Hebei 是_____. (D).显示出错信息 (A).ScrollBoars和MuhiLine 答案:D (B).MuhiLine (C).ScrollBoars 第6题 (2分) 题号:2706 (D).以上都不是 在4个字符"D","z","A","9"中，其ASCII码值最答案:B 大的是_______。 第19题 (2分) 题号:3149 (A)."D" 在用菜单编辑器设计菜单时,必须输入的项是___(B).z __. (C)."A" (A).快捷键 (D)."9" (B).标题 答案:B (C).索引 第7题 (2分) 题号:2716 (D).名称 表达式a%*b&-d#\2#+c!的结果的数据类型为_答案:D ______。 第20题 (2分) 题号:3164 (A).整型 有如下程序: (B).长整型 (C).单精度型 (D).5 (D).双精度型 答案:D 答案:D 第13题 第8题 (2分) 题号:2916 (2分) 题号:2959 结构化程序设计的三种基本逻辑结构为()。 在窗体上画一个名称为Command1的命令按钮，(A).输入?处理?输出 然后编写如下事件过程: (B).树形?网形?环形 Private Sub Commandl_Click() (C).顺序?选择和循环 A = Val(InputBox("a = ")) (D).主程序?子程序?函数 Print funl(A) 答案:CEnd Sub Private Function fun1(b) 第9题 (2分) 题号:2856 If b > 0 Then funl = 10 有如下程序: ElseIf b = 0 Then funl = 9 m$="ABC" Else funl = 8 n$="abc" End If kEnd Function $=LCase$(m$) j$=UCase$(n$) 程序运行后，单击命令按钮，从键盘数据3，则Print Asc(k$十j$) 窗体上显示的内容是( )。 运行后输出的结果是______。 (A).3 (A).abcabc (B).8 (B).ABCABC (C).9 (C).65 (D).10 (D).97 答案:D 答案:D 第14题 (2分) 题号:2702 第10题 (2分) 题号:2866 有如下程序: 从键盘上输入一个实数，利用字符串函数对该数a$="123456":b$="abcde" 进行处理， For j=1 To 5 如果输出的内容不是字符End，则程序输出的内 C$=c$+Left$(a$,1)+Right$(b$,1) 容是_______。 Next j nu=InputBox("nu=") Print c$ n$=Str$(nu) 运行后输出的结果是_______。 p=InStr(n$,".") (A).a1b2c3d4e5 If p>0 Then (B).a1b2c34d5e Print Mid$(n$,p) (C).e1d2c3b4a5 Else (D).lelelelele Print "END" 答案:D End lf (A).用字符方式输出数据nu 第15题 (2分) 题号:2967 (B).输出数据的整数部分 下列关于顺序文件中使用Put语句?Get语句(C).输出数据的小数部分 ?Print语句和Write语句的说法中，错误的是_(D).只去掉数据中的小数点,保留所有数字输出 ____。 答案:C (A).每执行一次Put[#]语句,会在随机文件中产 生一个记录 第11题 (2分) 题号:2673 (B).每执行一次Get[#]语句,会在随机文件中读在Visual Basic的工程中，工程文件的扩展名是取一个记录的数据 _____。 (C).一条Print#(或Write#)语句可以将若干个(A).frm 数据项写入数据文件中,但这些数据项类型必须(B).vbg 是相.. (C).vbp (D).一条Print#(或Write#)语句可以将若干个(D).bas 数据项写人数据文件中,但这些数据项类型可以答案:C 是不.. 第12题 (2分) 题号:3192 答案:C 单击窗体中的按钮Command1后，下列程序的输第16题 (2分) 题号:2714 出结果是( ) 为了描述x>y和y>z同时成立，则下述选项中，Dim X AS Integer 正确的是_______。 Private Sub Command1_Click() (A).x>y.And.y>z Call fun1 (B).x>y>z Print X (C).x>y And>z End Sub (D).x>y And y>z Private Sub Form Load() 答案:D x=5 End Sub 第18题 (2分) 题号:3101 Public Sub fun1() 下列控件中可自动设置滚动条是(). Dim x AS Integer (A).复选框 x=10 (B).框架 End Sub (C).文本框 (A).12 (D).标签框 (B).0 答案:C (C).出错 第19题 (2分) 题号:3137 使用通用对话框控件打开字体对话框时，如果要 Next i 在字体对话框中列出 Print 可用的屏幕字体和打印字体必须设置通用对话框End Sub 控件的Flags属性为_____。 程序运行后，单击窗体，则窗体上显示的内容是(A).0 ()。 (B).1 (A).a1b2c3 (C).2 (B).a3b2c1 (D).3 (C).3c2d1e 答案:D (D).1c2b3a 答案:C 第20题 (2分) 题号:3181 第12题 (2分) 题号:2939 若把图片框Picturel中的图形清除,不可以使用以下叙述中错误的是_____。 的办法是() (A).如果过程被定义为Static类型,则该过程中(A).使用语句Picturel.Del 的局部变量都是Static类型 (B).使用语句Picturel.Picture=LoadPictur(B).Sub过程中不能嵌套定义Sub过程 e("") (C).Sub过程中可以嵌套调用Sub过程 (C).使用语句Picturel.Picture=LoadPictur(D).事件过程可以像通用过程一样由用户定义过e() 程名 (D).使用语句Picturel.Picture=Nothing 答案:D 答案:A 第13题 (2分) 题号:2953 第1题 (2分) 题号:2657 当程序设计语言对输入格式有严格要求时。应保为了用键盘打开菜单和执行菜单命令，第一步应持输入格式与输入语句的( )。 按的键是______。 (A).可读性 (A).功能键F1O或Alt键 (B).连续性 (B).Shift+功能键F4 (C).一致性 (C).ctrl或功能键F8 (D).以上答案都不对 (D).Ctrl+Alt键 答案:C 答案:A 第18题 (2分) 题号:3031 第2题 (2分) 题号:2660 若想要建立一个学生管理系统的输入界面，其中在Visual Basic环境下，当写一个新的Visual 要求选择学生的性别、政治面貌(党/团/群众) 所做的第一件事是______。 下列设置方Basic程序时，及选课情况(共有5门课,可任选)，(A).编写代码 法正确的是_______。 (B).新建一个工程 (A).将5门课程用一组5个选择框来表示,将性别(C).打开属性窗 和政治面貌用5个单选按钮来表示 (D).进入Visual Basic环境 (B).将5门课程用一组5个选择框来表示,用两个答案:B 框架分别将性别用两个单选按钮,政治面貌用3第3题 (2分) 题号:2669 个单.. 下面4个叙述中，______是不正确的。 (C).将5门课程用一组5个单选按钮来表示,将性(A).在一个程序执行End语句后,系统自动将所别和政治面貌用5个选择框来表示 有打开的文件关闭 (D).用一组10个选择框来表示课程?性别和政治(B).可以使用Close语句关闭一个或几个指定的面貌 文件 答案:B (C).使用不带语句体的Close语句可关闭所有文第19题 (2分) 题号:3146 件 要使用菜单项MentOne在程序运行时失效,使用(D).执行完一个程序段的所有语句后程序自动关的语句是_____. 闭文件 (A).MentOne.Visble=True 答案:D (B).MentOne.Visble=False 第5题 (2分) 题号:2694 (C).MentOne.Enabled=True 下面_______不是字符串常量。 (D).MentOne.Enabled=False (A)."你好" 答案:D (B).123 第20题 (2分) 题号:3167 (C).True 运行以下程序后，输出的图形是_______。 (D).#False# For r=0 To 150 答案:D Circle(320,240),r For i=1 To l000 第7题 (2分) 题号:2750 Next i 在Visual Basic中，36&是_____的常数。 Next r (A).整型 (A).一个半径逐渐变小的空心圆 (B).长整型 (B).一个固定的空心圆 (C).字符 (C).一个半径逐渐变大的空心圆 (D).双精度 (D).一个固定的实心圆 答案:B 答案:D 第8题 (2分) 题号:2918 第1题 (2分) 题号:2670 编写如下事件过程: 在设计阶段，当双击窗体上的某个控件时，所打Private Sub form_Click() 开的窗口是______。 x$="123":y$="abc" (A).工程资源管理器窗口 n=Len(x) (B).工具箱窗口 For i=1 To n (C).代码窗口 Print Mid(x$,n+1-i,1)+Mid(y$,i,1); (D).属性窗口 答案:C 然后编写如下事件过程: 第2题 (2分) 题号:2674 Prirate Sub Command1_Click() 以下关于保存工程的说法正确的是_____。 Dim a AS Single , b AS Single (A).保存工程时只保存窗体文件即可 a = 4:b = 10 (B).保存工程时只保存工程文件即可 Sub1 a,b (C).先保存窗体文件,再保存工程文件 Print a;b (D).先保存工程文件,再保存窗体文件 End Sub 答案:C Sub Sub1(x As Single, y As Single) 第5题 (2分) 题号:2698 t = X 下列程序的执行结果为_______。 x = t/y A="1" y = t Mod y B="2" End Sub A=Val(A)+Val(B) 程序运行后，单击命令按钮，则窗体上显示的内B=Val("12") 容是( )。 If A<>B Then (A).5 4 Print A-B (B).1 1 Else (C).0 4 Print B-A (D).4 4 EndIf 答案:D (A).-9 第14题 (2分) 题号:2715 (B).9 满足“当x的值是偶数时为真，奇数时为假”要(C).-12 求的表达式是_______。 (D).0 (A).x Mod 2=0 答案:A (B).Not x Mod 2<>0 第7题 (2分) 题号:2730 (C).(x\2*2-x)=0 用于获得字符串S从第4个字符开始的4个字符(D).Not(xMod2) 的函数是_____。 答案:A (A).Mid(S,4,4) 第18题 (2分) 题号:3123 (B).Left(S,4,4) 若要改变窗体中显示文本的颜色,应该使用的属(C).MidStr(S,4,4) 性是(). D).MiddleStr(S,4,4) A).Caption ((答案:A( B).BackColor 第9题 (2分) 题号:2915 (C).ForeColor 下面数组说明语句错误的是()。 (D).Font (A).Dim a(10) As Integer 答案:C (B).Dim d(-10 To -1) As Boolean 第20题 (2分) 题号:3171 (C).Dim e(-99 To -5,-3 To 0) 在程序代码中将图片文件mypic.jpg装入图片框(D).Dim f(-10 To -20,10 To 20) As Long Pictrue1的语句是______. 答案:D (A).Picturel.Picture="mypic.jpg" 第10题 (2分) 题号:2876 (B).Picturel.Image="mypic.jpg" 语句Dim abc(-2 To 4,0 To 4,5) As Long定义(C).Picturel.Picture=LoadPicture("mypic.jp的三维数组，其数组元素有______。 g") (A).96个 (D).LoadPieture("mypic.jpg") (B).112个 答案:C (C).140个 (D).210个 答案:D 第12题 (2分) 题号:2954 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Convert(y As Integer) k=Y:Y=1 For i=1 To k y=y*i Next j End Sub Private Sub Command1_Click() Call Convert(Sum+1) End Sub 程序运行后，单击窗体，则窗体上显示的内容是( )。 (A).1 (B).4 (C).3 (D).120 答案:C 第13题 (2分) 题号:2955 在窗体上画一个名称为Commandl的命令按钮，