VB题.docx

1、VB题VB 复习资料第1题 （2分）Visual Basic 6.0集成环境的主窗口中不包括_。(A).标题栏 (B).菜单栏 (C).状态栏 (D).工具栏答案：C第2题 （2分）与传统的程序设计语言相比，Visual Basic最突出的特点是_。(A).结构化程序设计(B).程序开发环境(C).事件驱动程序编制(D).程序调试技术答案：C第3题 （2分）在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是_。(A).编写代码(B).新建一个工程(C).打开属性窗(D).进入VisualBasic环境答案：B第4题 （2分）下面关于Visual Ba

2、sic 6.0工具栏的说法不正确的是_。(A).工具栏的位置可以任意改变(B).工具栏一定在菜单栏的下方(C).工具栏可以显示或隐藏(D).VisualBasic有多个工具栏答案：B第5题 （2分）下列程序执行后，n的值为_。 n=0 For I=1 To 100 If I Mod 4=0 Then n=n+1 Next I(A).5050 (B).25 (C).26 (D).33答案：B第6题 （2分）用于获得字符串S从第4个字符开始的4个字符的函数是_。(A).Mid(S,4,4)(B).Left(S,4,4)(C).MidStr(S,4,4)(D).MiddleStr(S,4,4)答案：

3、A第7题 （2分）下列不能作为Visual Basic中的变量名的符号是_。(A).A45(B).P12(C).89Ta(D).xy答案：C第8题 （2分）将Cos(y)四舍五人保留3位小数的表达式是_。(A).Int(Cos(Y)+0.5)*1000)/1000(B).Int(Cos(Y*1000)/1000+0.5(C).Int(Cos(Y)*1000+0.5)/1000(D).Int(Cos(Y*1000)+0.5)/1000答案：C第9题 （2分）在Visual Basic中，6个关系运算符、=、=、(B).=(C).无先后之分(D).答案：C第10题 （2分）用户自定义数据类型时,其

4、成员不能是_。(A).定长字符串和数组(B).数组(C).货币型和日期型(D).变长字符串和货币型答案：B第11题 （2分）在窗体上面一个命令按钮，名称为Command1，单击命令按钮时，执行如下事件过程：Private Sub Command1_Click() a$=software andhardware b$=Right(aS,8) c$=Mid(s$,1,8) MsgBox a$,b$,c$,1 End Sub 则在弹出信息框的标题栏中显示的信息是_。(A).software and hardware(B).software(C).hardware(D).1答案：C第12题 （2分）在

5、窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：Option Base1 Private Sub Command1_Click() Dim a(4,4)For i=1 To 4For j=1 To 4 a(i,j)=(i-1)*3+j Next j Next i For i=3 To 4 For j=3 To 4Print a(j,i); Next j Print Next i End Sub 程序运行后，单击命令按钮，其输出结果为_。(A).6 9 7 10(B).7 10 8 ll(C).8 11 9 12(D).9 12 10 13答案：D第13题 （2分）表

6、达式Str(Len123)+Str(77.7)的值是_。(A).377.7(B).3 77.7(C).80.7(D).12377.7答案：B第14题 （2分）有如下程序，运行后单击按钮输出的结果是_。 Private Sub Command1_Click() m=5:n=4 Call A(m,n)Print m,n End Sub Private Sub A(m,n) S=m m=s/n n=s Mod n End Sub(A).1.25 1(B).5 4(C).1 4(D).5 1答案：D第15题 （2分）下列程序运行后，输出的结果是_。Private Sub Command1_Click(

7、) Sum=0 For k=3 To 5 Call Multi(k,s) Sum=Sum+S Next k Print Sum End Sub Private Sub Multi(k,s) S=1 For j=l To k s=8*j Next j End Sub(A).9(B).120(C).150(D).30答案：C第16题 （2分）设x=10,y=20,z=30.要按如下的格式将x,y,z的值写入顺序文件中该使用语句_。(A).Print #l x,y,z(B).Print #l x;y;z(C).Write #l x,y,z(D).Write #l x;y;z答案：A第17题 （2分）

8、若要求显示一个指定窗体，所用的方法是_。(A).Show(B).Open(C).Hide(D).Load答案：A第18题 （2分）文本框所能响应的事件有().(A).Load(B).Click(C).Move(D).Activate答案：B第19题 （2分）下列属性属于颜色对话框的是_(A).FileName(B).Min(C).FontSize(D).Color答案：D第20题 （2分）下述程序的输出图形是_。For k=0 To 360 Cr=Int(160*Rnd) ang=-3.1415926/180*k Circle(200,200),50,cr,O,ang Next(A).一段彩色

9、圆弧(B).一个彩色扇形(C).一个彩色空心圆(D).一个辐射状彩色圆形答案：D三、程序设计 共1题 （共计15分)第1题 （15分）-【程序设计】-题目：(事件)单击窗体。 (响应)求50以内所有偶数的和，并在窗体上输出出来。 将结果存入变量S中。 - 注意：请在指定的事件内编写代码。-答案：18_Dim i As IntegerFor i = 2 To 50 If (i Mod 2) = 0 Then s = s + i End IfNextPrint (CStr(s)_四、窗体设计 共2题 （共计30分)第1题 （15分）-【窗体设计】-题目：请按照题目要求设计指定的窗体。 建立如(图1

10、)所示界面： -1 在窗体内添加2个按钮(Command1，Command2)， 4个标签(Label1，Label2，Label3，Label4)， 1个文本框(Text1)。2 窗体设置： 设置窗体名称(Name)为“Form16”。 设置窗体标题(Caption)为“定时”。3 标签设置： 设置第1个标签(Label1)的标题(Caption)为“系统时间”。 设置第2个标签(Label2)的标题(Caption)为“10:13:13”，边框类型如图。 设置第3个标签(Label3)的标题(Caption)为“定时时间(秒)”。 设置第4个标签(Label4)的标题(Caption)为“

