X>10C，not（x>=0andx<=10）D，X<0andx>10
003004下列不能判断整型变量x是5的倍数的表达式是（）C
A，xMod5=0B，x/5=x\5C，5Modx=0D，int（x/5）=x/5
003005下列表达式的运算结果中，值最小的是（）B
A，5/6B，5\6C，5mod6D，6mod5
004001以下（）语句可表示[10，50]之间的随机整数。
A
A，Int（Rnd*41）+10B，Int（Rnd*41+9）C，Int（Rnd*40）+11,D，Int（Rnd*40+10）
004002设x="ABC",Y="AB",函数IIF（XY,-1,0））的返回值是（）。
C
A，1B，0C，-1D，出错
004003设a="李大刚"以下（）语句输出的结果为“李”D
A，Left（a,2）B，Mid（a,0,2）C，Mid（a,1,2）D，Mid（a,1,1）
004004以下（）语句能使窗体Form1的背景为黄色。
D
A，Form1.BackColor=RGB（255,0,255）
B，Form1.BackColor=vbBlue
C，Form1.BackColor=vbGreen
D，Form1.BackColor=RGB（255,255,0）
004005以下（）语句可表示[10，50]之间的随机整数。
C
A、Int（Rnd*40+10）B、Int（Rnd*41+9）C、Int（Rnd*41）+10D、Int（Rnd*40）+11
004006以下（）函数输出的结果为数值型D
A、InputBoxB、FormatC、StringD、Asc
005001下列叙述中，错误的是（）。
D
A，要强制显式声明变量，可在窗体或标准模块的声明中加入OptionExplicit
B，如在某过程中直接使用未定义的变量X，则该X的初值为空、类型为Variant
C，用Dimr=5asInteger定义的变量r，其初值为整数5
D，如在某过程中用Constr=5定义r，则在该过程的后续语句中对r只能读不能写
005002函数Format（2345.678,"##，##0.00"）输出结果是（）B
A，数字型2345.68B，字符型2,345.68C，数字型2345.67D，字符型2,345.67
005003下列叙述中，错误的是（）B
A，在同一行上书写多条语句语句应在两个语句加上：
号
B，一条语句可以分为多行书写，但要在上行末加上VbCrlf
C，VB程序代码不区分字母大小写
D，可以用Rem或’注释单行语句
005004下列语句正确的是（）。
A
A，Picture1.ClsB，Image1.ClsC，Text1.ClsD，List1.Cls
005005用DimX,Y%语句定义X和Y，则（）变量B
A，X和Y均为整型
B，X为初值为空的可变类型，Y为初值为0的整型
C，X和Y均为可变类型
D，X为可变类型，Y为整型，且X和Y的初值均为0
006001执行语句st=InputBox（"请输入数值","输入对话框","1"）,用户输入5并按"确定"按钮后，st变量的内容为（）。
B
A，5B，"5"C，"请输入数值"D，"1"
006002窗体上有一个命令按钮Command1，编写如下事件过程：
PrivateSubCommand1_Click（）
x=Val（InputBox（x=""））
y=Val（InputBox（x=""））
Printx+y
EndSub
运行后，单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是（）。
D
A，出错信息B，123+321C，123321D，444
006003执行语句X=MsgBox（"Error",vbOKCancle）,弹出对话框后按Esc键，变量X的内容为（）B
A，数值型2B，数值型1C，字符型1D，字符型2
006004窗体上有命令按钮Command1和其他若干个控件，为使程序运行时焦点首先在Command1上，必须设置Command1的（）D
A，Tabindex为1B，Index为1C，Index为0D，Tabindex为0
006005下列关于函数MsgBox的叙述，不正确的是（）B
A，可以设定消息框的指定图标
B，可以省略任何参数
C，可以指定消息框的默认按钮
D，函数调用后返回值为数值型
006006执行语句MsgBox"除数不能为0！
",2+16,"数据出错"，在弹出的对话框中显示（）A
A，停止图标和“终止“，“重试”，“忽略”三个按钮
B，消息图标和“是”，“否”，“取消”三个按钮
C，感叹号图标和“是”，“否”两个按钮
D，问号图标和“确定”，“取消”两个按钮
007001窗体的（）属性设置在程序运行时才起作用。
C
A，CaptionB，BorderStyleC，TopD，Backcolor
007002程序运行时，不是由系统触发的事件是（）D
A，LoadB，InitializeC，ActivateD，MouseMove
007003使用下列（）语句可删除组合框Combo1中选定的项C
A，Combo1.RemoveItemCombo1.Text
B，Combo1.removeiitemCombo1.List（Index）
C，Combo1.RemoveItemCombo1.ListIndex
D，Combo1.RemoveItemCombo1.List（ListIndex）
007004以下叙述中错误的是（）A
A，所有属性既可以在属性窗口中设置，也可以在程序代码中设置
B，时钟只有系统事件，没有用户事件
C，任何时刻活动窗口最多只有一个
D，Hide方法只是隐藏一个窗口，而不是从内存中清除该窗体
007005VB中用来完成一定的操作或是实现一定功能的特殊函数称为（）C
A，事件B，过程C，方法D，属性
007006在文本框中输入文字发生许多事件，这些事件的顺序是（）A
AKeyDown，Keypress，Change
BKeypress，KeyUp,Change
CKeyUp,Keypress,Change
DKeyDown,Change,Keypress
008001下列叙述错误的是（）。
C
A，当文本框的内容发生变化时，必将触发Change事件
B，当光标从文本框中移走时，发生LostFocus事件
C，文本框ScrollBars属性值为2时，才能使文本框显示多行内容
D，设置文本框的MaxLength属性，可限制其输入文本的最大长度
008002下列（）是文本框所具有的属性。
B
A，StyleB，EnabledC，AutoSizeD，Caption
008003下列（）是所有控件的公共属性。
A
A，Name和tagB，Name和WidthC，Name和EnableD，Name和Visible
008004计时器不工作的原因是（）D
A，计时器的Interval属性值肯定为0
B，计时器的Enable属性肯定为False
C，计时器的Interval属性值大于60000
D，计时器的Interval值为0或Enable值为False
008005要判断是否按了Pause键，应在（）事件中判断C
A，KeypressB，GotFocusC，KeyDownD，Click
008006下列叙述错误的是（）。
B
A，键盘Keypress事件区分大小写字母
B，键盘Keypress事件可接收键盘所有键的信息
C，键盘KeyDown事件可接收键盘所有键的信息
D，键盘KeyDown事件事件不区分大小写字母
009001下列（）方法可以改变窗体坐标轴的方向、坐标原点的位置和坐标的度量单位。
A
A，ScaleB，LineC，PointD，Pset
009002下列（）语句不能清除图片框Picture1使用Print显示的文本和用Circle绘制的图形。
C
A，Picture1.clsB，Picture1.picture=loadPicture（）C，Picture1.clearD，Picture1.Refresh
009003运行下列语句后，窗体当前坐标（CurrentX,CurrentY）值为（）A
Line（1000,1500）-Step（2000,2500）
A，（3000，4000）B，（2000，2500）C，（3000,2500）D，（1000,2500）
009004下列（）语句可绘制扇形A
A，Circle（1500,1500）,500,,-1,-2
B，Circle（1500,1500）,500,-1,-2
C，Circle（1500,1500）,500,1,,,2
D，Circle（1500,1500）,500,,1,2
009005下列叙述中错误的是（）。
A
A，Point方法用于绘制有颜色的点
B，Circle方法用于画圆、椭圆、弧、扇形
C，Line方法用于画直线、矩形
D，Pset方法用于绘制点
010001下列使复选框Check1被选中但无效的语句是（）。
A
A，Check1.Enabled=FalseB，Check1.Value=2
C，Check1.Value=FalseD，Check1.Value=1
010002单选按钮的控件组各元素之间由（）属性识别。
B
A，CaptionB，IndexC，NameD，Value
010003下列对框架控件的叙述，错误的是（）B
A，将一组单选按钮置于一个框架内使其选中其中之一
B，在某控件上画框架，就可将控件置于该框架内
C，通过拖动框架以判断一个控件是否置于该框架内
D，在框架内画控件，才能使控件置于该框架内
010004下列能使单选按钮Option1被选中，复选框Check1未被选中的语句是（）A
A，Option1.Value=True和Check1.Value=0
B，Option1.Value=1和Check1.Value=False
C，Option1.Value=0和Check1.Value=True
D，Option1.Value=False和Check1.Value=1
010005如果要在单选按钮上显示某个图标，应先将（）C
A，Alignment属性设置为0
B，Style属性设置为0
C，Style属性设置为1
D，Alignment属性设置为1
011001命令按钮要设成图形方式，必须（）。
C
A，先设置Style属性为0，后设置Picture属性
B，先设置Picture属性，后设置Enabled属性为True
C，先设置Style属性为1，后设置Picture属性
D，先设置Enabled属性为True，后设置Picture属性
011002通过对命令按钮的（）属性设置以决定按下Esc键是否有效。
B
A，CancelB，DefaultC，VisibleD，Style
011003单选按钮的控件数组各元素之间由（）属性识别。
D
A，NameB，ValueC，CaptionD，Index
011004执行语句Command1.Move500,1000的结果是（）C
A、命令按钮向上移动500、向左移动1000
B、命令按钮移动到距屏幕左边界500、上边界1000的位置
C、命令按钮移动到距左边界500、上边界1000的位置
D、命令按钮向左移动500、向上移动1000
011005窗体上有命令按钮Command1和其他若干个控件，为使程序运行时焦点首先在Command1上，必须设置Command1的（）B
AIndex为1BTabIndex为0CIndex为0DTabIndex为1
011006要使指针指向命令按钮时显示提示内容，应设置其（）属性。
C
A、CaptionB、AppearanceC、ToolTipTextD、Font
012001通过对命令按钮的（）属性设置以决定按下Esc键是否有效。
D
A，StyleB，VisibleC，DefaultD，Cancel
012002使用（）语句将组合框Combo1的文本框的内容添加在第一项前。
c
A，Combo1.additemcombo1.listindex,0
B，Combo1.additemcombo1.text,1
C，Combo1.additemcombo1.text,0
D，Combo1.additemcombo1.listindex,1
012003窗口（）属性设置在程序运行时才起作用。
B
A，captionB，topC，borderstyleD，backcolor
012004使用下列（）语句可删除组合框中Combo1选定的项C
A、Combo1.RemoveItemCombo1.list（Index）
B、Combo1.RemoveItemCombo1.lise（index）
C、Combo1.RemoveitemCombo1.listindex
D、Combo1.RemoveItem.Combo1.Text
012005执行下列程序的结果是（）B
Fori=0to3
List1.List（i）=i+10
Nexti
A,在列表框List1的第1—4项顺序添加数值型10、11、12、13
B,在列表框List1的第1—4项顺序添加字符型10、11、12、13
C,程序运行出错
D,在列表框List1后分别添加10、11、12、13四项内容
012006设置列表框的MultiSelect为（）通过单击就能选择列表框中多个项A
A,1B,0C,2D,True
013002要在组合框的文本框中禁止输入内容，style属性应设置为（）。
D
A，0
B，True
C，1
D，2
013003下列不能改变滚动条的Value值的操作是（）B
A，单击滚动条两端的箭头B，按<+>键<->键
C，单击滚动条箭头与滚动块间的区域D，拖动滚动块
013004下列（）是文本框具有的属性。
D
A，CaptionB，AutosizeC，StyleD，Endabled
013005设置滚动条的（）属性，单击滚动箭头与滚动快间的区域时可改变滚动步长。
A
A，LargeChangeB，MinC，SmallChangeD，Max
013006使用滚动条控件的时候，下面说法不正确的是（）。
B
A，拖动滚动块时可同时触发Scroll和Change事件
B，当拖动滚动块时只触发Scroll事件
C，滚动条的Value值属于[Min，Max]范围
D，当滚动条的Value值发生一次变化就触发一次Change事件
014001运行以下程序后，文本框上输入"abcd"字符串，变量st的内容是（）。
C
DimstAsString
PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
st=Chr（KeyCode）+st
Printst
EndSub
A，DB，ABCDC，DCBAD，abcd
014002下列叙述中，正确的是（）。
A
A，在KeyUp事件中，主键盘上的"1"和小键盘上"1"键被视为不同的键
B，在KeyDown事件中，可以识别A和a键码的输入
C，所有对象均能接受键盘事件
D，KeyPress事件中可以识别键盘上任意键码
014003设置滚动条的（）属性，单击滚动箭头与滚动块间的区域是可改变滚动步长。
C
A，SmallChangeB，MaxC，LargechangeD，Min
014004设置控件的（）属性，按Tab键可以改变该控件获得焦点的顺序B
A，TabstopB，TabindexC，indexD，Setfocus
014005下列叙述中，错误的是（）。
A
A，KeyPress能接收所有键盘信息
B，当用户按下并释放一个键后，触发事件的顺序是KeyDown、KeyPress、KeyUP
C，KeyPress接收到的是用户通过键盘输入的ASCII码字符
D，KeyUp和KeyDown可以接收所有键盘信息
014006下程序的功能是（）D
PrivateSubText1_keyPress（KeyAsciiasInteger）
IfKeyAscii<65OrKeyAscii>90Then
Msgbox“请重输”
KeyAscii=0
EndIf
EndSub
A文本框Text1只能接收小写字母的输入
B文本框Text1可接收从键盘输入的ASCII码字符
C文本框Text1只能接收大小写字母的输入
D文本框Text1只能接收大写字母的输入
015001如下程序段的功能是：
利用公式e=1+1/2-1/3+......+1/n求自然对数的底e近似值，要求累加的到最后一项小于0.000001为止。
Dime#,t#,n#
e=0:
t=1:
n=1
DoWhile1/t[1]0.000001
e=e+1/t
t=[2]
n=n+1
Loop
Print"自然对数的底e近似值为：
",e
程序的空缺处[1]和[2]应分别填写（）D
A，>和t+nB，<和t*nC，<和t+nD，>和t*n
015002运行以下程序后，在文本框上输入"abcd"字符串，变量st的内容是（）。
C
DimstAsString
PrivateSubText1_keydown（KeyCodeAsInteger,ShiftAsInteger）
st=Chr（KeyCode）+st
EndSub
A，abcdB，DC，DCBAD，ABCD
015003下列程序是判断输入的正整数n是否为素数。
Dimi%,n%,t%
n=Val（InputBox（"n="））
Fori=2Ton\2
Ifn/i=n\iThen
t=1
[1]
EndIf
Nexti
If[2]ThenPrint"不是素数"ElsePrint"是素数"
程序的空缺处[1[和[2]应分别填写（）。
B
A，i=i+1和t=0B，ExitFor和t=1C，ExitFor和t=0D，i=i+1和t=1
015004如下程序段的功能是：
从键盘上输入若干学生的考试分数，当输入负数时结束输入，然后输出其中最高分、最低分和平均分。
PrivateSubForm_Click（）
Dimx!
mmax!
mmin!
s!
n%
X=val（Inputbox（＂请输入学生的考试分数＂））
Mmax=x:
mmin=x:
s=x:
n=1
Dowhilex>=0
If[1]Then
Mmax=x
EndIf
IfxMmin=x
EndIf
X=val（Inputbox（＂请输入学生的考试分数＂））
S=s+x
N=[2]
Loop
Print"Max=";mmax,"Min=";mmin,"s=";s
升级会员 