123456 md5.789以%5.2lf输出
点击联系发帖人
时间：2018-06-17 02:02
镇匪充当村霸保护伞职务犯罪& 诉求上级政府从严查办
&镇匪充当村霸保护伞职务犯罪
& & &
&诉求上级政府从严查办
& & &
& & &
举报人：浙江省江山市贺村镇河东村村民
& & &
被举报人：中共江山市市委常委.贺村镇党委书记何日根
& & &
被举报人：中共江山市贺村镇纪委书记赵建华
& & &
被举报人：江山市贺村镇河东村村主任王阳军
& & &
&举报事项及主要诉求
举报人多年来反复举报投诉被举报人王阳军利用职务之便，大肆违法乱纪，贪污腐败的大量事实。被举报人何日根、赵建华二镇匪充当王阳军这个村霸保护伞的职务犯罪，诉求上级纪检监察机关依法从严查办。
主要事实如下
一、特别值得一提的是：贺村镇贺新路坝贺溪淤路段长450米，宽60米，原土地权属河东村湖边自然村，路段下面全部是优质建筑用沙，深度达7-10米。被举报人王阳军对此大为眼红，特别聘请贺村镇丰益村村主任王建青担认，由王阳军主谋和江山市经济开发区原中部开发办主任朱水光三人很伙，于2012年未通过公开招投标的合法程序，非法利用联盟合伙开发沙场，其挖沙大型机械设施由王阳军用自己的铲车，挖机操作施工，出售的沙石料由王阳军一手掌控，挖掘出售沙石料300多万方，非法所得多达200多万元。回填经费达100多万元，全部由中部开发区承担。
二、2017年王阳军利用非法违法手段当上河东村村主任后，湖边自然村新农房改造填路工程。王阳军利用村主任权力未公开招投标，用自己的挖机自己施工，严重违反村干部不得参与工程招投标施工承包的法律规定，工程款达20万元。这笔20万的过程款怎么算，怎么领，权由王阳军这个大村霸说了算，村民反应十分强烈。
三、在举报人投诉举报王阳军严重问题未的到处理的情况下，由于王阳军得到了何日根.赵建华的纵容庇护下而更加肆无忌，胆大妄为，无法无天，王阳军趁农村赤膊墙改造之机，未通过党员首义，村民代表决议，未通过公开招投标的合法程序，私自将河东村10多万元赤膊墙改造工程非法给他人承包施工，王阳军从中得取好处费。
对于王阳军时任河东村村委委员和湖边自然村片长职务之便，以权谋私的违法乱纪贪污腐败行为，河东村村民曾反复多次向贺村镇纪委举报，但身为中共贺村镇纪委书记的赵建华，在收受王阳军的巨额贿赂后，采取推诿敷衍，拖延踢皮球的手段，使出浑身解数为为阳军包庇纵容，充当村霸王阳军的保护伞，致使王阳军的这一严重违法乱纪贪污腐败行为至今未的到法律的严惩。
控告人：江山市贺村镇河东村村民
姓名 身份证号码 联系电话
王江宙
戴小安
戴增明
王成 & & &
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
下载作业帮安装包
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
vfp6函数ROUND(,-2)的值是?计算过程是什么?
作业帮用户
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
ROUND(,-2)＝123500－2表示对小数点前第二位去四舍五入,也就是把5进位,把前面的4变成5,后面的所有位数变成0.ROUND(,-3)＝123000
为您推荐：
其他类似问题
扫描下载二维码为什么算出来的结果是.000000？_百度知道
为什么算出来的结果是.000000？
因是初学所以不太明白，在turbo 2.0 里运算：main(){
float a,b;
printf(&%f\n&,a);
printf(&%f\n&,b);}结果，a,b都等于.000000，原因何在？
不明白的是，a不是等于X10的5次方吗?也就是，那最后的52上哪里去了？
我有更好的答案
float型的有效数字是6位数,后面的数字不确定。如果需要更精确，使用16位有效数字的double。 double a,b;
printf(&%lf\n&,a);
printf(&%lf\n&,b);
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。当前位置： >>
电脑知识总试题库
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 1 2 3 4 5 6 7 8 9 10下列不是Visual Basic 6．0中打开工程的方法为____。
A)按Alt+O组合键
B)执行“文件”菜单中的“ 要使一个标签透明且不具有边框，则应____。
A)将其BackStyle属性设置为0，BorderStyle属性设置为0
为了描述x&y和y&z同时成立，则下述选项中，正确的是____。
A)x&y .And. Y&z
C)x&y And &
下面4个叙述中，____是不正确的。
A)在一个程序执行End语句后，系统自动将所有打开的文件关闭
下列可以打开立即窗口的操作是____
A) B) Ctrl+E
C) D) Ctrl+G 列表框中的列表框的数目可通过以下____属性的值获得。
B)ListCoum
C)Listlndex
D Visual Basic规定工程文件的扩展名是____。
C)．vbp D)．bas 关于变体变量，下列说法正确的是____。
A)变量未加定义而直接使用，该变量即为变体变量，因而变体变量是
以下不是Visual Basic的特点的选项是____。
A)可视编程
B)算法设计
C)事件驱动
D)面向对象 假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：
Private Type animal
AnimalName As String*
下列语句正确的是 。
A)If X&3*Y And X&Y Then Y=X^3
B)If X&3*Y And /X&Y Then Y=X3
下列对象表达式中，错误的是____。
A)Labell.Visible And Label2.Visible
B)Labell.Enabled+Textl.E
为了在运行时能显示窗体左上角的控制框（系统菜单），必须 。
把窗体的Contro1Box 属性设置为Fal A)
如果在列表框中每次只能选择一个列表项，则应将其Multiselect属性设置为____。
D 设有数组定义：Dima(5 To 15)和赋值语句k=4。下列数组引用错误的是 。
以下程序的输出结果是
Option Base 1
Private Sub Command1_Click()
a(10),p(3) As Integer
I Dim k=5 For 表达式Sb(Len(&123&))+Str(77.7)的值是____。
D)12377.7 许多常用控件都有Value属性，Value属性的作用是____。
A)确定控件的属性
B)确定控件的位置
下列不能打开属性窗口的操作是____。
A)执行“视图”菜单中的“属性窗口”命令
以下不具有Picture属性的对象是____。
D)文本框 表达式X=sqr(a^2-5)+sqr(b^2-5)的类型是____
A)算术表达式
B)逻辑表达式
C)关系表达式
D)字符表达式
在以下描述中正确的是
标准模块中的任何过程都可以在整个工程范围内被调用
在一个窗体模块中可以调用在 A)
下列关于数组的叙述中，正确的是 。
A)动态数组和静态数组都是在编译阶段分配存储空间
B)静态数组
下述程序段运行时的显示结果为____。
Print Len(x)
D)非法使用
表达式(-1) Sgn(-100+Int(Rnd*100))的值是( )
C.-1 D.随机数 要获得当前驱动器，应使用驱动器列表框的____属性；
D)Pattern 名称____表示变体类型数据。
B)Currency
D)Variant 如果文本框的Enabled属性被设置为False，则运行时____。
A)文本框中的文本将变成灰色，并且此时用户不能
设有数组定义语句：Dim a(5)As Integer，Listl为列表框控件。下列给数组元素赋值的语句，错误的是____.
有如下程序：
m$=”ABC”
n$=”abC”
k$=Lcase$(mS)
j$=Ucase$(n$)
Print Asc(k$+j$)
在窗体中添加一个命令按钮Command1和一个文本框Text1，并有以下程序：
Private Sub Command1_Click()
Stat 下列语句中正确的是____。
A)txtl.Text+txt2.Text=txt3.Text
B)Commandl.Name=cmdOK
C)12Label.C
在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
有如下程序：
a$=&Flying&：b$=&IS&：c$=&funny!&
Print a$+& &+Lcase$(b$)+& &+Ucase$(c$)
在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程：
Private Sub Form_Load()
在表示长整数时，可作为长整数尾部符号的是____。
D)$ 为使图像框的大小自动适应图像的大小，则应____。
A)将其AutoSize属性值设置为True
B)将其AutoSize属
执行语句s=Len(Mid(&VisualBasic&,1,6))后，s的值是
A) B) Basic
C) D) 11 有如下程序：
a$=&123456&：b$=&abode&
For j=1 To 5
C$=c$+Lefts(a$,1)+Right$(b$,1)
可视化编程的基本过程主要有3步，这3个步骤是____。
A)创建工程、设计界面、编写代码
B)创建工程、编
下列能使x为数值型数据的语句是____。
A)X=InputBox(&请输人数据&)
B)X=Labell.Caption
有如下程序：
DefStr X-Z
运行后，输出结果是
刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是____。
A)单选按钮
运行以下程序后，输出的结果是____。
Print &中国&
Font=&隶书&
Print &人民&
Font=&仿宋&
在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:
Option Base 1
Private Sub Command1_
下列多分支选择结构语句正确的是____。
A)Select Case x B)Select x
Case 10，20 30
Case 10 To 30 以下控件中可以作为容器控件的是（ ）
A．Image图像框控件 B．PictureBox图片框控件
C．Te 程序执行时，单击窗体后输出结果是____。
Private Sub Form_Click()
Dim x As Integer
x=5
DO
有如下程序：
For r=35 To 85 Step 25
Circle(300,240),r
单击窗体后，窗
以下语句的输出结果是 。
Print Format $(0,000.00&)
32548.5 A) B) 32,548.5
C) 已执行语句x=9，输出x值时要求加千位分隔符，小数点后取2位有效数字。下列格式输出语句正确的是 Visual Basic布尔运算符Xor，Or，Eqv，And中，级别最高的运算符是――。
D) 在窗体上面一个命令按钮，名称为Commandl，单击命令按钮时，执行如下事件过程：
Private Sub Commandl_
在窗体(Name属性为Forml)上面两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command 下面叙述中不正确的是( )
A.若使用Write #语句将数据输出到文件，则各数据项之间自动插入逗号，并 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20Visual Basic 6．0集成环境的主窗口中不包括____。
B)菜单栏 C)状态栏 D)工具栏 关于语句If x=1 Then y=1，下列说法正确的是____。
A)x=l和y=l均为赋值语句
B)x=1和y=1均为关系表达
以下关于图片框控件的说法中，错误的是
可以通过Print方法在图片框中输出文本
清空图片框控件中图形的 A)
与y=IIf(x&0,1,IIF(x&0,-1,0))语句功能相同的if选择结构语句是____。
A)if x&0 Then B)if x Then
为程序的空白行选择适当的语句，使程序段完成相应计算。
序段的功能是：当x&10时，y=x2；当0≤x≤10时，y 程
假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为 。
Label1. Ba A) 下面Change事件过程中，文本框控件Textl用来接收字符的输入，该事件过程的作用是____。
Private Sub Text
下面叙述中正确的是( )
A. 可以使用FileSystemObject 对象的OpenTextFile 方法打开文件，但不能创建
以下关于控件的叙述中，错误的是（ ）
VB允许用户乱设计并使用控件
主窗体中工具条中的工具不是工 A． B． 下述程序段中，与其他3个程序段作用不同的是____
语句Print &Int(-13.2)=&；Int(-13.2)的输出结果为____。
A)Int(-13.2)=-13.2
B)Int(-13.2)=13.2
Option Explicit语句不可以放在( )
A. 窗体模块的声明段中
B．标准模块的声明段中
C．类模块的声
执行x$=InputBox(“请输入x的值”)时，在弹出的对话框中输入123，在列表框Lisfl选中第1个列表项(数据为456 下列语句错误的是____。
A)Exit For
B)Exit While
D)Exit Sub 下列循环控制结构出现错误的是____。
A)For I=1 to 100 B)While I&100
阅读下列事件过程，
Private Sub Commandl_Click()
x=InputBox(&请输入X的值：&)
y=Text.Text
如果将布尔常量值True赋值给一个整型变量，则整型变量的值为____。
D)Fal 如果模块定义为：
DetStr C-F
则以下程序语句：
Print d+f$
运行后输出
在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As
改变驱动器列表框的Drive属性值将激活( )事件。
A．Change B．Scroll
C．KeyDown D 下面程序段的功能是( )
Dim X As New FileSystemObject
For Each Mydri in X.Drives
要想改变一个窗体的标题内容，则应设置以下哪个属性的值( )
B．FontName C．Caption 下列程序段的执行结果为( )
For I=1 To 3
1 在程序代码中清除图片框Picture1中的图形的正确语句是( )
Picture1．picture=&&
B．Picture1．picture 单击命令按钮时，下列程序代码的执行结果为( )
Private Sub Commandl_Click()
Print MyFunc(24，
要将一个组合框设置为简单组合框(Simple Combo)，则应将其Style属性设置为____。
下列不是Visual Basic文件的是____。
A)*.frm文件
B)*.bas文件
C)*.cls文件
D)*.txt文件 为了防止用户随意将焦点置于控件上，应该____
A)将控件的TabIndex属性设置为0
B)将控件的Tabstop属性
下列窗体属性属于字符类型的是____。
A)Name和Caption
B)MaxButton和MinButton
C)Visible和Enabl
&动态数据交换”的英文缩写是____。
B)DDE C)OLE D)DLL 如果Tab函数的参数小于1，则打印位置在第____列。
D)3 表示滚动条控件取值范围最大值的属性是____。
A)Max B)LargeChange
D)Max-Mi 在VisualBasic环境下，当写一个新的Visual Basic程序时，所做的第一件事是____。
A)编写代码
B) 以下不属于同类的是____。
A)Click
B)Name C)Caption D)Top 下列程序段的执行结果为____
Loop While a&10
Print a；b
下列既可用于输入数据又可用于输出数据的控件是____控件。
表达式25.28 Mod 6.99的值是 。
D)出错 给程序的空白行选择适当的语句。
程序段的功能是：依次自动将列表框List2中所有列表项目移人列表框List
在设计阶段，当双击窗体上的某个控件时，所打开的窗口是____。
A)工程资源管理器窗口
B)工具箱窗口
将Cos(y)四舍五入保留3位小数的表达式是____。
A)Int((Cos(Y)+0.5)*
B)Int(Cos(Y*1000))/
下列关于多行结构条件语句的说明，正确的是____。
A)多行结构条件语句中的ElseIf子句不能超过10条
B)多行
运行以下程序后，打印机上的输出结果是____。
For I=1 To 9
Printer.Print tab(I*I)，I
下列各控件不包含有滚动条的控件是____。
B)ComboBox
D)LabelBox 使用“上下文相关帮助”获取帮助信息的操作方法是____。
A)从“帮助”下拉菜单中选择“上下文相关帮助”命令
在Visual Basic中通过________属性来设置字体的颜色。
A)FontColor
B)ClipControl
C)BackColor
D) 设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用________属性。
A)ControlBox
B)ClipContro 在运行阶段，要在文本框Text1获得焦点时选中文本框中的所有内容，则对应的事件过程是____。
A)PrivateSubT 下列语句中错误的是____。
A)Text1.Text=List1.Text
B)Label1.Caption=List1.Text
C)List1.List(
一个工程必须包括的文件的类型是____。
A)*．Vbp，*．Frm，*．Frx
B)*．Vbp，*．Cls，*．Bas
以下叙述中错误的是( )
A. 在程序运行时，通用对话框控件是不可见的
B．在同一个程序中，用不同的
下列各组函数中，函数值类型相同的一组是____。
A)Exp(x)，Chr(x)，Lcase(x)
B)Asc(x)，Str(x)，Rtr
以下叙述中正确的是____
A)窗体的Name属性指定窗体的名称，用来标记一个窗体
B)窗体的Name属性的值是
Visual Basic应用程序的运行是____。
A)从一个建立的窗体模块开始执行
B)以最后建立的窗体模块结束
设有如下程序：
Private Static Function fac(n As Integer) As Integer
f As Integer
Dim f fac 阅读程序：
subP(b() As Integer)
Sub For b(I)=2*I
End Private Sub Commandl_Clic 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30在VB的基本数据类型中，通用类型(Variant)可以表示任何类型的变量，如果有定义Dim a，则以下变量赋值中正确 下列可用做输入数据的控件是____控件。
A)OptionButton和CheckBox
B)ListBox和ComboBox
在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：
a As Integer
test() Dim Sub 有关列表框的属性和方法的正确描述是（ ）
列表框的内容由属性Item Data来确定
当多选属性（Mult A． B． 在窗体上画两个单选按钮，名称分别为Optionl，Option2，标题分别为&宋体&和&黑体&；一个复选框，名称为Che 假设变量intVar是一个整型变量，则执行赋值语句intVar=&2&+3之后，变量
intVar的值是____。
为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为Tme，这个属性
在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如 当标签的标题内容太长，需要根据标题自动调整标签的大小时，应设置标签的______属性为True
A)AutoSize
在一个语句行内写多条语句时，语句之间应该用____分隔。
B)分号 C)顿号 D)冒号 执行以下程序段后，变量C$的值为 。
A$=&Visual Basic Programing&
B$=&Quick&
C$=B$ & Ucase
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Private Sub Commandl_Click()
函数Ucase(&basic&)的值为____。
D)BASIC 阅读程序：
subP(b() As Integer)
Sub
rivate Sub Commandl_Click()
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:
Private Sub Command1_Click()
下列程序段的功能是:给列表框List1加载如下项目:星期一、星期二、星期三、星期四、星期五、星期六和星期日 单击滚动条上的滚动箭头时，产生的事件是____。
D)Move 满足“当x的值是偶数时为真，奇数时为假”要求的表达式是____。
A)x Mod 2=0
B)Not x Mod 2&&0
语句Print &Sgn(-26)=&；Sgn(-26)的输出结果为____。
A)Sgn(-26)=26
B)Sgn(-26)=-26
C)Sgn(-26)=
在菜单设计时，在某菜单项（Caption）中一个字母前加以“&”符号的含义是（ ）
设置该菜单项的“访问 A． 要定义一个包含有36个元素的二维数组a，下列正确的方法是____。
A)Dim a(6，6)
B)Option Base l
TextBox控件的下列属性中，_____属性是只读属性。
A)ScrollBar
B)PasswordChar
下面是一个窗体的单击事件过程：
Privme Sub Form_Click()
If Commandl.Enabled Then
Label1.Cap
多分支选择结构中，Case子句的作用是说明____。
A)“Select Case&测试表达式&”语句中&测试表达式&的值域
二维数组a的成员是6个字符组成的串，行下标i的范围从0到8，列下标j的范围从1到10，则存放a至少需要_______ 在设计阶段，当双击窗体上的某一个文本框控件时，系统将在代码窗口中显示该文本框控件的____事件过程模板。 假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为 。
MenuItem. A) 下列数组定义语句错误的是 。
B)Const k％=10
Dim Arr(k)
Dim Arr(k)
下列四组控件属性中，属性值的类型不相同的一组是____。
A)Label控件的Enabled属性与TextBox控件的Enab
函数InStr(&Visual Basic程序设计教程&,&程序&)的值为____。
D)14 在列表框中当前被选中的列表项的序号是由下列____属性表示的。
C)ListIndex
设有如下变量声明：
Dim TestDate As Date
为变量TestDate正确赋值的表达方式是
下面叙述中不正确的是( )
A. 驱动器列表框是一种能显示系统中所有有效磁盘驱动器的列表框
以下叙述中错误的是
一个工程可以包括多种类型的文件
Visual Basic应用程序既能以编译方式执行，也能以 A)
表达式Abs(-5)+Len(&ABCDE&)的值是____。
D)0 若已执行定义语句：Dim a As Integer，b As Single，则合法的多分支选择结构语句是____。
A)Select Case
关于MsgBox()函数，下列说法正确的是____。
A)执行MsgBox()函数弹出的对话框是模式(模态)对话框
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function
下列程序段的执行结果为____
For k=0 To n-1
For l=1 To k+1
有如下程序：
Dim a As String，b As String
a=&12345&，b=&abcde&
For I=1 To 5
c=c+Left(a，
通用过程可以通过执行&工具&菜单中的( )命令来建立。
A. 添加过程
B．通用过程
C．添加窗体
下列程序的执行结果为( )
If A&60 Then I=1
If A&70 Then I=2
If A&80 Then I=3
VB提供的选择框（CheckBox）可具有的功能是（ ）
A．多重选择 B．单一选择
C．多项选择 在参数传递过程中，使用关键字( )来修饰参数，可以使之按值传递。
下列程序段的结果为( )
A=&ABBACDDCBA&
For I=6 To 2 Step -2
X=Mid(A，I，I)
Y=Left(A，I
下列字符串常量中，最大的是( )
B．&上海& C．&天津& D．&广州& 下列程序段的执行结果为( )
S=0：T=0：U=0
FOr X=1 To 3
For Y=1 To X
FOr Z=Y TO 3
Q的值为-3时，表达式-Q^4的值是()
D．-27 表达式(7\3+1)*(18\5-1)的值是( )
B．7．8 C．6 D．6．67 如果要在任何新建的模块中自动插入Option Explicit语句，则应采用下列( )操作步骤。
A. 在&工具&菜单中
要清除列表框中所有的列表项时，应使用____方法。
C)Removeitem
D)Move 下列不是标准控件的是____。
A)图像框
B)图片框
C)框架
D)对话框 为了把窗体上的某个控件变为活动的，应执行的操作是____。
A)单击窗体的边框
B)单击该控件的内部
使用____方法不能让控件获得焦点。
A)通过Tab切换
B)单击该控件
C)使用SetFocus方法
D)使用键盘上的方
下列叙述正确的是________。
A)向工程添加文件，应先选择要添加的文件，再从“工程”下拉菜单中选择“添
31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40确定一个控件在窗体上的位置的属性是____。
A)Width或Height
B)Width和Height
C)Top或Left
可视化程序设计强调的是____。
A)过程的模块化
B)控件的模块化
C)对象的模块化
D)程序的模块化 移动控件位置的组合键是____。
A)Shift+“方向箭头”
B)Alt+“方向箭头”
C)Ctrl+“方向箭头”
以下叙述中错误的是_____.
下拉式菜单和弹出式菜单都用菜单编辑器建立
在多窗体程序中，每个窗体都可以 A)
以下关于作用范围的描述正确的是（ ）
所有变量（Public/Global/Static/Private）都可以放到窗体的通 A． 下列事件过程正确的是____。
A)Private Sub Forml_Click()
If Len(Textl.Text)&10 Then
Textl.Mult
实现Windows应用程序之间信息共享的技术是____。
A)开放式数据链接功能
B)对象链接与嵌人
单击窗体上的关闭按钮，将触发____事件。
A)Form_Initialize()
B)Form_Load()
C)Form_Unload()
下列程序的输出结果是____。
Option Base 1
Private Sub Commandl_Click()
Dim Arrl(12)，Arr2(4
有如下程序：
Dim arr(3，3)
For j=1 To 3
For k=1 TO 3
arr(j，k)=(j―1)*3+k
要强制显式声明变量，可在窗体模块或标准模块的声明段中加入语句____。
A)Option Base 0
B)Option E 下列程序段的执行结果为( )
FOr I=1 To 2
FOr I=1 To K
要使标签中的文本靠右显示，则应将其Alignment属性设置为____。
D)3 设置复选框或单选按钮标题对齐方式的属性是____。
D)Alignment 若要使标签控件显示时,不覆盖其背景内容，应设置标签控件的_____属性.
A)BackColor
B)BorderStyle
列表框中Tablndex属性表示的意义是____。
A)被选中列表项的序号
B)列表框的项的总数
C)列表框获取Tab焦
执行下面的程序段后，x 的值为
For I=1 To 20 Step 2
23 下列叙述中正确的是____。
A)任何一个对象的所有属性既可在属性窗口中设置，也可以以程序代码的方式设置
从键盘上输入一个实数nu，利用字符串函数对该数进行处理，如果输出的内容不是字符End，则程序输出的内容是 能够改变窗体边框线类型的属性是( )
A．FontStyle
B．BorderStyle C．BackStyle D．Border 为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择，则应将列表框的MultiSelect属性设置为____。
复制当前控件到窗体左上角，应该使用的快捷键是____。
C)执行Ctrl+C后，再执行
MsgBox函数与MsgBox语句的区别是____。
A)执行MsgBox函数会自动显示一个对话框，而执行MsgBox语句不会显
计算z的值：当x大于y时，z=x；否则，z=y。下列语句行错误的是_______。
A)If x=y Then z=x：z=y
有如下事件过程:
Private Sub Command_Click()
Do Until b=-1
a=InputBox(&输入a的值&)
在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为
下列各组中，两个函数功能完全相反的一组是____。
A)Sin(x)与Cos(x)
B)Str(x)与Val(x)
表达式&Turbo&+&c&&&Ture&+&Basic&的值是____。
D)出错信息 若想要建立一个学生管理系统的输入界面，其中要求选择学生的性别/政治面貌(党/团/群众)及选课情况(共有5门 与传统的程序设计语言相比，Visual Basic最突出的特点是____。
A)结构化程序设计
B)程序开发环境
以下能够触发文本框Change事件的操作是____。
A)文本框失去焦点
B)文本框获得焦点
C)设置文本框的
语句Print 5/4*6\5 Mod 2的输出结果是______.
3 下列属性设置语句正确的是____。
A)Forml.Name=Forml.Caption
B)Forml.Caption=Forml.Name
下列程序段的执行结果为( )
Dim A(5，5)
For I=1 TO 3
For J=1 TO 4
A(I，9)=I*J
以下关于窗体的描述中,错误的是_____
A)执行Unload Form1语句后，窗体Form1消失，但仍在内存中
下列事件过程都是为了显示&程序开始运行!&的信息，错误的是
A)Private Sub Form_Load()
窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是____。
Private Sub Commandl_Click()
设有数组定义：Dim a(4)，存放数值数据，则数组a所占空间为 字节。
D)不确 以下能够正确计算1+2+3+?+10的程序是（ ）
A．Private Sub Command1_Click() B．Private Sub Command 下述程序段的运行结果是 。
z=Len(Str$(x)+Str$(y))
B)6 设a$=&12&，下列语句错误的是____。
A)labell.Visible=Textl.Visible or Text2.Visible
B)Textl.Tex
当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的是____。
A)AutoSize属性
B)Resize事 声明一个变量为全局变量应该用_____关键字。
A)Dim
B)Private
C)Static
D)Public 语句X=X+1的正确含义是____。
A)变量X的值与X+1的值相等
B)将变量X的值存到X+1中去
C)将变量X的值加
在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，依次在输入对话框中输入5，4， 一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有 变量未赋值时，数值型变量的值为 。
D)没任何值 下面的事件过程随机产生一个3位3位正整数，然后逆序输出,并将产生的数与逆序数相隔4个字符显示在一行上,例 下列语句中，获得列表框List1中项目个数的语句是____。
A)x=Listl.ListCount
B)x=Listeount
下列程序段的执行结果为( )
For K=1 To 10 Step -2
Print K；X
下列程序段错误的是____
A)s=0：k=0
B)s=0：k=0
Start： 100：
k=k+l
有如下程序：
a$=&China&
b$=Right$(a$，3)：cS=Strings(3，b$)
End
运行后，输出结
有如下程序：
Const st$=&CHINA&
St$=&GREAT&
运行后输出的结果是____。
下列叙述不正确的是____。
A)注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和
编写如下事件过程：
Private Sub Form_MouseDown(Button As
Integer，Shift As Integer，X As Sing
41 42 43 44 45 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 1 2 3 4 5下列语句中，可以触发命令按钮单击事件的语句是____。
A)Commandl.Vaule=False
B)Commandl.Vaule=Tr
为程序的空白行选择适当的语句，使程序段完成相应计算。
序段的功能是：当x取值5到10，或取值大于20时，输 程
下列程序段的执行结果为( )
B=B+1
Loop While A&10
Print A；B
在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：
Option Base 1
Private Sub Comman 下面的事件过程随机产生一个3位3位正整数，然后逆序输出,并将产生的数与逆序数相隔4个字符显示在一行上,例 运行以下程序后，输出的图形是____。
For k=100 To 200
Pset(2*k,k)
A)两条相互平行的
有如下语句：
Type Student
Name As String
Age As Integer
Sex As String
Stu As Stude End Dim 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程
Private Sub Co
Format$函数中，格式说明符的使用规则正确的是 。
A)格式符&#&与“0”的作用完全相同
B)格式符“.”与格 设有如下的记录类型：
Type Student
Number As String
Name As String
Age As Integer
表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是( )
B．0 C．-1 D．2 设a=&Visual Basic&，下面使b=&Basic&的语句是( )
A．b=Left(a，8，12)
B．b=Mid(a，8，5)
设置对象的属性值是程序设计的重要步骤，关于属性的说法错误的是____
A)属性是一组可以由用户定义的数据
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框，然后编写如下程序：
Private Sub
可以在窗体模块的通用声明段中声明( )
A. 全局变量
B．全局常量
C．全局数组
D．全局用户自 假定编写如下事件过程：
Private Sub Form_MouseMove(Button As Integer，
Shift As Integer，X As
执行以下语句后显示结果为( )
Dim x As Integer
If x Then Print x Else Print x-1
B 下列程序段的执行结果为( )
For K=0 TO N-1
For L=1 TO K+1
下面叙述中不正确的是( )
A. 随机文件中记录的长度不是固定不变的
B．随机文件由若干条记 单击命令按钮时，下列程序代码的执行结果为( )
Dim a As integer，b As Integer，c As Integer
要使列表框中的列表项显示成复选框形式，则应将其Style属性设置为____。
D 组成应用程序的3种模块是____。
A)窗体模块、通用模块、标准模块
B)窗体模块、标准模块、类模块
下列属性中，文本框控件不具有的属性是____。
A)BackColor
C)PasswordChar
下面关于Visual Basic 6．0工具栏的说法不正确的是____。
A)工具栏的位置可以任意改变
B)工具栏 下面叙述中正确的是____。
A)Spc函数能用于Print方法中，也能用于表达式
B)Space函数既可以用于Prin
能够获得一个文本框中被选取文本的内容的属性是____。
D)SelSt 在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条的事件是____。
一个工程必须包括的文件是____。
A)窗体文件、标准模块文件、类模块文件
B)工程文件、ActiveX控件的
代数式Sin(π -t)2/3÷a×b对应的Visual Basic表达式是____。
A)(Sin(3.14159-t)^(2/3))/(A*B)
B)(Sin(3.
在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写 在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框 假设变量boolVar是一个布尔型变量，则下面正确的赋值语句是____。
A)boolVar=&True&
B)boolVar=.Tru 假定窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是___ 下列关于数组的说明，正确的是 。
A)Visual Basic的数组，同一个数组中只能存放同类型的数据
阅读下面的程序段：
For For For a=a+1
行上面的三重 执 窗体上有一个按钮和一个滚动条，则下列程序的功能是____。
Sub Command1_Click()
HScroll1.LargeCha
下列表达式中，与其他3个大小不同的一个是____。
D)&017 要使一个命令按钮成为图形命令按钮，则应设置其____属性值。
C)DownPicture
任何控件都具有____属性。
D)ForeColor Move方法的一般形式是[对象名.]MoveA[，B[，C[，D))]，其中B指的是________。
A)Left
B)Top
C)Width
仅仅是CommandButton或OLEContainer控件才具有的，别的常用控件不具有的一组属性是____
A)Name与Captio
有如下程序：
F=Sqr(a*a+b*b)
Print F
运行后输出的结果是____。
下列关于循环控制结构的使用说明,正确的是_______。
A)For?Next循环嵌套时,不能共同使用同一个终端语句
下列与Listl.Text属性值相同的表达式是____。
A)List1.ListCount
B)List1.List(ListCount-1)
对窗体编写如下代码：
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
= Array(237,126 a 图像框有一个属性，可以自动调整图形的大小以适应图像框的尺寸，这个属性是____。
A)AutoSize
B)S 常量2.423D-02的类型是____
A)整型
B)单精度
C)字符型
D)双精度
表达式1.5+3\2&2 Or 7 Mod 3&4 And Not 1的运算结果是____。
D)其他 列表框名称为Listl，下列语句错误的是____。
A)a$=Listl.List(1)
B)List1.List(1)=&List&
以下关于窗体描述正确的是（ ）
只有用于启动的窗体可以有菜单
窗体事件和其中所有控件事件的代码 A． B． 在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是
下述程序的功能是____。
x=&((a+B)*A)-(a*b+C)&
For k：1 To n
p$=Mid(x，k，
在以下4个逻辑表达式中，其逻辑值为“真”的是____。
A) Not(3+4&4+6)
B) 2&1 And 3&2
C) 1&2 or 2&3
下面是窗体Forml的Click事件过程，实现运行时每次单击窗体。窗体均向右移动100缇
Private Sub______()
为了把焦点移到某个指定的控件，所使用的方法是____。
A)SetFoeus
D)Ge 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15在代码编辑器中，如果一条语句太长，无法在一行内写下(不包括注释)，要折行书写，可以在行末使用续行字符_ 阅读程序：
Function F(a As Integer)
b Static c
b c f End Private S 窗体上有若干个文本框，其中文本框Textl用来接收大于0且小于10的数据。若在Textl中输入的不是这个区间上的 执行语句Open&C：StuData．dat&For Input As #2后，系统( )
A. 将C盘当前文件夹下名为StuData．dat的
运行下列程序段后，输出的&*&个数是____。
For I=1 To 2
For j=0 To I-1
在窗体上画一个文本框，其Name属性为Text1，然后编写如下事件过程：
Private Sub Form_Load()
使用目录列表框的( )属性可以返回或设置当前工作目录的完整路径(包括驱动器盘符)。
B． 可以同时删除字符串前导和尾部空白的函数是 。
Ltrim B) Rtrim C) Trim D) Mid A) 在窗体上面画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Commandl_Click()
Dim a 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub
从键盘上输入两个字符串，分别保存在变量strl，str2中。能确定第2个字符串在第1个字符串中起始位置的函数是 下列表达式不正确的是____
A)x Like 3,5,7
B)x+y=z
C)x+y And x+a&x+b
D)#05/08/1995#+#01/07/1995#
为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件)，则应将其Interval属性值设置为____。
以下不合法的常量是____。
A)10^2
B)100
C)100.0
D)10E+01 下列各种形式的循环中，输出&*&个数最少的循环是____。
A)a=5：b=8 B)a=5：b=8
下列强制显式声明变量中，正确的语句是____。
A)Private Const
B)Option Explicit
C)Type Studen
执行下列程序，单击命令按钮后，从键盘分别输入4和5，则输出是______。
Private Sub Commandl_Click()
有关多文档界面（Multiple document．nbspInterface）的不正确描述是（ ）
多文档界面（MDI）是指在一 A． 以下说法正确的是( )
A．任何时候都可以使用&工具&菜单下的&菜单编辑器&命令打开菜单编辑器
B．只有当
设有语句：
x=InputBox(&输人数值&，&0&，&示例&)
程序运行后，如果从键盘上输人数值10，并按回车键
设A$=&China&，将China增加到列表框List开头位置，下列完成此项操作正确的语句是____。
A)Listl.AddItem
以下____程序段可以实施X、Y变量值的互换。
A)Y=X：X=Y
B)Z=X：Y=Z：X=Y
C)Z=X：X=Y：Y=Z
执行下列程序段后,输出的结果是_______。
For k1=0 To 4
y=20
For k2=0 To 3
y=10
For k3=0 To 2
y=
在窗体上画两个名称分别为Textl，Text2的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
关于Visual Basic&方法”的概念，下列说法错误的是____。
A)方法是对象的一部分
B)方法是预先规定好 要使标签能够显示所需要的文本，则在程序中应设置____属性的值。
用Visual Basic设计应用程序的过程，实际上是与一组( )进行交互的过程。
A)控件工具
B)自定义对象
表达式Int*(5*Rnd+1)*Int*(5*Rnd-1)的值的范围是____
A)[0,15]
B)[-1,15]
C)[-4,15]
D)[-5,15]
在默认情况下，InputBox函数返回值的类型为____。
D)数值或字符串(视 有如下程序：
Dim zxs As Integer
zxs=232.32
Print zxs%；zxs
运行后，输出结果是
运行以下程序后，输出的图案是____。
A$=String$(10,&*&)
For I=1 To 5
有如下程序：
运行后，输出结果是____。
下列赋值语句中,语法正确的是____
A)A^2=9
B)a&b=3
C)a=b&3
D)Let a=5,b=10
窗体上有一个按钮和一个文本框，程序执行后，在文本框中输入12345，单击按钮后的输出结果为____。
要使组合框设置成只能从中选择而不能输入数据的组合框(下拉式列表框)，则应将其Style属性设置为( )
要使一个文本框具有水平和垂直滚动条，则应先将其MultiLine属性设置为True，然后再将ScrollBar属性设置为： 下列程序段的执行结果为( )
If Not X&0 Then X=Y-3 Else Y=X+3
Print X-Y；Y-X
下列程序段的执行结果为____
FOr i=1 To 2
For i=1 TO k
在窗体上有一个名为Commandl的命令按钮。有如下的事件过程：
Private Sub Commandl_Click()
使用Public Const 语句声明一个全局的符号常量时，该语句应放在( )
B．窗体模块的通用 求一个三位正整数N的十位数的正确方法是( )
A．Int(N/10)-Int(N/100)*10
B．Int(N/10)-Int(N/1 设A=&&，则表达式Val(Len(A，4)+Mid(A，4，2)的值为( )
B．123445 C．8 以下叙述中错误的是( )
A. 如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
下列程序段的执行结果为( )
Dim X(3，5)
For I=1 To 3
For J=1 To 5
X(1，J)=X(I-1，J
设p，q是指针，若p=q，则p^=q^，这种说法_________。
要使文本框获得输入焦点，则应采用文本框控件的________方法。
A)GotFocus
B)LostFocus
为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 。 网络信息服务管理工具被包含在Visual Basic的____中。
C)专业版 D 下列可作为Visual Basic变量名的是____。
D)const_A 下列不能打开菜单编辑器的操作是 。 A）按Ctrl+E B）单击工具栏中的&菜单编辑器&按钮 C）执行&工具&菜单
Visual Basic程序设计采用的是____编程机制。
B)面向对象
C)事件驱动
D)过程结构 窗体上有一个列表框和一个文本框，编写如下两个事件过程：
PrivateSubForm_Load()
List1.AddIte
____是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
如果将PassWordChar属性设置为一个字符，如星号(*),运行时，在文本框中输入的字符仍然显示出来，而不显 在窗体中添加一个命令按钮Command1，并有以下程序： Function retnum() nl = Chr(13) + Chr(10) msg$
16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 1 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70下列事件过程中，正确的事件过程是____。
A)Private Sub Command_Click() B)Private Sub Command_Cli 下述程序的运行结果是 。
For m=3 To 1 Step -1
x$=String$(m，”#”)
可以接受焦点的控件是____。
D)Timer 设a=3，b=5，则以下表达式值为真的是 。
A)a&=b And b&10
B)(a&b) Or (b&0)
C)(a&0) Eqv
以下4组语句中不正确的是 。
A)A=1：A+A
B)Const A=1：A=A+1+[10，10]
下列多行结构条件语句正确的是____。
A)If x&a Then Print &x&a& B)If x&a
ElseIf x&b Then Pri
下列程序段的执行结果为( )
Dim A(10)，B(5)
FOr I=1 To 10
下列变量名中，不合法的变量名是____。
A)Print_Numl
D)X1_y2_z3 在正确安装Visual Basic 6．0后，可以通过多种方式启动Visual Basic。以下方式中，不能启动Visual Bas VB中控件主要分为3类，下面哪一种不是VB中的控件类（ ）
A．标准控件 B．ActiveX
在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是
TabStop A)
B)Ena 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
下列每组控件中，都包含有滚动条的一组控件是____。
A)ListBox和LabelBox
B)TextBox和DriveList
下列选项中，不属于Visual Basic特点的是选项( )。
A)可视化程序设计
B)面向图形对象
下列程序段的执行结果为( )
Dim A(10，10)
For I=2 To 4
For J=4 To 5
A(1，9)=I*J
下列____是日期型数据。
A)@Januaryl0，1997@
B)#Januaryl0，1997#
C)&Januaryl0，1997&
以下不属于标签属性的是____。
D)Index 设置标签边框的属性是____
A)BorderStyle
B)BackStyle
C)AutoSize
D)Alignment 将文本框的ScrollBars属性设置为非零值，却没有效果，原因是____。
A)文本框中没有内容
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For I=1 To 4 x=4 Fo
下列关于“面向对象”编程的叙述错误的是____。
A)属性是描述对象的数据
B)方法指示对象的行为
下述语句的运行结果是 。
a=Array(1，-2，9，0，-1，9)
下面的事件过程随机产生一个3位3位正整数，然后逆序输出,并将产生的数与逆序数相隔4个字符显示在一行上 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
下列叙述中，正确的是____。
A)控件数组的每一个成员的Caption属性值都必须相同
B)控件数组的每一
对窗体编写如下事件过程： Private Sub Form _MouseDown(Button As Integer, _ Shift As Integer, X A
执行如下语句：
a=InputBox(&Today&，&Tomorrow&，&yesterday&，，，&Day before yesterday&，5)
Randomize语句的功能是____。
A)产生个(0,1)之间的随机小数
B)产生一个[1,10]之间的随机整数
关于Visual Basic应用程序，正确的叙述是____。
A)Visual Basic程序运行时，总是等待事件被触发
在VB中，按下鼠标键触发事件，正确的程序段是（ ） A．Private Su b Form_MouseDown(Button As Integ
在窗体上有一个文本框控件，名称为TxtTime，一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一 程序启动未执行任何操作前，为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设 假定有如下的Sub过程：
S（x As Single,y As Single）
= x
=t/y
Sub
窗体上画一个命令 Sub
在Visual Basic中，以10为底的x的常用对数表达式为____
B)LoglO(x)
C)Log(x)/Log(e)
窗体上有一个按钮和一个列表框(Sorted属性为True)，执行下列过程后的输出结果为____。
Private Sub Com
在Visual Basic设计界面中不能隐藏的窗口是____。
A)工程窗口
B)属性窗口
C)立即窗口
D)窗体窗 表达式4+5 \ 6 * 7 / 8 Mod 9 的值是
4 B) 5 C) 6 D) 7 A) 决定一个窗体有无控制菜单的属性是____。
A)MinButton
C)MaxButton
D)ControlBox 以下可以构成语句的一项是____。
A)对象名.属性
B)对象名.方法名
C)对象名.事件名
D)对象名.函 下面表达式中，_______的运算结果与其他3个不同。
A)log(Exp(-3.5))
B)Int(-3.5)+0.5
C)-Abs(-3.5)
D)
在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
窗体上有一个命令按钮Commandl，一个文本框Textl，一个列表框Listl。文本框用来输入要添加到列表框中的项目 如下程序：
Private Sub Form_Click()
a=20：b=20：c=120：d=120
Form.Line(a,b)-(c,d),,BF
下列叙述中不正确的是( )
A. 变量名的第一个字符必须是字母
B．变量名的长度不超过255个字符
以下叙述中错误的是( )
A. 一个工程中可以包含多个窗体文件
B．在一个窗体文件中用Private定义的
关于货币型数据，下列说法正确的是____。
A)货币型数据有时可以表示成整型数据
B)货币型数据与浮点型
以下关于函数过程的叙述中，正确的是
函数过程形参的类型与函数返回值的类型没有关系
在函数过程中，过 A)
表达式a%*b&-d#\2#+c!的结果的数据类型为 。
C)单精度型
D)双精度型 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设
为True，这个属性是_ 置
下列对象表达式中，错误的是____。
A)Text1.Text+Text2.Text
B)Textl.Text+&Text&
C)Label1.Capt
下列程序段的执行结果为____。
For X=5 To l Step -1
For Y=l To 6-X
PrintTab(Y+5)；”*”；
下列叙述中正确的是( )。
A)Visual Basic与Basic没有什么不同
B)Visual Basic与Basic的编程机制不同
将数学表达式Cos^2(a+b)+5e^2写成Visual Basic的表达式，其正确的形式是____。
A)Cos(a+b)^2+5*Exp(2)
在程序代码中将图片文件mypic.jps装入图片框Pietrue1的语句是____。
A)Picture1.Picture=&mypic.jpg&
下列关于声明变量的说法中，错误的是____。
A)用显式声明变量的关键字Dim，Private，Static或Public来声
71 72 73 74 75 76 77 78 79 80 81 5 5 5运行下面程序段可以显示_____中的图形。
Form1．Cls
For k=1 To 5
Print Tab(10-k)
用标准工具栏中的工具按钮不能执行的操作是____。
A)添加工程
B)打印源程序
C)运行程序 D 下面程序段的功能是____。
A=10.5：B=Int(A+0.5)
Debug.Print B
A)求平均值
B)将一个实数四舍
下列事件过程中，将文本框作为接收输入信息控件的事件过程有____。
A)Private Sub Command_Click() B)Pri 运行以下程序后，输出的图案是____。
Form1．Cls
For A=1 To 5
Print Space(5-A)；String(A，&*
要使目录列表框(名称为Dir1)中的目录随着驱动器列表框(名称为Drive1)中所选择的当前驱动器的不同而同时发生 若要求在文本框中输入密码时文本框中只显示*号，则应在此文本框的属性窗口中设置（ ）
A．Text属性值为* 下列( )是日期型常量。
A．&2/1/02&
B．2/1/02 C．#2/1/02# D．{2/1/02} 函数Len(Str(Val(&123．4&)))的值为( )
B．5 C．6 D．8 下列叙述中正确的是( )
在窗体的Form_Load事件过程中定义的变量是全局变量
B．局部变量的作用域可以 要想在过程调用后返回两个结果，下面的过程定义语句合法的是( )
A．Sub Procl(ByVal n，ByVal m)
下列程序段的执行结果为( )
If X*Y&1 Then Y=Y-1 Else Y=-1
Print Y-X&0
函数UCase(Mid(&visual basic&，8，8))的值为( )
D．BASIC 下面叙述中不正确的是( )
A. 对顺序文件中的数据的操作只能按一定的顺序执行
B．顺序文件结构简单
B)执行“文件”菜单中的“打开工程”命令
C)按Ctrl+O组合键
D)单击标准工具栏上的“打开工程”按钮 ，BorderStyle属性设置为0
B)将其BackStyle属性设置为0，BorderStyle属性设置为1
C)将其BackStyle属性设置为1，BorderStyl
&z B)x&y&z
C)x&y And &z
D)x&y And y&2 将所有打开的文件关闭
B)可以使用Close语句关闭一个或几个指定的文件
C)使用不带语句体的Close语句可关闭所有文件
C)Listlndex
D)Index )．vbp D)．bas 量即为变体变量，因而变体变量是无类型变量
B)变体变量占16字节的固定存储单元
C)变体变量定义后，系统将变体变量初始化为
事件驱动 D)面向对象 mal
AnimalName As String*20
Acolor As String*10
Type
窗体上画一个名称为Command1的命令按钮，然后编写如下事件过
nd /X&Y Then Y=X3
C)If X&3*Y:X&Y Then Y=X^3
D)If X&3*Y And X&Y Then Y=X**3
B)Labell.Enabled+Textl.Enabled
C)Labell.Top+Label2.Top
D)(Textl.HeiSht+Text2.Height)/2
体的Contro1Box 属性设置为Fale,其他属性任意
把窗体的ControlBox 属性设置为True,并且把Boder Style属性设置为1-5
把窗体的 B)
D)3 A)a(5．6) B)a(10)
D)a(Sqr(k^3)) 0),p(3) As Integer
k=5 For a(I)=I
Next For p(I)=a(I*I)
For k=k+p(I)*2
Next Print 80.7 D)12377.7
B)确定控件的位置
C)确定控件的状态和位置
D)确定控件的状态、内容及位置
C)按Ctrl+T组合键
D)单击工具栏上的“属性窗口”按钮
D)文本框 C)关系表达式
D)字符表达式
在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程
如果工程中包含Sub Main过程，则程序将首先执行该过程
阶段分配存储空间
B)静态数组定义时，数组维的界不能是变量，而动态数组定义时，数组维的界可以是变量
C)在同一个程序中，
D)非法使用，无输出
C)Dir D)Pattern本将变成灰色，并且此时用户不能将光标置于文本框上
B)文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改
赋值的语句，错误的是____.
B)a(3)=InputBox(“InputData&)
C)a(3)=Listl．Listlndex
D)a=Array(1，2，3，
Print Asc(k$+j$)
End
运行后输出的结果是____。
A)abcabc
B)ABCABC
C)65
D)97 te Sub Command1_Click()
Static a As Variant
= Array(20, 13, 45, -10, 50, 25)
程序的功能是求数组a的最 a End 此 dl.Name=cmdOK
C)12Label.Caption=1234
D)Textl=&123&
ub Command1_Click()
For I=1 T0 4
For J=0 To I
PrintChr$(65+1)；
$(b$)+& &+Ucase$(c$)
End
运行后，输出结果是____。
A)Flying Is funny!
B)Flying is FUNNY!
C)Flying IS FUNNY!
D)FL
Private Sub Form_Load()
List．Addltem &357&’
List．Addltem &246&
List.AddItem &123&
List.AddItem &456&
设置为True
B)将其AutoSize属性值设置为False
C)将其Stretch属性值设置为True
D)将其Stretch属性值设置为False
6 C) D) 11 fts(a$,1)+Right$(b$,1)
运行后输出的结果是____。
A)alb2c3d4e5
B)alb2c34dSe
C)eld2c3b4a
面、编写代码
B)创建工程、编写程序、保存程序
C)设计界面、设置属性、编写代码
D)设计界面、编写代码、调试程序
X=Labell.Caption
C)X=Textl.Text
D)X=Listl.List(3)
运行后，输出结果是____。
A)显示出错信息 B)123456
D)579 钮 B)图片框
C)通用对话框
D)文本框 int &人民&
Font=&仿宋&
Print &万岁!&
Font=&宋体&
A)中国(默认字体)
B)中国(默认字体)
人民(默认字体) Base 1
Private Sub Command1_Click()
a = Array(1,2,3,4)
For I = 4 To 1 Step -1
s e 10，20 30 Case 10 To 30
Print Sqr(x)
Print Sqr(x)
Print x ．PictureBox图片框控件
C．TextBox文本框控件 D．ListBox列表框控件 As Integer
x=5
DO
x=x-1
Loop While Not x
End Sub
A)5
B)5 4 3 2 1 0
C)出现语法错
单击窗体后，窗体上显示的是____。
A)3个相交圆
B)3个同心不相交圆
C)4个同心不相交圆
D)两个同心不
5 B) 32,548.5
032,548.50 D) 32,548.50
C) 字。下列格式输出语句正确的是____。
A)PrintFormat$(x，####，##.##) B)PrintFormat$(x，&###,####.##&)
C)PrintFormat$(x， A)Xor B)Or
D)And 程：
Private Sub Commandl_Click()
a$=&software and hardware&
b$=Right(a$，8)
c$=Mid(aS，1，8)
MsgBox aS，
个命令按钮(Name属性为Commandl)，然后编写如下两个事件过程：
PrivateSubCommandl_Click()
A=Text1.Text+Text2.Text
则各数据项之间自动插入逗号，并且将字符串加上双引号
B．若使用Print #语句将数据输出到文件，则各数据项之间没有逗号分隔 C)状态栏 D)工具栏 句
B)x=1和y=1均为关系表达式
C)x=l为关系表达式，y=l为赋值语句
D)x=1为赋值语句，y=l为关系表达式
清空图片框控件中图形的方法之一是加载一个空图形
图片框控件可以作为容器使用
用Stretch属性可以自动调整图片框中图 B)
&0 Then B)if x Then
if x&0 Then
Else If x&0 Then
Else If x&0 T &10时，y=x2；当0≤x≤10时，y=x3；当x&0时，输出“x为负值”的信息。
Privge Sub Form_Click()
X=InputBox(”请输入x的值
的属性设置为 。
Label1. BackStyle=0
A) Label1.Borderstyle=0
Label1.BackStyle=1
B) Label1.Borderstyle=1
Label1.BackSty C) 用是____。
Private Sub Textl_Change()
Text2．Text=Str(6.28*Val(Textl．Text))
End Sub
A)将在文本框Textl输入的数字变
ile 方法打开文件，但不能创建文件
B. 可以使用FileSystemObject 对象的CreateTextFile 方法创建文件
C．可以使用File对象
主窗体中工具条中的工具不是工具箱中包含的常用控件
若使用系统提供的OCX控件，应先将有关的控件添加到工具箱中
使用系 C． D． i=0 i=0
While i&100
While i&100
B)Int(-13.2)=13.2
C)Int(-13.2)=-13
D)Int(-13.2)=-14
块的声明段中
C．类模块的声明段中
D．任何事件过程中 sfl选中第1个列表项(数据为456)，则下列使y的值是123456的语句是____。
A)y=x$+Listl.List(0)
B)y=x$+Listl.List(1)
s=s+I:I=I+1
if s&100 Then Exit For
if s&100 Then Exit While
入X的值：&)
y=Text.Text
Debug.Print x
在InputBox函数弹出的对话框中输入123，在文本框Textl中输
Print d+f$
运行后输出的结果是____。
D)显示出错信息 b Text1_KeyPress(KeyAscii As Integer)
Dim str As String
str=Chr(KeyAscii)
KeyAscii=Asc(UCase(str))
C．KeyDown D．KeyUp Each Mydri in X.Drives
Debug.Print Mydri.DriveLetter
Next Mydri
A. 在窗体上显示系统当前工作驱动器盘符 B．FontName C．Caption D．Text A；
1 1 B．1 4 9
C．0 0 0 D．1 2 3 ture=&&
B．Picture1．picture=Loadpicture(&&)
C．Picture1．image=&&
D．Picture1．picture=Null Click()
Print MyFunc(24，18)
Public Function MyFunc(m As Integer，n As Integer)As Integer
D)3 .cls文件 D)*.txt文件 置为0
B)将控件的Tabstop属性设置为True
C)将控件的TabStop属性设置为False
D)将控件的Enabled属性没置为False
C)Visible和Enabled
D)Borderstyle和WindowState
D)Max-Min __。
A)编写代码
B)新建一个工程
C)打开属性窗口
C)0 1D)进入VisualBasic环境While a&10
Print a；b
B)ab TextBox
D)OptionButton
D)10 30中所有列表项目移人列表框List1中，并将移
List1中的项目从List2中删除。程序如下：
Do While List2.ListCount
______ 源管理器窗口 B)工具箱窗口
C)代码窗口
D)属性窗口 /1000
B)Int(Cos(Y*1000))/
C)Int(Cos(Y)，)/1000
D)Int(Cos(Y*)/1000
lseIf子句不能超过10条
B)多行结构条件语句中必须至少有一条ElseIf子句
C)多行结构条件语句的各个ElseIf子句后的&条件&只能有
rint tab(I*I)，I
D)1 2 3 4 5 7 8
TextBox D)LabelBox 单中选择“上下文相关帮助”命令
B)先选择一个对象(或关键字)，再按下n键
C)先选择一个对象(或关键字)，再按下Ctrl+n组合键
ipControl
C)BackColor
D)ShowColor A)ControlBox B)ClipControl
C)BordeStyle
D)AutoRedraw 件过程是____。
A)PrivateSubText1_GotFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
B)PrivateSub =List1.Text
C)List1.List(1)=List1.Text+List1.ListIndex
D)Command1.Caption=L1stl.Name+List1.Text
．Vbp，*．Cls，*．Bas
C)*．Bas，*．Ocx，*．Res
D)*．Frm，*．Cls，*．Bas
B．在同一个程序中，用不同的方法(如ShowOpen或ShowSave等)打开的通用对话框具有不同的作用
C. 调用通用对话框控件的ShowO
B)Asc(x)，Str(x)，Rtrim(x)
C)Sgn(x)，Cint(x)，Timer(x)
D)Fix(x)，Left(x)，Ucase(x)
B)窗体的Name属性的值是显示在窗体标题栏中的文本
C)可以在运行期间改变对象的Name属性的值
D)对象的Name属性可以
B)以最后建立的窗体模块结束
C)程序执行顺序不是预先完全确定好的
D)执行顺序是预先确定好的
f As Integer
f fac End Private Sub Form_Click()
I As Integer
I = 2 To 3
Dim For Print &#&; I&&=& ub
Private Sub Commandl_Click()
a(1 To 4)As Integer
Dim a(1)=5
For Print a(I) 义Dim a，则以下变量赋值中正确的是（ ）
A．A=”OK” B．A$=OK
C．A=04/01/2001
D．A$=”OK” istBox和ComboBox
C)Label和TextBox
D)Form和Frame
a As Integer
= a + 1: b = b + 1: c = c + 1
Dim Sub a Print “Sub:”;a;b;c
End Private Sub Co mmand1_Click() a来确定
当多选属性（MultiSelect）为True时，可通过Text属性获得所有内容
选中的内容应通过List属性来访问
选中的 B． C． D． 黑体&；一个复选框，名称为Check1，标题为&粗体&；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋 r的值是____。
D)23 性设置为Tme，这个属性
D)Default e属性为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
While x&50
x=0 Do x=(x+2)*(x+3)
Loop Text1. ___属性为True
A)AutoSize
B)WordWrap
D)Visible 号 C)顿号 D)冒号 B$=&Quick&
C$=B$ & Ucase(Mid$(A$，7，6)) & Right$(A$，11)
A)Visual BASIC Programing
B)QuickBasic Programing
ub Commandl_Click()
Static X As Integer
Static Y As Integer
Print X，Y
rivate Sub Commandl_Click()
a(1 To 4)As Integer
Print a(I)
End b Command1_Click()
c1 = Trim(Str?)
For I = 1 To 4
Sub
序运行后，单击命令按
期四、星期五、星期六和星期日。给以下程序的空白行选择适当的语句。
For i=1 To 7
A)List1.Text=Choose(i，
C)Change D)Move 2=0
B)Not x Mod 2&&0
C)(x\2*2-x)=0
D)Not(x Mod 2)
)Sgn(-26)=-26
C)Sgn(-26)=+1
D)Sgn(-26)=-1 ）
设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Ctrl+带下划线的字母选择该菜单项
设置该菜单项的 A． B． 6，6) B)Option Base l
Dim a(6，6)
C)Option 1
D)Option Base 2
Dim a(6，6)
D wordChar
D)Multline
l.Enabled Then
Label1.Caption=&命令按钮可以使用!&
Label1.Caption=&命令按钮不可以使用!&
式&”语句中&测试表达式&的值域
B)“Select Case&测试表达式&”语句中&测试表达式&的类型
C)“Select Case&测试表达式&”语
到10，则存放a至少需要___________个字节。
D、540 文本框控件的____事件过程模板。
B)DblClick
D)GotFocus 使用的语句为 。
MenuItem. Enabled=False
MenuItem. Enabled=True
MenuItem. Visible=True
Menultem. Visible=Fals A) B) C) D) (k) Dim Arr(k)
C)Dim Arrl(10) As Integer
D)Dim Arrl(1 T010)
Dim Arr2(10)
Dim Arr2(1 To 10，2 To 11) abled属性与TextBox控件的Enabled属性
B)OptionButton控件的Value属性与CheckBox控件的Value属性
C)Command控件的Default
D)14 B)Index
C)ListIndex
D)TabIndex 表达方式是 。
A)TestDate=#1/2002#
B)TestDate=#&1/1/2002&#
C)TestDate=date(&1/1/2002&)
D)TestDate=Format(&
磁盘驱动器的列表框
B．驱动器列表框的Drive属性只能在运行时被设置
C．从驱动器列表框中选择驱动器能自动地变更系统当前
程序既能以编译方式执行，也能以解释方式执行
程序运行后，在内存中只能驻留一个窗体
对于事件驱动型应用程序，每次运行时的 C)
D)0 语句是____。
A)Select Case a
B)Select Case a
Print &*& Print &*&
话框是模式(模态)对话框
B)执行MsgBox()函数弹出的对话框是无模式(非模态)对话框
C)调用MsgBox()函数，若缺省[，Buttons]参
的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
For l=1 To k+1
A(X)=A(X)+A(X-1)
If k&n-1 Then Exit For
Print A(X)；
For I=1 To 5
c=c+Left(a，I)+Right(b，I)
Print c
运行后输出的结果是____。
A)alb2c3d4e5
B)la2b3c4de5
B．通用过程
C．添加窗体
D．添加模块 I=2
If A&80 Then I=3
If A&90 Then I=4
Print&I=&；I
B．I=2 C．I=3 D．I=4 一选择
C．多项选择 D．选择一次 ByVM B．ByRef
D．Reference =Mid(A，I，I)
Y=Left(A，I)
Z=Right(A，I)
C．BBABBA D．&广州& 1 To X
FOr Z=Y TO 3
Print S；T；U
6 14作步骤。
A. 在&工具&菜单中选取&选项&命令，打开&选项&对话框，单击&编辑器&选项卡，选中&要求变量声明&选项
B．在&编辑
C)Removeitem
D)Move边框
B)单击该控件的内部
C)双击该控件
D)双击窗体
tFocus方法
D)使用键盘上的方向键
再从“工程”下拉菜单中选择“添加文件”命令
B)向工程添加文件，应先从“工程”下拉菜单中选择文件名
C)从工程中删除文件 和Height
C)Top或Left
D)Top和Left
对象的模块化 D)程序的模块化 头”
C)Ctrl+“方向箭头”
D)空格键+“方向箭头”
在多窗体程序中，每个窗体都可以建立自己的菜单系统
除分隔线外，所有菜单项都能接收Click事件
如果把一个菜单项的Enabled属 C)
/Private）都可以放到窗体的通用部分定义
所有变量（Public/Global/Static/Private）都可以放到标准模块中定义
Public/ B． C． .Text)&10 Then
Textl.Multiline=True
End Sub
B)Private Sub Forml_Click()
If Len(Textl.Text)&100 Then
B)对象链接与嵌人
C)动态链接库
D)以上三项都是 _Load()
C)Form_Unload()
D)Form_Click()
Dim Arrl(12)，Arr2(4)AsInteger
For i=1 To 12
Forj=1 T04
Arr2(j)=Arr1(3*j)
，k)=(j―1)*3+k
For j=2 To 3
For k=2 To 3
Print arr(k，j)；
)Option Base 0 B)Option Explicit
C)Option Base l
D)Option Compare ext I
FOr I=1 To K
For J=1 To K
M(J)=M(1)+1
Print M(K)；
2 2 3 B )1
D)3 C)Sorted D)Alignment BackColor B)BorderStyle
C)ForeColor
D)BackStyle 的项的总数
C)列表框获取Tab焦点的序号
D)无此属性
24 置，也可以以程序代码的方式设置
B)在属性窗口中设置的属性是在设计阶段完成的，因而这些属性值不能改变
C)在程序中通过编
是字符End，则程序输出的内容是_____
nu=InputBox(&au=&)
n$=Str$(nu)
p=InStr(n$，&.&)
If p&0 Then
Print Mid$
C．BackStyle D．Border ltiSelect属性设置为____。
C)执行Ctrl+C后，再执行Ctrl+V
D)执行Ctrl+V后，再执行Ctrl+C
对话框，而执行MsgBox语句不会显示对话框
B)执行MsgBox函数显示的对话框是模式的，而执行MsgBox语句显示的对话框是非
式的
)If x=y Then z=x：z=y
B)If x&=y Then z=x Else z=y
C)z=y：If x&=y Then z=x
D)If x&=y Then z=y Else z=x
a=InputBox(&输入a的值&)
b=InputBox(&输入b的值&)
程序运行后 ，应使用的循环语句为
For I=0 To List1.ListCount-1
?
For I=0 To ListCount-1
?
For I=1 To List1.listCou A)
C) )Str(x)与Val(x)
C)Ltrim(x)与Rtrim(x)
D)Timer(x)与Time(x)
Null D)出错信息 党/团/群众)及选课情况(共有5门课，可任选)，下列设置方法正确的是____。
A)将5门课程用一组5个选择框来表示，将性别和政治面貌
程序设计 B)程序开发环境
C)事件驱动编程机制
D)程序调试技术 本框获得焦点
C)设置文本框的焦点
D)改变文本框的内容
.Caption=Forml.Name
C)Forml.Enabled=&True&
D)Forml.BorderStyle=6 TO 4
A(I，9)=I*J
For N=1 TO 2
For M=1 TO 3
Print A(M，N)；
m1消失，但仍在内存中
B)窗体的Load事件在加载窗体时发生
C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都
b Form_Load()
Print &程序开始运行!&
B)Private Sub Form_Load()
Labell.Caption=&程序开 te Sub Commandl_Click()
Picture1.Picture=LoadPicture(&c:\1.jpg&)
Picture1.Cls
Picture1.Print &Test&
D)不确定 () B．Private Sub Command1_Click()
Sum = 0 Sum = 0,I=1
I = 1 To 10 For ))
B)6 C)4 D)3 Text2.Visible
B)Textl.Text=Textl.Name+Chr(13)+a$
C)b=Text2.Text
D)Labell.Fontsize=a$
A)AutoSize属性 B)Resize事件
C)AutoRedraw属性
D)Stretch方法 ic D)Public 存到X+1中去
C)将变量X的值加1后赋给变量X
D)变量X的值为1
，依次在输入对话框中输入5，4，3，2，1，
-1，输出结果为
Private Sub Commandl_Click()
DO Until x=-1
lc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是
变量X、Y的作用域相同
) Y的作用域是Model A)
数相隔4个字符显示在一行上,例如:产生345,输出345,543
Private Sub Form_Click()
Dim a As Integer，s As String，b AS Integer
B)x=Listeount
C)x=Listl.ListIndex
D)x=ListIndex
Print K；X
6 B．-1 16 C．1 6 D．11 31 100：
k=k+l
k=k+l
s=s+k
k&10 Then GoTo Start If
If k&10 Then GoTo int c$
End
运行后，输出结果是____。
D)ina 输出的结果是____。
B)GREAT C)Hebei D)显示出错信息 起注释作用，客观存在不被解释和编译
B)注释语句可以放在代码中的任何位置
C)注释语句不能放在代码中的任何位置
，Shift As Integer，X As Single，Y As Single)
If Shift=6 And Button=2 Then
Print &Hello&
B)Commandl.Vaule=True
C)Commandl.Enabled=False
D)Connnandl.Enabled=Tiue
取值5到10，或取值大于20时，输出一串&*&；x取其他值时，输出一串&#&。X为整型数据。
Select Case x
While A&10
Print A；B
C．0 1 D．10 30 on Base 1
Private Sub Commandl_Click( )
Dim For For a(I,j) = (I-1)*3+j
I = Next For 数相隔4个字符显示在一行上,例如:产生345,输出345,543
Private Sub Form_Click()
Dim a As Integer，s As String，b AS Integ
A)两条相互平行的直线
B)两条分离的斜线
C)两条交叉的斜线
D)一条斜线 ng
Stu As Student
End Dim With .Name = &张红&
.Sex = &女&
行Print Stu.Age后的结果是（ ） End 执 写如下事件过程
Private Sub Command1_Click()
Text1.Text = &Visual&
Me.Text1 = &Basic&
Text1 = &Program&
作用完全相同
B)格式符“.”与格式符“#”与“0”结合使用，用于确定输出数据的小数点位置
C)若Format$函数中使用“%”或“$”格 ing
Age As Integer
则能正确引用该记录类型变量的代码是____。
A)Student.name=&&
B)Dim s As Student
) B．b=Mid(a，8，5)
C. b=Right(a，5，5)
D．b=Left(a，8，5) 是一组可以由用户定义的数据 B)属性名称是由用户定义确定的
C)属性用来描述对象的性质
D)同一种类型的对象具有相同的属性 写如下程序：
Private Sub Commandl_Click()
Dim x，y，z As Integer
Text1.Text=''''
C．全局数组 D．全局用户自定义类型 ，
Shift As Integer，X As Single，Y As Single)
If(Button And 3)=3 Then
Print &Hello&
Else Print x-1
B．0 C．-1 D．不确定 N-1
For L=1 TO K+1
A(X)=A(X)+A(X-1)
If K&N-1 Then Exit For
Print A(X)；
B．随机文件由若干条记录组成，并按记录号引用各个记录
C．可以按任意顺序访问随机文件中的数据
D．可以同时 s Integer，c As Integer
Private Sub Commandl_Click()
a=2：b=4：c=16
Call Procl(a，b)
Print&a=&；a；&b=&；b；
D)False 体模块、标准模块、类模块
C)标准模块、类模块、过程模块
D)窗体模块、过程模块、函数模块
C)PasswordChar
可以任意改变
B)工具栏一定在菜单栏的下方
C)工具栏可以显示或隐藏
D)Visual Basic有多个工具栏
B)Space函数既可以用于Print方法中，也能用于表达式
C)Spt函数与Space函数均生成空格，没有区别
D)以上说法都不正确
D)SelStart
A)Move B)Change
C)Scroll D)Setfocus
B)工程文件、ActiveX控件的文件、资源文件
C)工程文件、类模块文件、标准模块文件
D)工程文件、窗体文件、窗体的二进制
9-t)^(2/3))/(A*B)
B)(Sin(3.14159-t)^(2/3))/A*B
C)Sin(3.14159-t)，(2/3)/(A*B)
D)(Sin(π -t)^(2/3))/(A*B)
ame属性为Command1），然后编写如下两个事件过程：
Private Sub Command1_Click()
= Ucase$(Text1.Text) + Left$(Text2.Text， a 若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列正确实现上述功能的程序是____。
A)Private Var=&True& B)boolVar=.True.
C)boolVar=#True#
D)boolVar=3&4 的属性，预先应执行的操作是____。
A)单击窗体上没有控件的地方
B)单击任一个控件
C)不执行任何操作
D)双击窗体的标
中只能存放同类型的数据
B)Visual Basic的数组，维的界只能从0开始或从1开始
C)用Option Base n语句指定数组下标的默认下界
行上面的三重循环后，a 的值为 。
3 B) 9 C) 14 D) 21 Next 执 A) Click()
HScroll1.LargeChange=5
A)将滚动条的最大值设为5
B)将滚动条的最大改变值改变5
C)将滚动条的最
111 D)&017 B)style
C)DownPicture
D)DisabledPicture。
A)Left
B)Top
C)Width
D)Height 属性是____
A)Name与Caption
B)Enabled与Visible
C)Style与BorderStyle
D)Cancel与Default
D)14 ,不能共同使用同一个终端语句
B)任何一种循环都必须有起始语句和终端语句
C)不能用While?Wend语句设计出确定循环次数的循环
st1.List(ListCount-1)
C)List1.Listindex
D)List1.list(ListIndex)
s Integer)
= Array(237,126,87,48,498)
KeyAscii = 13 Then
a(I)&ml Then
a m1 m2 If For If m1 m ___。
A)AutoSize
C)AutoRedraw
D)Appearance
C)1 D)其他 st1.List(1)=&List&
C)List1.List(2)=List1.ListCount
D)L1stl.List(2)=str(List1.ListCount)
体事件和其中所有控件事件的代码都放在窗体文件中
窗体的名字和存盘的窗体文件名必须相同
开始运行时窗体的位置只能是设 C． D． 下能实现该操作的事件过程是
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii & 65 Or KeyAscii & 90 Then
or k：1 To n
p$=Mid(x，k，1)
If p$=&(& Then
Elself p$=&)& Then
If m&0 Then
2&1 And 3&2
C) 1&2 or 2&3
D) Not(1&2)
Private Sub______()
Static Intleft As Integer
Intleft=Intleft+100
Form1.Left=Intleft
D)GetFocus 书写，可以在行末使用续行字符____，表示下一行是当前行的继续。
A)一个空格加一个划字符( _)
B)一个划字符(_)
End Private Sub Commandl_Click ()
a As Integer
Dim a For Print F(a)
行上面 End 运 extl中输入的不是这个区间上的数值，光标不能移出Textl，要重新输入正确的数据后方可继续执行别的操作。下列程序段正确的是____ 当前文件夹下名为StuData．dat的文件的内容读人内存
B．在C盘当前文件夹下建立名为StuData.dat的顺序文件
C．将内存数据存
B)2 C)3 D)4 ate Sub Form_Load()
Text1.Text=&&
Text1.SetFocus
For I=l To lO
Text1.Text：Sum
D．ListlndexSub Commandl_Click()
= Array(1,2,3,4)
I = 4 To Step -1
= s + a(I)*j
Dim a j For s j Next I
Sub End 写如下事件过程：
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim I As Integer, j As Integer
第1个字符串中起始位置的函数是_____
A)Left
B)Mid C)String D)Instr )#05/08/1995#+#01/07/1995# 属性值设置为____。
D)5000)a=5：b=8
Loop While a&b
Loop Un on Explicit
C)Type Student
D)DefVar X-Z rivate Sub Commandl_Click()
X=InputBox(&请输入x的值&)
y=InputBox(&请输入y的值&)
If x&y Then s=y
多文档界面（MDI）是指在一个父窗口下面可以同时打开多个子窗口
子窗口归属于父窗口
如果父窗口关闭，则所有子窗口 B． C． 命令打开菜单编辑器
B．只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
C．只有当代码窗口为当前活动窗口时，才有打开菜
键盘上输人数值10，并按回车键，则下列叙述中正确的是____
A)变量X的值是数值10
B)在InputBox对话框标题栏中显示的是&示例
句是____。
A)Listl.AddItem A$
B)Listl.AddItem &A$&
C)Listl.AddItem A$，0
D)AddItem A$ 0
C)Z=X：X=Y：Y=Z
D)Z=X：W=Y：Y=Z：X=Y o 3
y=10
For k3=0 To 2
y=y+10
Next k3
Next k2
Next k1
Print y
A)90
B)60 C)40 D)10 按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim x As Integer，n As Integer
一部分 B)方法是预先规定好的操作
C)方法是对事件的响应
D)方法用于完成某些特定功能 on B)Text
D)AutoSize A)控件工具 B)自定义对象
C)标准对象
C)[-4,15]
D)[-5,15]
C)变体 D)数值或字符串(视输入的数据而定) xs%；zxs
运行后，输出结果是____。
A)232 232032
B)232 232
C)232.32 232.32
D)显示出错信息 For I=1 To 5
X$=A$：Y$=Space$(n)
Mid$(X$,I+1,n)=Y$
D)显示出错信息后的输出结果为____。
Private Sub Commandl_Click()
Dim A As Integer，B As Integer
Text1.SelStart=2
将其Style属性设置为( )
B．1 C．2 D．3 然后再将ScrollBar属性设置为：( )
B．1 C．2 D．3 lse Y=X+3
Print X-Y；Y-X
3 B．5 -8 C．3 -3 D．25 -25 i
For i=1 TO k
For j=1 Tok
M(j)=M(i)+1
Print M(k)；
B)1 2 3 4 Commandl_Click()
Dim Arr(3，3)
For i=0 To 3
For j=0 To 3
Arr(i，j)=i+j
For m=2 TO 3
过程中 B．窗体模块的通用声明段
C．标准模块的通用声明段
D．窗体模块或标准模块的通用声明段 *10 B．Int(N/10)-Int(N/100)
C．N-Int(N/100)*100
D．Int(N-Int(N/100)*100) 23456 B．123445 C．8 D．6 的局部变量都是Static类型
B．Sub过程中不能嵌套定义Sub过程
C．Sub过程中可以嵌套调用Sub过程
D．事件过程可以像
X(1，J)=X(I-1，J-1)+I+J
Print X(3,4)
B．12 C．15 D．18cus B)LostFocus
C)KeyPress
D)SetFocus 属性设置为True，这个属性是 。 A) Value B) Default C) Cancel D) Enabled
C)专业版 D)企业版编辑器&按钮 C）执行&工具&菜单中的&菜单编辑器&命令 D）按Shift + Alt + M
C)事件驱动 D)过程结构化 orm_Load()
List1.AddItem &Beijing&
List1.AddItem &Tianjin&
List1.AddItem &Shanghai&
Textl.Text=& &
对象功能的内部函数或过程。
B)属性 C)方法 D)窗体 入的字符仍然显示出来，而不显示星号，原因可能是________：
A)文本框的Multiline属性值为True
B)文本框的Locked属性值
= Chr(13) + Chr(10) msg$ = &1．运行VB应用程序& + nl + &3．计算器& msg$= msg$ + nl + &请输入数字选择& retnum = Inp l
B)Private Sub Command_Click()
Dim x As Integer
B)### C)#D)3#
Text2.Width=Textl.Text
x=Textl.Text+Textl.Text
2# ## ## 2#
3# #b) Or (b&0)
C)(a&0) Eqv (b&0)
D)(-3+5&a) And (b&0)
D)Print A&=B
ElseIf x&b Then Print &x&b&
Print &x&a&
Else Print &x&=a，x&=b&
ElseIf x&b Then
For J=1 To 5
Print &A(5)=&；A(5)
B．A(5 Const D)X1_y2_z3 下方式中，不能启动Visual Basic的是____。
A)通过“开始”菜单中的“程序”命令
B)通过“我的电脑”找到vb6．Exe，双击
B．ActiveX
C．可插入控件
D．外部控件 的属性是
TabStop A)
Visible C)
D)TabIndex te Sub Command1_Click()
Print Format$(a, &000.00&)
Sub
序运行后，单击命令按钮，窗体上显示的是
B)TextBox和DriveListBox
C)ComboBox和CheckBox
D)FileListBox和DirListBox
B)面向图形对象
C)VB窗口中包含有菜单栏和工具栏 D)事件驱动编程机制
A(1，9)=I*J
Print A(2，5)+A(3，4)+A(4，5)
B．42 C．32 D．52
C)&Januaryl0，1997&
D)&Januaryl0，1997&
ze D)Alignment 文本框中没有内容
B)文本框的MultiLine属性值为False
C)文本框的MultiLine属性值为Ture
D)文本框的Locked属性值为T
Click() For I=1 To 4 x=4 For j =1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next I Print x End Sub 程序运行后，单击
B)方法指示对象的行为
C)事件是能够被对象识别的动作
D)Visual Basic程序的运行机制是“面向对象”
For m=10 To k Step -2
Loop While Abs(m+n)&&27
序数相隔4个字符显示在一行上,例如:产生345,输出345,543
Private Sub Form_Click()
Dim a As Integer，s As String，b AS
编写如下事件过程：
Private Sub Command1_Click()
n = Val(Text1.Text)
For I = 2 To n
For j = 2 To sqr( 必须相同
B)控件数组的每一个成员的Index属性值都必须相同
C)控件数组的每一个成员都执行同样的事件过程
er, _ Shift As Integer, X As Single Y As Single) If Button =2 Then Print &AAAAA& End If End Sub Private Sub Form _
Day before yesterday&，5)
将显示一个输入对话框，在对话框的输入区中显示的信息是____。
B)Tomorrow
一个[1,10]之间的随机整数
C)产生一个(-1,1)之间的随机小数
D)产生新的随机整数。
行时，总是等待事件被触发
B)Visual Basic程序设计的核心是编写事件过程的程序代码
C)Visual Basic程序是以线性方式顺
m_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ?? End Sub B．Private Sub Form_MouseU
要求每一秒钟在文本框中显示一次当前的时间。程序为：
Privme SubTimerl_ ________()
TxtTime.Text=Time
End Sub
A)E
，需要把该命令按钮的一个属性设置为Ture，这个属性是____。
D)Enabled od y
Sub
窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click ( )
a As Single
b As Single
C)Log(x)/Log(e)
D)Log(x)／Log(10)
果为____。
Private Sub Commandl_Click()
Listl．AddItem &China&
Listl．AddItem &Great&
Listl．AddItem &Is&，1
C)立即窗口
D)窗体窗口)MaxButton D)ControlBox )对象名.事件名 D)对象名.函数名 (-3.5)+0.5
C)-Abs(-3.5)
D)Sin(30*3.14/180)
写如下事件过程：
Private Sub Commandl_Click()
Dim I As Integer，n As Integer
For j=0 To 50
用来输入要添加到列表框中的项目的内容。程序运行后，单击命令按钮，会将文本框中的内容放人列表框中。程序如下：
Private Su
orm.Line(a,b)-(c,d),,BF
End Sub
单击窗体后，窗体上显示的是____。
A)一条直线
B)一个矩形空框
C)一个填充了颜色的矩形
名的长度不超过255个字符
C．变量名可以包含小数点或者内嵌的类型声明字符
D．变量名不能使用关键字
一个窗体文件中用Private定义的通用过程能被其他窗体调用
C．在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类
B)货币型数据与浮点型数据完全一样
C)货币型数据是由数字和小数点组成的字符串
D)货币型数据是小数点位置固定的
型没有关系
在函数过程中，过程的返回值可以有多个
当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
)单精度型 D)双精度型 个属性设
为True，这个属性是________
A)Value 置
D)Enabl Text+&Text&
C)Label1.Caption+Label1.Caption
D)Labell.Name+Labell.Visible
PrintTab(Y+5)；”*”；
A) * * * * *
B)* * * * *
* * * * * * * *
al Basic与Basic的编程机制不同
C)Visual Basic是过程设计语言
D)Visual Basic与Basic两者之间没有什么联系
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)
cture1.Picture=&mypic.jpg&
B)Picture1.Image=&mypic.jpg&
C)Picture1.Picture=LoadPicture(&mypic.jpg&)
D)LoadPict
，Private，Static或Public来声明变量的类型
B)用类型说明符标记变量类型，类型说明符有：％，&，!，#，@，$
C)用Defrype
Print Tab(10-k)
For m=1 To 2*k-1
Print &%&；
%%% %%% 源程序
C)运行程序 D)打开程序 求平均值
B)将一个实数四舍五人取整数
C)求绝对值
D)舍去一个实数的小数部分
e Sub Command_Click() B)Private Sub Command_Click()
x=Textl.Text
Commandl.Caption=Textl.Text
nt Space(5-A)；String(A，&* &)
* * * * * *
择的当前驱动器的不同而同时发生变化，则应____
A. 在Dir1中的Change事件中，书写语句Dir1．Drive=Drive1．Drive
B．在Dir1中的
A．Text属性值为* B．Caption属性值为*
C．Password属性值为空
D．PasswordChar属性值为*
B．局部变量的作用域可以超出所定义的过程
C．在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但 b Procl(ByVal n，ByVal m)
B．Sub Procl(n，ByValm)
C. Sub Procl(n，m)
D．Sub Procl(ByVal n，m) Y=-1
Print Y-X&0
B．False C．-1 D．1
C．VISUAL D．BASIC 序执行
B．顺序文件结构简单
C．能同时对顺序文件进行读写操作
D.顺序文件的数据是以字符(ASCII码)的形式存储的
“打开工程”按钮 Style属性设置为1，BorderStyle属性设置为0
D)将其Backstyle属性设置为1，Borderstyle属性设置为1
D)执行完一个程序段的所有语句后程序自动关闭文件se语句可关闭所有文件
义后，系统将变体变量初始化为数值0或空字符串
D)设X为变体变量，且X=&10&，则X=X+20是正确的语句
Dim rec As animal
Open &c:\vbTest.dat& For Random As命令按钮，然后编写如下事件过程:
Private Sub Command1_Click()
Style属性设置为1-5
把窗体的ControlBox 属性设置为False,同时把BoderStyle属性调协为非0值
把窗体的ControlBox 属性设置为 C)
k=k+p(I)*2
33 B) 28 C) 35 D) 37 End A)程，则程序将首先执行该过程
如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体 D)
C)在同一个程序中，可以多次使用Static或ReDim语句，对同一个数组重新定义
D)用ReDim语句对同一数组重新定义时，既
光标置于文本框上，但是不能改变文本框中的内容
C)文本框中的文本将变成灰色，用户仍然能改变文本框中的内容
D)文本框的文
D)a=Array(1，2，3，4，5，6)
程序的功能是求数组a的最小元素值，并把最小值放在文本框中。为实现程序的功能，省略号处的程序段应该是（ ）
此 A．Min = aPrint
程序运行后，如果单击命令按钮，则在窗体上显示的内容是____。
B)A C)B D Y!
C)Flying IS FUNNY!
D)FLYING IS FUNNY!
List.AddItem &456&
Text1.Text=& &
Private Sub Command1_Click()
List.Listindex=3
tch属性值设置为False D)leleleleleB)alb2c34dSe
C)eld2c3b4a5
面、编写代码、调试程序认字体)
人民(默认字体) 人民(仿宋)
I = 4 To 1 Step -1
s = s + a(I) * j
Print x Print x
End Select
万岁!(默认字体) 万岁!(宋体)
C)中国(默认字体)
D)中国隶书(默认字 j = j * 10
Sub
行上面的程序，单击命令按钮，
End Select
C)Select Case x D)Select x
Case x is&10
Case is&10B)5 4 3 2 1 0
C)出现语法错误的信息
个同心不相交圆
D)两个同心不相交圆
D)陷入死循环,####.##&)
C)PrintFormat$(x，&，######.##&) D)PrintFormat$(x，&######,.##&)Mid(aS，1，8)
MsgBox aS，，b$，c$，1
则在弹出信息框的标题栏中显示的信息是____。
A)software and hard
A=Text1.Text+Text2.Text
PrivateSubForm_Load()
Text1.Text=&&
Text2.Text}
&镇匪充当村霸保护伞职务犯罪
& & &
&诉求上级政府从严查办
& & &
& & &
举报人：浙江省江山市贺村镇河东村村民
& & &
被举报人：中共江山市市委常委.贺村镇党委书记何日根
& & &
被举报人：中共江山市贺村镇纪委书记赵建华
& & &
被举报人：江山市贺村镇河东村村主任王阳军
& & &
&举报事项及主要诉求
举报人多年来反复举报投诉被举报人王阳军利用职务之便，大肆违法乱纪，贪污腐败的大量事实。被举报人何日根、赵建华二镇匪充当王阳军这个村霸保护伞的职务犯罪，诉求上级纪检监察机关依法从严查办。
主要事实如下
一、特别值得一提的是：贺村镇贺新路坝贺溪淤路段长450米，宽60米，原土地权属河东村湖边自然村，路段下面全部是优质建筑用沙，深度达7-10米。被举报人王阳军对此大为眼红，特别聘请贺村镇丰益村村主任王建青担认，由王阳军主谋和江山市经济开发区原中部开发办主任朱水光三人很伙，于2012年未通过公开招投标的合法程序，非法利用联盟合伙开发沙场，其挖沙大型机械设施由王阳军用自己的铲车，挖机操作施工，出售的沙石料由王阳军一手掌控，挖掘出售沙石料300多万方，非法所得多达200多万元。回填经费达100多万元，全部由中部开发区承担。
二、2017年王阳军利用非法违法手段当上河东村村主任后，湖边自然村新农房改造填路工程。王阳军利用村主任权力未公开招投标，用自己的挖机自己施工，严重违反村干部不得参与工程招投标施工承包的法律规定，工程款达20万元。这笔20万的过程款怎么算，怎么领，权由王阳军这个大村霸说了算，村民反应十分强烈。
三、在举报人投诉举报王阳军严重问题未的到处理的情况下，由于王阳军得到了何日根.赵建华的纵容庇护下而更加肆无忌，胆大妄为，无法无天，王阳军趁农村赤膊墙改造之机，未通过党员首义，村民代表决议，未通过公开招投标的合法程序，私自将河东村10多万元赤膊墙改造工程非法给他人承包施工，王阳军从中得取好处费。
对于王阳军时任河东村村委委员和湖边自然村片长职务之便，以权谋私的违法乱纪贪污腐败行为，河东村村民曾反复多次向贺村镇纪委举报，但身为中共贺村镇纪委书记的赵建华，在收受王阳军的巨额贿赂后，采取推诿敷衍，拖延踢皮球的手段，使出浑身解数为为阳军包庇纵容，充当村霸王阳军的保护伞，致使王阳军的这一严重违法乱纪贪污腐败行为至今未的到法律的严惩。
控告人：江山市贺村镇河东村村民
姓名 身份证号码 联系电话
王江宙
戴小安
戴增明
王成 & & &
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
下载作业帮安装包
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
vfp6函数ROUND(,-2)的值是?计算过程是什么?
作业帮用户
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
ROUND(,-2)＝123500－2表示对小数点前第二位去四舍五入,也就是把5进位,把前面的4变成5,后面的所有位数变成0.ROUND(,-3)＝123000
为您推荐：
其他类似问题
扫描下载二维码为什么算出来的结果是.000000？_百度知道
为什么算出来的结果是.000000？
因是初学所以不太明白，在turbo 2.0 里运算：main(){
float a,b;
printf(&%f\n&,a);
printf(&%f\n&,b);}结果，a,b都等于.000000，原因何在？
不明白的是，a不是等于X10的5次方吗?也就是，那最后的52上哪里去了？
我有更好的答案
float型的有效数字是6位数,后面的数字不确定。如果需要更精确，使用16位有效数字的double。 double a,b;
printf(&%lf\n&,a);
printf(&%lf\n&,b);
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。当前位置： >>
电脑知识总试题库
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 1 2 3 4 5 6 7 8 9 10下列不是Visual Basic 6．0中打开工程的方法为____。
A)按Alt+O组合键
B)执行“文件”菜单中的“ 要使一个标签透明且不具有边框，则应____。
A)将其BackStyle属性设置为0，BorderStyle属性设置为0
为了描述x&y和y&z同时成立，则下述选项中，正确的是____。
A)x&y .And. Y&z
C)x&y And &
下面4个叙述中，____是不正确的。
A)在一个程序执行End语句后，系统自动将所有打开的文件关闭
下列可以打开立即窗口的操作是____
A) B) Ctrl+E
C) D) Ctrl+G 列表框中的列表框的数目可通过以下____属性的值获得。
B)ListCoum
C)Listlndex
D Visual Basic规定工程文件的扩展名是____。
C)．vbp D)．bas 关于变体变量，下列说法正确的是____。
A)变量未加定义而直接使用，该变量即为变体变量，因而变体变量是
以下不是Visual Basic的特点的选项是____。
A)可视编程
B)算法设计
C)事件驱动
D)面向对象 假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：
Private Type animal
AnimalName As String*
下列语句正确的是 。
A)If X&3*Y And X&Y Then Y=X^3
B)If X&3*Y And /X&Y Then Y=X3
下列对象表达式中，错误的是____。
A)Labell.Visible And Label2.Visible
B)Labell.Enabled+Textl.E
为了在运行时能显示窗体左上角的控制框（系统菜单），必须 。
把窗体的Contro1Box 属性设置为Fal A)
如果在列表框中每次只能选择一个列表项，则应将其Multiselect属性设置为____。
D 设有数组定义：Dima(5 To 15)和赋值语句k=4。下列数组引用错误的是 。
以下程序的输出结果是
Option Base 1
Private Sub Command1_Click()
a(10),p(3) As Integer
I Dim k=5 For 表达式Sb(Len(&123&))+Str(77.7)的值是____。
D)12377.7 许多常用控件都有Value属性，Value属性的作用是____。
A)确定控件的属性
B)确定控件的位置
下列不能打开属性窗口的操作是____。
A)执行“视图”菜单中的“属性窗口”命令
以下不具有Picture属性的对象是____。
D)文本框 表达式X=sqr(a^2-5)+sqr(b^2-5)的类型是____
A)算术表达式
B)逻辑表达式
C)关系表达式
D)字符表达式
在以下描述中正确的是
标准模块中的任何过程都可以在整个工程范围内被调用
在一个窗体模块中可以调用在 A)
下列关于数组的叙述中，正确的是 。
A)动态数组和静态数组都是在编译阶段分配存储空间
B)静态数组
下述程序段运行时的显示结果为____。
Print Len(x)
D)非法使用
表达式(-1) Sgn(-100+Int(Rnd*100))的值是( )
C.-1 D.随机数 要获得当前驱动器，应使用驱动器列表框的____属性；
D)Pattern 名称____表示变体类型数据。
B)Currency
D)Variant 如果文本框的Enabled属性被设置为False，则运行时____。
A)文本框中的文本将变成灰色，并且此时用户不能
设有数组定义语句：Dim a(5)As Integer，Listl为列表框控件。下列给数组元素赋值的语句，错误的是____.
有如下程序：
m$=”ABC”
n$=”abC”
k$=Lcase$(mS)
j$=Ucase$(n$)
Print Asc(k$+j$)
在窗体中添加一个命令按钮Command1和一个文本框Text1，并有以下程序：
Private Sub Command1_Click()
Stat 下列语句中正确的是____。
A)txtl.Text+txt2.Text=txt3.Text
B)Commandl.Name=cmdOK
C)12Label.C
在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
有如下程序：
a$=&Flying&：b$=&IS&：c$=&funny!&
Print a$+& &+Lcase$(b$)+& &+Ucase$(c$)
在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程：
Private Sub Form_Load()
在表示长整数时，可作为长整数尾部符号的是____。
D)$ 为使图像框的大小自动适应图像的大小，则应____。
A)将其AutoSize属性值设置为True
B)将其AutoSize属
执行语句s=Len(Mid(&VisualBasic&,1,6))后，s的值是
A) B) Basic
C) D) 11 有如下程序：
a$=&123456&：b$=&abode&
For j=1 To 5
C$=c$+Lefts(a$,1)+Right$(b$,1)
可视化编程的基本过程主要有3步，这3个步骤是____。
A)创建工程、设计界面、编写代码
B)创建工程、编
下列能使x为数值型数据的语句是____。
A)X=InputBox(&请输人数据&)
B)X=Labell.Caption
有如下程序：
DefStr X-Z
运行后，输出结果是
刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是____。
A)单选按钮
运行以下程序后，输出的结果是____。
Print &中国&
Font=&隶书&
Print &人民&
Font=&仿宋&
在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:
Option Base 1
Private Sub Command1_
下列多分支选择结构语句正确的是____。
A)Select Case x B)Select x
Case 10，20 30
Case 10 To 30 以下控件中可以作为容器控件的是（ ）
A．Image图像框控件 B．PictureBox图片框控件
C．Te 程序执行时，单击窗体后输出结果是____。
Private Sub Form_Click()
Dim x As Integer
x=5
DO
有如下程序：
For r=35 To 85 Step 25
Circle(300,240),r
单击窗体后，窗
以下语句的输出结果是 。
Print Format $(0,000.00&)
32548.5 A) B) 32,548.5
C) 已执行语句x=9，输出x值时要求加千位分隔符，小数点后取2位有效数字。下列格式输出语句正确的是 Visual Basic布尔运算符Xor，Or，Eqv，And中，级别最高的运算符是――。
D) 在窗体上面一个命令按钮，名称为Commandl，单击命令按钮时，执行如下事件过程：
Private Sub Commandl_
在窗体(Name属性为Forml)上面两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command 下面叙述中不正确的是( )
A.若使用Write #语句将数据输出到文件，则各数据项之间自动插入逗号，并 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20Visual Basic 6．0集成环境的主窗口中不包括____。
B)菜单栏 C)状态栏 D)工具栏 关于语句If x=1 Then y=1，下列说法正确的是____。
A)x=l和y=l均为赋值语句
B)x=1和y=1均为关系表达
以下关于图片框控件的说法中，错误的是
可以通过Print方法在图片框中输出文本
清空图片框控件中图形的 A)
与y=IIf(x&0,1,IIF(x&0,-1,0))语句功能相同的if选择结构语句是____。
A)if x&0 Then B)if x Then
为程序的空白行选择适当的语句，使程序段完成相应计算。
序段的功能是：当x&10时，y=x2；当0≤x≤10时，y 程
假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为 。
Label1. Ba A) 下面Change事件过程中，文本框控件Textl用来接收字符的输入，该事件过程的作用是____。
Private Sub Text
下面叙述中正确的是( )
A. 可以使用FileSystemObject 对象的OpenTextFile 方法打开文件，但不能创建
以下关于控件的叙述中，错误的是（ ）
VB允许用户乱设计并使用控件
主窗体中工具条中的工具不是工 A． B． 下述程序段中，与其他3个程序段作用不同的是____
语句Print &Int(-13.2)=&；Int(-13.2)的输出结果为____。
A)Int(-13.2)=-13.2
B)Int(-13.2)=13.2
Option Explicit语句不可以放在( )
A. 窗体模块的声明段中
B．标准模块的声明段中
C．类模块的声
执行x$=InputBox(“请输入x的值”)时，在弹出的对话框中输入123，在列表框Lisfl选中第1个列表项(数据为456 下列语句错误的是____。
A)Exit For
B)Exit While
D)Exit Sub 下列循环控制结构出现错误的是____。
A)For I=1 to 100 B)While I&100
阅读下列事件过程，
Private Sub Commandl_Click()
x=InputBox(&请输入X的值：&)
y=Text.Text
如果将布尔常量值True赋值给一个整型变量，则整型变量的值为____。
D)Fal 如果模块定义为：
DetStr C-F
则以下程序语句：
Print d+f$
运行后输出
在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As
改变驱动器列表框的Drive属性值将激活( )事件。
A．Change B．Scroll
C．KeyDown D 下面程序段的功能是( )
Dim X As New FileSystemObject
For Each Mydri in X.Drives
要想改变一个窗体的标题内容，则应设置以下哪个属性的值( )
B．FontName C．Caption 下列程序段的执行结果为( )
For I=1 To 3
1 在程序代码中清除图片框Picture1中的图形的正确语句是( )
Picture1．picture=&&
B．Picture1．picture 单击命令按钮时，下列程序代码的执行结果为( )
Private Sub Commandl_Click()
Print MyFunc(24，
要将一个组合框设置为简单组合框(Simple Combo)，则应将其Style属性设置为____。
下列不是Visual Basic文件的是____。
A)*.frm文件
B)*.bas文件
C)*.cls文件
D)*.txt文件 为了防止用户随意将焦点置于控件上，应该____
A)将控件的TabIndex属性设置为0
B)将控件的Tabstop属性
下列窗体属性属于字符类型的是____。
A)Name和Caption
B)MaxButton和MinButton
C)Visible和Enabl
&动态数据交换”的英文缩写是____。
B)DDE C)OLE D)DLL 如果Tab函数的参数小于1，则打印位置在第____列。
D)3 表示滚动条控件取值范围最大值的属性是____。
A)Max B)LargeChange
D)Max-Mi 在VisualBasic环境下，当写一个新的Visual Basic程序时，所做的第一件事是____。
A)编写代码
B) 以下不属于同类的是____。
A)Click
B)Name C)Caption D)Top 下列程序段的执行结果为____
Loop While a&10
Print a；b
下列既可用于输入数据又可用于输出数据的控件是____控件。
表达式25.28 Mod 6.99的值是 。
D)出错 给程序的空白行选择适当的语句。
程序段的功能是：依次自动将列表框List2中所有列表项目移人列表框List
在设计阶段，当双击窗体上的某个控件时，所打开的窗口是____。
A)工程资源管理器窗口
B)工具箱窗口
将Cos(y)四舍五入保留3位小数的表达式是____。
A)Int((Cos(Y)+0.5)*
B)Int(Cos(Y*1000))/
下列关于多行结构条件语句的说明，正确的是____。
A)多行结构条件语句中的ElseIf子句不能超过10条
B)多行
运行以下程序后，打印机上的输出结果是____。
For I=1 To 9
Printer.Print tab(I*I)，I
下列各控件不包含有滚动条的控件是____。
B)ComboBox
D)LabelBox 使用“上下文相关帮助”获取帮助信息的操作方法是____。
A)从“帮助”下拉菜单中选择“上下文相关帮助”命令
在Visual Basic中通过________属性来设置字体的颜色。
A)FontColor
B)ClipControl
C)BackColor
D) 设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用________属性。
A)ControlBox
B)ClipContro 在运行阶段，要在文本框Text1获得焦点时选中文本框中的所有内容，则对应的事件过程是____。
A)PrivateSubT 下列语句中错误的是____。
A)Text1.Text=List1.Text
B)Label1.Caption=List1.Text
C)List1.List(
一个工程必须包括的文件的类型是____。
A)*．Vbp，*．Frm，*．Frx
B)*．Vbp，*．Cls，*．Bas
以下叙述中错误的是( )
A. 在程序运行时，通用对话框控件是不可见的
B．在同一个程序中，用不同的
下列各组函数中，函数值类型相同的一组是____。
A)Exp(x)，Chr(x)，Lcase(x)
B)Asc(x)，Str(x)，Rtr
以下叙述中正确的是____
A)窗体的Name属性指定窗体的名称，用来标记一个窗体
B)窗体的Name属性的值是
Visual Basic应用程序的运行是____。
A)从一个建立的窗体模块开始执行
B)以最后建立的窗体模块结束
设有如下程序：
Private Static Function fac(n As Integer) As Integer
f As Integer
Dim f fac 阅读程序：
subP(b() As Integer)
Sub For b(I)=2*I
End Private Sub Commandl_Clic 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30在VB的基本数据类型中，通用类型(Variant)可以表示任何类型的变量，如果有定义Dim a，则以下变量赋值中正确 下列可用做输入数据的控件是____控件。
A)OptionButton和CheckBox
B)ListBox和ComboBox
在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：
a As Integer
test() Dim Sub 有关列表框的属性和方法的正确描述是（ ）
列表框的内容由属性Item Data来确定
当多选属性（Mult A． B． 在窗体上画两个单选按钮，名称分别为Optionl，Option2，标题分别为&宋体&和&黑体&；一个复选框，名称为Che 假设变量intVar是一个整型变量，则执行赋值语句intVar=&2&+3之后，变量
intVar的值是____。
为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为Tme，这个属性
在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如 当标签的标题内容太长，需要根据标题自动调整标签的大小时，应设置标签的______属性为True
A)AutoSize
在一个语句行内写多条语句时，语句之间应该用____分隔。
B)分号 C)顿号 D)冒号 执行以下程序段后，变量C$的值为 。
A$=&Visual Basic Programing&
B$=&Quick&
C$=B$ & Ucase
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Private Sub Commandl_Click()
函数Ucase(&basic&)的值为____。
D)BASIC 阅读程序：
subP(b() As Integer)
Sub
rivate Sub Commandl_Click()
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:
Private Sub Command1_Click()
下列程序段的功能是:给列表框List1加载如下项目:星期一、星期二、星期三、星期四、星期五、星期六和星期日 单击滚动条上的滚动箭头时，产生的事件是____。
D)Move 满足“当x的值是偶数时为真，奇数时为假”要求的表达式是____。
A)x Mod 2=0
B)Not x Mod 2&&0
语句Print &Sgn(-26)=&；Sgn(-26)的输出结果为____。
A)Sgn(-26)=26
B)Sgn(-26)=-26
C)Sgn(-26)=
在菜单设计时，在某菜单项（Caption）中一个字母前加以“&”符号的含义是（ ）
设置该菜单项的“访问 A． 要定义一个包含有36个元素的二维数组a，下列正确的方法是____。
A)Dim a(6，6)
B)Option Base l
TextBox控件的下列属性中，_____属性是只读属性。
A)ScrollBar
B)PasswordChar
下面是一个窗体的单击事件过程：
Privme Sub Form_Click()
If Commandl.Enabled Then
Label1.Cap
多分支选择结构中，Case子句的作用是说明____。
A)“Select Case&测试表达式&”语句中&测试表达式&的值域
二维数组a的成员是6个字符组成的串，行下标i的范围从0到8，列下标j的范围从1到10，则存放a至少需要_______ 在设计阶段，当双击窗体上的某一个文本框控件时，系统将在代码窗口中显示该文本框控件的____事件过程模板。 假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为 。
MenuItem. A) 下列数组定义语句错误的是 。
B)Const k％=10
Dim Arr(k)
Dim Arr(k)
下列四组控件属性中，属性值的类型不相同的一组是____。
A)Label控件的Enabled属性与TextBox控件的Enab
函数InStr(&Visual Basic程序设计教程&,&程序&)的值为____。
D)14 在列表框中当前被选中的列表项的序号是由下列____属性表示的。
C)ListIndex
设有如下变量声明：
Dim TestDate As Date
为变量TestDate正确赋值的表达方式是
下面叙述中不正确的是( )
A. 驱动器列表框是一种能显示系统中所有有效磁盘驱动器的列表框
以下叙述中错误的是
一个工程可以包括多种类型的文件
Visual Basic应用程序既能以编译方式执行，也能以 A)
表达式Abs(-5)+Len(&ABCDE&)的值是____。
D)0 若已执行定义语句：Dim a As Integer，b As Single，则合法的多分支选择结构语句是____。
A)Select Case
关于MsgBox()函数，下列说法正确的是____。
A)执行MsgBox()函数弹出的对话框是模式(模态)对话框
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function
下列程序段的执行结果为____
For k=0 To n-1
For l=1 To k+1
有如下程序：
Dim a As String，b As String
a=&12345&，b=&abcde&
For I=1 To 5
c=c+Left(a，
通用过程可以通过执行&工具&菜单中的( )命令来建立。
A. 添加过程
B．通用过程
C．添加窗体
下列程序的执行结果为( )
If A&60 Then I=1
If A&70 Then I=2
If A&80 Then I=3
VB提供的选择框（CheckBox）可具有的功能是（ ）
A．多重选择 B．单一选择
C．多项选择 在参数传递过程中，使用关键字( )来修饰参数，可以使之按值传递。
下列程序段的结果为( )
A=&ABBACDDCBA&
For I=6 To 2 Step -2
X=Mid(A，I，I)
Y=Left(A，I
下列字符串常量中，最大的是( )
B．&上海& C．&天津& D．&广州& 下列程序段的执行结果为( )
S=0：T=0：U=0
FOr X=1 To 3
For Y=1 To X
FOr Z=Y TO 3
Q的值为-3时，表达式-Q^4的值是()
D．-27 表达式(7\3+1)*(18\5-1)的值是( )
B．7．8 C．6 D．6．67 如果要在任何新建的模块中自动插入Option Explicit语句，则应采用下列( )操作步骤。
A. 在&工具&菜单中
要清除列表框中所有的列表项时，应使用____方法。
C)Removeitem
D)Move 下列不是标准控件的是____。
A)图像框
B)图片框
C)框架
D)对话框 为了把窗体上的某个控件变为活动的，应执行的操作是____。
A)单击窗体的边框
B)单击该控件的内部
使用____方法不能让控件获得焦点。
A)通过Tab切换
B)单击该控件
C)使用SetFocus方法
D)使用键盘上的方
下列叙述正确的是________。
A)向工程添加文件，应先选择要添加的文件，再从“工程”下拉菜单中选择“添
31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40确定一个控件在窗体上的位置的属性是____。
A)Width或Height
B)Width和Height
C)Top或Left
可视化程序设计强调的是____。
A)过程的模块化
B)控件的模块化
C)对象的模块化
D)程序的模块化 移动控件位置的组合键是____。
A)Shift+“方向箭头”
B)Alt+“方向箭头”
C)Ctrl+“方向箭头”
以下叙述中错误的是_____.
下拉式菜单和弹出式菜单都用菜单编辑器建立
在多窗体程序中，每个窗体都可以 A)
以下关于作用范围的描述正确的是（ ）
所有变量（Public/Global/Static/Private）都可以放到窗体的通 A． 下列事件过程正确的是____。
A)Private Sub Forml_Click()
If Len(Textl.Text)&10 Then
Textl.Mult
实现Windows应用程序之间信息共享的技术是____。
A)开放式数据链接功能
B)对象链接与嵌人
单击窗体上的关闭按钮，将触发____事件。
A)Form_Initialize()
B)Form_Load()
C)Form_Unload()
下列程序的输出结果是____。
Option Base 1
Private Sub Commandl_Click()
Dim Arrl(12)，Arr2(4
有如下程序：
Dim arr(3，3)
For j=1 To 3
For k=1 TO 3
arr(j，k)=(j―1)*3+k
要强制显式声明变量，可在窗体模块或标准模块的声明段中加入语句____。
A)Option Base 0
B)Option E 下列程序段的执行结果为( )
FOr I=1 To 2
FOr I=1 To K
要使标签中的文本靠右显示，则应将其Alignment属性设置为____。
D)3 设置复选框或单选按钮标题对齐方式的属性是____。
D)Alignment 若要使标签控件显示时,不覆盖其背景内容，应设置标签控件的_____属性.
A)BackColor
B)BorderStyle
列表框中Tablndex属性表示的意义是____。
A)被选中列表项的序号
B)列表框的项的总数
C)列表框获取Tab焦
执行下面的程序段后，x 的值为
For I=1 To 20 Step 2
23 下列叙述中正确的是____。
A)任何一个对象的所有属性既可在属性窗口中设置，也可以以程序代码的方式设置
从键盘上输入一个实数nu，利用字符串函数对该数进行处理，如果输出的内容不是字符End，则程序输出的内容是 能够改变窗体边框线类型的属性是( )
A．FontStyle
B．BorderStyle C．BackStyle D．Border 为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择，则应将列表框的MultiSelect属性设置为____。
复制当前控件到窗体左上角，应该使用的快捷键是____。
C)执行Ctrl+C后，再执行
MsgBox函数与MsgBox语句的区别是____。
A)执行MsgBox函数会自动显示一个对话框，而执行MsgBox语句不会显
计算z的值：当x大于y时，z=x；否则，z=y。下列语句行错误的是_______。
A)If x=y Then z=x：z=y
有如下事件过程:
Private Sub Command_Click()
Do Until b=-1
a=InputBox(&输入a的值&)
在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为
下列各组中，两个函数功能完全相反的一组是____。
A)Sin(x)与Cos(x)
B)Str(x)与Val(x)
表达式&Turbo&+&c&&&Ture&+&Basic&的值是____。
D)出错信息 若想要建立一个学生管理系统的输入界面，其中要求选择学生的性别/政治面貌(党/团/群众)及选课情况(共有5门 与传统的程序设计语言相比，Visual Basic最突出的特点是____。
A)结构化程序设计
B)程序开发环境
以下能够触发文本框Change事件的操作是____。
A)文本框失去焦点
B)文本框获得焦点
C)设置文本框的
语句Print 5/4*6\5 Mod 2的输出结果是______.
3 下列属性设置语句正确的是____。
A)Forml.Name=Forml.Caption
B)Forml.Caption=Forml.Name
下列程序段的执行结果为( )
Dim A(5，5)
For I=1 TO 3
For J=1 TO 4
A(I，9)=I*J
以下关于窗体的描述中,错误的是_____
A)执行Unload Form1语句后，窗体Form1消失，但仍在内存中
下列事件过程都是为了显示&程序开始运行!&的信息，错误的是
A)Private Sub Form_Load()
窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是____。
Private Sub Commandl_Click()
设有数组定义：Dim a(4)，存放数值数据，则数组a所占空间为 字节。
D)不确 以下能够正确计算1+2+3+?+10的程序是（ ）
A．Private Sub Command1_Click() B．Private Sub Command 下述程序段的运行结果是 。
z=Len(Str$(x)+Str$(y))
B)6 设a$=&12&，下列语句错误的是____。
A)labell.Visible=Textl.Visible or Text2.Visible
B)Textl.Tex
当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的是____。
A)AutoSize属性
B)Resize事 声明一个变量为全局变量应该用_____关键字。
A)Dim
B)Private
C)Static
D)Public 语句X=X+1的正确含义是____。
A)变量X的值与X+1的值相等
B)将变量X的值存到X+1中去
C)将变量X的值加
在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，依次在输入对话框中输入5，4， 一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有 变量未赋值时，数值型变量的值为 。
D)没任何值 下面的事件过程随机产生一个3位3位正整数，然后逆序输出,并将产生的数与逆序数相隔4个字符显示在一行上,例 下列语句中，获得列表框List1中项目个数的语句是____。
A)x=Listl.ListCount
B)x=Listeount
下列程序段的执行结果为( )
For K=1 To 10 Step -2
Print K；X
下列程序段错误的是____
A)s=0：k=0
B)s=0：k=0
Start： 100：
k=k+l
有如下程序：
a$=&China&
b$=Right$(a$，3)：cS=Strings(3，b$)
End
运行后，输出结
有如下程序：
Const st$=&CHINA&
St$=&GREAT&
运行后输出的结果是____。
下列叙述不正确的是____。
A)注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和
编写如下事件过程：
Private Sub Form_MouseDown(Button As
Integer，Shift As Integer，X As Sing
41 42 43 44 45 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 1 2 3 4 5下列语句中，可以触发命令按钮单击事件的语句是____。
A)Commandl.Vaule=False
B)Commandl.Vaule=Tr
为程序的空白行选择适当的语句，使程序段完成相应计算。
序段的功能是：当x取值5到10，或取值大于20时，输 程
下列程序段的执行结果为( )
B=B+1
Loop While A&10
Print A；B
在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：
Option Base 1
Private Sub Comman 下面的事件过程随机产生一个3位3位正整数，然后逆序输出,并将产生的数与逆序数相隔4个字符显示在一行上,例 运行以下程序后，输出的图形是____。
For k=100 To 200
Pset(2*k,k)
A)两条相互平行的
有如下语句：
Type Student
Name As String
Age As Integer
Sex As String
Stu As Stude End Dim 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程
Private Sub Co
Format$函数中，格式说明符的使用规则正确的是 。
A)格式符&#&与“0”的作用完全相同
B)格式符“.”与格 设有如下的记录类型：
Type Student
Number As String
Name As String
Age As Integer
表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是( )
B．0 C．-1 D．2 设a=&Visual Basic&，下面使b=&Basic&的语句是( )
A．b=Left(a，8，12)
B．b=Mid(a，8，5)
设置对象的属性值是程序设计的重要步骤，关于属性的说法错误的是____
A)属性是一组可以由用户定义的数据
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框，然后编写如下程序：
Private Sub
可以在窗体模块的通用声明段中声明( )
A. 全局变量
B．全局常量
C．全局数组
D．全局用户自 假定编写如下事件过程：
Private Sub Form_MouseMove(Button As Integer，
Shift As Integer，X As
执行以下语句后显示结果为( )
Dim x As Integer
If x Then Print x Else Print x-1
B 下列程序段的执行结果为( )
For K=0 TO N-1
For L=1 TO K+1
下面叙述中不正确的是( )
A. 随机文件中记录的长度不是固定不变的
B．随机文件由若干条记 单击命令按钮时，下列程序代码的执行结果为( )
Dim a As integer，b As Integer，c As Integer
要使列表框中的列表项显示成复选框形式，则应将其Style属性设置为____。
D 组成应用程序的3种模块是____。
A)窗体模块、通用模块、标准模块
B)窗体模块、标准模块、类模块
下列属性中，文本框控件不具有的属性是____。
A)BackColor
C)PasswordChar
下面关于Visual Basic 6．0工具栏的说法不正确的是____。
A)工具栏的位置可以任意改变
B)工具栏 下面叙述中正确的是____。
A)Spc函数能用于Print方法中，也能用于表达式
B)Space函数既可以用于Prin
能够获得一个文本框中被选取文本的内容的属性是____。
D)SelSt 在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条的事件是____。
一个工程必须包括的文件是____。
A)窗体文件、标准模块文件、类模块文件
B)工程文件、ActiveX控件的
代数式Sin(π -t)2/3÷a×b对应的Visual Basic表达式是____。
A)(Sin(3.14159-t)^(2/3))/(A*B)
B)(Sin(3.
在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写 在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框 假设变量boolVar是一个布尔型变量，则下面正确的赋值语句是____。
A)boolVar=&True&
B)boolVar=.Tru 假定窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是___ 下列关于数组的说明，正确的是 。
A)Visual Basic的数组，同一个数组中只能存放同类型的数据
阅读下面的程序段：
For For For a=a+1
行上面的三重 执 窗体上有一个按钮和一个滚动条，则下列程序的功能是____。
Sub Command1_Click()
HScroll1.LargeCha
下列表达式中，与其他3个大小不同的一个是____。
D)&017 要使一个命令按钮成为图形命令按钮，则应设置其____属性值。
C)DownPicture
任何控件都具有____属性。
D)ForeColor Move方法的一般形式是[对象名.]MoveA[，B[，C[，D))]，其中B指的是________。
A)Left
B)Top
C)Width
仅仅是CommandButton或OLEContainer控件才具有的，别的常用控件不具有的一组属性是____
A)Name与Captio
有如下程序：
F=Sqr(a*a+b*b)
Print F
运行后输出的结果是____。
下列关于循环控制结构的使用说明,正确的是_______。
A)For?Next循环嵌套时,不能共同使用同一个终端语句
下列与Listl.Text属性值相同的表达式是____。
A)List1.ListCount
B)List1.List(ListCount-1)
对窗体编写如下代码：
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
= Array(237,126 a 图像框有一个属性，可以自动调整图形的大小以适应图像框的尺寸，这个属性是____。
A)AutoSize
B)S 常量2.423D-02的类型是____
A)整型
B)单精度
C)字符型
D)双精度
表达式1.5+3\2&2 Or 7 Mod 3&4 And Not 1的运算结果是____。
D)其他 列表框名称为Listl，下列语句错误的是____。
A)a$=Listl.List(1)
B)List1.List(1)=&List&
以下关于窗体描述正确的是（ ）
只有用于启动的窗体可以有菜单
窗体事件和其中所有控件事件的代码 A． B． 在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是
下述程序的功能是____。
x=&((a+B)*A)-(a*b+C)&
For k：1 To n
p$=Mid(x，k，
在以下4个逻辑表达式中，其逻辑值为“真”的是____。
A) Not(3+4&4+6)
B) 2&1 And 3&2
C) 1&2 or 2&3
下面是窗体Forml的Click事件过程，实现运行时每次单击窗体。窗体均向右移动100缇
Private Sub______()
为了把焦点移到某个指定的控件，所使用的方法是____。
A)SetFoeus
D)Ge 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15在代码编辑器中，如果一条语句太长，无法在一行内写下(不包括注释)，要折行书写，可以在行末使用续行字符_ 阅读程序：
Function F(a As Integer)
b Static c
b c f End Private S 窗体上有若干个文本框，其中文本框Textl用来接收大于0且小于10的数据。若在Textl中输入的不是这个区间上的 执行语句Open&C：StuData．dat&For Input As #2后，系统( )
A. 将C盘当前文件夹下名为StuData．dat的
运行下列程序段后，输出的&*&个数是____。
For I=1 To 2
For j=0 To I-1
在窗体上画一个文本框，其Name属性为Text1，然后编写如下事件过程：
Private Sub Form_Load()
使用目录列表框的( )属性可以返回或设置当前工作目录的完整路径(包括驱动器盘符)。
B． 可以同时删除字符串前导和尾部空白的函数是 。
Ltrim B) Rtrim C) Trim D) Mid A) 在窗体上面画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Commandl_Click()
Dim a 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub
从键盘上输入两个字符串，分别保存在变量strl，str2中。能确定第2个字符串在第1个字符串中起始位置的函数是 下列表达式不正确的是____
A)x Like 3,5,7
B)x+y=z
C)x+y And x+a&x+b
D)#05/08/1995#+#01/07/1995#
为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件)，则应将其Interval属性值设置为____。
以下不合法的常量是____。
A)10^2
B)100
C)100.0
D)10E+01 下列各种形式的循环中，输出&*&个数最少的循环是____。
A)a=5：b=8 B)a=5：b=8
下列强制显式声明变量中，正确的语句是____。
A)Private Const
B)Option Explicit
C)Type Studen
执行下列程序，单击命令按钮后，从键盘分别输入4和5，则输出是______。
Private Sub Commandl_Click()
有关多文档界面（Multiple document．nbspInterface）的不正确描述是（ ）
多文档界面（MDI）是指在一 A． 以下说法正确的是( )
A．任何时候都可以使用&工具&菜单下的&菜单编辑器&命令打开菜单编辑器
B．只有当
设有语句：
x=InputBox(&输人数值&，&0&，&示例&)
程序运行后，如果从键盘上输人数值10，并按回车键
设A$=&China&，将China增加到列表框List开头位置，下列完成此项操作正确的语句是____。
A)Listl.AddItem
以下____程序段可以实施X、Y变量值的互换。
A)Y=X：X=Y
B)Z=X：Y=Z：X=Y
C)Z=X：X=Y：Y=Z
执行下列程序段后,输出的结果是_______。
For k1=0 To 4
y=20
For k2=0 To 3
y=10
For k3=0 To 2
y=
在窗体上画两个名称分别为Textl，Text2的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
关于Visual Basic&方法”的概念，下列说法错误的是____。
A)方法是对象的一部分
B)方法是预先规定好 要使标签能够显示所需要的文本，则在程序中应设置____属性的值。
用Visual Basic设计应用程序的过程，实际上是与一组( )进行交互的过程。
A)控件工具
B)自定义对象
表达式Int*(5*Rnd+1)*Int*(5*Rnd-1)的值的范围是____
A)[0,15]
B)[-1,15]
C)[-4,15]
D)[-5,15]
在默认情况下，InputBox函数返回值的类型为____。
D)数值或字符串(视 有如下程序：
Dim zxs As Integer
zxs=232.32
Print zxs%；zxs
运行后，输出结果是
运行以下程序后，输出的图案是____。
A$=String$(10,&*&)
For I=1 To 5
有如下程序：
运行后，输出结果是____。
下列赋值语句中,语法正确的是____
A)A^2=9
B)a&b=3
C)a=b&3
D)Let a=5,b=10
窗体上有一个按钮和一个文本框，程序执行后，在文本框中输入12345，单击按钮后的输出结果为____。
要使组合框设置成只能从中选择而不能输入数据的组合框(下拉式列表框)，则应将其Style属性设置为( )
要使一个文本框具有水平和垂直滚动条，则应先将其MultiLine属性设置为True，然后再将ScrollBar属性设置为： 下列程序段的执行结果为( )
If Not X&0 Then X=Y-3 Else Y=X+3
Print X-Y；Y-X
下列程序段的执行结果为____
FOr i=1 To 2
For i=1 TO k
在窗体上有一个名为Commandl的命令按钮。有如下的事件过程：
Private Sub Commandl_Click()
使用Public Const 语句声明一个全局的符号常量时，该语句应放在( )
B．窗体模块的通用 求一个三位正整数N的十位数的正确方法是( )
A．Int(N/10)-Int(N/100)*10
B．Int(N/10)-Int(N/1 设A=&&，则表达式Val(Len(A，4)+Mid(A，4，2)的值为( )
B．123445 C．8 以下叙述中错误的是( )
A. 如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
下列程序段的执行结果为( )
Dim X(3，5)
For I=1 To 3
For J=1 To 5
X(1，J)=X(I-1，J
设p，q是指针，若p=q，则p^=q^，这种说法_________。
要使文本框获得输入焦点，则应采用文本框控件的________方法。
A)GotFocus
B)LostFocus
为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 。 网络信息服务管理工具被包含在Visual Basic的____中。
C)专业版 D 下列可作为Visual Basic变量名的是____。
D)const_A 下列不能打开菜单编辑器的操作是 。 A）按Ctrl+E B）单击工具栏中的&菜单编辑器&按钮 C）执行&工具&菜单
Visual Basic程序设计采用的是____编程机制。
B)面向对象
C)事件驱动
D)过程结构 窗体上有一个列表框和一个文本框，编写如下两个事件过程：
PrivateSubForm_Load()
List1.AddIte
____是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
如果将PassWordChar属性设置为一个字符，如星号(*),运行时，在文本框中输入的字符仍然显示出来，而不显 在窗体中添加一个命令按钮Command1，并有以下程序： Function retnum() nl = Chr(13) + Chr(10) msg$
16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 1 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70下列事件过程中，正确的事件过程是____。
A)Private Sub Command_Click() B)Private Sub Command_Cli 下述程序的运行结果是 。
For m=3 To 1 Step -1
x$=String$(m，”#”)
可以接受焦点的控件是____。
D)Timer 设a=3，b=5，则以下表达式值为真的是 。
A)a&=b And b&10
B)(a&b) Or (b&0)
C)(a&0) Eqv
以下4组语句中不正确的是 。
A)A=1：A+A
B)Const A=1：A=A+1+[10，10]
下列多行结构条件语句正确的是____。
A)If x&a Then Print &x&a& B)If x&a
ElseIf x&b Then Pri
下列程序段的执行结果为( )
Dim A(10)，B(5)
FOr I=1 To 10
下列变量名中，不合法的变量名是____。
A)Print_Numl
D)X1_y2_z3 在正确安装Visual Basic 6．0后，可以通过多种方式启动Visual Basic。以下方式中，不能启动Visual Bas VB中控件主要分为3类，下面哪一种不是VB中的控件类（ ）
A．标准控件 B．ActiveX
在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是
TabStop A)
B)Ena 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
下列每组控件中，都包含有滚动条的一组控件是____。
A)ListBox和LabelBox
B)TextBox和DriveList
下列选项中，不属于Visual Basic特点的是选项( )。
A)可视化程序设计
B)面向图形对象
下列程序段的执行结果为( )
Dim A(10，10)
For I=2 To 4
For J=4 To 5
A(1，9)=I*J
下列____是日期型数据。
A)@Januaryl0，1997@
B)#Januaryl0，1997#
C)&Januaryl0，1997&
以下不属于标签属性的是____。
D)Index 设置标签边框的属性是____
A)BorderStyle
B)BackStyle
C)AutoSize
D)Alignment 将文本框的ScrollBars属性设置为非零值，却没有效果，原因是____。
A)文本框中没有内容
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For I=1 To 4 x=4 Fo
下列关于“面向对象”编程的叙述错误的是____。
A)属性是描述对象的数据
B)方法指示对象的行为
下述语句的运行结果是 。
a=Array(1，-2，9，0，-1，9)
下面的事件过程随机产生一个3位3位正整数，然后逆序输出,并将产生的数与逆序数相隔4个字符显示在一行上 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
下列叙述中，正确的是____。
A)控件数组的每一个成员的Caption属性值都必须相同
B)控件数组的每一
对窗体编写如下事件过程： Private Sub Form _MouseDown(Button As Integer, _ Shift As Integer, X A
执行如下语句：
a=InputBox(&Today&，&Tomorrow&，&yesterday&，，，&Day before yesterday&，5)
Randomize语句的功能是____。
A)产生个(0,1)之间的随机小数
B)产生一个[1,10]之间的随机整数
关于Visual Basic应用程序，正确的叙述是____。
A)Visual Basic程序运行时，总是等待事件被触发
在VB中，按下鼠标键触发事件，正确的程序段是（ ） A．Private Su b Form_MouseDown(Button As Integ
在窗体上有一个文本框控件，名称为TxtTime，一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一 程序启动未执行任何操作前，为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设 假定有如下的Sub过程：
S（x As Single,y As Single）
= x
=t/y
Sub
窗体上画一个命令 Sub
在Visual Basic中，以10为底的x的常用对数表达式为____
B)LoglO(x)
C)Log(x)/Log(e)
窗体上有一个按钮和一个列表框(Sorted属性为True)，执行下列过程后的输出结果为____。
Private Sub Com
在Visual Basic设计界面中不能隐藏的窗口是____。
A)工程窗口
B)属性窗口
C)立即窗口
D)窗体窗 表达式4+5 \ 6 * 7 / 8 Mod 9 的值是
4 B) 5 C) 6 D) 7 A) 决定一个窗体有无控制菜单的属性是____。
A)MinButton
C)MaxButton
D)ControlBox 以下可以构成语句的一项是____。
A)对象名.属性
B)对象名.方法名
C)对象名.事件名
D)对象名.函 下面表达式中，_______的运算结果与其他3个不同。
A)log(Exp(-3.5))
B)Int(-3.5)+0.5
C)-Abs(-3.5)
D)
在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
窗体上有一个命令按钮Commandl，一个文本框Textl，一个列表框Listl。文本框用来输入要添加到列表框中的项目 如下程序：
Private Sub Form_Click()
a=20：b=20：c=120：d=120
Form.Line(a,b)-(c,d),,BF
下列叙述中不正确的是( )
A. 变量名的第一个字符必须是字母
B．变量名的长度不超过255个字符
以下叙述中错误的是( )
A. 一个工程中可以包含多个窗体文件
B．在一个窗体文件中用Private定义的
关于货币型数据，下列说法正确的是____。
A)货币型数据有时可以表示成整型数据
B)货币型数据与浮点型
以下关于函数过程的叙述中，正确的是
函数过程形参的类型与函数返回值的类型没有关系
在函数过程中，过 A)
表达式a%*b&-d#\2#+c!的结果的数据类型为 。
C)单精度型
D)双精度型 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设
为True，这个属性是_ 置
下列对象表达式中，错误的是____。
A)Text1.Text+Text2.Text
B)Textl.Text+&Text&
C)Label1.Capt
下列程序段的执行结果为____。
For X=5 To l Step -1
For Y=l To 6-X
PrintTab(Y+5)；”*”；
下列叙述中正确的是( )。
A)Visual Basic与Basic没有什么不同
B)Visual Basic与Basic的编程机制不同
将数学表达式Cos^2(a+b)+5e^2写成Visual Basic的表达式，其正确的形式是____。
A)Cos(a+b)^2+5*Exp(2)
在程序代码中将图片文件mypic.jps装入图片框Pietrue1的语句是____。
A)Picture1.Picture=&mypic.jpg&
下列关于声明变量的说法中，错误的是____。
A)用显式声明变量的关键字Dim，Private，Static或Public来声
71 72 73 74 75 76 77 78 79 80 81 5 5 5运行下面程序段可以显示_____中的图形。
Form1．Cls
For k=1 To 5
Print Tab(10-k)
用标准工具栏中的工具按钮不能执行的操作是____。
A)添加工程
B)打印源程序
C)运行程序 D 下面程序段的功能是____。
A=10.5：B=Int(A+0.5)
Debug.Print B
A)求平均值
B)将一个实数四舍
下列事件过程中，将文本框作为接收输入信息控件的事件过程有____。
A)Private Sub Command_Click() B)Pri 运行以下程序后，输出的图案是____。
Form1．Cls
For A=1 To 5
Print Space(5-A)；String(A，&*
要使目录列表框(名称为Dir1)中的目录随着驱动器列表框(名称为Drive1)中所选择的当前驱动器的不同而同时发生 若要求在文本框中输入密码时文本框中只显示*号，则应在此文本框的属性窗口中设置（ ）
A．Text属性值为* 下列( )是日期型常量。
A．&2/1/02&
B．2/1/02 C．#2/1/02# D．{2/1/02} 函数Len(Str(Val(&123．4&)))的值为( )
B．5 C．6 D．8 下列叙述中正确的是( )
在窗体的Form_Load事件过程中定义的变量是全局变量
B．局部变量的作用域可以 要想在过程调用后返回两个结果，下面的过程定义语句合法的是( )
A．Sub Procl(ByVal n，ByVal m)
下列程序段的执行结果为( )
If X*Y&1 Then Y=Y-1 Else Y=-1
Print Y-X&0
函数UCase(Mid(&visual basic&，8，8))的值为( )
D．BASIC 下面叙述中不正确的是( )
A. 对顺序文件中的数据的操作只能按一定的顺序执行
B．顺序文件结构简单
B)执行“文件”菜单中的“打开工程”命令
C)按Ctrl+O组合键
D)单击标准工具栏上的“打开工程”按钮 ，BorderStyle属性设置为0
B)将其BackStyle属性设置为0，BorderStyle属性设置为1
C)将其BackStyle属性设置为1，BorderStyl
&z B)x&y&z
C)x&y And &z
D)x&y And y&2 将所有打开的文件关闭
B)可以使用Close语句关闭一个或几个指定的文件
C)使用不带语句体的Close语句可关闭所有文件
C)Listlndex
D)Index )．vbp D)．bas 量即为变体变量，因而变体变量是无类型变量
B)变体变量占16字节的固定存储单元
C)变体变量定义后，系统将变体变量初始化为
事件驱动 D)面向对象 mal
AnimalName As String*20
Acolor As String*10
Type
窗体上画一个名称为Command1的命令按钮，然后编写如下事件过
nd /X&Y Then Y=X3
C)If X&3*Y:X&Y Then Y=X^3
D)If X&3*Y And X&Y Then Y=X**3
B)Labell.Enabled+Textl.Enabled
C)Labell.Top+Label2.Top
D)(Textl.HeiSht+Text2.Height)/2
体的Contro1Box 属性设置为Fale,其他属性任意
把窗体的ControlBox 属性设置为True,并且把Boder Style属性设置为1-5
把窗体的 B)
D)3 A)a(5．6) B)a(10)
D)a(Sqr(k^3)) 0),p(3) As Integer
k=5 For a(I)=I
Next For p(I)=a(I*I)
For k=k+p(I)*2
Next Print 80.7 D)12377.7
B)确定控件的位置
C)确定控件的状态和位置
D)确定控件的状态、内容及位置
C)按Ctrl+T组合键
D)单击工具栏上的“属性窗口”按钮
D)文本框 C)关系表达式
D)字符表达式
在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程
如果工程中包含Sub Main过程，则程序将首先执行该过程
阶段分配存储空间
B)静态数组定义时，数组维的界不能是变量，而动态数组定义时，数组维的界可以是变量
C)在同一个程序中，
D)非法使用，无输出
C)Dir D)Pattern本将变成灰色，并且此时用户不能将光标置于文本框上
B)文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改
赋值的语句，错误的是____.
B)a(3)=InputBox(“InputData&)
C)a(3)=Listl．Listlndex
D)a=Array(1，2，3，
Print Asc(k$+j$)
End
运行后输出的结果是____。
A)abcabc
B)ABCABC
C)65
D)97 te Sub Command1_Click()
Static a As Variant
= Array(20, 13, 45, -10, 50, 25)
程序的功能是求数组a的最 a End 此 dl.Name=cmdOK
C)12Label.Caption=1234
D)Textl=&123&
ub Command1_Click()
For I=1 T0 4
For J=0 To I
PrintChr$(65+1)；
$(b$)+& &+Ucase$(c$)
End
运行后，输出结果是____。
A)Flying Is funny!
B)Flying is FUNNY!
C)Flying IS FUNNY!
D)FL
Private Sub Form_Load()
List．Addltem &357&’
List．Addltem &246&
List.AddItem &123&
List.AddItem &456&
设置为True
B)将其AutoSize属性值设置为False
C)将其Stretch属性值设置为True
D)将其Stretch属性值设置为False
6 C) D) 11 fts(a$,1)+Right$(b$,1)
运行后输出的结果是____。
A)alb2c3d4e5
B)alb2c34dSe
C)eld2c3b4a
面、编写代码
B)创建工程、编写程序、保存程序
C)设计界面、设置属性、编写代码
D)设计界面、编写代码、调试程序
X=Labell.Caption
C)X=Textl.Text
D)X=Listl.List(3)
运行后，输出结果是____。
A)显示出错信息 B)123456
D)579 钮 B)图片框
C)通用对话框
D)文本框 int &人民&
Font=&仿宋&
Print &万岁!&
Font=&宋体&
A)中国(默认字体)
B)中国(默认字体)
人民(默认字体) Base 1
Private Sub Command1_Click()
a = Array(1,2,3,4)
For I = 4 To 1 Step -1
s e 10，20 30 Case 10 To 30
Print Sqr(x)
Print Sqr(x)
Print x ．PictureBox图片框控件
C．TextBox文本框控件 D．ListBox列表框控件 As Integer
x=5
DO
x=x-1
Loop While Not x
End Sub
A)5
B)5 4 3 2 1 0
C)出现语法错
单击窗体后，窗体上显示的是____。
A)3个相交圆
B)3个同心不相交圆
C)4个同心不相交圆
D)两个同心不
5 B) 32,548.5
032,548.50 D) 32,548.50
C) 字。下列格式输出语句正确的是____。
A)PrintFormat$(x，####，##.##) B)PrintFormat$(x，&###,####.##&)
C)PrintFormat$(x， A)Xor B)Or
D)And 程：
Private Sub Commandl_Click()
a$=&software and hardware&
b$=Right(a$，8)
c$=Mid(aS，1，8)
MsgBox aS，
个命令按钮(Name属性为Commandl)，然后编写如下两个事件过程：
PrivateSubCommandl_Click()
A=Text1.Text+Text2.Text
则各数据项之间自动插入逗号，并且将字符串加上双引号
B．若使用Print #语句将数据输出到文件，则各数据项之间没有逗号分隔 C)状态栏 D)工具栏 句
B)x=1和y=1均为关系表达式
C)x=l为关系表达式，y=l为赋值语句
D)x=1为赋值语句，y=l为关系表达式
清空图片框控件中图形的方法之一是加载一个空图形
图片框控件可以作为容器使用
用Stretch属性可以自动调整图片框中图 B)
&0 Then B)if x Then
if x&0 Then
Else If x&0 Then
Else If x&0 T &10时，y=x2；当0≤x≤10时，y=x3；当x&0时，输出“x为负值”的信息。
Privge Sub Form_Click()
X=InputBox(”请输入x的值
的属性设置为 。
Label1. BackStyle=0
A) Label1.Borderstyle=0
Label1.BackStyle=1
B) Label1.Borderstyle=1
Label1.BackSty C) 用是____。
Private Sub Textl_Change()
Text2．Text=Str(6.28*Val(Textl．Text))
End Sub
A)将在文本框Textl输入的数字变
ile 方法打开文件，但不能创建文件
B. 可以使用FileSystemObject 对象的CreateTextFile 方法创建文件
C．可以使用File对象
主窗体中工具条中的工具不是工具箱中包含的常用控件
若使用系统提供的OCX控件，应先将有关的控件添加到工具箱中
使用系 C． D． i=0 i=0
While i&100
While i&100
B)Int(-13.2)=13.2
C)Int(-13.2)=-13
D)Int(-13.2)=-14
块的声明段中
C．类模块的声明段中
D．任何事件过程中 sfl选中第1个列表项(数据为456)，则下列使y的值是123456的语句是____。
A)y=x$+Listl.List(0)
B)y=x$+Listl.List(1)
s=s+I:I=I+1
if s&100 Then Exit For
if s&100 Then Exit While
入X的值：&)
y=Text.Text
Debug.Print x
在InputBox函数弹出的对话框中输入123，在文本框Textl中输
Print d+f$
运行后输出的结果是____。
D)显示出错信息 b Text1_KeyPress(KeyAscii As Integer)
Dim str As String
str=Chr(KeyAscii)
KeyAscii=Asc(UCase(str))
C．KeyDown D．KeyUp Each Mydri in X.Drives
Debug.Print Mydri.DriveLetter
Next Mydri
A. 在窗体上显示系统当前工作驱动器盘符 B．FontName C．Caption D．Text A；
1 1 B．1 4 9
C．0 0 0 D．1 2 3 ture=&&
B．Picture1．picture=Loadpicture(&&)
C．Picture1．image=&&
D．Picture1．picture=Null Click()
Print MyFunc(24，18)
Public Function MyFunc(m As Integer，n As Integer)As Integer
D)3 .cls文件 D)*.txt文件 置为0
B)将控件的Tabstop属性设置为True
C)将控件的TabStop属性设置为False
D)将控件的Enabled属性没置为False
C)Visible和Enabled
D)Borderstyle和WindowState
D)Max-Min __。
A)编写代码
B)新建一个工程
C)打开属性窗口
C)0 1D)进入VisualBasic环境While a&10
Print a；b
B)ab TextBox
D)OptionButton
D)10 30中所有列表项目移人列表框List1中，并将移
List1中的项目从List2中删除。程序如下：
Do While List2.ListCount
______ 源管理器窗口 B)工具箱窗口
C)代码窗口
D)属性窗口 /1000
B)Int(Cos(Y*1000))/
C)Int(Cos(Y)，)/1000
D)Int(Cos(Y*)/1000
lseIf子句不能超过10条
B)多行结构条件语句中必须至少有一条ElseIf子句
C)多行结构条件语句的各个ElseIf子句后的&条件&只能有
rint tab(I*I)，I
D)1 2 3 4 5 7 8
TextBox D)LabelBox 单中选择“上下文相关帮助”命令
B)先选择一个对象(或关键字)，再按下n键
C)先选择一个对象(或关键字)，再按下Ctrl+n组合键
ipControl
C)BackColor
D)ShowColor A)ControlBox B)ClipControl
C)BordeStyle
D)AutoRedraw 件过程是____。
A)PrivateSubText1_GotFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
B)PrivateSub =List1.Text
C)List1.List(1)=List1.Text+List1.ListIndex
D)Command1.Caption=L1stl.Name+List1.Text
．Vbp，*．Cls，*．Bas
C)*．Bas，*．Ocx，*．Res
D)*．Frm，*．Cls，*．Bas
B．在同一个程序中，用不同的方法(如ShowOpen或ShowSave等)打开的通用对话框具有不同的作用
C. 调用通用对话框控件的ShowO
B)Asc(x)，Str(x)，Rtrim(x)
C)Sgn(x)，Cint(x)，Timer(x)
D)Fix(x)，Left(x)，Ucase(x)
B)窗体的Name属性的值是显示在窗体标题栏中的文本
C)可以在运行期间改变对象的Name属性的值
D)对象的Name属性可以
B)以最后建立的窗体模块结束
C)程序执行顺序不是预先完全确定好的
D)执行顺序是预先确定好的
f As Integer
f fac End Private Sub Form_Click()
I As Integer
I = 2 To 3
Dim For Print &#&; I&&=& ub
Private Sub Commandl_Click()
a(1 To 4)As Integer
Dim a(1)=5
For Print a(I) 义Dim a，则以下变量赋值中正确的是（ ）
A．A=”OK” B．A$=OK
C．A=04/01/2001
D．A$=”OK” istBox和ComboBox
C)Label和TextBox
D)Form和Frame
a As Integer
= a + 1: b = b + 1: c = c + 1
Dim Sub a Print “Sub:”;a;b;c
End Private Sub Co mmand1_Click() a来确定
当多选属性（MultiSelect）为True时，可通过Text属性获得所有内容
选中的内容应通过List属性来访问
选中的 B． C． D． 黑体&；一个复选框，名称为Check1，标题为&粗体&；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋 r的值是____。
D)23 性设置为Tme，这个属性
D)Default e属性为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
While x&50
x=0 Do x=(x+2)*(x+3)
Loop Text1. ___属性为True
A)AutoSize
B)WordWrap
D)Visible 号 C)顿号 D)冒号 B$=&Quick&
C$=B$ & Ucase(Mid$(A$，7，6)) & Right$(A$，11)
A)Visual BASIC Programing
B)QuickBasic Programing
ub Commandl_Click()
Static X As Integer
Static Y As Integer
Print X，Y
rivate Sub Commandl_Click()
a(1 To 4)As Integer
Print a(I)
End b Command1_Click()
c1 = Trim(Str?)
For I = 1 To 4
Sub
序运行后，单击命令按
期四、星期五、星期六和星期日。给以下程序的空白行选择适当的语句。
For i=1 To 7
A)List1.Text=Choose(i，
C)Change D)Move 2=0
B)Not x Mod 2&&0
C)(x\2*2-x)=0
D)Not(x Mod 2)
)Sgn(-26)=-26
C)Sgn(-26)=+1
D)Sgn(-26)=-1 ）
设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Ctrl+带下划线的字母选择该菜单项
设置该菜单项的 A． B． 6，6) B)Option Base l
Dim a(6，6)
C)Option 1
D)Option Base 2
Dim a(6，6)
D wordChar
D)Multline
l.Enabled Then
Label1.Caption=&命令按钮可以使用!&
Label1.Caption=&命令按钮不可以使用!&
式&”语句中&测试表达式&的值域
B)“Select Case&测试表达式&”语句中&测试表达式&的类型
C)“Select Case&测试表达式&”语
到10，则存放a至少需要___________个字节。
D、540 文本框控件的____事件过程模板。
B)DblClick
D)GotFocus 使用的语句为 。
MenuItem. Enabled=False
MenuItem. Enabled=True
MenuItem. Visible=True
Menultem. Visible=Fals A) B) C) D) (k) Dim Arr(k)
C)Dim Arrl(10) As Integer
D)Dim Arrl(1 T010)
Dim Arr2(10)
Dim Arr2(1 To 10，2 To 11) abled属性与TextBox控件的Enabled属性
B)OptionButton控件的Value属性与CheckBox控件的Value属性
C)Command控件的Default
D)14 B)Index
C)ListIndex
D)TabIndex 表达方式是 。
A)TestDate=#1/2002#
B)TestDate=#&1/1/2002&#
C)TestDate=date(&1/1/2002&)
D)TestDate=Format(&
磁盘驱动器的列表框
B．驱动器列表框的Drive属性只能在运行时被设置
C．从驱动器列表框中选择驱动器能自动地变更系统当前
程序既能以编译方式执行，也能以解释方式执行
程序运行后，在内存中只能驻留一个窗体
对于事件驱动型应用程序，每次运行时的 C)
D)0 语句是____。
A)Select Case a
B)Select Case a
Print &*& Print &*&
话框是模式(模态)对话框
B)执行MsgBox()函数弹出的对话框是无模式(非模态)对话框
C)调用MsgBox()函数，若缺省[，Buttons]参
的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
For l=1 To k+1
A(X)=A(X)+A(X-1)
If k&n-1 Then Exit For
Print A(X)；
For I=1 To 5
c=c+Left(a，I)+Right(b，I)
Print c
运行后输出的结果是____。
A)alb2c3d4e5
B)la2b3c4de5
B．通用过程
C．添加窗体
D．添加模块 I=2
If A&80 Then I=3
If A&90 Then I=4
Print&I=&；I
B．I=2 C．I=3 D．I=4 一选择
C．多项选择 D．选择一次 ByVM B．ByRef
D．Reference =Mid(A，I，I)
Y=Left(A，I)
Z=Right(A，I)
C．BBABBA D．&广州& 1 To X
FOr Z=Y TO 3
Print S；T；U
6 14作步骤。
A. 在&工具&菜单中选取&选项&命令，打开&选项&对话框，单击&编辑器&选项卡，选中&要求变量声明&选项
B．在&编辑
C)Removeitem
D)Move边框
B)单击该控件的内部
C)双击该控件
D)双击窗体
tFocus方法
D)使用键盘上的方向键
再从“工程”下拉菜单中选择“添加文件”命令
B)向工程添加文件，应先从“工程”下拉菜单中选择文件名
C)从工程中删除文件 和Height
C)Top或Left
D)Top和Left
对象的模块化 D)程序的模块化 头”
C)Ctrl+“方向箭头”
D)空格键+“方向箭头”
在多窗体程序中，每个窗体都可以建立自己的菜单系统
除分隔线外，所有菜单项都能接收Click事件
如果把一个菜单项的Enabled属 C)
/Private）都可以放到窗体的通用部分定义
所有变量（Public/Global/Static/Private）都可以放到标准模块中定义
Public/ B． C． .Text)&10 Then
Textl.Multiline=True
End Sub
B)Private Sub Forml_Click()
If Len(Textl.Text)&100 Then
B)对象链接与嵌人
C)动态链接库
D)以上三项都是 _Load()
C)Form_Unload()
D)Form_Click()
Dim Arrl(12)，Arr2(4)AsInteger
For i=1 To 12
Forj=1 T04
Arr2(j)=Arr1(3*j)
，k)=(j―1)*3+k
For j=2 To 3
For k=2 To 3
Print arr(k，j)；
)Option Base 0 B)Option Explicit
C)Option Base l
D)Option Compare ext I
FOr I=1 To K
For J=1 To K
M(J)=M(1)+1
Print M(K)；
2 2 3 B )1
D)3 C)Sorted D)Alignment BackColor B)BorderStyle
C)ForeColor
D)BackStyle 的项的总数
C)列表框获取Tab焦点的序号
D)无此属性
24 置，也可以以程序代码的方式设置
B)在属性窗口中设置的属性是在设计阶段完成的，因而这些属性值不能改变
C)在程序中通过编
是字符End，则程序输出的内容是_____
nu=InputBox(&au=&)
n$=Str$(nu)
p=InStr(n$，&.&)
If p&0 Then
Print Mid$
C．BackStyle D．Border ltiSelect属性设置为____。
C)执行Ctrl+C后，再执行Ctrl+V
D)执行Ctrl+V后，再执行Ctrl+C
对话框，而执行MsgBox语句不会显示对话框
B)执行MsgBox函数显示的对话框是模式的，而执行MsgBox语句显示的对话框是非
式的
)If x=y Then z=x：z=y
B)If x&=y Then z=x Else z=y
C)z=y：If x&=y Then z=x
D)If x&=y Then z=y Else z=x
a=InputBox(&输入a的值&)
b=InputBox(&输入b的值&)
程序运行后 ，应使用的循环语句为
For I=0 To List1.ListCount-1
?
For I=0 To ListCount-1
?
For I=1 To List1.listCou A)
C) )Str(x)与Val(x)
C)Ltrim(x)与Rtrim(x)
D)Timer(x)与Time(x)
Null D)出错信息 党/团/群众)及选课情况(共有5门课，可任选)，下列设置方法正确的是____。
A)将5门课程用一组5个选择框来表示，将性别和政治面貌
程序设计 B)程序开发环境
C)事件驱动编程机制
D)程序调试技术 本框获得焦点
C)设置文本框的焦点
D)改变文本框的内容
.Caption=Forml.Name
C)Forml.Enabled=&True&
D)Forml.BorderStyle=6 TO 4
A(I，9)=I*J
For N=1 TO 2
For M=1 TO 3
Print A(M，N)；
m1消失，但仍在内存中
B)窗体的Load事件在加载窗体时发生
C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都
b Form_Load()
Print &程序开始运行!&
B)Private Sub Form_Load()
Labell.Caption=&程序开 te Sub Commandl_Click()
Picture1.Picture=LoadPicture(&c:\1.jpg&)
Picture1.Cls
Picture1.Print &Test&
D)不确定 () B．Private Sub Command1_Click()
Sum = 0 Sum = 0,I=1
I = 1 To 10 For ))
B)6 C)4 D)3 Text2.Visible
B)Textl.Text=Textl.Name+Chr(13)+a$
C)b=Text2.Text
D)Labell.Fontsize=a$
A)AutoSize属性 B)Resize事件
C)AutoRedraw属性
D)Stretch方法 ic D)Public 存到X+1中去
C)将变量X的值加1后赋给变量X
D)变量X的值为1
，依次在输入对话框中输入5，4，3，2，1，
-1，输出结果为
Private Sub Commandl_Click()
DO Until x=-1
lc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是
变量X、Y的作用域相同
) Y的作用域是Model A)
数相隔4个字符显示在一行上,例如:产生345,输出345,543
Private Sub Form_Click()
Dim a As Integer，s As String，b AS Integer
B)x=Listeount
C)x=Listl.ListIndex
D)x=ListIndex
Print K；X
6 B．-1 16 C．1 6 D．11 31 100：
k=k+l
k=k+l
s=s+k
k&10 Then GoTo Start If
If k&10 Then GoTo int c$
End
运行后，输出结果是____。
D)ina 输出的结果是____。
B)GREAT C)Hebei D)显示出错信息 起注释作用，客观存在不被解释和编译
B)注释语句可以放在代码中的任何位置
C)注释语句不能放在代码中的任何位置
，Shift As Integer，X As Single，Y As Single)
If Shift=6 And Button=2 Then
Print &Hello&
B)Commandl.Vaule=True
C)Commandl.Enabled=False
D)Connnandl.Enabled=Tiue
取值5到10，或取值大于20时，输出一串&*&；x取其他值时，输出一串&#&。X为整型数据。
Select Case x
While A&10
Print A；B
C．0 1 D．10 30 on Base 1
Private Sub Commandl_Click( )
Dim For For a(I,j) = (I-1)*3+j
I = Next For 数相隔4个字符显示在一行上,例如:产生345,输出345,543
Private Sub Form_Click()
Dim a As Integer，s As String，b AS Integ
A)两条相互平行的直线
B)两条分离的斜线
C)两条交叉的斜线
D)一条斜线 ng
Stu As Student
End Dim With .Name = &张红&
.Sex = &女&
行Print Stu.Age后的结果是（ ） End 执 写如下事件过程
Private Sub Command1_Click()
Text1.Text = &Visual&
Me.Text1 = &Basic&
Text1 = &Program&
作用完全相同
B)格式符“.”与格式符“#”与“0”结合使用，用于确定输出数据的小数点位置
C)若Format$函数中使用“%”或“$”格 ing
Age As Integer
则能正确引用该记录类型变量的代码是____。
A)Student.name=&&
B)Dim s As Student
) B．b=Mid(a，8，5)
C. b=Right(a，5，5)
D．b=Left(a，8，5) 是一组可以由用户定义的数据 B)属性名称是由用户定义确定的
C)属性用来描述对象的性质
D)同一种类型的对象具有相同的属性 写如下程序：
Private Sub Commandl_Click()
Dim x，y，z As Integer
Text1.Text=''''
C．全局数组 D．全局用户自定义类型 ，
Shift As Integer，X As Single，Y As Single)
If(Button And 3)=3 Then
Print &Hello&
Else Print x-1
B．0 C．-1 D．不确定 N-1
For L=1 TO K+1
A(X)=A(X)+A(X-1)
If K&N-1 Then Exit For
Print A(X)；
B．随机文件由若干条记录组成，并按记录号引用各个记录
C．可以按任意顺序访问随机文件中的数据
D．可以同时 s Integer，c As Integer
Private Sub Commandl_Click()
a=2：b=4：c=16
Call Procl(a，b)
Print&a=&；a；&b=&；b；
D)False 体模块、标准模块、类模块
C)标准模块、类模块、过程模块
D)窗体模块、过程模块、函数模块
C)PasswordChar
可以任意改变
B)工具栏一定在菜单栏的下方
C)工具栏可以显示或隐藏
D)Visual Basic有多个工具栏
B)Space函数既可以用于Print方法中，也能用于表达式
C)Spt函数与Space函数均生成空格，没有区别
D)以上说法都不正确
D)SelStart
A)Move B)Change
C)Scroll D)Setfocus
B)工程文件、ActiveX控件的文件、资源文件
C)工程文件、类模块文件、标准模块文件
D)工程文件、窗体文件、窗体的二进制
9-t)^(2/3))/(A*B)
B)(Sin(3.14159-t)^(2/3))/A*B
C)Sin(3.14159-t)，(2/3)/(A*B)
D)(Sin(π -t)^(2/3))/(A*B)
ame属性为Command1），然后编写如下两个事件过程：
Private Sub Command1_Click()
= Ucase$(Text1.Text) + Left$(Text2.Text， a 若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列正确实现上述功能的程序是____。
A)Private Var=&True& B)boolVar=.True.
C)boolVar=#True#
D)boolVar=3&4 的属性，预先应执行的操作是____。
A)单击窗体上没有控件的地方
B)单击任一个控件
C)不执行任何操作
D)双击窗体的标
中只能存放同类型的数据
B)Visual Basic的数组，维的界只能从0开始或从1开始
C)用Option Base n语句指定数组下标的默认下界
行上面的三重循环后，a 的值为 。
3 B) 9 C) 14 D) 21 Next 执 A) Click()
HScroll1.LargeChange=5
A)将滚动条的最大值设为5
B)将滚动条的最大改变值改变5
C)将滚动条的最
111 D)&017 B)style
C)DownPicture
D)DisabledPicture。
A)Left
B)Top
C)Width
D)Height 属性是____
A)Name与Caption
B)Enabled与Visible
C)Style与BorderStyle
D)Cancel与Default
D)14 ,不能共同使用同一个终端语句
B)任何一种循环都必须有起始语句和终端语句
C)不能用While?Wend语句设计出确定循环次数的循环
st1.List(ListCount-1)
C)List1.Listindex
D)List1.list(ListIndex)
s Integer)
= Array(237,126,87,48,498)
KeyAscii = 13 Then
a(I)&ml Then
a m1 m2 If For If m1 m ___。
A)AutoSize
C)AutoRedraw
D)Appearance
C)1 D)其他 st1.List(1)=&List&
C)List1.List(2)=List1.ListCount
D)L1stl.List(2)=str(List1.ListCount)
体事件和其中所有控件事件的代码都放在窗体文件中
窗体的名字和存盘的窗体文件名必须相同
开始运行时窗体的位置只能是设 C． D． 下能实现该操作的事件过程是
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii & 65 Or KeyAscii & 90 Then
or k：1 To n
p$=Mid(x，k，1)
If p$=&(& Then
Elself p$=&)& Then
If m&0 Then
2&1 And 3&2
C) 1&2 or 2&3
D) Not(1&2)
Private Sub______()
Static Intleft As Integer
Intleft=Intleft+100
Form1.Left=Intleft
D)GetFocus 书写，可以在行末使用续行字符____，表示下一行是当前行的继续。
A)一个空格加一个划字符( _)
B)一个划字符(_)
End Private Sub Commandl_Click ()
a As Integer
Dim a For Print F(a)
行上面 End 运 extl中输入的不是这个区间上的数值，光标不能移出Textl，要重新输入正确的数据后方可继续执行别的操作。下列程序段正确的是____ 当前文件夹下名为StuData．dat的文件的内容读人内存
B．在C盘当前文件夹下建立名为StuData.dat的顺序文件
C．将内存数据存
B)2 C)3 D)4 ate Sub Form_Load()
Text1.Text=&&
Text1.SetFocus
For I=l To lO
Text1.Text：Sum
D．ListlndexSub Commandl_Click()
= Array(1,2,3,4)
I = 4 To Step -1
= s + a(I)*j
Dim a j For s j Next I
Sub End 写如下事件过程：
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim I As Integer, j As Integer
第1个字符串中起始位置的函数是_____
A)Left
B)Mid C)String D)Instr )#05/08/1995#+#01/07/1995# 属性值设置为____。
D)5000)a=5：b=8
Loop While a&b
Loop Un on Explicit
C)Type Student
D)DefVar X-Z rivate Sub Commandl_Click()
X=InputBox(&请输入x的值&)
y=InputBox(&请输入y的值&)
If x&y Then s=y
多文档界面（MDI）是指在一个父窗口下面可以同时打开多个子窗口
子窗口归属于父窗口
如果父窗口关闭，则所有子窗口 B． C． 命令打开菜单编辑器
B．只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
C．只有当代码窗口为当前活动窗口时，才有打开菜
键盘上输人数值10，并按回车键，则下列叙述中正确的是____
A)变量X的值是数值10
B)在InputBox对话框标题栏中显示的是&示例
句是____。
A)Listl.AddItem A$
B)Listl.AddItem &A$&
C)Listl.AddItem A$，0
D)AddItem A$ 0
C)Z=X：X=Y：Y=Z
D)Z=X：W=Y：Y=Z：X=Y o 3
y=10
For k3=0 To 2
y=y+10
Next k3
Next k2
Next k1
Print y
A)90
B)60 C)40 D)10 按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim x As Integer，n As Integer
一部分 B)方法是预先规定好的操作
C)方法是对事件的响应
D)方法用于完成某些特定功能 on B)Text
D)AutoSize A)控件工具 B)自定义对象
C)标准对象
C)[-4,15]
D)[-5,15]
C)变体 D)数值或字符串(视输入的数据而定) xs%；zxs
运行后，输出结果是____。
A)232 232032
B)232 232
C)232.32 232.32
D)显示出错信息 For I=1 To 5
X$=A$：Y$=Space$(n)
Mid$(X$,I+1,n)=Y$
D)显示出错信息后的输出结果为____。
Private Sub Commandl_Click()
Dim A As Integer，B As Integer
Text1.SelStart=2
将其Style属性设置为( )
B．1 C．2 D．3 然后再将ScrollBar属性设置为：( )
B．1 C．2 D．3 lse Y=X+3
Print X-Y；Y-X
3 B．5 -8 C．3 -3 D．25 -25 i
For i=1 TO k
For j=1 Tok
M(j)=M(i)+1
Print M(k)；
B)1 2 3 4 Commandl_Click()
Dim Arr(3，3)
For i=0 To 3
For j=0 To 3
Arr(i，j)=i+j
For m=2 TO 3
过程中 B．窗体模块的通用声明段
C．标准模块的通用声明段
D．窗体模块或标准模块的通用声明段 *10 B．Int(N/10)-Int(N/100)
C．N-Int(N/100)*100
D．Int(N-Int(N/100)*100) 23456 B．123445 C．8 D．6 的局部变量都是Static类型
B．Sub过程中不能嵌套定义Sub过程
C．Sub过程中可以嵌套调用Sub过程
D．事件过程可以像
X(1，J)=X(I-1，J-1)+I+J
Print X(3,4)
B．12 C．15 D．18cus B)LostFocus
C)KeyPress
D)SetFocus 属性设置为True，这个属性是 。 A) Value B) Default C) Cancel D) Enabled
C)专业版 D)企业版编辑器&按钮 C）执行&工具&菜单中的&菜单编辑器&命令 D）按Shift + Alt + M
C)事件驱动 D)过程结构化 orm_Load()
List1.AddItem &Beijing&
List1.AddItem &Tianjin&
List1.AddItem &Shanghai&
Textl.Text=& &
对象功能的内部函数或过程。
B)属性 C)方法 D)窗体 入的字符仍然显示出来，而不显示星号，原因可能是________：
A)文本框的Multiline属性值为True
B)文本框的Locked属性值
= Chr(13) + Chr(10) msg$ = &1．运行VB应用程序& + nl + &3．计算器& msg$= msg$ + nl + &请输入数字选择& retnum = Inp l
B)Private Sub Command_Click()
Dim x As Integer
B)### C)#D)3#
Text2.Width=Textl.Text
x=Textl.Text+Textl.Text
2# ## ## 2#
3# #b) Or (b&0)
C)(a&0) Eqv (b&0)
D)(-3+5&a) And (b&0)
D)Print A&=B
ElseIf x&b Then Print &x&b&
Print &x&a&
Else Print &x&=a，x&=b&
ElseIf x&b Then
For J=1 To 5
Print &A(5)=&；A(5)
B．A(5 Const D)X1_y2_z3 下方式中，不能启动Visual Basic的是____。
A)通过“开始”菜单中的“程序”命令
B)通过“我的电脑”找到vb6．Exe，双击
B．ActiveX
C．可插入控件
D．外部控件 的属性是
TabStop A)
Visible C)
D)TabIndex te Sub Command1_Click()
Print Format$(a, &000.00&)
Sub
序运行后，单击命令按钮，窗体上显示的是
B)TextBox和DriveListBox
C)ComboBox和CheckBox
D)FileListBox和DirListBox
B)面向图形对象
C)VB窗口中包含有菜单栏和工具栏 D)事件驱动编程机制
A(1，9)=I*J
Print A(2，5)+A(3，4)+A(4，5)
B．42 C．32 D．52
C)&Januaryl0，1997&
D)&Januaryl0，1997&
ze D)Alignment 文本框中没有内容
B)文本框的MultiLine属性值为False
C)文本框的MultiLine属性值为Ture
D)文本框的Locked属性值为T
Click() For I=1 To 4 x=4 For j =1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next I Print x End Sub 程序运行后，单击
B)方法指示对象的行为
C)事件是能够被对象识别的动作
D)Visual Basic程序的运行机制是“面向对象”
For m=10 To k Step -2
Loop While Abs(m+n)&&27
序数相隔4个字符显示在一行上,例如:产生345,输出345,543
Private Sub Form_Click()
Dim a As Integer，s As String，b AS
编写如下事件过程：
Private Sub Command1_Click()
n = Val(Text1.Text)
For I = 2 To n
For j = 2 To sqr( 必须相同
B)控件数组的每一个成员的Index属性值都必须相同
C)控件数组的每一个成员都执行同样的事件过程
er, _ Shift As Integer, X As Single Y As Single) If Button =2 Then Print &AAAAA& End If End Sub Private Sub Form _
Day before yesterday&，5)
将显示一个输入对话框，在对话框的输入区中显示的信息是____。
B)Tomorrow
一个[1,10]之间的随机整数
C)产生一个(-1,1)之间的随机小数
D)产生新的随机整数。
行时，总是等待事件被触发
B)Visual Basic程序设计的核心是编写事件过程的程序代码
C)Visual Basic程序是以线性方式顺
m_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ?? End Sub B．Private Sub Form_MouseU
要求每一秒钟在文本框中显示一次当前的时间。程序为：
Privme SubTimerl_ ________()
TxtTime.Text=Time
End Sub
A)E
，需要把该命令按钮的一个属性设置为Ture，这个属性是____。
D)Enabled od y
Sub
窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click ( )
a As Single
b As Single
C)Log(x)/Log(e)
D)Log(x)／Log(10)
果为____。
Private Sub Commandl_Click()
Listl．AddItem &China&
Listl．AddItem &Great&
Listl．AddItem &Is&，1
C)立即窗口
D)窗体窗口)MaxButton D)ControlBox )对象名.事件名 D)对象名.函数名 (-3.5)+0.5
C)-Abs(-3.5)
D)Sin(30*3.14/180)
写如下事件过程：
Private Sub Commandl_Click()
Dim I As Integer，n As Integer
For j=0 To 50
用来输入要添加到列表框中的项目的内容。程序运行后，单击命令按钮，会将文本框中的内容放人列表框中。程序如下：
Private Su
orm.Line(a,b)-(c,d),,BF
End Sub
单击窗体后，窗体上显示的是____。
A)一条直线
B)一个矩形空框
C)一个填充了颜色的矩形
名的长度不超过255个字符
C．变量名可以包含小数点或者内嵌的类型声明字符
D．变量名不能使用关键字
一个窗体文件中用Private定义的通用过程能被其他窗体调用
C．在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类
B)货币型数据与浮点型数据完全一样
C)货币型数据是由数字和小数点组成的字符串
D)货币型数据是小数点位置固定的
型没有关系
在函数过程中，过程的返回值可以有多个
当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
)单精度型 D)双精度型 个属性设
为True，这个属性是________
A)Value 置
D)Enabl Text+&Text&
C)Label1.Caption+Label1.Caption
D)Labell.Name+Labell.Visible
PrintTab(Y+5)；”*”；
A) * * * * *
B)* * * * *
* * * * * * * *
al Basic与Basic的编程机制不同
C)Visual Basic是过程设计语言
D)Visual Basic与Basic两者之间没有什么联系
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)
cture1.Picture=&mypic.jpg&
B)Picture1.Image=&mypic.jpg&
C)Picture1.Picture=LoadPicture(&mypic.jpg&)
D)LoadPict
，Private，Static或Public来声明变量的类型
B)用类型说明符标记变量类型，类型说明符有：％，&，!，#，@，$
C)用Defrype
Print Tab(10-k)
For m=1 To 2*k-1
Print &%&；
%%% %%% 源程序
C)运行程序 D)打开程序 求平均值
B)将一个实数四舍五人取整数
C)求绝对值
D)舍去一个实数的小数部分
e Sub Command_Click() B)Private Sub Command_Click()
x=Textl.Text
Commandl.Caption=Textl.Text
nt Space(5-A)；String(A，&* &)
* * * * * *
择的当前驱动器的不同而同时发生变化，则应____
A. 在Dir1中的Change事件中，书写语句Dir1．Drive=Drive1．Drive
B．在Dir1中的
A．Text属性值为* B．Caption属性值为*
C．Password属性值为空
D．PasswordChar属性值为*
B．局部变量的作用域可以超出所定义的过程
C．在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但 b Procl(ByVal n，ByVal m)
B．Sub Procl(n，ByValm)
C. Sub Procl(n，m)
D．Sub Procl(ByVal n，m) Y=-1
Print Y-X&0
B．False C．-1 D．1
C．VISUAL D．BASIC 序执行
B．顺序文件结构简单
C．能同时对顺序文件进行读写操作
D.顺序文件的数据是以字符(ASCII码)的形式存储的
“打开工程”按钮 Style属性设置为1，BorderStyle属性设置为0
D)将其Backstyle属性设置为1，Borderstyle属性设置为1
D)执行完一个程序段的所有语句后程序自动关闭文件se语句可关闭所有文件
义后，系统将变体变量初始化为数值0或空字符串
D)设X为变体变量，且X=&10&，则X=X+20是正确的语句
Dim rec As animal
Open &c:\vbTest.dat& For Random As命令按钮，然后编写如下事件过程:
Private Sub Command1_Click()
Style属性设置为1-5
把窗体的ControlBox 属性设置为False,同时把BoderStyle属性调协为非0值
把窗体的ControlBox 属性设置为 C)
k=k+p(I)*2
33 B) 28 C) 35 D) 37 End A)程，则程序将首先执行该过程
如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体 D)
C)在同一个程序中，可以多次使用Static或ReDim语句，对同一个数组重新定义
D)用ReDim语句对同一数组重新定义时，既
光标置于文本框上，但是不能改变文本框中的内容
C)文本框中的文本将变成灰色，用户仍然能改变文本框中的内容
D)文本框的文
D)a=Array(1，2，3，4，5，6)
程序的功能是求数组a的最小元素值，并把最小值放在文本框中。为实现程序的功能，省略号处的程序段应该是（ ）
此 A．Min = aPrint
程序运行后，如果单击命令按钮，则在窗体上显示的内容是____。
B)A C)B D Y!
C)Flying IS FUNNY!
D)FLYING IS FUNNY!
List.AddItem &456&
Text1.Text=& &
Private Sub Command1_Click()
List.Listindex=3
tch属性值设置为False D)leleleleleB)alb2c34dSe
C)eld2c3b4a5
面、编写代码、调试程序认字体)
人民(默认字体) 人民(仿宋)
I = 4 To 1 Step -1
s = s + a(I) * j
Print x Print x
End Select
万岁!(默认字体) 万岁!(宋体)
C)中国(默认字体)
D)中国隶书(默认字 j = j * 10
Sub
行上面的程序，单击命令按钮，
End Select
C)Select Case x D)Select x
Case x is&10
Case is&10B)5 4 3 2 1 0
C)出现语法错误的信息
个同心不相交圆
D)两个同心不相交圆
D)陷入死循环,####.##&)
C)PrintFormat$(x，&，######.##&) D)PrintFormat$(x，&######,.##&)Mid(aS，1，8)
MsgBox aS，，b$，c$，1
则在弹出信息框的标题栏中显示的信息是____。
A)software and hard
A=Text1.Text+Text2.Text
PrivateSubForm_Load()
Text1.Text=&&
Text2.Text}
我要回帖
更多关于 lf353输出阻抗 的文章
更多推荐
- ·外网是什么软件内网哪个好
- ·请问QPST软件连接高通9008能解bl吗端口，卡在如图这里，手机是联想K5 Pro，请大佬帮忙解决，谢谢！
- ·苹果x刷机之后有与物主华为手机被锁定了还能刷机吗记得密码记不得账户 邮箱了什么办法可以查到账号？
- ·哪个手机口碑最好的捕鱼游戏排行榜好玩
- ·faspeed p8-256g的手机ufs闪存擦写寿命命是多少?
- ·跪求法国电影《再见我的皇后裸露在几分钟》百度云资源！！
- ·怎样用网络不动声色的意思找到朋友的位置
- ·和认识不久的相亲男分手不久男朋友相亲，当时闹的有点不愉快，我把他拉黑了，发现后来他的个性签名写的是我的qq号？
- ·这是什么弄爱心的p图软件件弄得??
- ·cbg2080g的gcbg是什么意思思
- ·大家有没有淘宝上信得过的代购店推荐一下
- ·直播限流有啥好处，微信公众平台官网可以从中获得什么利益？
- ·现在想自己配置台式电脑，请问哪款固态硬盘价格表比较好
- ·前辈 这前辈是什么意思字体
- ·电脑苹果CPU拆下来有点拱不下来已经把四个脚都弄了拔不出来
- ·笔记本3:2屏幕看电影体验屏幕 黄颜色特别黄看电影时特别明显，其他颜色都很正常，不是屏幕问题，换了屏幕还是这样想，谢谢
- ·gta4 win10 64位 玩gta4 failed to gta4进游戏按start黑屏 application 2000
- ·要找好的软件考研学校推荐学校呢，你们能推荐下吗？
- ·天翼光猫上宽带灯不亮亮
- ·大发快3周大发黄金是真的吗？
- ·123456 md5.789以%5.2lf输出
- ·请请你看看我我发的新提问，图片中的女的叫什么名字啊，谢谢！
- ·微信怎么查最近和谁聊呢是谁?
- ·极简建站一个微信小程序建站多少钱？
- ·1008600102是什么168信息台是什么
- ·18款哈弗h6手动精英自动精英型USB支持什么U盘格式
- ·闲鱼上闲鱼的手工活是真的吗回收是真的吗
- ·极简建站的建站abc小程序代理适合代理吗？
- ·我不小心吧我的小米手机不小心把照片删了怎么办字换成了藏语
- ·京东种菜看图写话小白兔种菜，能有大神带带我？
- ·问下，软件开发软件专业学校校哪个好呢？
- ·极简风网站建站一个网站才几百块吗？
- ·微博签约自媒体怎么弄会不会掉
- ·荣耀paly是荣耀play用的什么屏幕幕