11、时间到”。4 文本框设置： 适当设置文本框的大小和位置。5 按钮设置： 设置第1个按钮(Command1)的标题(Caption)为“开始”。 设置第1个按钮(Command2)的标题(Caption)为“退出”。第2题 （15分）-【窗体设计】-题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面： -1 添加控件 菜单(menu_File，menu_Set) 菜单(menu_Set)下添加子菜单(menu_Set_Back，menu_Set_Fore) 菜单(menu_Set_Back)下添加子菜单(menu_Set_Back_Red，menu_ Set_Back_Green，me

12、nu_Set_Back_Blue)2 窗体设置： 窗体名称(Name)为“Form4” 窗体标题(Caption)为“VB”3 菜单设置： 1) 设置菜单(menu_File)的标题(Caption)为“文件(&F)”， 并将菜单项设为“无效” 2) 设置菜单(menu_Set)的标题(Caption)为“设置(&S)” 设置菜单(menu_Set)下的菜单(menu_Set_Back)的标题(Caption)为“背景色” 设置菜单(menu_Set)下的菜单(menu_Set_Fore)的标题(Caption)为“前景色” 3) 设置菜单(menu_Set_Back)下的菜单(menu_Se

13、t_Back_Red)的标题(Caption)为“红”, 快捷键为Ctrl+A 设置菜单(menu_Set_Back)下的菜单(menu_Set_Back_Green)的标题(Caption)为“绿”, 快捷键为Ctrl+B 设置菜单(menu_Set_Back)下的菜单(menu_Set_Back_Blue)的标题(Caption)为“蓝”, 快捷键为Ctrl+C一、单项选择 共20题 （共计40分)第1题 （2分）_是由 VisualBasic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部.(A).文件(B).属性(C).方法(D).窗体答案：C第2题 （2分）在Visua

14、l Basic的工程中，工程文件的扩展名是_。(A).frm(B).vbg(C).vbp(D).bas答案：C第3题 （2分）下列关于面向对象程序设计的叙述不正确的是_。(A).对象具有属性?方法等特性(B).对象之间的通信产生了消息(C).一个对象是一个软件构造块,它包含数据与相关的操作(D).对象的属性不能被改变答案：D第4题 （2分）在正确安装Visual Basic 6.0后，可以通过多种方式启动Visual Basic。以下方式中，不能启动Visual Basic的是_。(A).通过开始菜单中的程序命令(B).通过我的电脑找到vb6.exe,双击该文件名(C).通过开始菜单中的运行命

