VB语言考试试题库
4 "下列数组定义语句错误的是 。
VB语言部分
A)k,=10 B)Const k,=10 1 "下面的数组声明语句中_______是正确的。
Dim Arr(k) Dim Arr(k)
A)Dim A[3，4] As Integer B)Dim A(3，4) As Integer
C)Dim Arrl(10) As Integer D)Dim Arrl(1 T010)
C)Dim A[3;4] As Integer D)Dim A(3;4) As Integer"
Dim Arr2(10) Dim Arr2(1 To 10，2 To 11)" 2 "下列能使x为数值型数据的语句是________。
5 "下列叙述中正确的是________。
A)X=InputBox(""请输人数据"") B)X=Labell.Caption
A)任何一个对象的所有属性既可在属性窗口中设置，也可以以程序代码的方式设置
C)X=Textl.Text D)X=Listl.List"
B)在属性窗口中设置的属性是在设计阶段完成的，因而这些属性值不能改变 3 "下列数据类型定义中，错误的是______。
C)在程序中通过编程设置属性值是在运行阶段给属性赋值
A)TypeStudent B)TypeStudent
D)用程序方式给属性赋值的
格式
pdf格式笔记格式下载页码格式下载公文格式下载简报格式下载
是“属性名:属性值”"
Num As Long Num As Integer
6 "下列续行写法正确的是_______。
Name As String Name As String*10
A)C=_ B)C= _
End Type End Type
A+B A+B
C)PrivateTypeStudent D)PrivateTyPeStudent
C)C =_ D)C=_'此处换行
Num A9 Long Num As Integer
A+B A+B"
Name As String Score(10)A8String*10
7 "下列关于图片框的语句中错误的是_________。
End Type End Type"
1/95
A)Pieturel.Picture=Picture2.Picture 11 "下列每组控件中，都包含有滚动条的一组控件是_______。
B)Picturel.Picture=LoadPicture(""C:\vb60\Arw04Up.ico"") A)ListBox和LabelBox B)TextBox和DriveListBox
C)Picturel.PrintTab(20);CurrentX,CurrentY C)ComboBox和CheckBox D)FileListBox和DirListBox"
D)Picturel.Stretch=True" 12 "下列可用做输入数据的控件是____控件。 8 "下列语句错误的是_______。 A)OptionButton和CheckBox B)ListBox和ComboBox
A)Exit For B)Exit While C)Exit Do D)Exit Sub" C)Label和TextBox D)Form和Frame" 9 "下列关于循环控制结构的使用说明,正确的是______。 13 "下列既可用于输入数据又可用于输出数据的控件是____控件。
A)For„Next循环嵌套时,不能共同使用同一个终端语句 A)Label B)TextBox C)ListBox D)OptionButton"
B)任何一种循环都必须有起始语句和终端语句 14 "下列语句正确的是_______。
C)不能用While„Wend语句设计出确定循环次数的循环 A)MsgBox(""请输入查询的姓名:""，""256+3+48"")
D)循环体没有执行完毕,不能在中途结束循环" B)MsgBox ""请输入查询的姓名:""，256+3+48 10 "下列语句正确的是 。 C)X=MsgBox(请输入查询的姓名:，vbYesNoCancel)
A)If X<3*Y And X>Y Then Y=X^3 D)X=MsgBox(""请输入查询的姓名:""，""310"")"
B)If X<3*Y And /X>Y Then Y=X3 15 "下列各组中，两个函数功能完全相反的一组是_____。
C)If X<3*Y:X>Y Then Y=X^3 A)Sin(x)与Cos(x) B)Str(x)与Val(x)
D)If X<3*Y And X>Y Then Y=X**3" C)Ltrim(x)与Rtrim(x) D)Timer(x)与Time(x)"
2/95
16 "已执行语句x=123456(789，输出x值时要求加千位分隔符，小数点后取2位有效数 X=-2.3
字。下列格式输出语句正确的是_______。
y=125
A)PrintFormat$(x，####，##.##) B)PrintFormat$(x，""###,####.##"")
z=Len(Str$(x)+Str$(y))
C)PrintFormat$(x，""，######.##"") D)PrintFormat$(x，""######,.##"")"
Print z
17 "下列程序段的执行结果为_______。
A)8 B)6 C)4 D)3"
Dim A(4)
19 "下述程序的运行结果是______。
n=3
j=0
A(1)=1
Do While j<30
For k=0 To n-1
j=(j+1) *(j+2)
For l=1 To k+1
k=k+1
X=k+2-1
Loop
A(X)=A(X)+A(X-1)
Print k;j
If k
100 While i<100 Elself p$="")"" Then
s=s+i i=i+1 m=m+1
Wend Wend End lf
C)s=0 D)s=0 If m>0 Then
i=1 i=0 Print "":-p""
Do While i<100 Do Until i>100 End lf
s=s+1 S=s+1 Next k
Loop Loop" Print "":-)"" 23 "下述程序的功能是______。 A)统计输入的字符串中括号的总数 B)统计输入的字符串中匹配的括号的对数
4/95
C)检查输入的字符串中的括号是否能够匹配 D)删除字符串的括号" A)一段彩色圆弧 B)一个彩色扇形
24 "下述程序段运行时的显示结果为_____。 C)一个彩色空心圆 D)一个辐射状彩色圆形"
27 "选拔身高T超于1.7米且体重W小于62.5千克的人，能表示该条件的布尔表达式是 X=3.54+10
____.
Print Len(x)
A)T>1.7 And W<=62.5 B)T<=1.7 Or W>=62.5
A)13 B)14 C)5 D)非法使用，无输出"
C)T>1.7 And W<62.5 D)T>1.7 Or W<62.5" 25 "要使文本框只具有垂直滚动条，则就______。
28 "一个窗体中带图片框控件(已装入图像)的VB应用程序从文件上看，至少应该包括
A)将其Multiline设置为True，同时将Scrollbars属性设置为0 的文件有______。
B)将其Multiline设置为True，同时将Serollbars属性设置为1 A(窗体文件(.frm)、项目文件(.vbp/vbw)
C)将其Multiline设置为True，同时将Scrollbars属性设置为2 B(窗体文件(.frm)、项目文件(.vbp/vbw)和代码文件(.bas)
D)将其Multiline设置为True，同时将Scrollbars属性设置为3" C(窗体文件(.frm)、项目文件(.vbp/vbw)和模块文件(.bas) 26 "下述程序的输出图形是______。 D(窗体文件(.frm)、项目文件(.vbp/vbw)和窗体的二进制文件(.frx)"
For k=0 To 360 29 "一个工程必须包括的文件的类型是______。
Cr=Int(160*Rnd) A)*(Vbp，*(Frm，*(Frx B)*(Vbp，*(Cls，*(Bas
ang=-3.1415926/180 C)*(Bas，*(Ocx，*(Res D)*(Frm，*(Cls，*(Bas"
Circle(200,200),50,cr,0,ang 30 "下列程序段的执行结果为____。
Next A=""HELLOGOOD MORNING""
5/95
B=""WANGCHANGLi"" 33 "下述语句的运行结果是____。
C=Left(A，5)+""!"" Dim a
D=Right(A，7) i=0
E=Mid(A，6，4) a=Array(1，-2，9，0，-1，9)
F=Mid(B，Len(B)-6，5)+""!"" DO
G=E+"" ""+D+""!"" K=a(i)
H=C+"" ""+F For m=10 To k Step -2
Print H+"" ""+G n=k+m
A)HELLO! CHANG! GOODMORNING! B)HELLO! WANG! G00DMORNING! Next m
C)HELLO! LI! COODMORNING! D)HELLO! CHANG! GOOD! MORNING!" Print n+m
31 "要强制显式声明变量，可在窗体模块或
标准
excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载
模块的声明段中加入语句______。 i=i+1
A)Option Base 0 B)Option Explicit Loop While Abs(m+n)<>27
C)Option Base l D)Option Compare" A)3 -8 27 B)3 27 -8 C)-8 27 3 D)-8 3 27"
32 "一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc 34 "要获得当前驱动器，应使用驱动器列表框的____属性; X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是 ______。
A)Path B)Drive C)Dir D)Pattern"
A) 变量X、Y的作用域相同 B) Y的作用域是Model1
35 "下列不是Visual Basic 6(0中打开工程的方法为____。
C) 在Form1中可以直接使用X D) 在Form2中可以直接使用X和Y"
6/95
A)按Alt+O组合键 B)执行“文件”菜单中的“打开工程”命令 42 "要使标签中的文本靠右显示，则应将其Alignment属性设置为_____。
C)按Ctrl+O组合键 D)单击标准工具栏上的“打开工程”按钮" A)0 B)1 C)2 D)3" 36 "要将一个组合框设置为简单组合框(Simple Combo)，则应将其Style属性设置为43 "要使列表框中的列表项显示成复选框形式，则应将其Style属性设置为____。 _____。
A)O B)1 C)True D)False"
A)0 B)1 C)2 D)3"
44 "要使文本框获得输入焦点，则应采用文本框控件的________方法。 37 "许多常用控件都有Value属性，Value属性的作用是______。
A)GotFocus B)LostFocus C)KeyPress D)SetFocus"
A)确定控件的属性 B)确定控件的位置
45 "要使一个标签透明且不具有边框，则应____。
C)确定控件的状态和位置 D)确定控件的状态、内容及位置"
A)将其BackStyle属性设置为0，BorderStyle属性设置为0 38 "下列可作为Visual Basic变量名的是____。
B)将其BackStyle属性设置为0，BorderStyle属性设置为1
A)A#A B)4A C)?xy D)const_A"
C)将其BackStyle属性设置为1，BorderStyle属性设置为0 39 "要清除列表框中所有的列表项时，应使用____方法。
D)将其Backstyle属性设置为1，Borderstyle属性设置为1"
A)Remove B)Clear C)Removeitem D)Move"
46 "要使一个命令按钮成为图形命令按钮，则应设置其____属性值。 40 "下列各组函数中，函数值类型相同的一组是____。
A)Picture B)style C)DownPicture D)DisabledPicture"
A)Exp(x)，Chr(x)，Lcase(x) B)Asc(x)，Str(x)，Rtrim(x)
47 "下列不是Visual Basic文件的是____。
C)Sgn(x)，Cint(x)，Timer(x) D)Fix(x)，Left(x)，Ucase(x)"
A)*.frm文件 B)*.bas文件 C)*.cls文件 D)*.txt文件" 41 "下列各控件不包含有滚动条的控件是______。
48 "下列可以打开立即窗口的操作是____
A)ListBox B)ComboBox C)TextBox D)LabelBox"
7/95
A) Ctrl+D B) Ctrl+E C) Ctrl+F D) Ctrl+G" A)拖拉控件4个角上的某个小方块 B)只能拖拉于控件右下角的小方块 49 "下列不是标准控件的是____。 C)只能拖拉位于控件左下角的小方块 D)不能同时改变控件的高度和宽度"
56 "为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择，则应将列表框的 A)图像框 B)图片框 C)框架 D)对话框"
MultiSelect属性设置为____。
50 "下列不属于Visual Basic特点的是____。
A)0 B)1 C)2 D)3"
A)对象的链接与嵌入 B)结构化程序设计
57 "为了描述x>y和y>z同时成立，则下述选项中，正确的是____。
C)编写跨平台应用程序 D)事件驱动程序编程机制"
A)x>y .And. Y>z B)x>y>z C)x>y And >z D)x>y And y>2"
51 """动态数据交换”的英文缩写是_______。
58 "为了防止用户随意将焦点置于控件上，应该____
A)ODBC B)DDE C)OLE D)DLL"
A)将控件的TabIndex属性设置为0 B)将控件的Tabstop属性设置为True 52 "要使标签所在处透明显示背景，应把其BackStyle属性设置为____。
C)将控件的TabStop属性设置为False D)将控件的Enabled属性没置为False"
A)0 B)1 C)True D)False"
59 "为了把焦点移到某个指定的控件，所使用的方法是____。 53 "组成应用程序的3种模块是____。
A)SetFoeus B)Visible C)Refresh D)GetFocus"
A)窗体模块、通用模块、标准模块 B)窗体模块、标准模块、类模块
60 "为了把窗体上的某个控件变为活动的，应执行的操作是_____。
C)标准模块、类模块、过程模块 D)窗体模块、过程模块、函数模块"
A)单击窗体的边框 B)单击该控件的内部 C)双击该控件 D)双击窗体" 54 "为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性
设置为True，这个属性是____。 61 "下列属性中，文本框控件不具有的属性是_____。
A) Value B) Default C) Cancel D) Enabled" A)BackColor B)Caption C)PasswordChar D)Enabled"
55 "为了同时改变一个活动控件的高度和宽度，正确的操作是____。 62 "下列属性中，与文本框文本的显示无关的属性项是____
8/95
A)BorderStyle B)Alignment C)Multiline D)Maxlength" A)Name和Caption B)MaxButton和MinButton 63 "网络信息服务管理工具被包含在Visual Basic的____中。 C)Visible和Enabled D)Borderstyle和WindowState"
A)试用版 B)学习版 C)专业版 D)企业版" 69 "使用“上下文相关帮助”获取帮助信息的操作方法是____。 64 "下面4个叙述中，____是不正确的。 A)从“帮助”下拉菜单中选择“上下文相关帮助”命令
A)在一个程序执行End语句后，系统自动将所有打开的文件关闭 B)先选择一个对象(或关键字)，再按下n键
B)可以使用Close语句关闭一个或几个指定的文件 C)先选择一个对象(或关键字)，再按下Ctrl+n组合键
C)使用不带语句体的Close语句可关闭所有文件 D)先按下P1键，再选择一个对象(或关键字)"
D)执行完一个程序段的所有语句后程序自动关闭文件" 70 "使用____方法不能让控件获得焦点。 65 "下列变量名中，不合法的变量名是______。 A)通过Tab切换 B)单击该控件 C)使用SetFocus方法 D)使用键盘上的方向键"
A)Print_Numl B)Abc% C)Const D)X1_y2_z3" 71 "下面关于Visual Basic 6(0工具栏的说法不正确的是____。 66 "图像框有一个属性，可以自动调整图形的大小以适应图像框的尺寸，这个属性是 A)工具栏的位置可以任意改变 B)工具栏一定在菜单栏的下方 _____。
C)工具栏可以显示或隐藏 D)Visual Basic有多个工具栏"
A)AutoSize B)Stretch C)AutoRedraw D)Appearance"
72 "设置复选框或单选按钮标题对齐方式的属性是______。 67 "下列不能打开属性窗口的操作是____。
A)Align B)Style C)Sorted D)Alignment"
A)执行“视图”菜单中的“属性窗口”命令 B)按P4键
73 "下列叙述中，正确的是_____。
C)按Ctrl+T组合键 D)单击工具栏上的“属性窗口”按钮"
A)控件数组的每一个成员的Caption属性值都必须相同 68 "下列窗体属性属于字符类型的是____。
9/95
B)控件数组的每一个成员的Index属性值都必须相同 77 "为了用键盘打开菜单和执行菜单命令，第一步应按的键是_____。
C)控件数组的每一个成员都执行同样的事件过程 A)功能键F10或Alt键 B)Shift+功能键P4
D)对已经建立的多个类型相同的控件，这些控件不能组成控件数组" C)Ctrl或功能键F8 D)Ctrl+Alt键" 74 "下列叙述正确的是________。 78 "下列____是日期型数据。
A)向工程添加文件，应先选择要添加的文件，再从“工程”下拉菜单中选择“添加文 A)@Januaryl0，1997@ 件”命令
B)#Januaryl0，1997#
B)向工程添加文件，应先从“工程”下拉菜单中选择文件名
C)""Januaryl0，1997""
C)从工程中删除文件，应先选择要删除的文件，再从“工程”下拉菜单中选择“删除
D)&Januaryl0，1997&" 文件”命令
79 "下列不能打开菜单编辑器的操作是 _______ D)从工程中删除文件，应先从“工程”下拉菜单中选择“删除文件”命令，再从弹出
的对话框中选择文件名"
A)按Ctrl+E B)单击工具栏中的""菜单编辑器""按钮 75 "下列高级语言中，____是过程式语言。
C)执行""工具""菜单中的""菜单编辑器""命令 D)按Shift + Alt + M"
A)Visual FoxPro B)Delphi C)Power Builder D)BASIC"
80 "退出Visual Basic的快捷键是____。 76 "下面叙述中正确的是____。
A)Ctrl+Q B)Shift+Q C)Alt+Q D)Ctrl+Alt+Q"
A)Spc函数能用于Print方法中，也能用于表达式
81 "列表框中的列表框的数目可通过以下____属性的值获得。
B)Space函数既可以用于Print方法中，也能用于表达式
A)Count B)ListCoum C)Listlndex D)Index"
C)Spt函数与Space函数均生成空格，没有区别
82 "名称____表示变体类型数据。
D)以上说法都不正确"
10/95
A)Double B)Currency C)Boolean D)Variant" 87 "如果Tab函数的参数小于1，则打印位置在第____列。 83 "在表示长整数时，可作为长整数尾部符号的是____。 A)0 B)1 C)2 D)3"
A)# B)! C)& D)$" 88 "任何控件都具有____属性。 84 "单击窗体上的关闭按钮，将触发____事件。 A)Text B)Caption C)Name D)ForeColor"
A)Form_Initialize() B)Form_Load() 89 "确定一个控件在窗体上的位置的属性是______。
C)Form_Unload() D)Form_Click()" A)Width或Height B)Width和Height 85 "以下叙述中正确的是_____。 C)Top或Left D)Top和Left"
A)窗体的Name属性指定窗体的名称，用来标记一个窗体 90 "能够获得一个文本框中被选取文本的内容的属性是______。
B)窗体的Name属性的值是显示在窗体标题栏中的文本 A)Text B)Length C)Seltext D)SelStart"
91 "假定窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的 C)可以在运行期间改变对象的Name属性的值
属性，预先应执行的操作是____。
D)对象的Name属性可以为空"
A)单击窗体上没有控件的地方 B)单击任一个控件 86 "关于Visual Basic应用程序，正确的叙述是____。
C)不执行任何操作 D)双击窗体的标题栏"
A)Visual Basic程序运行时，总是等待事件被触发
92 "Visual Basic程序设计采用的是____编程机制。
B)Visual Basic程序设计的核心是编写事件过程的程序代码
A)可视化 B)面向对象 C)事件驱动 D)过程结构化"
C)Visual Basic程序是以线性方式顺序执行的
93 "复制当前控件到窗体左上角，应该使用的快捷键是____。
D)Visual Basic的事件可以由用户随意定义，而事件过程是系统预先设置好的"
A)Ctrl+C B)Ctrl+V
11/95
C)执行Ctrl+C后，再执行Ctrl+V D)执行Ctrl+V后，再执行Ctrl+C" 101 "常量2.423D-02的类型是_____。 94 "Visual Basic规定工程文件的扩展名是____。 A)整型 B)单精度 C)字符型 D)双精度"
A)(for B)(frm C)(vbp D)(bas" 102 "窗体的Caption属性的作用是____。 95 "表示滚动条控件取值范围最大值的属性是____。 A)确定窗体的名称 B)确定窗体标题栏的内容
A)Max B)LargeChange C)Value D)Max-Min" C)确定窗体边界的类型 D)确定在窗体输出字符的字体"
103 "假设变量intVar是一个整型变量，则执行赋值语句intVar=""2""+3之后，变量 96 "可以接受焦点的控件是____。
intVar的值是____。
A)Frame B)Command C)Label D)Timer"
A)2 B)3 C)5 D)23" 97 "可视化程序设计强调的是_____。
104 "窗体上有一个列表框和一个文本框，编写如下两个事件过程:
A)过程的模块化 B)控件的模块化 C)对象的模块化 D)程序的模块化"
PrivateSubForm_Load() 98 "可视化编程的基本过程主要有3步，这3个步骤是____。
List1.AddItem ""Beijing""
A)创建工程、设计界面、编写代码 B)创建工程、编写程序、保存程序
List1.AddItem ""Tianjin""
C)设计界面、设置属性、编写代码 D)设计界面、编写代码、调试程序"
List1.AddItem ""Shanghai"" 99 "在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条的事件是____。
Textl.Text="" ""
A)Move B)Change C)Scroll D)Setfocus"
End Sub
100 "决定控件上文字的字体、字形、字号、效果的属性是____。
Private Sub List1_Click()
A)Text B)Caption C)Name D)Font"
x=List1.Text
12/95
A)编写代码 B)新建一个工程 C)打开属性窗口 D)进入VisualBasic环 Print x+Textl.Text
境"
End Sub
108 "移动控件位置的组合键是____。
程序运行后，在文本框中输入""China""，然后单击列表框中的""Shanghai""，则输出
结果 A)Shift+“方向箭头” B)Alt+“方向箭头”
C)Ctrl+“方向箭头” D)空格键+“方向箭头”" 为____。
109 "一个工程必须包括的文件是____。
A)China Beijing B)China Tianjin
A)窗体文件、标准模块文件、类模块文件
C)China Shanghai D)ShanghaiChina"
B)工程文件、ActiveX控件的文件、资源文件 105 "如果要在文本框中输入字符时，只显示某个字符，如星号(*)，应设置文本框的____
C)工程文件、类模块文件、标准模块文件 属性。
D)工程文件、窗体文件、窗体的二进制数据文件" A)Caption B)PassWordChar C)Text D)Char"
110 "____是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象106 "关于变体变量，下列说法正确的是____。
功能的内部函数或过程。
A)变量未加定义而直接使用，该变量即为变体变量，因而变体变量是无类型变量
A)文件 B)属性 C)方法 D)窗体"
B)变体变量占16字节的固定存储单元
111 "刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是____。
C)变体变量定义后，系统将变体变量初始化为数值0或空字符串
A)单选按钮 B)图片框 C)通用对话框 D)文本框"
D)设X为变体变量，且X=""10""，则X=X+20是正确的语句"
112 "在正确安装Visual Basic 6(0后，可以通过多种方式启动Visual Basic。以下方
107 "在VisualBasic环境下，当写一个新的Visual Basic程序时，所做的第一件事是____。 式中，不能启动Visual Basic的是____。
A)通过“开始”菜单中的“程序”命令
13/95
B)通过“我的电脑”找到vb6(Exe，双击该文件名 118 "在Visual Basic设计界面中不能隐藏的窗口是____。
C)通过“开始”菜单中的“运行”命令 A)工程窗口 B)属性窗口 C)立即窗口 D)窗体窗口"
D)进入DOS方式，执行vb6(Exe文件" 119 "在Visual Basic中通过________属性来设置字体的颜色。 113 "以下不具有Picture属性的对象是______。 A)FontColor B)ClipControl C)BackColor D)ShowColor"
A)窗体 B)图片框 C)图像框 D)文本框" 120 "若要使标签控件显示时,不覆盖其背景内容，应设置标签控件的_____属性. 114 "以下不是Visual Basic的特点的选项是_____。 A)BackColor B)BorderStyle C)ForeColor D)BackStyle"
A)可视编程 B)算法设计 C)事件驱动 D)面向对象" 121 "如果在列表框中每次只能选择一个列表项，则应将其Multiselect属性设置为_____。 115 "以下不属于标签属性的是____。 A)0 B)1 C)2 D)3"
A)Font B)Value C)Caption D)Index" 122 "Visual Basic 6(0集成环境的主窗口中不包括____。 116 "以下不属于同类的是____。 A)标题栏 B)菜单栏 C)状态栏 D)工具栏"
A)Click B)Name C)Caption D)Top" 123 "如果文本框的Enabled属性被设置为False，则运行时____。 117 "以下叙述中错误的是_____. A)文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上
B)文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本A) 下拉式菜单和弹出式菜单都用菜单编辑器建立
框中的内容
B) 在多窗体程序中，每个窗体都可以建立自己的菜单系统
C)文本框中的文本将变成灰色，用户仍然能改变文本框中的内容 C) 除分隔线外，所有菜单项都能接收Click事件
D)文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内D) 如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见" 容"
14/95
124 "在一个语句行内写多条语句时，语句之间应该用____分隔。 A)从一个建立的窗体模块开始执行 B)以最后建立的窗体模块结束
A)逗号 B)分号 C)顿号 D)冒号" C)程序执行顺序不是预先完全确定好的 D)执行顺序是预先确定好的" 125 "Visual Basic窗体设计器的主要功能是____。 132 "以下能够触发文本框Change事件的操作是_____。
A)建立用户界面 B)编写源程序代码 C)画图 D)显示文字" A)文本框失去焦点 B)文本框获得焦点
126 "在设计阶段，当双击窗体上的某一个文本框控件时，系统将在代码窗口中显示该文 C)设置文本框的焦点 D)改变文本框的内容" 本框控件的____事件过程模板。
133 "在代码编辑器中，如果一条语句太长，无法在一行内写下(不包括注释)，要折行
书
关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf
A)Click B)DblClick C)Change D)GotFocus" 写，可以在行末使用续行字符____，表示下一行是当前行的继续。 127 "以下控件没有Click事件是____。 A)一个空格加一个划字符( _) B)一个划字符(_)
A)TextBox B)Label C)Timer D)Image" C)直接回车 D)一个空格加一个连字符( -)" 128 "在设计阶段，当双击窗体上的某个控件时，所打开的窗口是____。 134 "单击滚动条上的滚动箭头时，产生的事件是____。
A)工程资源管理器窗口 B)工具箱窗口 C)代码窗口 D)属性窗口" A)Click B)Scroll C)Change D)Move" 129 "以下控件中可以作为容器控件的是____。 135 "当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的是____。 A(Image图像框控件 B(PictureBox图扇框控件 A)AutoSize属性 B)Resize事件 C)AutoRedraw属性 D)Stretch方法"
136 "当双击窗体Froml时，要将窗体Forml隐藏起来，将窗体Form2以模式方式显示出C(TextBox文本框控件 D(ListBox列表框控件"
来的事件过程，正确的是______。
130 "Visual Basic的逻辑类型数据占____字节内存。
A)Private Sub Forml_DblClick() B)Private Sub Forml_DblClick()
A)2 B)4 C)8 D)16"
Forml.Hide Forml.Hide 131 "Visual Basic应用程序的运行是____。
15/95
Form2.Show 0 Form2.Show 1 End Sub
End Sub End Sub 程序运行后，如果单击鼠标右键，则输出结果为 。
C)Private Sub Form2_DblClick() D)Private Sub Forml_DblClick() A) AAAAA B) BBBBB C) AAAAA D) BBBBB
Forml.Hide Forml.Visibel=True BBBBB AAAAA"
Form2.Show Form2.Visibel=False 138 "下列表达式不正确的是______。
End Sub End Sub" A)x Like 3,5,7 137 "对窗体编写如下事件过程: B)x+y=z
Private Sub Form _MouseDown(Button As Integer, _ C)x+y And x+a>x+b Shift As Integer, X As Single Y As Single) D)#05/08/1995#+#01/07/1995#" If Button =2 Then 139 "对象可以识别和响应的某些行为称为____。 Print ""AAAAA"" A)属性 B)方法 C)继承 D)事件" End If 140 "下列程序段错误的是_______。 End Sub A)s=0:k=0 B)s=0:k=0 Private Sub Form _ MouseUp(Button As Integer, _ Start: 100:
Shift As Integer, X As Single, Y As Single) k=k+l k=k+l Print ""BBBBB"" s=s+k s=s+k
16/95
If k<10 Then GoTo Start If k<10 Then GoTo 100 C( 用来指定命令按钮的功能是关闭一个运行程序 C)s=0:k=0 D)s=0:k+0 D( 用来指定命令按钮的功能是中断一个程序的运行"
Start 100 144 "VB中控件主要分为3类，下面哪一种不是VB中的控件类____。
k:k+l k=k+l A(标准控件 B(ActiveX C(可插入控件 D(外部控件"
s=s+k s=s+k 145 "表达式1.5+3\2>2 Or 7 Mod 3<4 And Not 1的运算结果是_______。 If k<10 Then GoTo Start If k<10 Then GoTo 100" A)-1 B)0 C)1 D)其他"
141 "Move方法的一般形式是[对象名.]MoveA[，B[，C[，D))]，其中B指的是_______。 146 "表达式4+5 \ 6 * 7 / 8 Mod 9 的值是_______。
A)Left B)Top C)Width D)Height" A) 4 B) 5 C) 6 D) 7" 142 "MsgBox函数与MsgBox语句的区别是_______。 147 "表达式Left(""how are you""，3)的值是_____。
A)执行MsgBox函数会自动显示一个对话框，而执行MsgBox语句不会显示对话框 A)how B)are C)you D)how are you"
B)执行MsgBox函数显示的对话框是模式的，而执行MsgBox语句显示的对话框是非 148 "表达式X=sqr(a^2-5)+sqr(b^2-5)的类型是______。 模式的
A)算术表达式 B)逻辑表达式 C)关系表达式 D)字符表达式"
C)MsgBox函数的参数与MsgBox语句的参数不同(个数不同)
149 "代数式Sin(π-t)2/3?a×b对应的Visual Basic表达式是_______。
D)MsgBox函数会返回函数值，而MsgBox语句没有返回值"
A)(Sin(3.14159-t)^(2/3))/(A*B) B)(Sin(3.14159-t)^(2/3))/A*B
143 "VB为命令按钮提供的Cancel属性______。
C)Sin(3.14159-t)，(2/3)/(A*B) D)(Sin(π-t)^(2/3))/(A*B)" A( 用来指定命令按钮是否为窗体的“取消”按钮
150 "下列程序的执行结果为_____。
B( 用来指定命令按钮的功能是停止一个程序的运行
17/95
A=""1"" C)出现语法错误的信息 D)陷入死循环"
B=""2"" 152 "程序执行时，单击窗体后输出结果是______。
A=Val(A)+Val(B) Private Sub Form_Click()
B=Val(""12"") Dim I As Integer
If A<>B Then Print A-B Else Print B-A n=8
A)-9 B)9 C)-12 D)0" While n>5 151 "程序执行时，单击窗体后输出结果是_______。 n=n-1
Private Sub Form_Click() Print n;
Dim x As Integer Wend
x=5 End Sub
DO A)8 7 6 B)7 6 5 C)7 6 5 4 D)8 7 6 5"
Print x; 153 "下列程序的执行结果为____。
x=x-1 n=0
Loop While Not x j=1
End Sub DO Until n>2
A)5 B)5 4 3 2 1 0 n=n+1
18/95
j=j+n*(n+1) Next k
Loop Print s
Print n;j End Sub
A)0 1 B)3 7 C)3 21 D)3 13" A)10 B)18 C)30 D)78"
155 "窗体上有一个名为Label1的标签，为了使该标签透明并且没有边框，正确的属性能154 "下列程序的输出结果是_______。
设置为____。
Option Base 1
A)Label1.BackStyle=0 B)Label1.BackStyle=1
Private Sub Commandl_Click()
Label1.BorderStyle=0 Label1.BorderStyle=1
Dim Arrl(12)，Arr2(4)AsInteger
C)Labell.BackStyle=true D)Label1.BackStyle=False
For i=1 To 12
Label1.BorderStyle=true Label1.BorderStyle=False"
Arrl(i)=I
156 "表达式Int*(5*Rnd+1)*Int*(5*Rnd-1)的值的范围是_____。
Next i
A)[0,15] B)[-1,15] C)[-4,15] D)[-5,15]"
Forj=1 T04
157 "设有如下声明:
Arr2(j)=Arr1(3*j)
Dim X As Integer
Next j
如果Sgn(X)的值为-1，则X的值是________。
For k=1 To 4
A)整数 B)大于0的整数 C)等于0的整数 D)小于0的数"
s=s+Arr2(k)
158 "满足“当x的值是偶数时为真，奇数时为假”要求的表达式是_______。
19/95
164 "设有数组定义语句:Dim a(5)As Integer，Listl为列表框控件。下列给数组元素赋
值的语句，错误的是______。
A)x Mod 2=0 B)Not x Mod 2<>0 C)(x\2*2-x)=0 D)Not(x Mod 2)"
A)a(3)=3 B)a(3)=InputBox(“InputData"") 159 "声明一个变量为全局变量应该用_____关键字。
C)a(3)=Listl(Listlndex D)a=Array(1，2，3，4，5，6)"
A)Dim B)Private C)Static D)Public"
165 "函数Ucase(""basic"")的值为_______。
160 "如果将PassWordChar属性设置为一个字符，如星号(*),运行时，在文本框中输入的
字符仍然显示出来，而不显示星号，原因可能是________。 A)Basic B)basic C)Basic D)BASIC"
A)文本框的Multiline属性值为True B)文本框的Locked属性值为True 166 "设有数组定义:Dim a(4)，存放数值数据，则数组a所占空间为_____字节。
C)文本框的Multiline属性值为False D)文本框的Locked属性值为False" A)32 B)40 C)80 D)不确定"
161 "设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用________属性。 167 "可以同时删除字符串前导和尾部空白的函数是 ____。
A)ControlBox B)ClipControl C)BordeStyle D)AutoRedraw" A) Ltrim B) Rtrim C) Trim D) Mid" 162 "设置标签边框的属性是____ 168 "如果逻辑与(And)运算的结果为""真""，与它所连接的两个条件必须是_______。
A)BorderStyle B)BackStyle C)AutoSize D)Alignment" A)前一个为""真""，后一个为""假"" B)前一个为""假""，后一个也为""假"" 163 "如果将文本框的Locked属性设置为True，则以下说法______是正确的. C)前一个为""真""，后一个也为""真"" D)前一个为""假""，后一个为""真"""
A)此时在属性窗口不可以修改文本框的Text属性值 169 "下列关于数组的说明，正确的是______。
B)运行时用户不可以在界面上修改文本框中的内容 A)Visual Basic的数组，同一个数组中只能存放同类型的数据
C)在程序代码中不可以修改文本框的内容，如不可以使用语句Text.Text=""aa"" B)Visual Basic的数组，维的界只能从0开始或从1开始
D)以上均个正确" C)用Option Base n语句指定数组下标的默认下界，则数组自动定义为整型
20/95
D)定义数组时，维的界只能是数值常数" Print ""#""; I&""="" & fac(I) 170 "如果在立即窗口中执行以下操作: Next I
a=8 End Sub
b=9 程序运行后，单击窗体，在窗体上显示的是( )
Print a>b A(#2=2 B(#2=2 C(#;2=2 D(#;2=2
则输出结果是____。 #3=3 #3=5 #;3=3 #;3=5"
A)False B)1 C)0 D)-1" 172 "如下程序运行后输出的结果是 171 "设有如下程序: x=0
Private Static Function fac(n As Integer) As Integer FOr k=3 TO 5 Dim f As Integer x=x+2
f = f + n S=S+X
fac = f Next k
End Function Print s
Private Sub Form_Click() A)3 B)12 C)6 D)9"
173 "设A$=""China""，将China增加到列表框List开头位置，下列完成此项操作正确的Dim I As Integer
语句是_____。
For I = 2 To 3
21/95
A)Listl.AddItem A$ B)Listl.AddItem ""A$"" A)a(5(6) B)a(10) C)a(k*k) D)a(Sqr(k^3))"
C)Listl.AddItem A$，0 D)AddItem A$ 0" 178 "假定有如下的Sub过程: 174 "设a，b为整型变量，且均不为0，下列关系表达式中恒成立的是______。 Sub S(x As Single,y As Single)
A)a*b?a*b=1 B)a*b\b*a=1 t = x
C)a\b*b+a Mod b=a D)a\b*b=a" x =t/y 175 "设a=3，b=5，则以下表达式值为真的是______。 y =t Mod y
A)a>=b And b>10 B)(a>b) Or (b>0) End Sub
C)(a<0) Eqv (b>0) D)(-3+5>a) And (b>0)" 在窗体上画一个命令按钮，然后编写如下事件过程: 176 "设a=4，b=5。下列循环中，循环体没有执行循环结构的是_____。 Private Sub Commandl_Click ( )
A)For I=a To b B)While a>b Dim a As Single
Print ""*"" Print ""*"" Dim b As Single
Next I Wend a =5
C)Do D)Do Until a>b b =4
Print ""*"" Print ""*"" S a,b
Loop While a>b Loop" Print a,b 177 "设有数组定义:Dima(5 To 15)和赋值语句k=4。下列数组引用错误的是______。 End Sub
22/95
182 "为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件)，则应将其Interval程序运行后，单击命令按钮，输出结果为 。
属性值设置为____。
A) 5 4 B) 1 1 C) 1.25 4 D) 1.25 1"
A)5 B)500 C)10 D)5000" 179 "关于Image控件和PictureBox控件的说明，其中错误的是_____。
183 "关于货币型数据，下列说法正确的是________。
A)Image控件和PictureBox控件都有Picture属性
A)货币型数据有时可以表示成整型数据 B)货币型数据与浮点型数据完全一样
B)Image控件和PictureBox控件都支持Print方法
C)货币型数据是由数字和小数点组成的字符串
C)Image控件和PietureBox控件都可以用LoadPicture函数把图形文件装入控件中
D)货币型数据是小数点位置固定的实型数"
D)Image控件和PictureBox控件都能在属性窗口装入图形文件，也都能在运行期间装入
图形文件" 184 "关于语句If x=1 Then y=1，下列说法正确的是_______。 180 "关于MsgBox()函数，下列说法正确的是______。 A)x=l和y=l均为赋值语句 B)x=1和y=1均为关系表达式
A)执行MsgBox()函数弹出的对话框是模式(模态)对话框 C)x=l为关系表达式，y=l为赋值语句 D)x=1为赋值语句，y=l为关系表达式"
B)执行MsgBox()函数弹出的对话框是无模式(非模态)对话框 185 "函数String(n，""str"")的功能是_____。
C)调用MsgBox()函数，若缺省[，Buttons]参数，则弹出的对话框中没有任何按 A)把数值型数据转换为字符串 B)返回由n个字符组成的字符串 钮
C)从字符串中取出n个字符 D)从字符串中第n个字符的位置开始取子字符串"
D)调用MsgBox()函数，若缺省[，Title]参数，则弹出的对话框不显示标题"
186 "为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性181 "为使图像框的大小自动适应图像的大小，则应____。 设置为Tme，这个属性
A)将其AutoSize属性值设置为True B)将其AutoSize属性值设置为False 是____。
C)将其Stretch属性值设置为True D)将其Stretch属性值设置为False" A)Value B)Cancel C)Enabled D)Default"
23/95
187 "计算z的值:当x大于y时，z=x;否则，z=y。下列语句行错误的是_________。
A)If x=y Then z=x:z=y B)If x>=y Then z=x Else z=y A)a$=Listl.List(1) B)List1.List(1)=""List""
C)z=y:If x>=y Then z=x D)If x<=y Then z=y Else z=x" C)List1.List(2)=List1.ListCount D)L1stl.List(2)=str(List1.ListCount)"
191 "假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效(变灰)，应使188 "列表框中Tablndex属性表示的意义是____。
用的语句为____。
A)被选中列表项的序号 B)列表框的项的总数
A) MenuItem. Enabled=False B) MenuItem. Enabled=True
C)列表框获取Tab焦点的序号 D)无此属性"
C) MenuItem. Visible=True D) Menultem. Visible=False" 189 "假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的
属性设置为______。 192 "假定在窗体(名称为Form1)的代码窗口中定义如下
记录
混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载
类型:
A) Label1. BackStyle=0 Private Type animal
Label1.Borderstyle=0 AnimalName As String*20
B) Label1.BackStyle=1 Acolor As String*10
Label1.Borderstyle=1 End Type
C) Label1.BackStyle=True 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:
Label1.BorderStyle=True Private Sub Command1_Click()
D) Label1.BackStyle=False Dim rec As animal
Label1.Borderstyle=False" Open ""c:\vbTest.dat"" For Random As #1 Len = Len(rec) 190 "列表框名称为Listl，下列语句错误的是______。 rec.animalName = ""Cat""
24/95
rec.aColor = ""White"" A)Int((Cos(Y)+0.5)*1000)/1000 B)Int(Cos(Y*1000))/1000+0.5
Put #1, , rec C)Int(Cos(Y)，1000+0.5)/1000 D)Int(Cos(Y*1000)+0.5)/1000"
195 "将数学表达式Cos^2(a+b)+5e^2写成Visual Basic的表达式，其正确的形式是 Close #1
_______。
End Sub
A)Cos(a+b)^2+5*Exp(2) B)Cos^2(a+b)+5*Exp(2) 则以下叙述中正确的是
C)Cos(a+b)^2+5*ln(2) D)Cos^2(a+b)+5*ln(2)" A) 记录类型animal不能在Form1中定义，必须在标准模块中定义
196 "将文本框的ScrollBars属性设置为非零值，却没有效果，原因是_______。 B) 如果文件c:\vbTest.dat不存在，则Open命令执行失败
。
C) 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
A)文本框中没有内容 B)文本框的MultiLine属性值为False D) 语句“Put #1, , rec”将animal类型的两个数据元素写到文件中"
C)文本框的MultiLine属性值为Ture D)文本框的Locked属性值为Ture" 193 "建立一个图书资料管理输入界面，要求选择图书的借阅情况、语种(中文/英文/日
文/其他)及分类(10类，存在重复分类，某一本图书属于1类，也同时属于2类)。应如197 "仅仅是CommandButton或OLEContainer控件才具有的，别的常用控件不具有的一组何在窗体中利用单选钮和选择框实现______。 属性是____
A( 用一组16个选择框来实现 A)Name与Caption B)Enabled与Visible
B( 将10种分类用一组10个选择框、借阅情况和语种用6个单选钮实现 C)Style与BorderStyle D)Cancel与Default"
C( 将10种分类用一组10个单选钮、借阅情况和语种用6个选择框实现 198 "决定一个窗体有无控制菜单的属性是_______。
D( 将10种分类用一组10个选择框、借阅情况用2个单选钮、语种用4个单选钮实现" A)MinButton B)Caption C)MaxButton D)ControlBox" 194 "将Cos(y)四舍五入保留3位小数的表达式是____。 199 "给程序的空白行选择适当的语句。
25/95
窗体上有一个命令按钮Command2和一个列表框List1。先选择列表框中的某一个项目， Font=""仿宋"" 然后单击命令按钮，将该项目从列表框删除。程序如下:
Print ""万岁!""
Private Sub Command2_Click()。
Font=""宋体""
Dim lnd As Integer
A)中国(默认字体) B)中国(默认字体)
lnd=____
人民(默认字体) 人民(仿宋)
List1.Remove lnd
万岁!(默认字体) 万岁!(宋体)
End Sub
C)中国(默认字体) D)中国隶书(默认字体)
A)List1.Index B)List1.ListIndex
人民(隶书) 人民(仿宋)
C)List1.Text D)List1.ListCount"
万岁!(仿宋) 万岁!(仿宋)" 200 "设a=6，则执行 x=iif(a>5,-1,0)后，x 的值为____。
203 "下列程序段的执行结果为_____。 A) 5 B) 6 C) 0 D) -1"
a=0:b=1 201 "语句Dim abc(-2 To 4，0 To 4，5)As Long定义的三维数组，其数组元素有_______。
DO
A)96个 B)112个 C)140个 D)210个"
a=a+b 202 "运行以下程序后，输出的结果是_______。
b=b十1
Print ""中国""
Loop While a<10
Font=""隶书""
Print a;b
Print ""人民""
26/95
A)10 5 B)ab C)0 1 D)10 30" For k=2 To 3 204 "有如下程序: Print arr(k，j);
Const c$=""Beijing"" Next k
C$=""Shanghai"" Print
C$=""Hebei"" Next j
Print c$ 运行后，输出的结果是____
运行后输出的结果是____。 A)2 5 B)5 8 C)4 7 D)5 9
A)Beijing B)Shanhai C)Hebei D)显示出错信息" 3 6 6 9 5 8 6 8" 205 "有如下程序: 206 "有如下程序:
Dim arr(3，3) For j=l To 3
For j=1 To 3 Ptint Tab(3*j);2*(j-1)*2*(j-1)
For k=1 TO 3 Next j
arr(j，k)=(j—1)*3+k Print
Next k 运行后，输出结果是____。
Nextj A) 0 B)0 4 16
For j=2 To 3 4
27/95
16 Print Asc(k$+j$)
C)0 D)0 4 16 End
4 运行后输出的结果是____。
16" A)abcabc B)ABCABC C)65 D)97"
207 "有如下程序: 209 "有如下程序:
Form1.Cls Private Sub Form_Click()
For r=35 To 85 Step 25 X1=180:Y1=180:X2=100:Y2=100
Circle(300,240),r Form1.Une(X1，Y1)-(X2，Y2)，B
Next r End Sub
单击窗体后，窗体上显示的是____。 单击窗体后，窗体上显示的是_____。
A)3个相交圆 B)3个同心不相交圆 A)一条直线 B)一个矩形空框 C)一个填充了颜色的矩形 D)无任何显示"
C)4个同心不相交圆 D)两个同心不相交圆" 210 "有如下程序:
208 "有如下程序: a$=""China""
m$=”ABC” b$=Right$(a$，3):cS=Strings(3，b$)
n$=”abC” k$=Lcase$(mS) Print c$
j$=Ucase$(n$) End
28/95
运行后，输出结果是_______。 212 "用下面语句定义的数组的元素个数是______。
A)Chi B)aaa C)iii D)ina" Dim A (-3 To 5) As Integer 211 "有如下语句: A) 6 B) 7 C) 8 D) 9"
Type Student 213 "语句Print ""Sgn(-26)="";Sgn(-26)的输出结果为_______。 Name As String A)Sgn(-26)=26 B)Sgn(-26)=-26 C)Sgn(-26)=+1 D)Sgn(-26)=-1"
Age As Integer 214 "语句Print 5/4*6\5 Mod 2的输出结果是______. Sex As String A) 0 B) 1 C) 2 D) 3" End Type 215 "语句X=X+1的正确含义是____。 Dim Stu As Student A)变量X的值与X+1的值相等 B)将变量X的值存到X+1中去 With Stu C)将变量X的值加1后赋给变量X D)变量X的值为1" .Name = ""张红"" 216 "阅读程序:
.Age = 22 Function F(a As Integer) .Sex = ""女"" b = 0
End With Static c
执行Print Stu.Age后的结果是( ) b = b+1
A(张红 B(22 C(“女” D(Age" c = c+1
29/95
f = a+b+c b(I)=2*I End Function Next I Private Sub Commandl_Click () End Sub Dim a As Integer Private Sub Commandl_Click() a =2 Dim a(1 To 4)As Integer For I =1 To 3 a (1)=5 Print F(a) a (2)=6 Next I a (3)=7 End Sub a (4)=8 运行上面的程序，单击命令按钮，输出结果为 。 subP a () A) 4 B) 4 C) 4 D) 4 For I =1 To 4 4 5 6 7 Print a(I) 4 6 8 9" Next I 217 "阅读程序: End Sub Sub subP(b() As Integer) 运行上面的程序，单击命令按钮，输出结果为 。 For I =1 To 4 A)2 B)5 C)10 D)出错
30/95
4 6 12 For I =1 To 4
6 7 14 Print a(I)
8 8 16" Next I
218 "阅读程序: End Sub
Sub subP(b() As Integer) 运行上面的程序，单击命令按钮，输出结果为 。 For I =1 To 4 A)2 B)5 C)10 D)出错 b(I)=2*I 4 6 12 Next I 6 7 14 End Sub 8 8 16"
Private Sub Commandl_Click() 219 "阅读下面的程序段:
Dim a(1 To 4)As Integer For I=1 To 3
a (1)=5 For j=1 To I
a (2)=6 For k=j To 3
a (3)=7 a=a+1
a (4)=8 Next k
subP a () Next j
31/95
Next I Print a
执行上面的三重循环后，a 的值为 。 End Sub
A) 3 B) 9 C) 14 D) 21" 程序运行后，依次输入数值30，20，10，-1，输出结果为____。 220 "以下____程序段可以实施X、Y变量值的互换。 A)6000 B)-6000
A)Y=X:X=Y B)Z=X:Y=Z:X=Y C)200 D)-10"
C)Z=X:X=Y:Y=Z D)Z=X:W=Y:Y=Z:X=Y" 222 "以下关于控件的叙述中，错误的是______。 221 "有如下事件过程: A( VB允许用户乱设计并使用控件
Private Sub Command_Click() B( 主窗体中工具条中的工具不是工具箱中包含的常用控件
b=10 C( 若使用系统提供的OCX控件，应先将有关的控件添加到工具箱中
D( 使用系统提供的OCX控件进行程序调，其编程的方法与工具箱中常用控件的编程有所 Do Until b=-1
不同"
a=InputBox(""输入a的值"")
223 "以下4组语句中不正确的是 ______。
a=Val(a)
A)A=1:A+A B)Const A=1:A=A+1+[10，10] C)A=B=1 D)Print A>=B"
b=InputBox(""输入b的值"")
224 "以下Case语句中错误的是____。
b=Val(b)
A) Case 0 To 10 B) Case Is>10
a=a*b
C) Case Is>10 And Is<50 D) Case 3,5,Is>10"
Loop
225 "以下不合法的常量是_______。
32/95
k=k+p(I)*2
A)10^2 B)100 C)100.0 D)10E+01" Next I
226 "以下不能在“工程资源管理器”窗口中列出的文件类型是____。 Print k
A).bas B).res C).frm D).ocx" End sub
227 "以下程序的输出结果是 ____。 A) 33 B) 28 C) 35 D) 37" Option Base 1 228 "以下关系表达式中，其值为False的是______。 Private Sub Command1_Click() A) ""ABC"">""AbC"" B) ""the""<>""they"" Dim a(10),p(3) As Integer C) ""VISUAL""=Ucase(""Visual"") D) ""Integer"">""Int"""
k=5 229 "以下关于变量作用域的叙述中，正确的是______。 For I=1 To 10 A) 窗体中凡被声明为Private的变量只能在某个指定的过程中使用 a(I)=I B) 全局变量必须在标准模块中声明 Next I C) 模块级变量只能用Private关键字声明 For I=1 To 3 D) Static类型变量的作用域是它所在的窗体或模块文件" p(I)=a(I*I) 230 "以下关于窗体的描述中,错误的是_____。 Next I A)执行Unload Form1语句后，窗体Form1消失，但仍在内存中 For I=1 To 3 B)窗体的Load事件在加载窗体时发生
33/95
C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止
D)窗体的Height、Width属性用于设置窗体的高和宽" A) 可以通过Print方法在图片框中输出文本
231 "有如下程序: B) 清空图片框控件中图形的方法之一是加载一个空图形
a=3:b=4 C) 图片框控件可以作为容器使用
D) 用Stretch属性可以自动调整图片框中图形的大小" Print b>a
End 235 "以下关于作用范围的描述正确的是______。
运行后，输出结果是_______。 A( 所有变量(Public/Global/Static/Private)都可以放到窗体的通用部分定义
A)Ture B)False C)4>3 D)显示出错信息" B( 所有变量(Public/Global/Static/Private)都可以放到标准模块中定义 232 "以下关于函数过程的叙述中，正确的是 C( Public/Global类的变量只能放在标准模块中定义
A) 函数过程形参的类型与函数返回值的类型没有关系 D( 只有Global类的变量必须放在标准模块中定义"
B) 在函数过程中，过程的返回值可以有多个 236 "以下可以构成语句的一项是_____。
C) 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递 A)对象名.属性 B)对象名.方法名 C)对象名.事件名 D)对象名.函数名" D) 如果不指明函数过程参数的类型，则该参数没有数据类型" 237 "以下能够正确计算1+2+3+„+10的程序是______。
233 "在4个字符""D"",""x""，""A""，""9""中，其ASCII码值最大的是____。 A(Private Sub Command1_Click() B(Private Sub Command1_Click()
A)""D"" B)""x"" C)""A"" D)""9""" Sum = 0 Sum = 0,I=1 234 "以下关于图片框控件的说法中，错误的是______。 For I = 1 To 10 Do While I<=10
34/95
Sum = Sum + 1 Sum=Sum+I D) 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样" Next I I=I+1 239 "以下循环体执行的次数是____。 Print Sum loop Print Sum Print i;
End Sub End Sub i=i+2:j=j-1
C(Private Sub Command1_Click() D(Private Sub Command1_Click() Wend
Sum = 0;I=1 Sum = 0;I=1 A)3次 B)2次 C)1次 D)0次" Do Do 240 "以下语句的输出结果是______。 Sum = Sum + 1 Sum=Sum+I Print Format $(32548.5,""000,000.00"") I=I+1 I=I+1 A) 32548.5 B) 32,548.5 C) 032,548.50 D) 32,548.50"
Loop While I<10 Loop Until I<10 241 "用标准工具栏中的工具按钮不能执行的操作是_______。 Print Sum Print Sum A)添加工程 B)打印源程序 C)运行程序 D)打开程序" End Sub End Sub" 242 "以下关于窗体描述正确的是____。 238 "以下叙述中错误的是______。 A( 只有用于启动的窗体可以有菜单 A) 一个工程可以包括多种类型的文件 B( 窗体事件和其中所有控件事件的代码都放在窗体文件中 B) Visual Basic应用程序既能以编译方式执行，也能以解释方式执行 C( 窗体的名字和存盘的窗体文件名必须相同 C) 程序运行后，在内存中只能驻留一个窗体 D( 开始运行时窗体的位置只能是设计阶段时显示的位置"
35/95
243 "在列表框中当前被选中的列表项的序号是由下列____属性表示的。 s = s + a(I)*j
A)List B)Index C)ListIndex D)TabIndex" j =j*10
244 "运行下列程序段后，输出的""*""个数是_______。 Next I
For I=1 To 2 Print s
End Sub For j=0 To I-1
Print ""*"" 运行上面的程序，单击命令按钮，其输出结果是 。
Next j A) 4321 B) 12 C) 34 D) 1234"
Next I 246 "在窗体上面一个命令按钮(其Name属性为Commandl)，然后编写如下代码:
A)1 B)2 C)3 D)4" Option Base 1 245 "在窗体上面画一个命令按钮，然后编写如下事件过程: Private Sub Commandl_Click( ) Option Base 1 Dim a(4,4)
Private Sub Commandl_Click() For I =1 To 4 Dim a For j =1 To 4 a = Array(1,2,3,4) a(I,j) = (I-1)*3+j j = 1 Next j
For I = 4 To Step -1 Next I
36/95
For I =3 To 4 程序运行后，单击命令按钮，在文本框中显示( ) For j =3 To 4 A(3 B(8 C(14 D(10"
248 "在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序Print a(j,I);
的属性是____。
Next j
A) TabStop B)Enabled C) Visible D)TabIndex"
Print
249 "在窗体支持的事件中，由系统自动触发的事件是____事件。 Next I
A)Load和Unload B)Click和DblClick End Sub
C)Initialize和Load D)MouseDown和MouseUp" 程序运行后，单击命令按钮，其输出结果为 。
250 "在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(NameA) 6 9 B) 7 10 C) 8 11 D) 9 12 属性为Command1)，然后编写如下两个事件过程: 7 10 8 11 9 12 10 13" Private Sub Command1_Click() 247 "在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码: a = Ucase$(Text1.Text) + Left$(Text2.Text，2)
Private Sub Command1_Click( ) Print a
A=1.2 End Sub
C=Len(Str$(A)+Space(10) Private Sub Form_Load() Text1.text=C Text1.Text = ""aB""
End Sub Text2.Text = ""123456""
37/95
End Sub Private Sub Command1_Click() 程序运行后，单击命令按钮，输出结果为( ) For I=1 To 4 A(Ab12 B(AB12 C(AB56 D(Ab56" x=4
251 "在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其For j =1 To 3 Name属性为Command1)，然后编写如下程序:
x=3
Private Sub Command1_Click()
For k=1 To 2 X = 0
x=x+6 Do While X < 10
Next k X = (X + 1) * (X + 2)
Next j n = n + 1
Next I Loop
Print x Text1.Text = Str(n)
End Sub Text2.Text = Str(X)
程序运行后，单击命令按钮，输出结果是 。 End Sub
A) 7 B) 15 C) 157 D) 538" 程序运行后，单击命令按钮，在两个文本框Text1和Text2中分别显示的值是( )
253 "在窗体中添加一个命令按钮Command1和一个文本框Text1，并有以下程序:
A(1和0 B(2和12 C(2和72 D(3和12"
Private Sub Command1_Click() 252 "在窗体上画一个命令按钮，然后编写如下事件过程:
38/95
Static a As Variant End If Next I
a = Array(20, 13, 45, -10, 50, 25) Next I Text1.Text = Min
„„ Text1.Text = Min" End Sub 254 "在窗体上画一个命令按钮，然后编写如下事件过程: 此程序的功能是求数组a的最小元素值，并把最小值放在文本框中。为实现程序的功能，Prevate Sub Command1_Click() 省略号处的程序段应该是( )
x=0
A(Min = a(1) B(Min = a(0)
Do Until x=-1 For I = 2 To 6 For I = 1 To 5
a = InputBox(""请输入A的值"") If Min < a(I) Then If Min < a(I) Then
a = Val(a) Min = a(I) Min = a(I)
b = InputBox(""请输入B的值"") End If End If
b = Val(b) Next I Next I
x = InputBox(""请输入x的值"") Text1.Text = Min Text1.Text = Min
x = Val(x) C(Min = a(0) D(Min = a(0)
a = a+b+x For I = 1 To 5 For I = 1 To 5
Loop
If Min < a(I) If Min < a(I) Then
Print a
Min = a(I) Min = a(I)
39/95
End Sub Text1.SelStart=0
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 。 Text1.SelLength=Len(Text1.Text) A) 2 B) 3 C) 14 D) 15" End Sub
255 "在默认情况下，InputBox函数返回值的类型为_______。 C)PrivateSubText1_Change()
A)数值 B)字符串 C)变体 D)数值或字符串(视输入的数据而定)" Text1.SelStart=0
256 "在以下描述中正确的是______。 Text1.SelLength=Len(Text1.Text) A) 标准模块中的任何过程都可以在整个工程范围内被调用 End Sub
B) 在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程 D)PrivateSubText1_SetFocus() C) 如果工程中包含Sub Main过程，则程序将首先执行该过程 Text1.SelStart=0
D) 如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体" Text1.SelLength=Len(Text1.Text) 257 "在运行阶段，要在文本框Text1获得焦点时选中文本框中的所有内容，则对应的事 End Sub"
件过程是____。
258 "在运行时，按Tab键跳过了一个可以获得焦点的控件(如文本框)，则可能是因为
A)PrivateSubText1_GotFocus() ______。
Text1.SelStart=0 A)该控件的TabStop属性值为True B)该控件的TabStop属性值为False
Text1.SelLength=Len(Text1.Text) C)该控件的Enabled属性值为True D)该控件的Enabled属性值为False"
259 "执行x$=InputBox(“请输入x的值”)时，在弹出的对话框中输入123，在列表框Lisfl End Sub
选中第1个列表项(数据为456)，则下列使y的值是123456的语句是_______。
B)PrivateSubText1_LostFocus()
40/95
A)y=x$+Listl.List(0) B)y=x$+Listl.List(1) nl = Chr(13) + Chr(10)
C)y=Val(x$)+Val(List1.List(0)) D)y=Val(x$)+Val(Lisfl(List(1))" msg$ = ""1(运行VB应用程序"" + nl + ""3(计算器"" 260 "执行如下语句: msg$= msg$ + nl + ""请输入数字选择""
a=InputBox(""Today""，""Tomorrow""，""yesterday""，，，""Day before yesterday""，retnum = InputBox(msg$, Title, Default) 5)
End Function
将显示一个输入对话框，在对话框的输入区中显示的信息是_____。
Private Sub Command1_Click()
A)Today B)Tomorrow C)Yesterday D)Day before yesterday"
r = retnum
261 "执行下面的程序段后，x 的值为_______。
If r = 1 Then X=5
x = Shell(""c:\vbp\vbexam.exe"", 1) For I=1 To 20 Step 2
ElseIf r = 2 Then x=x+I\5
z = Shell(""calc.exe"", 1) Next I
Else
A) 21 B) 22 C) 23 D) 24"
MsgBox ""请输入1-2的数"" 262 "执行语句s=Len(Mid(""VisualBasic"",1,6))后，s的值是______。
End If
A) Visual B) Basic C) 6 D) 11"
End Sub
263 "在窗体中添加一个命令按钮Command1，并有以下程序:
程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示( ) Function retnum()
41/95
A(请输入1-2的数 B(Windows的计算器 Print s
C(调用C:\vbp\vbexam.exe程序并运行 D(出错" End Sub
264 "在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的程序运行后，单击命令按钮，在窗体上显示的是 事件过程:
A) 11 B) 10 C) 9" Private Function f(m As Integer)
265 "在MsgBox函数中哪一个参数是必须的______。
If m Mod 2 = 0 Then
A(Prompt B(Buttons C(Title D(Context"
f = m
266 "在VB的基本数据类型中，通用类型(Variant)可以表示任何类型的变量，如果有定
Else 义Dim a，则以下变量赋值中正确的是____。
f = 1 A(A=”OK” B(A$=OK C(A=04/01/2001 D(A$=”OK”"
End If 267 "在VB中，按下鼠标键触发事件，正确的程序段是______。
A(Private Su b Form_MouseDown(Button As Integer, Shift As Integer, X As Single, End Function
Y As Single)
Private Sub Command1_Click()
„„
Dim I As Integer
End Sub
s = 0
B(Private Sub Form_MouseUP(Button As Integer, Shift As Integer, X As Single, Y
For I = 1 To 5 As Single)
s = s + f(I) „„
Next End Sub
42/95
C(Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, A)Picture1.Picture=""mypic.jpg"" B)Picture1.Image=""mypic.jpg""
Y As Single)
C)Picture1.Picture=LoadPicture(""mypic.jpg"")
„„
D)LoadPicture(""mypic.jpg"")" End Sub
271 "在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其D(Private Sub Form_Load() Name属性为Command1)，然后编写如下事件过程:
„„ Private Sub Command1_Click() End Sub" x=0
268 "在Visual Basic中，以10为底的x的常用对数表达式为______。 Do While x<50
A)Log(x) B)LoglO(x) C)Log(x)/Log(e) D)Log(x),Log(10)" x=(x+2)*(x+3)
269 "在菜单设计时，在某菜单项(Caption)中一个字母前加以“&”符号的含义是____。 n=n+1
A( 设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Ctrl+带下划线Loop
的字母选择该菜单项
Text1.Text=Str(n) B( 设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Alt+带下划线
Text2.Text=Str(x) 的字母选择该菜单项
End Sub C( 设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Shift+带下划
线的字母选择该菜单项
程序运行后，单击命令按钮，在两个文本框中显示的值分别为 D( 在此菜单项前加上选择标记"
A) 1和0 B) 2和72 C) 3和50 D) 4和168" 270 "在程序代码中将图片文件mypic.jps装入图片框Pietrue1的语句是______。
272 "在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:
43/95
Private Sub Command1_Click() 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是
Move 500，500 A)空 B) abcdef C) abc D) def"
End Sub 274 "在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:
程序运行后，单击命令按钮，执行的操作____。 Private Sub Command1_Click() 为 x = -5
A) 命令按钮移动到距窗体左边界、上边界各500的位置 If Sgn(x) Then
B) 窗体移动到距屏幕左边界、上边界各500的位置 y = Sgn(x ^ 2) C) 命令按钮向左、上方向各移动500 D) 窗体向左、上方向各移动500" Else
273 "在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1 y = Sgn(x)
和Command1，然后编写如下两个事件过程:
End If
Private Sub Command1_Click()
Print y
strText = InputBox(""请输入"")
End Sub
Text1.Text = strText
程序运行后，单击命令按钮，窗体上显示的是 End Sub
A) -5 B) 25 C) 1 D) -1" Private Sub Text1_Change()
275 "有如下程序:
Label1.Caption = Right(Trim(Text1.Text), 3)
a=6;b=8
End Sub
44/95
F=Sqr(a*a+b*b) „„
Print F Next
运行后输出的结果是______。 D) For I=1 To ListCount
A)6 B)8 C)10 D)14" „„ 276 "在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。Next" 当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个
278 "在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以事件过程中，这个事件过程是______。
下能实现该操作的事件过程是 A)Drive1_Change B) Drive1_Click
A) Private Sub Text1_KeyPress(KeyAscii As Integer)
C) Dir1_Click D) Dir1_Change"
If KeyAscii < 65 Or KeyAscii > 90 Then
277 "在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，
MsgBox ""请输入大写字母"" 应使用的循环语句为______。
KeyAscii = 0 A) For I=0 To List1.ListCount-1
End If „„
End Sub Next
B) Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) B) For I=0 To ListCount-1
If KeyCode < 65 Or KeyCode > 90 Then „„
MsgBox ""请输入大写字母"" Next
KeyCode = 0 C) For I=1 To List1.listCount
45/95
End If If n\2 = n/2 Then End Sub f = f1(n) C) Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Else Y As Single)
f = f2(n)
If Asc(Text1.Text) < 65 Or Asc(Text1.Text) > 90 Then
End If
MsgBox ""请输入大写字母""
Print f; n
End If
End Sub End Sub
Public Function f1(ByRef x) D) Private Sub Text1_Change()
x=x*x
If Asc(Text1.Text) > 64 And Asc(Text1.Text) < 91 Then
f1=x+x
MsgBox ""请输入大写字母""
End Function
End If
End Sub"
Public Function f2(ByVal x) 279 "在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编
x=x*x 写如下事件过程和通用过程:
f2=x+x+x Private Sub Command1_Click()
End Function n = Val(Text1.Text)
46/95
程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是 j = 1
A) 72 36 B) 108 36 C) 72 6 D) 108 6" For I = 4 To 1 Step -1 280 "在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编 s = s + a(I) * j 写如下事件过程
j = j * 10
Private Sub Command1_Click()
Next I
Text1.Text = ""Visual""
Print s
Me.Text1 = ""Basic""
End Sub
Text1 = ""Program""
运行上面的程序，单击命令按钮，其输出结果是 End Sub
A) 4321 B) 1234 C) 34" 程序运行后，如果单击命令按钮，则在文本框中显示的是
282 "在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程: A) Visual B) Basic C) Program D) 出错"
Private Sub Command1_Click() 281 "在窗体上画一个命令按钮(其NAME属性为Command1)，然后编写如下代码:
a = 12345 Option Base 1
Print Format$(a, ""000.00"") Private Sub Command1_Click()
End Sub
Dim a
程序运行后，单击命令按钮，窗体上显示的是
s = 0
A) 123.45 B) 12345.00 C) 12345 D)00123.45"
a = Array(1,2,3,4)
47/95
283 "在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮， c1 = Trim(Str?) 依次在输入对话框中输入5，4，3，2，1，
For I = 1 To 4
-1，输出结果为______。
Print
Private Sub Commandl_Click()
Next
x=0
End Sub
DO Until x=-1
程序运行后，单击命令按钮，要求在窗体上显示如下内容
a=Val(InputBox(”请输入A的值”))
1
b=Val(InputBox(”请输人B的值”))
12
x=Val(InputBox(”请输入X的值”))
123
a=a+b+x
1234
Loop
则在下划线处应填入的内容为
Print a
A) Right(c1,I) B) Left(c1,I) C) Mid(c1,I,1) D) Mid(c1,I,I)"
End Sub
285 "下列关于属性、方法、事件概念的说明错误的是______。
A)2 B)3 C)14 D)15"
A)一个属性总是与某一个对象相关 B)一个方法隶属于一个对象 284 "在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:
C)一个事件总是与某一个对象相关 D)事件由对象触发，而方法是对事件的响应"
Private Sub Command1_Click()
286 "下列符号常量的声明中，_____是不合法的。
c = 1234
48/95
A)Const a As Single=1.1 B)Const a As Integer=""12"" A=10.5:B=Int(A+0.5)
C)Const a As Double=Sin(1) D)Const a=""OK""" Debug.Print B
287 "下列赋值语句中,语法正确的是______。 A)求平均值 B)将一个实数四舍五人取整数
A)A^2=9 B)a3 D)Let a=5,b=10" C)求绝对值 D)舍去一个实数的小数部分" 288 "下列各种形式的循环中，输出""*""个数最少的循环是______。 290 "下面表达式中，_______的运算结果与其他3个不同。
A)a=5:b=8 B)a=5:b=8 A)log(Exp(-3.5)) B)Int(-3.5)+0.5
Do DO C)-Abs(-3.5) D)Sin(30*3.14/180)"
Print ""*"" Print ""*"" 291 "下列关于“面向对象”编程的叙述错误的是_______。
a=a+1 a=a+1 A)属性是描述对象的数据 B)方法指示对象的行为
Loop While a只能有一个为真，否则将出现二义性，289 "下面程序段的功能是______。
系统无法继续执行
49/95
D)多行结构条件语句最后只能有一个<条件>所对应的<语句序列>被执行" D)Command1.Caption=L1stl.Name+List1.Text" 294 "下列关于数组的叙述中，正确的是______。 298 "下列语句中，可以触发命令按钮单击事件的语句是________。
A)动态数组和静态数组都是在编译阶段分配存储空间 A)Commandl.Vaule=False B)Commandl.Vaule=True
B)静态数组定义时，数组维的界不能是变量，而动态数组定义时，数组维的界可以是 C)Commandl.Enabled=False D)Connnandl.Enabled=Tiue"
变量
299 "在窗体上画一个命令按钮，名称为Command1，然后编写如下程序:
C)在同一个程序中，可以多次使用Static或ReDim语句，对同一个数组重新定义
Private Sub Command1_Click()
D)用ReDim语句对同一数组重新定义时，既可改变数组的划、，也可以改变数组的维
For I=1 T0 4 数和类型"
For J=0 To I 295 "下列属性设置语句正确的是______。
PrintChr$(65+1); A)Forml.Name=Forml.Caption B)Forml.Caption=Forml.Name
Next J C)Forml.Enabled=""True"" D)Forml.BorderStyle=6"
Print 296 "下列语句中正确的是______。
Next I A)textl.Text+text2.Text=text3.Text B)Commandl.Name=cmdOK
End Sub C)12Label.Caption=1234 D)Textl=""123"""
程序运行后，如果单击命令按钮，则在窗体上显示的内容是____。 297 "下列语句中错误的是_______。
A)BB B)A C)B D)AA A)Text1.Text=List1.Text B)Label1.Caption=List1.Text
CCC BB CC BBB C)List1.List(1)=List1.Text+List1.ListIndex
50/95
DDDD CCC DDD CCCC n=n+1
EEEEE DDDD EEEE DDDDD" If I>10 Then Exit For 300 "下列强制显式声明变量中，正确的语句是________。 Next
A)Private Const B)Option Explicit Text1.Text=Str(n)
C)Type Student D)DefVar X-Z" End Sub 301 "执行以下程序段后，变量C$的值为 ______。 程序运行后，单击命令按钮，在文本框中显示的值是____。
A$=""Visual Basic Programing"" A)2 B)3 C)4 D)5"
B$=""Quick"" 303 "执行下列程序段后,输出的结果是_________。
C$=B$ & Ucase(Mid$(A$，7，6)) & Right$(A$，11) For k1=0 To 4
A)Visual BASIC Programing B)QuickBasic Programing y=20
C)QUICK Basic Programing D)Quick BASIC Programing" For k2=0 To 3 302 "在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编 y=10
写如下事件过程:
For k3=0 To 2
Private Sub Commandl_Click()
y=y+10
Dim I As Integer，n As Integer
Next k3
For j=0 To 50
Next k2
I=I+3
51/95
Next k1 305 "Format$函数中，格式说明符的使用规则正确的是______。
Print y A)格式符""#""与“0”的作用完全相同
A)90 B)60 C)40 D)10" B)格式符“.”与格式符“#”与“0”结合使用，用于确定输出数据的小数点位置 304 "在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编 C)若Format$函数中使用“%”或“$”格式符，则在所显示的数值后加上一个“%”负号或写如下事件过程: 一个“$”号
D)格式符“+”或格式符“-”表示:若输出正数，则在数值前加上一个正号;若输出负数，Private Sub Command1_Click()
则在数值前加上一个负号"
Dim array1(10, 10) As Integer
306 "下列事件过程都是为了显示""程序开始运行!""的信息，错误的是______。
Dim I As Integer, j As Integer
A)Private Sub Form_Load()
For I = 1 To 3
Show
For j = 2 To 4
Print ""程序开始运行!""
array1(I, j) = I + j
End Sub
Next j
B)Private Sub Form_Load()
Next I
Labell.Caption=""程序开始运行!""
Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
End Sub
C)Prvate Sub Form_Load() 程序运行后，单击命令按钮，在文本框中显示的值是
Text1.Caption=""程序开始运行!"" A) 15 B) 14 C) 13 D) 12"
52/95
End Sub If Len(Textl.Text) Then
D)Prvate Sub Form_Load() Debug.Print Textl.Text
Debug.Print""程序开始运行!"" Else
End Sub" Debug.Print”文本框中没有信息”
EndIf 307 "下列事件过程正确的是_____。
A)Private Sub Forml_Click() End Sub
If Len(Textl.Text)>10 Then D)Private Sub Forml_Click()
Textl.Multiline=True If Len(Textl.Text)>0 Then
End If PrintLen(Textl.Text)
End Sub End Sub
B)Private Sub Forml_Click() EndIf"
308 "窗体上有若干个文本框，其中文本框Textl用来接收大于0且小于10的数据。若在 If Len(Textl.Text)>100 Then
Textl中输入的不是这个区间上的数值，光标不能移出Textl，要重新输入正确的数据后方
Textl.ScrollBar=2 可继续执行别的操作。下列程序段正确的是_______。
EndIf A)Sub Textl_SetFocus() B)Sub Textl_LostFocus()
End Sub x=Val(Textl(Text) x=Val(Textl(Text)
C)Sub Forml_Click() If x>0 Or x<10 Then If x>0 And x<10 Then
53/95
Beep Beep End Sub
Textl(Text="" "" Text1(Text="" "" A)将滚动条的最大值设为5 B)将滚动条的最大改变值改变5
Textl(SetFocus Text1.SetFocus C)将滚动条的最小值设为5 D)将滚动条的最小改变值改为5"
310 "窗体上有一个按钮和一个列表框(Sorted属性为True)，执行下列过程后的输出结果 End If End If
为____。
End Sub End Sub
Private Sub Commandl_Click()
C)Sub Textl_setFocus() D)Sub Textl_LostFoeus()
Listl(AddItem ""China""
x=Val(Textl(Text) x=Val(Textl(Text)
Listl(AddItem ""Great""
If x<=0 Or x>=10 Then If x<=0 Or x>=10 Then
Listl(AddItem ""Is""，1
Beep Beep
Listl(AddItem ""!""，3
Text1.Text="" "" Text1.Text="" ""
Print Listl(List(2)
Text1.SetFocus Text1.SetFocus
End Sub
End If End If
A)China B)Great C)Is D)!"
End Sub End Sub"
311 "窗体上有一个按钮和一个文本框，程序执行后，在文本框中输入12345，单击按钮后309 "窗体上有一个按钮和一个滚动条，则下列程序的功能是_______。 的输出结果为_______。
Sub Command1_Click() Private Sub Commandl_Click()
HScroll1.LargeChange=5 Dim A As Integer，B As Integer
54/95
313 "在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示 Text1.SelStart=2
若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列
Text1.SelLength=2 正确实现上述功能的程序是______。
A=Val(Text1.SelText) A)Private Sub List1_Click() B)Private Sub List1_Click()
B=Len(Text1.Text) Label1.Caption=List1.ListIndex Label1.Name=List1.ListIndex
Print A*B End Sub End Sub
End Sub C)Private Sub List1_Click() D)Private Sub ListClick()
A)68 B)115 C)170 D)1170" Label1.Name=List1.Text Label1.Caption=List1.Text 312 "下列事件过程中，将文本框作为接收输入信息控件的事件过程有______。 EndSub EndSub"
A)Private Sub Command_Click() B)Private Sub Command_Click() 314 "下列事件过程中，正确的事件过程是______。
x=Textl.Text Commandl.Caption=Textl.Text A)Private Sub Command_Click() B)Private Sub Command_Click()
Print x*x End Sub Dim x As Integer Text2.Width=Textl.Text
End Sub x=Textl.Text+Textl.Text End Sub
C)PrivateSubCommand_Click() D)PrivateSubCommand_Click() Print x
x=InputBox(""请输入x的值"") Textl.Text=Commandl.Caption End Sub
Textl.Text=x*x Print x*x C)Private Sub Command_Click() D)Private Sub Command_Click()
End Sub End Sub" Label.Caption=Textl.Text Commandl.Name=Textl.Text
55/95
End Sub End Sub" S=I
315 "执行以下语句的输出结果是______。 For I=1 To 20
Print Format(32548.5，""000，000.00"") S=S*I
A)32548.5 B)32，548.5 C)032，548.50 D)32，548.50" Next I
Print""S=""，S 316 "下列循环控制结构出现错误的是_____。
A)For I=1 to 100 B)While I<100 A)字符串变量 B)长整型变量
s=s+1 s=s+I:I=I+1 C)单精度实型变量 D)双精度实型变量"
if s>100 Then Exit For if s>100 Then Exit While 318 "Visual Basic布尔运算符Xor，Or，Eqv，And中，级别最高的运算符是______。
Next I Wend A)Xor B)Or C)Eqv D)And"
C)Do D)Do WhileI<100 319 "在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码:
s=s+I:I=I+1 S=S+I:I=I+1 Dim a As Integer
if s>100 Then Exit Do if s>100 Then Exit DO Sub test()
Loop While I<100 Loop" a = a + 1: b = b + 1: c = c + 1 317 "在以下程序中，变量S为______。 Print “Sub:”;a;b;c
DefDbl A-H O-Z End Sub
DefInt I-N Private Sub Co mmand1_Click()
56/95
a = 2: b = 3: c = 4 End If Call test C)If x>a Then D)If x>a Then Call test Print ""x>a"" Print ""x>a"" End Sub Else If x>b Then ElseIf x>b Then 程序运行后，单击命令按钮，窗体中将显示( ) Print ""x>b"" Print ""x>b"" A(Sub:3，4，5 B(Sub:2，3，4 End If End If"
Sub:4，5，6 Sub:2，3，4 322 "下列多分支选择结构语句正确的是____。
C(Sub:3，1，1 D(Sub:1，1，1 A)Select Case x B)Select x
Sub:4，1，1 Sub:1，1，1" Case 10，20 30 Case 10 To 30
320 "下列符号____是Visual Basic中的合法变量名。 Print Sqr(x) Print Sqr(x)
A)x23 B)8xy C)END D)X8[B]" Case Else Case Else 321 "下列多行结构条件语句正确的是_______。 Print x Print x
A)If x>a Then Print ""x>a"" B)If x>a End Select End Select
ElseIf x>b Then Print ""x>b"" Print ""x>a"" C)Select Case x D)Select x
Else Print ""x<=a，x<=b"" ElseIf x>b Then Case x is>10 Case is>10
End If Print ""x>b"" Print Sqr(x) Print Sqr(x)
57/95
C)List1.AddItem Choose(i，""星期一""，""星期二""，""星期三""，""星期四""，""星 Case Else Else Case
期五""，""星期六""，""星期日"")
Print x Print x
D)List1.RemoveItem Choose(i，""星期一""，，’星期二""，""星期三""，""星期四""，
End Select End Select" ""星期五""，""星期六""，""星期日"")" 323 "下列对象表达式中，错误的是_______。 325 "TextBox控件的下列属性中，_____属性是只读属性。
A)Labell.Visible And Label2.Visible A)ScrollBar B)PasswordChar C)Enabled D)Multline"
B)Labell.Enabled+Textl.Enabled 326 "变量未赋值时，数值型变量的值为______。
C)Labell.Top+Label2.Top A)0 B)空串"""" C)Null D)没任何值"
D)(Textl.HeiSht+Text2.Height)/2" 327 "在窗体上画一个文本框，其Name属性为Text1，然后编写如下事件过程: 324 "下列程序段的功能是:给列表框List1加载如下项目:星期一、星期二、星期三、星 Private Sub Form_Load() 期四、星期五、星期六和星期日。给以下程序的空白行选择适当的语句。
Text1.Text=""""
For i=1 To 7
Text1.SetFocus
_______
For I=l To lO
Next i
Sum=Sum+I A)List1.Text=Choose(i，""星期一""，""星期二""，""星期三""，""星期四""，""星期五
""，""星期六""，""星期日"") Next I
B)List1.AddItem=Choose(i，""星期一""，""星期二""，""星期三""，""星期四""，""星 Text1.Text:Sum
期五""，""星期六""，""星期日"")
End Sub
58/95
330 "窗体上有一个命令按钮Commandl，一个文本框Textl，一个列表框Listl。文本框用 上述程序的运行结果是____。
来输入要添加到列表框中的项目的内容。程序运行后，单击命令按钮，会将文本框中的内
A)在文本框Text1中输出55 B)在文本框Text1中输出0 容放人列表框中。程序如下:
C)出错 D)在文本框Text1中输出不定值" Private Sub Commandl_Click() 328 "表达式""Turbo""+""c"">""Ture""+""Basic""的值是____。 Textl.Text=""""
A)True B)False C)Null D)出错信息" Textl.SetFocus 329 "执行下列程序，单击命令按钮后，从键盘分别输入4和5，则输出是_______。 End Sub
Private Sub Commandl_Click() 程序的空白行应填写语句____。
X=InputBox(""请输入x的值"") A)Listl.Text=Textl.Text
y=InputBox(""请输入y的值"") B)Listl.List=Textl.Text
s=X C)Listl.AddItem=Textl.Text
If x>y Then s=y D)Listl.AddItem Textl.Text"
s=s*s 331 "下列程序段的执行结果为_____。
Print s For X=5 To l Step -1
End Sub For Y=l To 6-X
A)4 B)16 C)20 D)25" PrintTab(Y+5);”*”;
Next Y
59/95
Print 334 "表达式Abs(-5)+Len(""ABCDE"")的值是____。
Next X A)5ABCDE B)-5ABCDE C)10 D)0"
A) * * * * * B)* * * * * 335 "在窗体上面一个命令按钮，名称为Commandl，单击命令按钮时，执行如下事件过程:
* * * * * * * * Private Sub Commandl_Click()
* * * * * * a$=""software and hardware""
* * * * b$=Right(a$，8)
* * c$=Mid(aS，1，8)
C) * D) * MsgBox aS，，b$，c$，1
* * * * * End Sub
* * * * * * * * 则在弹出信息框的标题栏中显示的信息是____。
* * * * * * * * * * * A)software and hardware B)software C)hardware D)1"
* * * * * * * * * * * * * *" 336 "在以下4个逻辑表达式中，其逻辑值为“真”的是____。 332 "表达式25.28 Mod 6.99的值是_______。 A) Not(3+4<4+6) B) 2>1 And 3<2 C) 1>2 or 2>3 D) Not(1>2)"
A)1 B)4 C)5 D)出错" 337 "Randomize语句的功能是______。
333 "表达式a%*b&-d#\2#+c!的结果的数据类型为_______。 A)产生个(0,1)之间的随机小数 B)产生一个[1,10]之间的随机整数
A)整型 B)长整型 C)单精度型 D)双精度型" C)产生一个(-1,1)之间的随机小数 D)产生新的随机整数。"
60/95
338 "在窗体上有一个文本框控件，名称为TxtTime，一个计时器控件，名称为Timerl， If Commandl.Enabled Then 要求每一秒钟在文本框中显示一次当前的时间。程序为:
Label1.Caption=""命令按钮可以使用!""
Privme SubTimerl_ ________()
Else
TxtTime.Text=Time
Label1.Caption=""命令按钮不可以使用!""
End Sub
End If
A)Enabled B)Visible C)Interval D)Timer"
End Sub
339 "表达式Sb(Len(""123""))+Str(77.7)的值是_______。
该窗体事件的功能是 。
A)7.7 B)377.7 C)80.7 D)12377.7"
A)判断命令按钮是否可见，以便在标签上显示不同的信息 340 "下列程序段的执行结果为______。
B)判断命令按钮是否可用，以便在标签上显示不同的信息
X=5
C)判断命令按钮是否设置了默认按钮，以便在标签上显示不同的信息
y=-20
D)If语句中的条件不合法，事件过程错误，不能执行。"
If Not x>0 Then x=y-3 Else y=x+3
342 "为设置字体样式加下划线的事件过程是_______。
Print x-y;y-x
A)Private Sub Checkl_Click() B)Private Sub Check1_Click()
A)-3 3 B)5 8
If Checkl.Value=1 Then If Check1.Value=1 Then
C)3 -3 D)25 -25"
Label1.FontStrikethru=True Label1.FontUnderline=True
341 "下面是一个窗体的单击事件过程:
End If End If
Privme Sub Form_Click()
61/95
End Sub End Sub If x>0 Then y=l If x>0 Then y=-1
C)Private Sub Check1_Click() D)Private Sub Check1_Click() Else Else
If Checkl.Value=1 Then If Checkl.Value=1 Then y=0 y=1
Label1.FontBold=True Label1.Italic=True EndIf End If"
344 "下面Change事件过程中，文本框控件Textl用来接收字符的输入，该事件过程的作 End If End If
用是________。
End Sub End Sub"
Private Sub Textl_Change() 343 "与y=IIf(x>0,1,IIF(x<0,-1,0))语句功能相同的if选择结构语句是_____。
Text2(Text=Str(6.28*Val(Textl(Text))
A)if x>0 Then B)if x Then
End Sub
y=1 if x>0 Then
A)将在文本框Textl输入的数字变为数值
Else If x<0 Then y=1
B)将在文本框Textl输入的数字作为半径，求圆的周长并转换为字符串
y=-1 Else If x<0 Then
C)只要Textl中的内容一改变，Text2中显示的圆周长也随之改变
Else y=-1
D)事件过程中的V81函数和Sb函数使用错误，事件过程不能执行"
y=0 End If
345 "下面程序的运行结果不同是_______。
End If End If
A)For I=100 To 200
C)y=-1 D)y=0
Pset(100，I)
If x Then If x>=0 Then
Next I
62/95
B)Line(100，100)-(100，200) zxs%=232
C)Line(100，100)-Step(0，100) zxs=232.32
D)Line Step(100，100)-Step(100，200)" Print zxs%;zxs 346 "下面的事件过程随机产生一个3位3位正整数，然后逆序输出,并将产生的数与逆序 运行后，输出结果是____。 数相隔4个字符显示在一行上,例如:产生345,输出345,543
A)232 232032 B)232 232 C)232.32 232.32 D)显示出错信息"
Private Sub Form_Click()
348 "有如下程序:
Dim a As Integer，s As String，b AS Integer
Dim a As String，b As String
Randomize
a=""12345""，b=""abcde""
A=Int(Rnd*900+100)
For I=1 To 5
S=________
c=c+Left(a，I)+Right(b，I)
B=Val(Right(s,1)&Mid(s,2,1)&Left(s,1)
Next I
Print a:Spc(4):b
Print c
End Sub
运行后输出的结果是____。
A)Str(a) B)Trim(Str(a))
A)alb2c3d4e5 B)la2b3c4de5
C)Trim(a) D)Left(a)"
C)eld2c4b5ed2c3b4a5 D)1e12del23cdel234bcdel2345abcde"
347 "有如下程序:
349 "有如下程序:
Dim zxs As Integer
63/95
A)boolVar=""True"" B)boolVar=.True. C)boolVar=#True# DefStr X-Z
D)boolVar=3<4"
X=""123""
353 "有如下程序:
Y=""456""
a$=""Flying"":b$=""IS"":c$=""funny!""
Z=X$+Y$
Print a$+"" ""+Lcase$(b$)+"" ""+Ucase$(c$)
Print Z$
End
End
运行后，输出结果是______。
运行后，输出结果是____。
A)Flying Is funny! B)Flying is FUNNY! C)Flying IS FUNNY! D)FLYING IS FUNNY!"
A)显示出错信息 B)123456 C)""579"" D)579"
354 "语句Print ""Int(-13.2)="";Int(-13.2)的输出结果为______。 350 "下列关于声明变量的说法中，错误的是____。
A)Int(-13.2)=-13.2 B)Int(-13.2)=13.2
A)用显式声明变量的关键字Dim，Private，Static或Public来声明变量的类型
C)Int(-13.2)=-13 D)Int(-13.2)=-14"
B)用类型说明符标记变量类型，类型说明符有:,，&，!，#，@，$
355 "有如下程序:
C)用Defrype语句声明变量的类型，其中Type是类型标志
a$=""123456"":b$=""abode""
D)用Type<数据类型名>/EndType语句声明记录类型变量"
For j=1 To 5
351 "实现Windows应用程序之间信息共享的技术是______。
C$=c$+Lefts(a$,1)+Right$(b$,1)
A)开放式数据链接功能 B)对象链接与嵌人 C)动态链接库 D)以上三项都是"
Next j
352 "假设变量boolVar是一个布尔型变量，则下面正确的赋值语句是____。
Print c$
64/95
运行后输出的结果是____。 Next m
A)alb2c3d4e5 B)alb2c34dSe C)eld2c3b4a5 D)lelelelele" A)1# B)### C)# D)3# 356 "有关列表框的属性和方法的正确描述是____。 2# ## ## 2# A( 列表框的内容由属性Item Data来确定 3# # #### 1#"
359 "设有如下的记录类型: B( 当多选属性(MultiSelect)为True时，可通过Text属性获得所有内容
C( 选中的内容应通过List属性来访问 Type Student
D( 选中的内容应通过Text属性来访问，并且每次只能获得一条内容" Number As String 357 "有关多文档界面(Multiple document(nbspInterface)的不正确描述是______。 Name As String A( 多文档界面(MDI)是指在一个父窗口下面可以同时打开多个子窗口 Age As Integer B( 子窗口归属于父窗口 End Sub
C( 如果父窗口关闭，则所有子窗口全部关闭 则能正确引用该记录类型变量的代码是____。 D( 如果所有子窗口全部关闭，则父窗口关闭" A)Student.name="""" B)Dim s As Student s.name=""张红"" 358 "下述程序的运行结果是 ______。 C)Dim s As Type Student s.name=""张红"" D)Dim s As Type s.name=""张红"""
For m=3 To 1 Step -1 360 "如下程序:
x$=String$(m，”#”) Private Sub Form_Click()
Print x$ a=20:b=20:c=120:d=120
65/95
Form.Line(a,b)-(c,d),,BF C)将5门课程用一组5个单选按钮来表示，将性别和政治面貌用5个选择框来表示
End Sub D)用一组10个选择框来表示课程、性别和政治面貌"
单击窗体后，窗体上显示的是______。 363 "设x已被赋值，下列窗体单击事件中正确的是____。
A)一条直线 B)一个矩形空框 A)Private Sub Click() B)Private Sub Form_Click()
C)一个填充了颜色的矩形 D)无任何图形" Print x Print x 361 "设有如下变量声明: End Sub End Private
Dim TestDate As Date C)Private Form_Click() D)Private Sub Form_Click()
为变量TestDate正确赋值的表达方式是______。 Print x Print x
A)TestDate=#1/2002# End Sub End Sub"
364 "若已执行定义语句:Dim a As Integer，b As Single，则合法的多分支选择结构语 B)TestDate=#""1/1/2002""#
句是____。
C)TestDate=date(""1/1/2002"")
A)Select Case a B)Select Case a
D)TestDate=Format(""m/d/yy""，""1/1/2002"")"
Case 1.0 Case 1 362 "若想要建立一个学生管理系统的输入界面，其中要求选择学生的性别/政治面貌(党/
团/群众)及选课情况(共有5门课，可任选)，下列设置方法正确的是____。 Print ""*"" Print ""*""
A)将5门课程用一组5个选择框来表示，将性别和政治面貌用5个单选按钮来表示 Case 2.0 Case 2
B)将5门课程用一组5个选择框来表示，用两个框架分别将性别用两个单选按钮，政治 Print ""##"" Print ""##"" 面貌用3个单选按钮来表示
End Select End Select
66/95
367 "下面是窗体Forml的Click事件过程，实现运行时每次单击窗体。窗体均向右移动 C)Select Case b D)Select Case a+b
100缇
Case 1 Case a
Private Sub______()
Print ""*"" Print ""*""
Static Intleft As Integer
Case 1+2 Case b
Intleft=Intleft+100
Print ""##"" Print ""##""
Form1.Left=Intleft
End Select End Select"
End Sub
365 "设m，n是整数，且n>m，在以下4个语句中，能将x赋值为一个m~n之间(含m，n)
任意整数，即满足n?x?m的是____。 A)Form1_Click() B)Form_Click()
A)X=INT(RND*(N-M+1))+M C)command_Click() D)Command1_click()"
B)X=Int(Rnd*n)+m 368 "运行以下程序后，输出的图形是_____。
C)X=Int(Rnd*m)+n For r=0 To 150
D)X=Int(Rnd*(n-m))+m" Circle(320,240),r 366 "设a$=""12""，下列语句错误的是____。 For I=1 To 1000
A)labell.Visible=Textl.Visible or Text2.Visible Next I
B)Textl.Text=Textl.Name+Chr(13)+a$ Next r
C)b=Text2.Text A)一个固定的空心圆 B)一个半径逐渐变大的空心圆
D)Labell.Fontsize=a$" C)一个固定的实心圆 D)一个半径逐渐变大的实心圆"
67/95
369 "从键盘上输入一个实数nu，利用字符串函数对该数进行处理，如果输出的内容不是 Y=1
字符End，则程序输出的内容是________。
Y=Y+5
nu=InputBox(""au="")
X=5+X
n$=Str$(nu)
Print X，Y
p=InStr(n$，""."")
End Sub
If p>0 Then
程序运行时，3次单击命令按钮Commandl后，窗体上显示的结果为____
Print Mid$(n$，p)
A)15 16 B)15 6 C)15 15 D)5 6"
Else
371 "在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编
Print ""END"" 写如下事件过程:
End If Private Sub Command1_Click()
A)用字符方式输出数据nu B)输出数据的整数部分 n = Val(Text1.Text)
C)输出数据的小数部分 D)只去掉数据中的小数点，保留所有数字输出" For I = 2 To n
370 "在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序: For j = 2 To sqr(I)
Private Sub Commandl_Click() If I Mod j = 0 Then Exit For
Static X As Integer Next j
Static Y As Integer If j > Sqr(I) Then Print I
Cls Next I
68/95
End Sub List(Addltem ""357""’
该事件过程的功能是 List(Addltem ""246"" A) 输出n以内的奇数 B) 输出n以内的偶数 List.AddItem ""123"" C) 输出n以内的素数 D) 输出n以内能被j整除的数" List.AddItem ""456"" 372 "下列四组控件属性中，属性值的类型不相同的一组是_______。 Text1.Text="" ""
A)Label控件的Enabled属性与TextBox控件的Enabled属性 End Sub
B)OptionButton控件的Value属性与CheckBox控件的Value属性 Private Sub Command1_Click()
C)Command控件的Default属性与Command控件的Cancel属性 List.Listindex=3
D)Command控件的Visible属性与Form控件的Visible属性" Print List.Text+Text1.Text 373 "下列叙述不正确的是____。 End Sub
A)注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编 程序运行后，在文本框中输入""789""，然后双列表框中的""456""，则输出结果为____。 译
A)789123 B)456789 C)789456 D)1245"
B)注释语句可以放在代码中的任何位置
375 "在窗体上画两个名称分别为Textl，Text2的文本框和一个名称为Commandl的命令
C)注释语句不能放在代码中的任何位置 按钮，然后编写如下事件过程:
D)代码中加入注释语句的目的是提高程序的可读性" Private Sub Commandl_Click() 374 "在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程: Dim x As Integer，n As Integer
Private Sub Form_Load() K=1
69/95
377 "在窗体(Name属性为Forml)上面两个文本框(其Name属性分别为Text1和Text2)和 n=0
一个命令按钮(Name属性为Commandl)，然后编写如下两个事件过程:
Do While X<20
PrivateSubCommandl_Click()
K=K*3
A=Text1.Text+Text2.Text
n=n+1
Print A
Loop
End Sub
Textl.Text=Str(x)
PrivateSubForm_Load()
Text2.Text=Str(n)
Text1.Text=""""
End Sub
Text2.Text=""""
程序运行后，单击命令按钮，在两个文本框中显示的值分别是____。
End Sub
A)15和1 B)27和3 C)195和3 D)600和4"
程序运行后，在第1个文本框(Text1)和第2个文本框(Text2)中分别输入123和321，376 "在窗体上画两个单选按钮，名称分别为Optionl，Option2，标题分别为""宋体""和然后单击命令按钮，则输出结果为____。 ""黑体"";一个复选框，名称为Check1，标题为""粗体"";一个文本框，名称为Text1，
Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被 A)444 B)321123 C)123321 D)132231"
选中，则能够实现上述要求的语句序列是_______。
378 "多分支选择结构中，Case子句的作用是说明_______。
A)Optionl.Value=True B)Optionl.Value=True
A)“Select Case<测试表达式>”语句中<测试表达式>的值域
Check1.Value=False Check1.Value=True
B)“Select Case<测试表达式>”语句中<测试表达式>的类型
C)Option2.Value=False D)Optionl.Value=True
C)“Select Case<测试表达式>”语句中<测试表达式>的取值个数
Check1.Value=True Check1.Value=1"
70/95
D)“Select Case<测试表达式>”语句中<测试表达式>的入口" Picture1.Picture=LoadPicture(""c:\1.jpg"")
379 "为了在运行时能显示窗体左上角的控制框(系统菜单)，必须______。 Picture1.Cls A) 把窗体的Contro1Box 属性设置为Fale,其他属性任意 Picture1.Print ""Test"" B) 把窗体的ControlBox 属性设置为True,并且把Boder Style属性设置为1-5 End Sub
C) 把窗体的ControlBox 属性设置为False,同时把BoderStyle属性调协为非0值 A)窗体无显示，图片框显示图片和文字Test B)窗体上出现Test文本，图片框无显示 D) 把窗体的ControlBox 属性设置为True,同时把BoderStyle属性设置为0值" C)窗体上出现Test文本，图片框显示图片1.jpg 380 "下列与Listl.Text属性值相同的表达式是______。 D)窗体无显示，图片框只显示Test文字"
A)List1.ListCount B)List1.List(ListCount-1) 384 "运行以下程序后，输出的图形是______。
C)List1.Listindex D)List1.list(ListIndex)" For k=100 To 200 381 "与传统的程序设计语言相比，Visual Basic最突出的特点是______。 Pset(2*k,k)
A)结构化程序设计 B)程序开发环境 C)事件驱动编程机制 D)程序调试技术" Next k
382 "为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一 A)两条相互平行的直线 B)两条分离的斜线 个属性设
C)两条交叉的斜线 D)一条斜线" 置为True，这个属性是_______。
385 "运行以下程序后，输出的图案是______。 A)Value B)Default C)Cancel D)Enabl"
Form1(Cls 383 "窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是_____。
For A=1 To 5 Private Sub Commandl_Click()
71/95
Print Space(5-A);String(A，""* "") n=10-2*I
Next A X$=A$:Y$=Space$(n)
A) * B) * Mid$(X$,I+1,n)=Y$
* * * * PrintX$
* * * * * * Next I
* * * * * * * * A)* * B)* * * * * * * * * *
* * * * * * * * * * * * * * * * * * * * * * * *
C)* D)* * * * * * * * * * * * * * * * *
* * * * * * * * * * * * * * * * * * * * * *
* * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * * * C)* * * * * * * * * D)* * * * * * * * * *
* * * * * * * * * *" * * * * * * * * * * * * * * * 386 "运行以下程序后，输出的图案是_____。 * * * * * * * * * * *
Form1.Cls * * * * * * *
A$=String$(10,""*"") * * * *"
For I=1 To 5 387 "运行以下程序后，打印机上的输出结果是______。
72/95
C)I=1I=2I=3 D)I=3"
For I=1 To 9 389 "运行下面程序段可以显示_____中的图形。
Printer.Print tab(I*I)，I Form1(Cls
Next For k=1 To 5
A)123456789 Print Tab(10-k)
B)12345678 For m=1 To 2*k-1
9 Print ""%"";
C)12345 Next m
6789 Print
D)1 2 3 4 5 7 8 9" Next k
388 "运行以下程序，输出结果是_______。 A) % B)%
For I=1 To 3 %%% %%%
cls %%%%% %%%%%
Print ""I=""，I; %%%%%%% %%%%%%%
Next %%%%%%%%% %%%%%%%%%
A)123 B)3 C)%%%%%%%%% D)%%%%%%%%%
73/95
%%%%%%% %%%%%%% Z=x+y
%%%%% %%%%% Debug.Print x
%%% %%% End Sub
在InputBox函数弹出的对话框中输入123，在文本框Textl中输入456。单击命令按 % %"
钮Commandl后，窗口上立即显示出______。 390 "函数Int(Rnd*6+1)的取值范围是____。
A)123 B)579 C)123456 D)错误信息"
A)从1到7共7个整数 B)从0到7共8个整数
393 "为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为
C)从1到6共6个整数 D)从0到6共7个整数" ______。
391 "下列语句中，获得列表框List1中项目个数的语句是____。 A)Get文件号，记录号，变量名
A)x=Listl.ListCount B)Get文件号，变量名，记录号
B)x=Listeount C)Put文件号，变量名，记录号
C)x=Listl.ListIndex D)Put文件号，记录号，变量名"
D)x=ListIndex" 394 "为程序的空白行选择适当的语句，使程序段完成相应计算。 392 "阅读下列事件过程， 程序段的功能是:当x取值5到10，或取值大于20时，输出一串""*"";x取其他值时，
输出一串""#""。X为整型数据。
Private Sub Commandl_Click()
Select Case x
x=InputBox(""请输入X的值:"")
________
y=Text.Text
Print ""**********""
74/95
Case Else Print ""x为负值""
Print ""############"" EndIf
End Select Print ""y""+Format(y)
A)Case 5-10，x>20 End Sub
B)Case 5，6，7，8，9，10，is>20 A)Else 0<=x And x<=10 Then
C)Case 5，6，7，8，9，10，x is>20 B)ElseIf 0<=x And x<=10
D)Case 5 To 10，x>20" C)ElseIf 0<=x And x<=10 Then 395 "为程序的空白行选择适当的语句，使程序段完成相应计算。 D)Else If 0<=x And x<=10 Then" 程序段的功能是:当x>10时，y=x2;当0?x?10时，y=x3;当x<0时，输出“x为负值”396 "给程序的空白行选择适当的语句。 的信息。
程序段的功能是:依次自动将列表框List2中所有列表项目移人列表框List1中，并
将移 Privge Sub Form_Click()
人List1中的项目从List2中删除。程序如下:
X=InputBox(”请输入x的值”)
Do While List2.ListCount
If x>10 Then
_____________
Y=X*X
List2.RemoveItem 0
___________
Loop
Y=X*x*X
A)List1.AddltemList2.List(0) B)List1.AddltemList2.Text
Else
75/95
C)List2.AdditemList1.List(0) D)List2.AddltemList1.Text" B(在Dir1中的Change事件中，书写语句Dir1(Path=Drive1(Drive 397 "当标签的标题内容太长，需要根据标题自动调整标签的大小时，应设置标签的______ C(在Drive1中的Change事件中，书写语句Dir1(Path=Drive1(Drive 属性为True
D(在Drive1中的Change事件中，书写语句Dir1(Drive=Drive1(Drive"
A)AutoSize B)WordWrap C)Enabled D)Visible"
403 "用Visual Basic设计应用程序的过程，实际上是与一组( )进行交互的过程。 398 "下列选项中，不属于Visual Basic特点的是选项____。
A)控件工具 B)自定义对象 C)标准对象 D)窗体"
A)可视化程序设计 B)面向图形对象
404 "要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性_____
C)VB窗口中包含有菜单栏和工具栏 D)事件驱动编程机制"
A(Dir B(Path C. Drive D(Filenam" 399 "要使组合框设置成只能从中选择而不能输入数据的组合框(下拉式列表框)，则应将
405 "要把一个命令按钮设置成无效，应设置其哪一属性值____。 其Style属性设置为( )
A(Visible B(Enabled C(Default D(Cancel" A(0 B(1 C(2 D(3"
406 "下列( )字符不属于Visual Basic字符集。 400 "要使一个文本框具有水平和垂直滚动条，则应先将其MultiLine属性设置为True，
然后再将ScrollBar属性设置为:_____
A(A B(# C(ξ D(@"
A(0 B(1 C(2 D(3"
407 "下列叙述中正确的是( )。
401 "通用过程可以通过执行""工具""菜单中的( )命令来建立。
A)Visual Basic与Basic没有什么不同 B)Visual Basic与Basic的编程机制不同
A. 添加过程 B(通用过程 C(添加窗体 D(添加模块"
C)Visual Basic是过程设计语言 D)Visual Basic与Basic两者之间没有什么联系" 402 "要使目录列表框(名称为Dir1)中的目录随着驱动器列表框(名称为Drive1)中所选择
408 "使用目录列表框的( )属性可以返回或设置当前工作目录的完整路径(包括驱动的当前驱动器的不同而同时发生变化，则应____。
器盘符)。
A. 在Dir1中的Change事件中，书写语句Dir1(Drive=Drive1(Drive
76/95
A(Drive B(Path C(Dir D(Listlndex" C(类模块的声明段中 D(任何事件过程中" 409 "以下说法正确的是____。 413 "下列关于菜单的说法中，错误的是____。
A(任何时候都可以使用""工具""菜单下的""菜单编辑器""命令打开菜单编辑器 A. 每个菜单项都是一个控件，与其它控件一样也有其属性和事件
B(只有当某个窗体为当前活动窗体时，才能打开菜单编辑器 B(除了Click事件之外，菜单项不可以响应其它事件
C(菜单项的索引号可以不连续 C(只有当代码窗口为当前活动窗口时，才有打开菜单编辑器
D(任何时候都可以使用标准工具栏的""菜单编辑器""按钮打开菜单编辑器" D(菜单项的索引号必须从1开始" 410 "下列叙述中不正确的是____。 414 "Visual Basic 认为下面( )组变量是同一个变量。
A. 变量名的第一个字符必须是字母 B(变量名的长度不超过255个字符 A(A1和a1 B(Sum和Summary C(Aver和Average D(A1和A3"
C(变量名可以包含小数点或者内嵌的类型声明字符 D(变量名不能使用关键字" 415 "在用菜单编辑器设计菜单时，必须输入的项是____。 411 "以下叙述中错误的是____。 A. 快捷键 B(标题 C(索引 D(名称"
A. 在同一窗体的菜单项中，不允许出现标题相同的菜单项 416 "表达式(-1) Sgn(-100+Int(Rnd*100))的值是______
B(在菜单的标题栏中，""&""所引导的字母指明了访问该菜单项的访问键 A.0 B.1 C.-1 D.随机数"
C(程序运行过程中，可以重新设置菜单的Visible属性 417 "表达式Mid(""SHANGHAI""，6，3)的值是____。
D(弹出式菜单也在菜单编辑器中定义" A(SHANGH B(SHA C(ANGH D(HAl" 412 "Option Explicit语句不可以放在_____ 418 "下列程序段的执行结果为____。
A. 窗体模块的声明段中 B(标准模块的声明段中 Dim M(10)
77/95
For K=1 To 10 421 "下面叙述中不正确的是____。
M(K)=11-K A. 驱动器列表框是一种能显示系统中所有有效磁盘驱动器的列表框
Next K B(驱动器列表框的Drive属性只能在运行时被设置
X=6 C(从驱动器列表框中选择驱动器能自动地变更系统当前的工作驱动器
D(要改变系统当前的工作驱动器需要使用ChDrive语句" Print M(2+M(X))
A(2 B(3 C(4 D(5" 422 "下面叙述中不正确的是( )
A.若使用Write #语句将数据输出到文件，则各数据项之间自动插入逗号，并且将字符419 "以下叙述中正确的是____。
串加上双引号
A. 一个记录中所包含的各个元素的数据类型必须相同
B(若使用Print #语句将数据输出到文件，则各数据项之间没有逗号分隔，且字符串
B(随机文件中每个记录的长度是固定的 不加双引号
C. Open命令的作用是打开一个已经存在的文件 C(Write #语句和Print #语句建立的顺序文件格式完全一样
D(使用Input#语句可以从随机文件中读取数据" D(Write #语句和Print #语句均实现向文件中写人数据" 420 "下面叙述中正确的是______ 423 "以下叙述中错误的是( )
A. 可以使用FileSystemObject 对象的OpenTextFile 方法打开文件，但不能创建文 A. 在程序运行时，通用对话框控件是不可见的 件
B(在同一个程序中，用不同的方法(如ShowOpen或ShowSave等)打开的通用对话框具
B. 可以使用FileSystemObject 对象的CreateTextFile 方法创建文件 有不同的作用
C(可以使用File对象的 OpenAsTextStream方法打开文件，但不能创建文件 C. 调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文
件
D(以上均不对"
78/95
D. 调用通用对话框控件的ShowColor方法，可以打开颜色对话框" M(J)=M(1)+1 424 "能够改变窗体边框线类型的属性是____。 Print M(K);
A(FontStyle B(BorderStyle C(BackStyle D(Border" Next J
425 "如果将布尔常量值True赋值给一个整型变量，则整型变量的值为____。 Next I
A)0 B)-1 C)True D)False" A(1 2 2 3 B(1 2 3 4 426 "下列窗体属性属于逻辑类型的是______。 C(0 2 2 3 D(0 1 2 3"
A)Caption B)ForeColor 428 "下列程序段的执行结果为____。
C)HelpContextld D)MoVeable" I=0
427 "下列程序段的执行结果为( ) For G=10 To 19 Step 3
Dim M(2) I=I+1
FOr I=1 To 2 Next G
M(1)=0 Print I
Next I A(4 B(5 C(3 D(6"
429 "二维数组a的成员是6个字符组成的串，行下标i的范围从0到8，列下标j的范围 K=2
从1到10，则存放a至少需要___________个字节。
FOr I=1 To K
A、90 B、180 C、240 D、540"
For J=1 To K
430 "函数InStr(""Visual Basic程序设计
教程
人力资源管理pdf成真迷上我教程下载西门子数控教程protel99se入门教程fi6130z安装使用教程
"",""程序"")的值为____。
79/95
A)11 B)12 C)13 D)14" 程序运行后，为了在窗体上输出""Hello""， 431 "下列程序的执行结果为_______ 应在窗体上执行以下哪个操作:
A=75 A. 同时按下Shift键和鼠标左按钮 D(同时按下Shift键和鼠标右按钮
If A>60 Then I=1 C(同时按下Ctrl、Alt键和鼠标左按钮
If A>70 Then I=2 D(同时按下Ctrl、Alt键和鼠标右按钮"
If A>80 Then I=3 433 "下列程序段的执行结果为______。
If A>90 Then I=4 A=0:B=1
Print""I="";I DO
A(I=1 B(I=2 C(I=3 D(I=4" A=A+B
432 "编写如下事件过程: B=B+1
Private Sub Form_MouseDown(Button As Loop While A<10
Integer，Shift As Integer，X As Single，Y As Single) Print A;B
If Shift=6 And Button=2 Then A(10 5 B(A B C(0 1 D(10 30"
Print ""Hello"" 434 "关于Array函数的使用说明，正确的是____。
End lf A)用Array函数可以初始化任何数据类型的数组变量
End Sub B)用Array函数可以给任何维数的数组赋初值
80/95
C)用Array函数给数组赋值时，被赋值的数组变量可以预先定义 C)方法是对事件的响应 D)方法用于完成某些特定功能"
D)设有数组定义:Dim a(5)，用Array函数给数组元素赋1到6初值的语句是:439 "系统符号常量的定义可以通过____获得。 a()=Array(1，2，3，4，5，6)"
A)对象浏览器 B)代码窗口 C)属性窗口 D)工具箱" 435 "表达式2+3*4^5-sin(x+1)/2中最先进行的运算是____。
440 "下列对象表达式中，错误的是_____。
A(4^5 B(3*4 C(X+l D(Sin( )"
A)Text1.Text+Text2.Text B)Textl.Text+""Text""
436 "下列程序段的执行结果为______。
C)Label1.Caption+Label1.Caption D)Labell.Name+Labell.Visible"
X=6
441 "下列表达式中，与其他3个大小不同的一个是____。
For K=1 To 10 Step -2
A)15 B)&HF C)1111 D)&017"
X=X+K
442 "表达式Val("".123E2CD"")的值是______。
Next K
A).123 B)12.3 C)0 D).123E2CD"
Print K;X
443 "对窗体编写如下代码:
A(-1 6 B(-1 16 C(1 6 D(11 31"
Option Base 1
437 "文件的基本操作指的是文件的删除、拷贝、移动、改名等，对文件进行改名的操作
Private Sub Form_KeyPress(KeyAscii As Integer) 是( )
a = Array(237,126,87,48,498) A(FileCopy B(Name C(ReName D(Kill"
m1 = a(1) 438 "关于Visual Basic""方法”的概念，下列说法错误的是____。
m2 = 1 A)方法是对象的一部分 B)方法是预先规定好的操作
81/95
If KeyAscii = 13 Then n=n Mod 10 For I =2 To 5 m=m\10 If a(I)>ml Then End Sub m1 =a(j) Private Sub CommandlClick()
Dim x As Integer y As Integer m2 =I
End If x=12:y=34 Next I Call Procl(x，y) End If Print x;y Print m1 End sub Print m2 A(12 34 B(2 34 C(2 3 D(12 3"
445 "从键盘上输入两个字符串，分别保存在变量strl，str2中。能确定第2个字符串在End Sub
第1个字符串中起始位置的函数是______。 程序运行后，按回车键，输出结果为
A)Left B)Mid C)String D)Instr"
A) 48 B) 237 C) 498 D) 498
446 "下列程序的运行结果是____ 4 1 5 4"
s=0:t=0:u=0 444 "单击命令按钮时，下列程序代码的执行结果为____。
For x=1 To 3
Public Sub Procl(n As Integer，By Val m As Integer)
For y=1 To x
82/95
For z=y TO 3 List1.Remove Num
S=S+1 Else
Next 2 Exit Sub
t=t十1 Endif
Next y End Sub
u=u+1 A)If Num>0 Then B)If Num>1 Then
Next X C)If Num>=0 Then D)If Num>=1 Then"
Print s;t;u 449 "表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是____。
A)3 6 14 B)14 6 3 C)14 3 6 D)164 3" A(1 B(0 C(-1 D(2" 447 "程序启动未执行任何操作前，为了在按下回车键时执行某个命令按钮的事件过程，450 "设有语句:
需要把该命令按钮的一个属性设置为Ture，这个属性是____。
x=InputBox(""输人数值""，""0""，""示例"")
A)Value B)Default C)Cancel D)Enabled"
程序运行后，如果从键盘上输人数值10，并按回车键，则下列叙述中正确的是____。
448 "窗体上有一个列表框List1，一个命令按钮Commandl。程序段的功能是:当单击命
A)变量X的值是数值10 令按钮后，能够将列表框中选中的项目删除，若没有选择列表框中的项目而单击该命令按
钮，则结束事件过程的执行。请在程序的空白行选择适当的语句
B)在InputBox对话框标题栏中显示的是""示例"" Private Sub Command1_Click()
C)0是默认值
Dim Num A3 Integer
D)变量X的值是字符串""10"""
Num=List1.Index
83/95
451 "设a=""Visual Basic""，下面使b=""Basic""的语句是____。 则以下程序语句:
A(B=Left(a，8，12) B(B=Mid(a，8，5) d$=""321""
C. b=Right(a，5，5) D(B=Left(a，8，5)" f=""654""
452 "下列程序段的执行结果为______。 Print d+f$
X=5 运行后输出的结果是____。
Y=-20 A)321654 B)975 C)654321 D)显示出错信息"
If Not X>0 Then X=Y-3 Else Y=X+3 456 "为了暂时关闭计时器，应把该计时器控件的____属性设置为False。
Print X-Y;Y-X A)Visible B)Timer C)Enabled D)Interval"
A(-3 3 B(5 -8 C(3 -3 D(25 -25" 457 "VB提供的选择框(CheckBox)可具有的功能是______。 453 "若要求在文本框中输入密码时文本框中只显示*号，则应在此文本框的属性窗口中设 A(多重选择 B(单一选择 C(多项选择 D(选择一次" 置( )
458 "设置对象的属性值是程序设计的重要步骤，关于属性的说法错误的是____ A(Text属性值为* B(Caption属性值为*
A)属性是一组可以由用户定义的数据 B)属性名称是由用户定义确定的 C(Password属性值为空 D(PasswordChar属性值为*"
C)属性用来描述对象的性质 D)同一种类型的对象具有相同的属性" 454 "Print方法可以在____对象上输出数据。
459 "下列程序段的执行结果为____
A)窗体 B)桌面 C)标题栏 D)状态栏"
DimM(2)
455 "如果模块定义为:
For I=1 To 2
DetStr C-F
84/95
M(I)=0 KeyAscii=Asc(UCase(str))
Next I Text1.Text=String(2，KeyAscii)
k=2 End Sub
For I=1 TO k 程序运行后，如果在键盘上输入字母""b""，
For j=1 Tok 则在文本框Text1中显示的内容为
M(j)=M(I)+1 A(bbb B(BBB C(BB D(bb"
Print M(k); 462 "下列程序段的执行结果为____。
Next j A=1: B=0
Next I Select Case A
A)1 2 2 3 B)1 2 3 4 C)0 2 2 3 D)0 1 2 3" Case 1 460 "下列( )是日期型常量。 Select Case B
A(""2/1/02"" B(2/1/02 C(#2/1/02# D({2/1/02}" Case 0 461 "在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程: Print""**0**""
Private Sub Text1_KeyPress(KeyAscii As Integer) Case 1
Dim str As String Print""**1**""
str=Chr(KeyAscii) End Select
85/95
Case 2 Text1.Text=Str(z)
Print""**2**"" End Sub
End Select Sub P1(ByVal a As Integer，
A(**0** B(**1** C(**2** D(0" ByVal b As Integer，c As Intrger) 463 "在参数传递过程中，使用关键字( )来修饰参数，可以使之按值传递。 C=a+b
A(ByVM B(ByRef C.Value D(Reference" End Sub
464 "使用驱动器列表框的( )属性可以返回或设置磁盘驱动器的名称。 程序运行后，如果单击命令按钮，则在文本框中显示的内容是( )
A(ChDrive B(Drive C(List D(Listlndex" A(0 B(12 C(Str(z) D(没有显示" 465 "在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框，然后编466 "在窗体上有一个名为Commandl的命令按钮。有如下的事件过程: 写如下程序:
Private Sub Commandl_Click()
Private Sub Commandl_Click()
Dim Arr(3，3)
Dim x，y，z As Integer
For i=0 To 3
x=5
For j=0 To 3
y=7
Arr(i，j)=i+j
z=0
Nextj
Text1.Text=''''
Next i
Call P1(x，y，2)
86/95
For m=2 TO 3 470 "下列程序段的结果为_______。
For n=2 TO 3 A=""ABBACDDCBA""
Print Arr(m，n); For I=6 To 2 Step -2
Next n X=Mid(A，I，I)
Next m Y=Left(A，I)
End Sub Z=Right(A，I)
程序运行后，单击命令按钮，输出结果为____。 Z=X&Y&Z
A)2 3 3 4 B)4 5 5 6 C)1 2 2 3 D)3 4 4 5" Next I
467 "产生[10，37]之间的随机整数的Visual Basic表达式是( ) Print Z
A(Int(Rnd(1)*27)+10 B(Int(Rnd(1)*28)+10 A(ABA B(AABAAB C(BBABBA D(ABBABA"
C(Int(Rnd(1)*27)+11 D(Int(Rnd(1)*28)+11" 471 "可以在窗体模块的通用声明段中声明______。 468 "函数Len(Str(Val(""123.4"")))的值为______。 A. 全局变量 B(全局常量 C(全局数组 D(全局用户自定义类型"
A(11 B(5 C(6 D(8" 472 "使用Public Const 语句声明一个全局的符号常量时，该语句应放在______。 469 "改变驱动器列表框的Drive属性值将激活( )事件。 A. 过程中 B(窗体模块的通用声明段
A(Change B(Scroll C(标准模块的通用声明段 D(窗体模块或标准模块的通用声明段"
C(KeyDown D(KeyUp" 473 "下列叙述中正确的是______。
87/95
A. 在窗体的Form_Load事件过程中定义的变量是全局变量 Private Sub Form_MouseMove(Button As Integer，
B(局部变量的作用域可以超出所定义的过程 Shift As Integer，X As Single，Y As Single)
C(在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其 If(Button And 3)=3 Then 作用域只限于该过程
Print ""Hello""
D(在调用过程时，所有局部变量被系统初始化为0或空字符串"
End lf
474 "下面程序段的功能是( )
End Sub
Dim X As New FileSystemObject
程序运行后，为了在窗体上输出""Hello""，
For Each Mydri in X.Drives
应在窗体上执行以下哪个操作:
Debug.Print Mydri.DriveLetter
A. 只能按下左按钮并拖动 B(只能按下右按钮并拖动
Next Mydri
C. 必须同时按下左、右按钮并拖动 D(按下左按钮拖动或按下右按钮拖动都可"
A. 在窗体上显示系统当前工作驱动器盘符
477 "求一个三位正整数N的十位数的正确方法是______。
B(在立即窗口显示系统能够使用的所有驱动器盘符
A(Int(N/10)-Int(N/100)*10 B(Int(N/10)-Int(N/100)
C(在窗体上显示系统能够使用的所有驱动器盘符
C(N-Int(N/100)*100 D(Int(N-Int(N/100)*100)"
D(在立即窗口显示系统当前工作驱动器盘符"
478 "设有如下程序:_________ 475 "下列字符串常量中，最大的是______。
Option Base 0
A(""北京"" B(""上海"" C(""天津"" D(""广州"""
Private Sub Form-Click() 476 "假定编写如下事件过程:
88/95
Dim a For X=1 To 3
Dim i As Integer For Y=1 To X
a=Array(1，2，3，4，5，6，7，8，9) For Z=Y TO 3
For i=0 TO 3 S=S+1
Next Z Print a(5-i);
Next T=T+1
End Sub Next Y
程序运行后，单击窗体，则在窗体上显示的是 U=U+1
A(4 3 2 1 B(5 4 3 2 C(6 5 4 3 D(7 6 5 4" Next X
479 "要想在过程调用后返回两个结果，下面的过程定义语句合法的是______。 Print S;T;U
A(Sub Procl(ByVal n，ByVal m) B(Sub Procl(n，ByValm) A(3 6 14 B(14 6 3 C(14 3 6 D(16 4 3"
C. Sub Procl(n，m) D(Sub Procl(ByVal n，m)" 482 "已知XB，正确表示，它们之间关系的式子是_____ 480 "要想改变一个窗体的标题内容，则应设置以下哪个属性的值______。 A(Sgn(Y-X)-Sgn(A-B)<0 B(Sgn(Y-X)-Sgn(A-B)=-2
A(Name B(FontName C(Caption D(Text" C(Sgn(X-Y)-Sgn(A-B)=0 D(Sgn(X-y)-Sgn(A-B)=-1" 481 "下列程序段的执行结果为______。 483 "执行以下语句后显示结果为______。
S=0:T=0:U=0 Dim x As Integer
89/95
If x Then Print x Else Print x-1 Print Y-X>0
A(1 B(0 C(-1 D(不确定" A(True B(False C(-1 D(1" 484 "设A=""12345678""，则表达式Val(Len(A，4)+Mid(A，4，2)的值为____。 488 "以下叙述中错误的是______。
A. 在KeyUp和KeyDown事件过程中，从键盘上输入A或a 被视作相同的字母(即具有 A(123456 B(123445 C(8 D(6"
相同的KeyCode)
485 "设a:3，b=5，则以下表达式值为真的是______。
B(在KeyUp和KeyDown事件过程中，将键盘上的""1""和右侧小键盘上的""1""视作不
A) a> =b And b>10 B) (a>b)Or(b>0) 同的数字(具有不同的KeyCode)
C) (a<0)Eqv(b>0) D) (-3+5>a)And(b>0)" C(KeyPress事件中不能识别键盘上某个键的按下与释放 486 "以下叙述中错误的是_____ D(KeyPress事件中可以识别键盘上某个键的按下与释放"
A. 一个工程中只能有一个Sub Main过程 489 "下列程序段的执行结果为______。
B(窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体 K=0
C(窗体的Hide方法和Unload方法的作用完全相同 For I=1 To 3
D(若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体" A=I^I^K
487 "下列程序段的执行结果为______。 Print A;
X=2 Next I
Y=1 A(1 1 1 B(1 4 9
If X*Y<1 Then Y=Y-1 Else Y=-1 C(0 0 0 D(1 2 3"
90/95
490 "Q的值为-3时，表达式-Q^4的值是() If KX是______。
A. 对顺序文件中的数据的操作只能按一定的顺序执行
A. 算术表达式 B(非法表达式 C(字符串表达式 D(关系表达式"
B(顺序文件结构简单 501 "下面叙述中不正确的是( )
C(能同时对顺序文件进行读写操作
A. 随机文件中记录的长度不是固定不变的
92/95
D.顺序文件的数据是以字符(ASCII码)的形式存储的" C(在""工程""菜单中执行""添加文件""命令 D(以上操作均不对" 504 "单击命令按钮时，下列程序代码的执行结果为______。 506 "单击命令按钮时，下列程序代码的执行结果为______。
Private Sub Commandl_Click() Dim a As integer，b As Integer，c As Integer
Print MyFunc(24，18) Private Sub Commandl_Click()
End Sub a=2:b=4:c=16
Public Function MyFunc(m As Integer，n As Integer)As Integer Call Procl(a，b)
DO While m<>n Print""a="";a;""b="";b;""c="";c
DO While m>n:m=m-n:Loop Call Proc2(a，b)
DO While m
本文档为【VB语言考试试题库】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483