vb期末复习题

第1、2、3章 环境、对象、工程
以下为窗体文件扩展名的是____。(带星号的“选项”为参考答案)
A..bas B..cls C*..frm D..res
以下说法正确的是____。
A.窗体文件的扩展名为.vbp
B*.一个窗体对应一个窗体文件
C.VB中的一个工程只包含一个窗体
D.VB中一个工程最多可以包含256个窗体文件
以下说法错误的是____。
A.标准模块也称程序模块文件，扩展名为.bas
B.标准模块由程序代码组成
C.标准模块用来声明全局变量和定义一些通用的过程
D*.标准模块附属于窗体
以下说法正确的是____。
A.对象的可见性可设为1或0
B*.标题的属性值可设为任何文本
C.某些属性的值可以跳过不设置，自动设为空值
D.属性窗口中属性只能按字母顺序排列
在VB中，____被称为对象。
A.窗体 B.控件 C*.窗体和控件 D.窗体、控件、属性
属性窗口是针对____和____而设置的。【答案】窗体；控件
在VB主窗体的左侧有一个用于应用程序界面设计的窗口，称作____。【答案】工具箱
双击窗体设计器打开的窗口是____。
A*.代码窗口 B.属性窗口 C.立即窗口 D.对象窗口
以下说法正确的是____。
A.属性是对象的一部分 B.方法是对象的一部分
C.事件是对象的一部分 D*.A、B、C都正确
VB的窗体设计器主要是用来____。
A*.建立用户界面 B.添加图形、图像、数据等控件
C.编写程序源代码 D.设计窗体的布局
中断命令是暂停正在运行的程序，以下____不是使程序中断的命令或方法。
A.Ctrl+Break B.使用工具按钮
C*.使用工具栏上的按钮 D.通过“运行”菜单下的“中断”命令
以下为纯代码文件的是____。
A.工程文件 B.窗体文件 C*.标准模块文件 D.资源文件
打开工程的快捷键为____。
A*.Ctrl+P B.Ctrl+O C.Ctrl+S D.Ctrl+N
在工具栏的右侧有两个栏，分别用来显示窗体的当前位置和大小，单位为____，1英寸等于____。【答案】Twip 、1440Twip
工程资源管理器窗口中的文件可以分为6类，分别为窗体文件、标准模块文件、____、____、____和资源文件。【答案】工程文件、工程组文件、类文件、
以下说法正确的是____。
A*.对象是有特殊属性和行为方法的实体
B.属性是对象的特性，所有的对象都有相同的属性
C.属性的一般格式为：对象名_属性名称
D.属性值的设置只可以在属性窗口中设置
以下说法错误的是____。
A.方法是对象的一部分 B.方法是一种特殊的过程和函数
C.方法的调用格式与对象的(属性)相同 D*.在调用方法时，对象名是不可缺少的
以下说法正确的是____。
A*.若一个控件上有8个黑色的小方块，表明该控

