2、"下面程序的功能是：
随机产生25个两位的随机数，将其组成一个五行五列的矩阵输出，并计算其右对角线元素之和。
请将程序补充完整。
PrivateSubCommand1_Click（）
Dimx（1To5,1To5）
s=0
Fori=1To5
Forj=1To5
x（i,j）=____
（1）____
Printx（i,j）;
If____
（2）____Thens=s+x（i,j）
Nextj
Print
Nexti
Prints
EndSub
1）Int（Rnd*90+10）2）i=j
3.下面程序的功能是：
设计一个选课运行界面，如下图所示。
它包含两个列表框，左边列表框list1为已可供选择的课程名，当单击某课程名后，将该课程加入到右边的列表框list2中，同时在左边列表框中删除。
当右边课程数已满5门时，不允许再加入。
请将程序补充完整。
PrivateSubForm_Load（）
List1.Clear
List1.AddItem""大学计算机基础""
List1.AddItem""VB程序设计""
List1.AddItem""数据库技术与应用""
List1.AddItem""C程序设计""
List1.AddItem""多媒体技术""
List1.AddItem""硬件技术基础""
List1.AddItem""网络技术与应用""
List1.AddItem""WEB程序设计""
EndSub
PrivateSubList1_Click（）
If____
（1）____Then
MsgBox""超过5门课程，不能再选！
""
ExitSub
Else
____
（2）____
List1.RemoveItemList1.ListIndex
EndIf
EndSub
1）List2.ListCount>=52）List2.AddItemList1.Text
4."下面程序的功能是：
随机产生20个两位的随机数，将其组成一个四行五列的矩阵并输出。
请将程序补充完整。
PrivateSubCommand1_Click（）
Dimx（1To4,1to5）
Fori=1To5
forj=1to4
x（i,j）=____
（1）____
Printx（i,j）;
Nextj
____
（2）____
nexti
EndSub
1）Int（Rnd*90+10）2）Print
5、"下面程序的功能是：
找出被3、5、7除，余数均为1的最小的5个正整数。
请将程序补充完整。
PrivateSubCommand1_Click（）
Dimcount%,n%
count=____
（1）____
n=1
Do
n=____
（2）____
IfnMod3=1OrnMod5=1OrnMod7=1Then
Printn
count=count+1
EndIf
Loop____（3）____
EndSub
1）02）n+13）Untilcount=5（whilecount<5）
6、"下面程序的功能是：
将输入的字符串以反序显示，如输入""ASDFGHJKL""，显示""LKJHGFDSA""。
请将程序补充完整。
PrivateSubCommand1_Click（）
s=InputBox（""输入字符串：
""）
Fori=____
（1）____To1Step-1
Print____
（2）____;
Nexti
EndSub
1）Len（s）2）Mid（s,i,1）
二、选择题：
1、在VisualBasic中称对象的数据为__________。
A、属性B、方法C、事件D、封装（A）
2、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是__________。
A、单选按钮B、图片框C、通用对话框D、文本框（C）
3、双击窗体中的对象后，VisualBasic将显示的窗口是_（C）___。
A、项目（工程）B、窗口工具箱C、代码窗口D、属性窗口4、VB是一种_________的可视化编程程序。
A、面向对象B、面向过程C、A和BD、面向机器（A）
5、为了使文本框同时具有水平和垂直滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为________。
A、0B、1C、2D、3（D）
6、为了取消窗体的最大化功能，需要设置_________属性为False。
（D）
A、ControlBoxB、MinButtonC、EnabledD、MaxButton
7、文本框（Text1）中有选定的文本，执行Text1.SelText=""Hello""的结果是_________。
A、"Hello"将替换掉原来选定的文本B、"Hello"将插入到原来选定的文本之前C、Text1.SelLength为5D、文本框中只有"Hello"（A）
8、为了使标签覆盖背景，应把BackStyle属性设置为_________。
A、0B、1C、TrueD、False（B）
9、要使某控件在运行时不可显示，应对__________属性进行设置。
A、EnabledB、VisibleC、BackColorD、Caption（B）
10、以下能够触发文本框Change事件的操作是_________。
A、文本框失去焦点B、文本框获得焦点
C、设置文本框的焦点D、改变文本框的内容（D）
11、当运行程序时，系统自动执行启动窗体的_________事件过程。
A、ClickB、UnLoadC、LoadD、GotFocus（C）
12、要使窗体Form1的标题栏中显示"正在复制文件…"，以下正确的语句是________。
A、Form1.Caption="正在复制文件…"
B、Form1.title="正在复制文件…"
C、Form1.Text="正在复制文件…"
D、Form1.名称="正在复制文件…"（A）
12、要判断在文本框是否按了Enter键，应在文本框的_________事件中判断。
A、ChangeB、KeyDown
C、ClickD、KeyPress（D）
13、能够将文本框控件隐藏起来的属性是__________。
A、ClearB、VisibleC、HideD、New（B）
14、下列表达式中，值为"True"的是________。
A、"1"+2="12"B、"1"+"2"="3"
C、"1"&2="12"D、"1"&"2"="3"（C）
15、下列各函数值的数据类型为整数的是_________。
A、Sqr（9）B、Rnd（5）C、Sin（0）D、Asc（"A"）（D）
16、下列各表达式能产生[1，3]随机整数的是_________。
A、Rnd*3+1B、int（Rnd*2）+1
C、int（Rnd+1）*3D、int（Rnd*3）+1（D）
17、获得系统日期的函数是_________。
A、data（）B、time（）C、date（）D、gettime（）（C）
18、一个变量要保存-32786，不应定义成__________型变量。
A、integerB、longC、singleD、double（A）
19、已知A$="4567124",表达式val（mid（A,2,3）+right（A,3））的值是_________。
A、567124B、"567124"C、699D、456124（A）
20、在VisualBasic代码中，将多个语句合并在一行上的并行符是_________。
A、撇号（'）B、冒号（：
）
C、感叹号（！
）D、问号（?
）（B）
21下列程序段执行的结果是__________。
x=10:
y=20
Ifx>20ThenIfy>20Thenx=x*3Elsex=x\2
Printx
A、10B、20C、5D、30（A）
22、下面语句正确的是________。
A、Ifx≠ythenprint"x不等于y"
B、Ifx≠yprint"x不等于y"
C、Ifx<>ythenprint"x不等于y"
D、Ifx≠yprint"x不等于y"（C）
23、以下关于多重循环语句的使用的描述中。
错误的是___________。
（C）
A、内循环变量和外循环变量不能同名
B、外循环必须完全包含内循环，不能交叉
C、在外循环中可以使用Goto语句转向内循环中的任何语句
D、在内循环中可以使用Goto语句转向外循环中的任何语句"
24、语句PrintFormat$（232548.5,""000,000.00""）的输出结果是_____。
（C）
A、32548.5B、232,548.5C、232,548.50D、32,548.50
25、以下关于数组的说法，不正确的是______。
A、动态数组在声明时大小可以不确定
B、默认情况下数组的下界为0
C、运行时可改变动态数组或静态数组的大小
D、静态数组在声明时大小必须固定（C）
26、在声明DimX（0to3,3to4）后，X数组可存放元素____个。
A、4B、6C、8D、12（C）
27、要定义一个过程为局部过程，应使用_______关键字。
A、StaticB、PublicC、PrivateD、Sub（C）
28、若要编写一些sub子过程，并能从多个窗体中访问这些过程，最好应将它们放在__________中。
A、标准模块B、窗体
C、类模块D、以上都不是（A）
29、下列不能打开菜单编辑器的操作是________。
A、按Ctrl+EB、按Shift+Alt+M
C、单击工具栏中的"菜单编辑器"按钮
D、执行"工具"菜单中的"菜单编辑器"命令（B）
30、在KeyDown/KeyUp的事件过程中，能用来检查Ctrl和F3是否同时按下的表达式为__________。
（B）
A、KeyCode=vbKeyControl+vbKeyF3
B、（KeyCode=vbKeyF3）And（Shift=vbCtrlMask）
C、（ShiftAndvbCtrlMask）And（KeyCodeandvbKeyF3）
D、（Button=vbCtrlMask）And（KeyCode=vbKeyF3）
31、在通用对话框的使用过程中，设置Flags属性对于__________是必需的。
A、文件对话框B、颜色对话框
C、字体对话框D、打印对话框（C）
32、若要使单选按钮具有图形特性可通过______属性来进行。
A、AppearanceB、BackStyleC、BordestyleD、Style（D）
33、下面哪一种不属于鼠标事件__________。
A、MouseIconB、MouseMove
C、MouseDownD、MouseUp（A）
34、当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件，这三个事件发生的顺序是________。
A、KeyPress、KeyDown、KeyUp
B、KeyDown、KeyUp、KeyPress
C、KeyDown、KeyPress、KeyUp
D、没有规律（C）
35、在窗体上有一个名称为TxtTime的文本框，一个名称为Timerl的计时器控件，要求每一秒钟在文本框中显示一次当前的时间。
程序为：
PrivateSubTimer1________（）
TxtTime.Text=Time
EndSub
在下划线上应填入的内容是__________。
"
A、EnabledB、VisibleC、IntervalD、Timer（D）
36、VisualBasic是一种面向对象的程序设计语言，________不是面向对象系统所包含的三要素。
A、变量B、事件C、属性D、方法（A）
37、如一个简单的VB应用程序被设计后，至少需要建立________文件。
A、窗体文件和工程文件B、工程组文件
C、资源文件和工程文件D、窗体文件和文本文件（A）
38、用一个程序段对一对象被单击（或双击）作出响应，从而实现指定的操作，称为_________。
A、可视画化程序设计B、事件驱动编程机制
C、过程化程序实际方法D、非过程化程序设计语言（B）
39、类是对象的抽象，对象则是类的具体化。
在窗体上建立的一个控件称为_________。
A、对象B、容器C、实体D、类（A）
40、如果文本框的Enabled属性设为False，则________。
A、文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上。
B、文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容。
C、文本框的文本将变成灰色，用户仍然能改变文本框中的内容。
D、文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容。
（A）
41、要求改变窗体的标题时，应当在属性窗口中改变的属性是_________。
A、CaptionB、NameC、TextD、Label（A）
42、_________语句将按钮（Command1）的标题赋值给文本框（Text1）的Text属性。
.A、Text1=Command1
B、Text1=Command1.Caption
C、Text1.Text=Command1
D、Text1.Text=CStr（Command1）（B）
43、下列控件中可用于接受用户输入文本，又可用于显示文本的是_________。
A、Label控件B、TextBox控件
C、Timer控件D、CommandButton控件（B）
44、要使窗体在运行时不可改变大小，需对其_________属性进行设置。
（C）
A、ControlBoxB、HeightC、BorderStyleD、Width
45、使文本框获得焦点的方法是__________。
A、ChangeB、GotFocusC、SetFocusD、LostFocus（C）
46、要使命令按钮Command1在运行时不显示，应对_________属性进行设置。
A、BackColorB、HideC、EnabeldD、Visible（D）
47、在VisualBasic中，Print、Cls属于__________。
A、属性B、对象C、事件D、方法（D）
48、在窗体上画一个名称为Txta的文本框，然后编写如下的事件过程：
PrivateSubTxta_KeyPress（Keyasciiasinteger）
...
EndSub
若焦点位于文本框中，则能够触发KeyPress事件的操作是_________。
A、单击鼠标B、双击文本框
C、鼠标滑过文本框D、按下键盘上的某个键（D）
49、窗体能响应的下面事件是_________。
A、ActiveFromB、DriveC、LoadD、Change（C）
50、表达式#11/22/2007#-10的运算结果是__________。
A、2007-1-22B、1997-11-12
C、不能运算D、2007-11-12（D）
50、下列各组变量声明正确的是_________。
A、DimabcAsInteger,numAsSingle
B、DimI%,N$AsInteger
C、Dima%,b%,c%,a$
D、PublicDimn%（A）
51、声明一个长度为10个字节的字符串变量mstr,应使用_________。
A、DimmstrAs10
B、Dimmstr（10）AsString
C、DimmstrAsString*10
D、DimmstrAsString（10）（C）
52、在VB中，下面四个数作为字符串常量，正确的是________。
A、“ASDFG”B、"ASDFG"
C、ASDFGD、'ASDFG'（B）
53下列函数中，_________函数返回的值是数值型的。
A、Chr（）B、Mid（）C、Space（）D、Instr（）（D）
54、表达式 Len（str（23）+Trim（str（81））+""123""）的值是__________。
A、7B、8C、9D、10（B）
55、在VisualBasic中注释语句使用___________符号来标志。
A、#B、*C、'（单引号）D、@@（C）
56、从循环体DoWhile...Loop中退出，继续执行循环体后面的命令，应使用_________。
（B）
A、ExitB、ExitDoC、ExitDoWhileD、ExitLoop
57、InputBox函数返回值的类型为__________。
A、数值B、字符串
C、变体D、数值或字符串（视输入的数据而定）（B）
58、执行语句receive=MsgBox（"AAAA",,"BBBB","",5）后，所产生的信息框的标题是_________。
（A）
A、BBBBB、空C、AAAAD、出错，不能产生信息框
59、下面正确的赋值语句是__________。
A、x+y=30B、x*x+y*y=z*z
C、y=y+30D、3y=x（C）
60、控件数组Text1中的各个对象是通过___________属性来区分的。
A、ListIndexB、TabIndexC、IndexD、Name（C）
61、下面数组声明语句错误的是__________。
A、Dima%（-5to-3）B、Dima%（-1to2,3）
C、Dimn%,a%（n）D、Dima（-1to0）asInteger（C）
62、用Static关键字定义过程是指_________。
A、声明过程名是静态的
B、声明过程中的局部变量是静态的
C、声明虚参是静态的
D、声明函数过程的返回值是静态的（B）
63、根据变量的作用域，可以将变量分为三类，它们是_________。
A、局部变量、窗体/模块级变量和标准变量
B、局部变量、窗体/模块级变量和全局变量
C、局部变量、模块变量和标准变量
D、局部变量、窗体变量和全局变量（B）
64、复选框的Value属性为1时，表示__________。
A、复选框未被选中B、复选框被选中
C、复选框内有灰色的勾D、复选框操作有错误（B）
65、在用通用对话框控件建立打开文件对话框时，在文件列表框只允许显示文本文件类型的文件，则Filter属性的正确设置是_________。
A、Text（.txt）|*.txtB、Text（.txt）（*.txt）
C、文本文件|（.txt）D、Text（.txt）||*.txt（A）
66、能够改变复选框中背景颜色的属性是_________。
A、ValueB、FontcolorC、BackcolorD、Font（C）
67、在下列关于通用对话框的叙述中，正确的写法是_________。
A、CommonDialog1.Filter="AllFiles|*.*|Pictures（*.Bmp）|*.Bmp
B、CommonDialog1.Filter=|AllFiles|*.*|Pictures（*.Bmp）|*.Bmp|
C、CommonDialog1.Filter=“AllFiles”|“*.*”|“Pictures（*.Bmp）”|“*.Bmp”
D、CommonDialog1.Filter=AllFiles|*.*|Pictures（*.Bmp）|*.Bmp（A）
68、如果有五个单选按钮，其中两个在一个框架中，另外三个在窗体上，则运行时，可以同时选中________个单选按钮。
A、2B、3C、4D、5（A）
69、为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是_________。
A、EnabledB、VisibleC、TimerD、Interval（A）
70、将数据项""China""添加到列表框（List1）中成为第二项应使用_________语句。
A、List1.AddItem"China",0
B、List1.AddItem"China",1
C、List1.AddItem0,"China"
D、List1.AddItem1,"China"（B）
三、填空：
1、文本框的默认属性是_________。
（Text）
2、要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置了__________的属性为True。
（Locked）
3、标签的Alignment属性值设置为1的含义是__________。
（右对齐）
4、表达式Ucase（Mid（""abcdefgh"",3,4））的值是__________。
（CDEF）@"CDEF"
5、将条件“M，N不同时为0”写成VB
升级会员 