15、令(D).进ADOS方式,执行vb6.exe文件答案：D第5题 （2分）表达式Sqr(2+52*3) Mod 4的值是_。(A).0(B).1(C).2(D).3答案：B第6题 （2分）在Visual Basic中，6个关系运算符、=、=、(B).=(C).无先后之分(D).答案：C第7题 （2分）在以下4个逻辑表达式中，其逻辑值为真的是_。(A).Not(3+4l And 32 0r 23(D).Not(12)答案：D第8题 （2分）下列程序段的执行结果为_。 K=5 y=-20 If Not x0 Then x=y-3 Else y=x+3 Print x-y;y-x(A).-3 3(B)

16、.5 8(C).38414(D).25 -25答案：A第9题 （2分）如下定义语句：Type student name As String code As String sex As String End Type Dim stu As student With stu .Name=李洪 .code=010101 .sex=女 End With Print etu.Code的结果是_。(A).李洪(B).10101(C).女(D).11答案：B第10题 （2分）表达式Int(Rnd*11+10)的值的范围是( )。(A).(0,10)(B).10,10(C).10,20(D).0,20答案：C

17、第11题 （2分）在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() A$=abed b$=Left$(A$,3):c$=String$(2,b$) Print c$ End Sub运行后，输出的结果是_。(A).ab(B).aa(C).bb(D).cc答案：B第12题 （2分）下列程序段的执行结果为_。Dim M(10) For i=0 To 10 M(i)=2*iNext iPrint M(M(3)(A).12(B).6(C).0(D).4答案：A第13题 （2分）在窗体上画一个名称为Commsndl的命令按钮，然后编写如下事件过程： P

18、rivate Sub Command1_Click() Dim X AS String * 1 Dim y AS String X = a For i = Asc(X) To Asc(x) + 4 y = y & Chr(i) Next i Print y End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是()(A).a(B).abcde(C).aaaa(D).32答案：B第14题 （2分）以下叙述中错误的是_。(A).如果过程被定义为Static类型,则该过程中的局部变量都是Static类型(B).Sub过程中不能嵌套定义Sub过程(C).Sub过程中可以嵌套调用Sub过程(D)

19、.事件过程可以像通用过程一样由用户定义过程名答案：D第15题 （2分）下列叙述中正确的是_。(A).在窗体的Form_Load事件过程中定义的变量是全局变量.(B).局部变量的作用域可以超出所定义的过程.(C).在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名,但其作用域只限.(D).在调用过程时,所有局部变量被系统初始化为0或空字符串.答案：C第16题 （2分）利用下面哪个函数可判定访问文件时已经到达了文件尾()。(A).LOF(B).LOC(C).EOF(D).BOF答案：C第17题 （2分）下列说法中正确的是_。(A).窗体?命令按钮?标签和文本框控件都有Tabin

20、dex属性(B).不同控件的Tabindex属性可以相同(C).同一窗体中不同的Tabindex属性值必须小于窗体中的控件个数(D).同一窗体中不同的Tabindex属性值可以任意设置答案：C第18题 （2分）在文本框中设置垂直滚动条,要使ScrollBars的值为().(A).0(B).1(C).2(D).3答案：C第19题 （2分）下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后单击Cancel按钮退.Private Sub Command1_Click()CommonDialogl.CancelError=TrueCommonDialoglFlags=vbCFEffe

21、cts Or vbDFBothCommonDialogl.ShowFontTextl.Font.Name=CommonDialogl.FontName Textl.Font.Size=CommonDialogl.FontSize Textl.Font.Bold=CommonDialogl.FontBold Textl.Font.Italic=CommonDialogl.Fontltalic Textl.Font.Underline=CommonDialogl.FontUnderline Textl.FontStrikethru=CommonDialogl.FontStrikethru Text

22、l.ForeColor=CommonDialogl.ColorEnd Sub(A).Textl的字体不发生变化(B).Textl的字体发生变化(C).Textl的字体和颜色发生变化(D).程序出错答案：D第20题 （2分）要更改VisualBasic坐标系统的单位.要设置的属性是_.(A).Scaletype(B).Scaletop(C).Scalemode(D).Scalewidth答案：C三、程序设计 共1题 （共计15分)第1题 （15分）-【程序设计】-第1题 （15分）-【程序设计】-题目：(事件)单击窗体。 (响应)求1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1

23、/100的值。 将结果存入变量J中。-注意：请在指定的事件内编写代码。-答案：22_ Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j_四、窗体设计 共2题 （共计30分)第1题 （15分）-【窗体设计】-题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面：请按所给窗体的样子设计 窗体（不要求控件的尺寸一样，运行时得到所给 窗体即可，有时需要简单的事件过程） -1 在窗体内添加2个按钮

24、(Command1，Command2)，3个列 表框(List1，List2，List3)，3个标签(Label1，Label2， Label3)，2个框架(Frame1，Frame2)，3个文本框(Text1， Text2，Text3)。 并在框架(Frame1)中添加1个复选框(Check1)，1个组合 框(Combo1)，1个标签(Label4)。 在框架(Frame2)中添加1个标签(Label1)。2 窗体设置： 设置窗体名称(Name)为“Form30”。 设置窗体标题(Caption)为“字体”。3 标签设置： 设置第1个标签(Label1)的标题(Caption)为“字体(&F):”。 设置第2个标签(Label2)的标题(Caption)为“字型(&Y):”。 设置第3个标签(Label3)的标题(Caption)为“字号(&S):”。4 文本框设置： 设置第1个文本框(Text1)的文本(Text)为“宋体”。 设置第2个文本框(Text2)的文本(Text)为“粗体”。 设置第3个文本框(Text3)的文本(Text)为“五号”。5 列表框设置： 在第1个列表框(List1)中输入文本“黑体”，“宋体”，“隶书”，“幼圆”。 在第2个列表框(