件是活动的
B.窗体上可以有多个控件为活动控件
C.在活动控件中只能通过拖拉右上角和右下角的小方块来同时在高度和宽度上缩放控件
D.非活动控件在窗体上是隐藏的
以下说法错误的是____。
A*.VB是面向对象的程序设计，VB中的对象有窗体和控件两种
B.对象的操作由对象的属性、事件和方法来描述
C.属性是对象的特征，不同的对象有不同的属性
D.对象事件在代码窗口中体现过程
以下说法错误的是____。
A.事件是由VB预先设置好的、能够被对象识别的动作
B.响应某个事件后所执行的操作通过一段程序代码来实现，这段程序代码称为事件过程
C*.一个对象对应一个事件，一个事件对应一个事件过程
D.事件过程的一般格式为：
Private Sub对象名称_事件名称()
事件响应程序代码
End Sub
常见的事件有单击(Click)、双击____、装入____、移动鼠标____、改变____等。
不同的对象能识别的事件也不一样。【答案】DblClick、Load、MouseMove、Change
在代码编辑器中，若一条语句过长，可用____续行符来换行书写语句。
A.一个下划线“_” B*.一个空格加一个下划线“_”
C.一个连字符“-” D.一个空格加一个连字符“-”
VB应用程序的调入无需将全部窗体文件和标准模块文件都依次打开，只需打开 ____文件即可。【答案】工程
为了保存一个VB应用程序，应____。
A.只保存窗体文件 B.只保存工程文件
C.分别保存工程文件和标准模块文件
D*.分别保存工程文件、窗体文件、标准模块文件
编写VB应用程序分3步：____、____、____。【答案】建立用户界面；设置属性；编写代码
程序的运行方式分为____、____两种。【答案】解释运行；生成可执行文件
程序代码窗口中的标题栏下一行对应两栏，左边一栏为____，右边一栏为____。【答案】对象列表；事件列表
新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示窗体Form2，程序如下：
Private Sub Command1_Click()
____
Form2.____
End Sub
试补充完整。【答案】 Unload Me；Show
第4、5章 语法基础、输入输出
在VB中，为表示钱款而设置的数据类型是____。
A.字节型 B.布尔型 C*.货币型 D.对象型
可以在常量的后面加上类型说明符以显示常量的类型，可以用____表示字符串型常量。
A.% B.# C.! D*.$
货币类型数据小数点后面的有效位数最多只有【 】。
A. 2位 B. 6位 C. 16位 D. 4位
以下不合法的常量是____。
A.1000 B*.100^5 C.123.45 D.10E+3
以下几项中，属于日期型常量的是____。
A."10/10/02

" B.10/10/02 C*.#10/10/02# D.{10/10/02}
如果一个变量未经定义而直接使用，则该变量为____类型的变量。
A.Integer B.Byte C.Boolean D*.Variant
下列符号常量的声明中，不合法的是____。
A.Const a As Single=1.1 B*.Const a As.Double=Sin(1)
C.Const a="OK" D.Const a As Integer="12"
下叙说法不正确的是____。
A.变量名的长度不能超过255个字符
B*.变量名可以包含小数点或者内嵌的类型声明字符
C.变量名不能使用关键字
D.变量名的第一个字符必须是字母
以下各项，可以作为VB变量名的是____。
A*.English B.11_English C.123.45 D.English-1
有变量定义语句：Dim max , min As Single，则可知变量max的类型是____。
A*.可变类型 B.单精度型 C.双精度型 D.字符串型
如果要将变量a在过程中定义为静态变量，并将它的类型定义为整型，应使用的语句是
A.Dim a As Integer B.Public a As Integer
C*.Static a As Integer D.ReDim a As Integer
根据变量的作用域，可以将变量分为3类，它们是____。
A*.局部变量、模块变量和全局变量
B.局部变量、模块变量和标准变量
C.局部变量、模块变量和窗体变量
D.局部变量、标准变量和全局变量
表达式37.6 Mod 4.55的值是____。
A.5 B.4 C.2 D*.3
用X、Y、Z表示三角形的三条边，条件“三角形任意两边之和大于第三边”的布尔表达式可以用____表示。
A*.X+Y>Z And X+Z>Y And Y+Z>X
B.X+YC.Not(X+YD.X+Y>=Z Or X+Z>=Y Or Y+Z>=X
一元二次方程ax2+bx+c=0有实根的条件是a≠0，且b2-4ac≥0，表示该条件的布尔表达式是____
A.a<>0 And b*b-4*a*c≥0 B.a<>0 Or b*b-4*a*c/>0
C*.a<>0 And b*b-4*a*c>=0 D.a<>0 Or b*b-4*a*c>=0
以下关于表达式的运算顺序，错误的说法是____：
A.函数最先进行运算
B.最后进行逻辑运算
C.算术运算的优先级比关系运算的优先级高
D*.取负(-)运算的优先级比幂(^)运算的优先级高
语句Y=X+1代表：____。
A*.变量Y等于X+1的值
B.变量Y等于变量X的值，然后再加上1的一个表达式
C.将变量Y存入变量X中，再加上1的表达式
D.将变量Y存入变量X+1中
可以用____语句来定义符号常量。【答案】Const
在VB中，取模运算符是____。【答案】Mod
设A=2，B=3，C=4，D=5，表达式A>B And C>D Or 3*A>D 的值是____。【答案】True
表达式3*4^2+4*5/2+3^2的值是____。
A.66 B*.67 C.68 D.65
不满足“当a的值是偶数时为True，是奇数时为False”的要求的表达式是____。
A.a Mod 2=0 B.Not a Mod 2<>0 C*.Not (a Mod 2) D.(a\2*2-a)=0
判断变量x在 [3 , 10] 区间的表达式是____。
A. 3 < x < 10 B. 3 <= x <= 10
C. 3 <= x Or x <= 10 D. 3 <= x And x <= 10
函数Int(Rnd()*

11)+10的值的范围是____。
A*.[10，20] B.[0，20] C.[10，10] D.[10，11]
不能正确表示条件“两个整型变量X和Y之一为0，但不能同时为0”的布尔表达式是____。
A.X*Y=0 And (X<>0 Or Y<>0) B.(X=0 Or Y=0) And (X<>0 Or Y<>0)
C*.Not(X=0 Or Y=0) And (X<>0 Or Y<>0) D.X*Y=0 And X+Y<>0
如果a是一个正实数，对a的第3位小数四舍五入的表达式是____。
A.0.01*Int(a+0.005) B.0.01*Int(a+0.05)
C*.0.01*Int(100*(a+0.005)) D.0.01*Int(100*(a+0.05))
表达式(-1)*Sgn(-100+Int(Rnd*100))的值是____。
A.随机数 B.0 C*.1 D.-1
如果在立即窗口内执行以下操作：
X=10
Y=5
Print X^2>Y^3
则输出的结果是____。
A.1 B.0 C.True D*.False
以下语句的输出结果是____。
Print Format$(3678.234,"000,000,000")
A.000,003.678 B.003,678.23 C.003,678.234 D*.000,003,678
下列可以作为VB变量名的是____。
A*.Chinese$ B.X(X+Y) C.123BOOK D.BOOK-1
以下说法不正确的是____。
A*.Chr$()函数的作用是把自变量表达式的值转换为相应的ASCII码
B.Val()函数用来把自变量字符串转换为数值
C.Log()函数返回以e为底的自变量的自然对数
D.Rnd()函数产生一个0～1之间的单精度浮点数
用于字符串连接的运算符是____。
A.& B.+ C.And D*.A、B都可以
以下说法不正确的是____。
A*.字符串函数必须以类型说明符“$”结尾
B.字符串函数尾部的符号“$”可以有，也可以省略，其功能相同
C.LTirm()和Left()函数都是字符串函数
D.Rnd()函数不是一个字符串函数
如果将布尔常量False赋值给一个整型变量，则整型变量的值为____。
A*.0 B.-1 C.True D.False
表达式Int(24.6)-Int(-24.6)的值是____。【答案】49
已知A=2.5，B=1.3，C=4.6，布尔表达式AA Or Not C>B的值是____。【答案】False
表示条件“变量A为能被5整除的偶数”的布尔表达式是____。【答案】A Mod 5=0 And A Mod 2=0
函数Format$(0.6832,”#.00”)的值是____。【答案】.68
VB中的变量名字只能由字母、数字和____组成。【答案】下划线
为了显式地说明常数的类型，可以在其后添加类型说明符，字符串型数据的类型说明符是____。【答案】$
全局变量可以在工程中的每个模块和过程中使用，它只能在____中声明，不能在过程或窗体模块中声明。【答案】标准模块
函数Val(“123.45”)+Val(“233.6”)的值是____。【答案】357.05
函数Asc(“dafc”)的值是____。【答案】100
以下语句的输出结果是____。【答案】Const
s$=“Monday"
s$="Summer"
s$="Hot"
Print s$
执行下面的语句后，所产生的消息框的标题是____。
A=MsgBox ("AAA",,"CCC")
A.AAA B*.CCC C.?空? D.?出错，不能产生消息框
在默认情况下，InputBox函数返

回值的类型为____。
A*.字符串 B.变体 C.数值 D.数值或字符串
MsgBox函数的返回值的类型为____。
A*.数值型 B.日期型 C.字符型 D.变体
函数Int(Rnd()*11)+10的值的范围是____。
A*.[10，20] B.[0，20] C.[10，10] D.[10，11]
以下语句的输出结果是____。
a=Sqr(3)
Print Format(a,"$$####.###")
A.$1.732 B*.$$1.732 C.$1732 D.$$0001.732
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a=InputBox("请输入一个整数")
b=InputBox("请输入二个整数")
Print a+b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入123和321，输出结果为____。
【答案】123321
可以同时删除字符串前面和尾部空白的函数是____。
A*.Trim B.RTrim C.Mid D.LTrim
表达式(-1)*Sgn(-100+Int(Rnd*100))的值是____。
A.随机数 B.0 C*.1 D.-1
在VB中，可以在____中检测函数或表达式的值。
A.程序代码窗口 B.对象浏览器 C*.立即窗口 D.属性窗口
以下说法不正确的是____。
A*.Chr$()函数的作用是把自变量表达式的值转换为相应的ASCII码
B.Val()函数用来把自变量字符串转换为数值
C.Log()函数返回以e为底的自变量的自然对数
D.Rnd()函数产生一个0～1之间的单精度浮点数
表达式Left(“This is a book",3)的值是____。 .
A*.Thi B.This is a C.This D.s is
表达式Right(“This is a book",3)的值是____。
A.a B.is a book C.book D*.ook
表达式Abs(-7)+Len(“abcdef”)的值是____。
A.12 B*.13 C.7abcedf D.-7abcedf
表达式Mid(“BEIJING",4 , 2)的值是____。
A*.JI B.U C.IJIE D.EIJI
第6章 控件
如果想设置文字属性为斜体字，则使用下面命令中的____。
A*.Fontltalic B.FontStrikethru C.FontUnderline D.FontBold
以下说法错误的是____。
A..Icon属性的设置可在属性窗口中选择图标文件的位置，也可在程序代码中设置
B.在程序代码中设置Icon属性，需使用LoadPicture函数
C*.Icon属性适用于大多数控件
D.Icon属性里选择的.ico文件可以放在任何位置
下列选项中，更改____属性，可以对窗体的标题内容进行设置。
A.Text https://www.360docs.net/doc/4617020258.html, C.FontName D*.Caption
想要设置窗体状态为不显示控制菜单，应设置下列____属性。
A.Style B.Picture C*.ControlBox D.Caption
能够改变窗体边框类型的属性是____。
A.Border B*.BorderStyle C.BackStyle D.Style
决定一个窗体有无控制菜单的属性是____。【答案】ControlBox
设置窗体最小化时显示图标，此属性是____，应使用____格式的文件。【答案】Icon ico
若要给窗体设置背景图片，则要设置窗体的____属性。
A.BorderStyle B*.Picture C.BackColor D.Caption

任何控件都有____

属性。
A*.Name B.Caption C.BackColor D.BorderStyle
确定一个窗体或控件大小的属性是____。
A*.Width和Height B.Width或Top C.Top和Left D.Top或Left
针对下列程序代码，说法正确的是____。
Text1.Top=2000
Text1.Left=800
A*.Text1对象左边界距窗体的左边界800twip，上边界距窗体的上边界2000twip
B.Text1对象左边界距屏幕的左边界800twip，上边界距屏幕的上边界2000twip
C.Text1对象的高度为800twip，宽度为2000twip
D.Text1对象的高度为800点，宽度为2000点
以下说法正确的是____。
A*.默认情况下属性Visible的值为True
B.如果设置控件的Visible属性值为False，则该控件消失
C.Visible的值可设为0或1
D.设置Visible属性同设置Enabled属性的功能是相同的，都是使控件处于失效状态

使文本框获得焦点，使用文本框的____方法。
A.GodFocus B.LostFocus C.KeyPress D*.SetFocus
获得一个文本框中被选取文本的内容的属性是____。
A.Text B.Length C*.SelText D.SelStart
设置文本框能够显示多行文本，则要设置文本框的____属性。
A.Alignment B*.MultiLine C.MaxLength D.ScrollBars
设置一个文本框的状态为失效，应利用____属性。
A*.Enabled B.Cancel C.Default D.Visible
判断在文本框内是否按下了回车键，应通过____事件过程。
A.Change B*.KeyPress C.GotFocus D.Click

要使标签所在处透明显示背景，应设置BackStyle属性的值为____。
A.True B.False C.1 D*.0
为了使标签能够显示所指定的文本，应设置____属性。
A*.Caption B.Text C.SelText https://www.360docs.net/doc/4617020258.html,
BorderStyle属性是____属性，它只能在设计阶段设置，不能在运行期间改变。
【答案】只读
标签控件可能的默认名称Name为____。
https://www.360docs.net/doc/4617020258.html,bel B*.Label1 C.Text D.Text1
在VB中，如果把____属性设置为True，则可根据Caption属性指定的标题自动调整标签的大小；如果设置为：False，则标签将保持设计时定义的大小。
在VB中，要使标签的标题靠右显示，则将其Alignment属性设置为____。
A.0 B*.1 C.2 D.3
要使标签覆盖背景，应将BackStyle属性设置为____。
A*.0 B.1 C.True D.False
如果想使标签保持设计时定义的大小，则应将AutoSize属性设置成____。
A.0 B.1 C*.False D.True
____属性用来确定标签中标题的对齐方式。【答案】Alignment
____属性用来设置标签的边框样式，该属性可以取两个值，即0和1。【答案】BorderStyle
____属性，用来决定标签是否可以调整高度显示标题。【答案】WordWrap
设置标签属性时，为了使WordWrap属性起作用，应将AutoSize属性设置为____。
A.0 B.1 C.False D*.True
要使标签所在处透明显示背景，

应把其BackStyle属性设置为
A*.0 B.1 C.True D.False

要设置命令按钮为图形形式的按钮，应设置下列____属性。
A*.Style B.DownPicture C.Picture D.Image
设置命令按钮的属性时，只有将____属性设置为1，Picture属性才有效，否则无效。
A*.Style B.Cancel C.Default D.Caption
当命令按钮的____属性设置为True时，按回车键和单击该命令按钮的效果相同。
命令按钮不支持____事件。
A.KeyUp B.KeyPress C.Click D*.DblClick

当复选框被选中时，复选框Value属性的值为____。
A.0 B*.1 C.2 D.3
在复选框或单选按钮中，下面关于Style属性的说法不正确的是____。
A.Style是只读属性，只能在设计时使用
B.当Style属性设置为1时，可以用Picture属性设置不同的图标
C.Style属性设置为不同的值时，其外观不相同
D*.当Style属性设置为1时，单选按钮的外观类似于命令按钮，其作用与命令按钮相同
下面控件中，用于将窗体上的对象分组的是____。
A.列表框 B.组合框 C.文本框 D*.框架
在单选按钮中，____属性可设置为True或False。当设置为True时，该单选按钮是“打开”的；如果设置为False，则该单选按钮是“关闭”的，按钮是一个圆圈。【答案】Value
对于复选框来说，将Value属性设置为1，表示____。【答案】选中
下列描述中错误的是____。
A. 当单选按钮的Value属性值为True时表示选中
B. 单选按钮可以接收Click事件
C. 在一组单选按钮中，可以选择一个，也可以选择多个
D. 单选按钮中为空白时表示未选中
复选框的Value属性值为1时，表示____。
A. 复选框未被选中 B. 复选框被选中
C. 复选框内有灰色的勾 D. 复选框操作有错误

如果将列表框设置成每次只能显示(应为“选择”)一项，应将MultiSeleet属性设置为____。
A*.0 B.1 C.2 D.3
在修改列表框内容时，AddItem方法的作用是____。
A.清除列表框中的全部内容
B.删除列表框中指定的项目
C.在列表框中插入多行文本
D*.在列表框中插入一行文本
为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择，则应将列表框的Multiselect属性设置为____。
A.0 B.1 C*.2 D.3
要清除列表框中所有的列表项时，应使用以下哪种方法。
A.Remove B*.Clear C.Removeitem D.Move
在窗体中添加一个列表框，然后编写如下两个事件过程：
Private Sub Form_Click()
List1.RemoveItem 1
List1.RemoveItem 2
End Sub
Private Sub Form_Load()
List1.AddItem "A"
List1.AddItem "B"
List1.AddItem "C"
List1.AddItem "D"
End Sub
运行上面的程序，然后单击窗体，列表框中所显示的内容为____。
A. A B. A C. A D. C
B D C D

当滚动框位于最左端或最上端时，V

alue属性被设置为____。
A.Max B*.Min C.Max和Min之间 D.Max和：Min之外
单击滚动条的滚动箭头时，产生的事件是____。
A.Click B.Scroll C*.Change D.Move
当在滚动条内拖动滚动块时触发____事件。
A.KeyUp B.KeyPress C*.Scroll D.Change
如果要暂时关闭计时器，可通过____属性来设计。【答案】Enabled
对于一个含有计时器控件的窗体，每经过一段由____属性指定的时间间隔，就会产生一个 Timer事件。
https://www.360docs.net/doc/4617020258.html, B.Enabled C.Caption D*.Interval
为了使计时器控件每隔5秒钟产生一个计时器事件(Timer)，则应将其Interva1属性值设置为____。
A.5 B.500 C.300 D*.5000

在运行期间可以用____函数把图形文件装入窗体、图片框或图像框中。【答案】LoadPicture
下面属性中，用来设置对一个图形的引用的是____。
A.DownPicture B.Disabled Picture C*.Picture D.Default
以下不具有Picture属性的对象是____。
A.窗体 B.图片框 C.图像框 D*.文本框 .
下面属性中，用于自动调整图像框中图形内容大小的是____。
A.Picture B.CurrentX C.CurrentY D*.Stretch
为了使图像框中的图形与图像框大小适应，应将Stretch 属性设置为____。【答案】True。
实现图像框的大小自动适应图像大小的属性设置是____。
A.设属性Autosize值为False B.设属性Autosize值为True
C*.设属性Stretch值为False D.设属性Stretch值为True
为使图像框的大小自动适应图像的大小，则应____。
A.将其Autosize属性值设置为True B.将其Autosize属性值设置为False
C.将其Stretch属性值设置为True D*.将其Stretch属性值设置为False
图片框与图像框的区别是：____是“容器”控件，可以作为父控件，而____不能作为父控件。【答案】图片框、图像框
VB中与图形有关的标准控件是____、____、____和____。【答案】图片框、图像框、形状、直线
第8章 数组
以下属于VB合法的数组元素是____。
A.x8 B.x[8] C*. x(0) D.x{6}
设有声明语句：
Option Base 0
Dim B(-1 To 10,2 T0 9,20) As Integer
则数组B中全部元素的个数为____。
A*.2016 B.2310 C.1800 D.1848
语句“Option Base 1”的作用是，决定本窗体中数组下标____。
A. 下界必须为1 B. 缺省的下界为1
C. 上界必须为1 D. 缺省的上界为1
以下说法不正确的是____。
A.使用ReDim语句可以改变数组的维数
B*.使用ReDim语句可以改变数组的类型
C.使用.ReDim语句可以改变数组的每一维的大小
D.使用ReDim语句可以对数组中的所有元素进行初始化
用来惟一标识控件数组中的每一个控件成员，VB提供的属性是____。
A. Serial B. Order C. Index D. Number
下列程序段的执行结果是____。
Dim M(10)
For I=0 To 10
M(I)=2*I

Next I
Print M(M(3))
A.0 B.4 C.6 D*.12
下列程序段的执行结果为____。
Dim A(5)
For I=1 To 5
A(I)=I*I
Next I
Print A(I-1)
A.5 B*.25 C.0 D.16
执行以下Command1的Click事件过程在窗体上显示____。
Option Base 0
Private Sub Command1_Click()
Dim a
a=Array(“a”,”b”,”c”,”d”,”e”,”f”,”g”)
Print a(1); a(3); a(5)
End Sub
A.abc B*.bdf C.ace D.出错
下列程序段的执行结果是____。
Dim A(10),B(5)
For I=1 To 10
A(I)=I
Next I
For J=1 TO 5
B(J)=J*20
Next J
A(5)=B(2)
Print ”A(5)=“; A(5)
A.A(5)=5 B.A(5)=10 C.A(5)=20 D*.A(5)=40
在窗体中添加一个命令按钮和一个标签(Label1)，编写命令按钮Command1的Click事件代码：
Dim a(3) As Single
Private Sub Command1_Click()
Dim P As String
For n=0 To 3
a(n)=Val(InputBox("输入第" & n & "个数："))
Next
p=a(0) & "," & a(1) & "," & a(2) & "," & a(3)
Label1.Caption=p
End Sub
程序运行后，分别在InputBox中输入6，7，8，9，标签中显示____。
A*.6,7,8,9 B.6789 C.6,7,8,9, D.6 7 8 9
写出下列程序段的功能____。
Dim Max As Integer，iMax As Integer
Max=iA(1)：iMax=1：sum=iA(1)
For I=2 To 10
Sum=sum+iA(I)
If iA(I)>Max Then
Max=iA(i)
iMax=i
End If
Next i
【答案】求数组各元素之和、最大值及下标
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码，其输出结果是____。【答案】4
Private Sub Command1_Click()
Dim M(10) As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
Print M(2+M(x))
End Sub
编写程序，实现单击命令按钮Comnmnd1时形成并输出两个主对角线上元素值为1，其他元素值为0的9*9阶方阵。
Private Sub Command1_C1ick()
Dim X(9, 9)
For i = 1 To 9
For j = 1 To 9
X(i, j) = IIf(i = j Or i + j = 10, "1", "0")
Print X(i, j);
Next j
Print
Next i
End Sub
第9章 过程
要想在过程调用后返回两个结果，下面的过程定义语句合法的是____。
A.Sub Proc1(ByVal n , ByVal m) B.Sub Proc1(n , ByVal m)
C*.Sub Proc1(n , m) D.Sub Proc1(ByVal n , m)
Sub过程与Fuction过程最根本的区别是____。
A.Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以
B.Function过程可以有参数，Sub过程不可以
C.两种过程参数的传递方式不同
D*.Sub过程不能返回值，而Function过程能返回值
声明全局变量要使用的关键字是____。
A. Dim B. Private C. Static D. Public
跳出过程使用的语句是____。
A. End Sub B. Exit Sub C. Quit Sub D. Escape Sub
在参数传递过程中，使用关键字来修饰参数，可以使之按值传递，此关键字是____。

A*. ByVal B. ByRef C. Value D. Reference
单击命令按钮时。下列程序代码的执行结果为____。
Public Sub Proc1(n As Integer , ByVal m As Integer)
n=n Mod 10 ；
m=m Mod 10
End Sub
Private Sub Command1_Click()
Dim X As Integer,Y As Integer
x=12 : y=34
Ca1l Proc1(x ,y )
Print x?; y
End Sub
A.12 34 B*.2 34 C.2 3 D.12 3
事件过程的一般格式为____。
【答案】Private Sub 对象名称_事件名称(参数列表)
事件响应程序代码
End Sub

第7章 VB控制结构
IIf( )函数需要的参数个数为____。
A. 0 B. 1 C. 2 D. 3
输入成绩，输出成绩的等级。
x = InputBox("学生成绩")
Select Case x
Case Is > 90
Print "优"
Case 80 To 89: Print "良"
Case 70 To 79: Print "中"
Case 60 To 69: Print "及格"
Case Else: Print "不及格"
End Select

求阶乘。
N = InputBox("请输入一个正整数:")
k = 1
For i = 1 To N
k = k * i
Next i
Print N; “!=”; k

求1-100之和。
sum = 0
For i = 1 To 100
sum = sum + i
Next i
Print “1+2+…+100=”; sum

判别是否为素数。
n = InputBox("请输入一个正整数(>=3)")
i = 2
Do While i < n
If n Mod i = 0 Then Exit Do
i = i + 1
Loop
If i >= n Then
Print n; "是一个素数"
Else
Print n; "不是素数"
End If

求最大公因子。
Dim a As Integer , b As Integer ,c As Integer
a = InputBox("请输入第1个数：")
b = InputBox("请输入第2个数：")
Print
For c = a To 1 Step -1
If a Mod c = 0 And b Mod c = 0 Then Exit For
Next c
Print a; "和"; b; "的最大公因子是："; c

输出字母“三角形”。
Dim i As Integer, j As Integer, a As Integer
a = Asc("a")
For i = 1 To 4
For j = i To 1 Step -1
Print Chr(a + j - 1);
Next j
Print
Next