江广播电视大学各专业选修课、补修课
《Visual Basic程序设计》期末复习
一、单项选择题
如果要设置窗体的标题栏，应选择（ B ）属性。
A．Visible B．Caption C．Name D．Text
要使命令按钮不响应用户生成的事件，应设置命令按钮的（ D ）属性。
A．Visible B．Caption C．Enable D．Enabled
要使标签能透出窗体的背景，应设置标签的（ A ）属性。
A．BackStyle B．BorderStyle C．Appearance D．BackColor
以下控件中，（ A ）控件不会影响到界面设计效果。
A．计时器 B．文本框 C．标签 D．Line控件
在Visual Basic中，一般（ B ）属性用来设置字体的颜色。
A．FontColor B．ForeColor C．BackColor D．ShowColor
在VB中断模式下，可用调试窗口监视表达式和变量的值，其中在（ A ）窗 可以直接键入命令以显示命令所请求的信息。
A．立即 B.监视 C.本地 D.中断
某计时器控件的interval属性为0时，表示（ A ）。
A．计时器关闭计时 C．Timer事件的间隔时间为0毫秒
B．Timer事件的间隔时间为0秒 D．计时器启动计时
在窗体Form1的Click事件过程中有以下语句：
Label1.Caption="Visual Basic"
若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为（ B ）。
A．Label和Label B．Label1和Label1
C．Label1和Visual Basic D．Label和Caption
（ C ）控件不具有Caption属性。
A．Label B．Form C． TextBox D．CommandButton
改变控件在窗体中的上下位置，应设置控件的（ A ）属性。
A．Top B．Left C．Width D．Right
文本框中选定的内容，由下列（ C ）属性反映。
A．Text B．Caption C．Seltext D．SelLenght
在Visual Basic中，变量的默认类型是（ D ）。
A．String B．Integer C．Double D．Variant
假设已定义Integer变量x、y，则以下赋值语句正确的是（ C ）。
A．x + 1 = y B．x := y C．y = x + y D．1 = x
\、/、Mod、*四个算术运算符中，优先级别最低的是（ C ）。
A．\ B．/ C．Mod D．*
下列哪组语句可以将变量A、B值互换（ B ）。
A．A=C : C=B : B=A B．A=A+B : B=A–B: A=A–B
C．A=B : B=A D．A=(A+B)/2 : B=(A - B)/2
以下语句的输出结果是（ C ）。
Print Format (32548.5,“000,000.00”)
A．32548.5 B．32,548.5 C．032,548.50 D．32,548.50
表达式4+5 \ 6 * 7 / 8 Mod 9 的值是 （ B ）。
A．4 B．5 C．6 D．7
函数Int(Rnd*10)是在（ C ）范围内的整数。
A．（0, 10） B．(0,10] C．[0, 10） D．[0, 10]
下面（ A ）运算符是算术运算符。
A．Mod B．Like C．And D．Not
已知三个变量A、B、C，判断A、B、C能否构成三角形的逻辑表达式为（ B ）。
A．A >= B And B >= C And A >= C
B．A + C >= B And A + B >= C And B + C >= A
C．A + C >= B Or A + B >= C Or B + C >= A
D．A + C >= B And A + B >= C Or B + C >= A
下面程序段运行后，显示的结果是（ B ）。
Dim intX As Integer
If intX Then
Print intX
Else
Print intX + 1
End If
A．0 B．1 C．2 D．不一定
以下程序的输出结果是（ C ）。
Dim a, i%, sum%
a = Array(4, 3, 2, 1)
For i = 0 To 3
sum = sum + a(i)
Next i
Print sum
A．4 B．6 C．10 D．不一定
在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（ D ）关键字在过程中定义局部变量。
A．Dim B．Public C．Private D．Static
能通过（ D ）来删除列表框中的选择项。
A．List属性 B．Text属性 C．Clear方法 D．RemoveItem方法
ListBox中若没有任何 选中，其ListIndex属性值为（ A ）。
A．-1 B．0 C．1 D．任意
可通过（ C ）属性判断ListBox列表框控件的项目总数目。
A．ListIndex B．ListText C．Listcount D．随机数
列表框的（ B ）属性用于返回或设置列表框中各列表项的文本。
A．Selected B．List C．Text D．Caption
设List1为列表框控件，List1.Clear中的Clear是（ A ）。
A．方法 B．对象 C．属性 D．事件
以下（ D ）语句将删除列表框List1中的最后一项。
A．List1.RemoveItem List1.ListCount
B．List1.Clear
C．List1.List(List1.ListCount-1)= ""
D．List1.RemoveItem List1.ListCount-1
若要把“XXX”添加到列表框List1中的第三项，则可执行语句（ B ）。
A．List1.AddItem "XXX", 3 B．List1.AddItem "XXX", 2
C．List1.AddItem 3,"XXX" D．List1.AddItem 2,"XXX"
用户可以通过设置菜单项的（ C ）属性值为False来使该菜单项失效。
A．Hide B．Visible C．Enabled D．Checked
用户可以通过设置菜单项的（ B ）属性值设置为False来使该菜单项不可见。
A．Hide B．Visible C．Enabled D．Checked
菜单编辑器中，同层次的（ B ）属性值设置为相同，才可以设置索引值。
A．Caption B．Name C．Index D．ShortCut
每创建一个顶级菜单，它的下面最多可以有（ C ）级子菜单。
A．1 B．3 C．5 D．6
在设计菜单时，为了创建分隔栏，要在（ B ）中输入字符（-）。
A．名称栏 B．标题栏 C．索引栏 D．显示区
如果要在程序中显示一个弹出菜单，需调用（ D ）方法。
A．Print B．Move C．Refresh D．PopupMenu
当单击工具栏上的按钮，会触发的事件是（ A ）。
A．ButtonClick B．Change C．Load D．KeyPress
下列可以用来存储图像可以供其它控件使用的控件是（ C ）。
A．ToolBar B．StatursBar C． ImageList D．TreeView
在Visual Basic中按文件的访问方式不同，可以将文件分为（ B ）。
A．文本文件和数据文件 B．顺序文件、随机文件和二进制文件
C．ASCII文件和二进制文件 D．数据文件和可执行文件
检测文件是否结束的函数是（ C ）。
A．LOF() B．Len() C．EOF() D．Chr()
要读出C盘根目录下的顺序文件stud.txt中的内容，下列打开方式中（ C ）是 '的。
A．Open " C:\stud.txt" For Append As #1 B．Open " C:\stud.txt" For Random As #1
C．Open " C:\stud.txt" For Input As #1 D．Open " C:\stud.txt" For Output As #1
随机文件使用（ C ）语句写数据。
A．Input# B．Write # C．Put D．Get
随机文件使用（ D ）语句读数据。
A．Input# B．Write # C．Put D．Get
程序运行时，驱动器列表框下列（ A ）属性能返回磁盘驱动器的名称。
A．Drive B．DriveName C．Chgdrive D．Drives
要用通用对话框控件显示标准的“字体”对话框，应调用其（ C ）方法。
A．ShowOpen B．ShowColor C．ShowFont D．ShowSaveas
改变驱动器列表框的Drive属性值将激活其（ A ）事件。
A．Change B．Scroll C．KeyDown D．KeyUp
使用目录列表框的（ B ）属性可以返回或设置当前工作目录的完整路径（包括驱动器盘符）。
A．Drive B．Path C．Dir D．ListIndex
在随机文件中（ D ）。
A．记录的内容是随机产生的 B．记录的长度是任意的
C．记录号是通过随机数产生的 D．可以通过记录号随机读取记录
执行语句Open "C：Stud.txt" For Input As #2后，系统（ C ）。
A．将内存数据存放在C盘当前文件夹下名为Stud.txt的文件中
B．将某个磁盘文件的内容写入C盘当前文件夹下名为Stud.txt的文件中
C．打开C盘当前文件夹下名为Stud.txt的文件，用来读取文件内容
D．在C盘当前文件夹下建立名为Stud. txt的顺序文件
下面对象中不能作为容器的是（ B ）。
A．窗体 B．Image控件 C．PictureBox控件 D．Frame控件
要向图片框picP中加载“d:\hainan\zhiwu.bmp”图像文件，应使用语句（ C ）。
A．Picture1.Picture=" d:\hainan\zhiwu.bmp"
B．Picture1.Picture=LoadPicture("d:\hainan\zhiwu.bmp")
C．picP.Picture=LoadPicture("d:\hainan\zhiwu.bmp")
D．picP.Picture=LoadPicture(d:\hainan\zhiwu.bmp)
执行Form1.Scale（0, 10）-（10, -10）语句后，Form1窗体坐标系x轴和y轴的 向是（ A ）。
A．向右和向上 B．向左和向下 C．向右和向下 D．向左和向上
下列图形中不能使用Shape控件绘制的是（ B ）。
A．矩形 B．三角形 C．正方形 D．椭圆
Line（100，100）-Step（400，400）将在窗体中的（ C ）画一 线。
A．（200，200）到（400，400） B．（100，100）到（300，300）
C．（100，100）到（500，500） D．（100，100）到（400，400）
RGB函数通过红、绿、蓝三基色混合产生某种颜色，若使用三个滚动条分别输入三种基色，为保证输入数值有效，则应设置滚动 （ A ）属性。
A．Max和Min B．Smallchange和 LargeChange
C．Scroll和Change D．Value
如果在图片框上使用绘图方法绘制一个圆，则图片框的（ B ）属性决定了该圆的颜色。
A．BackColor B．ForeColor C．FillColor D．DrawStyle
键盘事件的执行顺序是（ B ）。
A．KeyPress，KeyDown，KeyUp B．KeyDown，KeyPress，KeyUp
C．KeyUp，KeyDown，KeyPress D．KeyUp，KeyPress，KeyDown
ADO控件属于ActiveX控件，使用之前必须加载Microsoft ADO Data Conctrol 6.0（OLE DB），将ADO控件添加到工具箱中。添加ADO控件的菜单为（ B ）。
A．“工程”→“引用” B．“工程”→“部件”
C．“工具”→“选项” D．“工程”→“添加文件”
利用ADO访问数据库，首先要创建一个（ A ）对象，用于建立和数据库的连接。
A．Connection对象 B．Recordset对象
C．Command对象 D．Object对象
SQL语言的Select语句中，用于分组的语句为（ B ）。
A．where B．group by C．order by D．having
以下四个控件，不属于数据绑定控件的是（ C ）。
A．Text控件 B．DataGrid控件 C．Option控件 D．Label控件
决定系统是否自动检测多媒体控件（MMControl）各按钮的状态的属性是（ B ）。
A．Enable B．AutoEnable
C．PlayEnabled D．以上答案都不正确
将多媒体控件（MMControl）的Frames属性设为3，则以下叙述 '的是（ A ）。
A．指定Back或Step命令后退或前进的帧数都为3
B．只有Back命令后退的帧数为3
C．只有Step命令前进的帧数为3
D．后退或前进的帧数都为6
多媒体控件（MMControl）具有一组执行MCI命令的下压式按钮。其中Record按钮表示为（ B ）。
A．前一首 B．录制 C．弹出 D．播放
为了使多媒体控件（MMControl）中的录制按钮不显示，应添加 （ C ）。
A．MMControl1.Visible= False
B．MMControl1.Visible= True
C．MMControl1.RecordVisible= False
D．MMControl1.RecordVisible= True
在多媒体控件（MMControl）中，DeviceType属性用于设置多媒体设备的类型，如果将要播放的文件是CD歌曲，应将DeviceType属性设置为（ D ）。
A．DigitalVideo B．WaveAudio C．AVIVideo D．CDAudio
Windows Media Player控件的UiMode属性，表示播放器界面模式，以下选项是播放器模式的属性值是（ D ）。
A．Full B．Mini C．None D．以上都是
在Windows Media Player控件中，决定播放文件是否全屏的属性是（ A ）。
A．FullScreen B．Full C．Screen D．stretchToFit
二、填空题
数学表达式cox2x+写成等价的Visual Basic表达式为 cos(x)^2+Sqr(x^2-y^2)/2 。
数学表达式写成等价的Visual Basic表达式为 10^(1/2)*cos(50*3.14/180) 或者Sqr(10)*cos(50*3.14/180) 。
数学式子对应的Visual Basic运算表达式是 ： Sqr(s*(s-a)*(s-b)*(s-c)) 。
将1?? x <12写成Visual Basic逻辑表达式 x>=1 And x<12 。
已知a=3,b=4,c=5,表达式a>b and Not c>a Or c>b And c sngMax Then sngMax = MarkArray(i)
Next i
Max_Mark = sngMax
End Function
该程序是一个求最大值的函数。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素的最大值。
阅读以下程序，写出其功能。
Public Function Pass_Mark(MarkArray() As Single) As Single
Dim intCount As Integer, i As Integer , n As Integer
intCount = 0
n = UBound(MarkArray)
For i = 0 To n
if MarkArray(i) >= 60 Then intCount = intCount + 1
Next i
Pass_Mark = intCount / n
End Function
该函数的功能是求一组数中大于等于60的数的比例。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素中大于等于60的数的个数，最后求出其比例。
阅读以下程序，写出其功能。
Private Sub changecolor()
Dim r As Integer , g As Integer, b As Integer
Dim x As Long
' hsbRed、hsbGreen和hsbBlue为水平滚动条
hsbRed.Min=0: hsbGreen.Min=0 : hsbBlue.Min=0
hsbRed.Max=255: hsbGreen.Max=255 : hsbBlue.Max=255
r = hsbRed.Value
g = hsbGreen.Value
b = hsbBlue.Value
x = RGB(r, g, b)
frmMain.BackColor = x
End Sub
该过程的功能是用红色、绿色、蓝色三个滚动条调节窗体底色。先把红色、绿色、蓝色三个滚动条的Min属性设置为0、Max属性设置为255，接着用取出三个滚动条的Value属性值，用RGB函数产生一个由红、绿、蓝三个Value属性值混合而成的新颜色，并作为窗体底色。
四、程序设计题
编写一个程序。程序初始界面如图1左图所示，设“学习目的”、“学习方法”和“退出”命令按钮的名称定义为cmdAim、cmdWay和cmdExit，标签控件的名称定义为lblContent。单击“学习目的”按钮，显示如图1的中图所示；单击“学习方法”命令按钮，显示如图1的右图所示；单击“退出”按钮时，退出程序。

图1
Private Sub cmdAim_Click()
lblContent.Caption = "开发Windows应用程序"
End Sub
Private Sub cmdWay_Click()
lblContent.Caption = "从实际应用程序的开发过程中学习VB"
End Sub
Private Sub cmdExit_Click()
End
End Sub
设计一个简单的加法程序，程序界面设计如图2所示。设第一操作数、第二操作数和计算结果文本框的名称分别定义为txtFirstNum、txtSecondNum和txtSum，“计算”命令按钮的名称定义为cmdSum。

图2
Private Sub cmdSum_Click()
txtSum.Text = Val(txtFirstNum.Text) + Val(txtSecondNum.Text)
End Sub
编写一个判断闰年的程序。判断平年、闰年方法：凡是能被4整除但不能被100整除的年份为闰年，如1980年；凡是能被400整除的年份为闰年，如2000年；除以上两种情况以外的其余年份都是平年。
Private Sub Command1_Click()
Dim intYear As Integer '用于存放年份
intYear = InputBox("请输入年份")
If intYear Mod 400 = 0 Or (intYear Mod 4 = 0 And intYear Mod 100 <> 0) Then
MsgBox intYear & "年是闰年"
Else
MsgBox intYear & "年是平年"
End If
End Sub
编写一个列表框应用程序，程序界面如图5所示。设“添加”、“删除”和“修改”按钮的名称定义为cmdAdd、cmdDel和cmdUpdate，列表框和文本框的名称为默认。要求从文本框输入姓名，然后按“添加”按钮把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改 ”。在文本框的内容修改好后，按“修改 ”按钮，再把文本框中修改的信息送到列表框且“修改 ”按钮变为“修改”。
图5
Private Sub cmdAdd_Click()
List1.AddItem Text1.Text
Text1.Text = ""
End Sub
Private Sub cmdDel_Click()
List1.RemoveItem List1.ListIndex
Text1.Text = ""
End Sub
Private Sub cmdUpdate_Click()
If cmdUpdate.Caption = "修改" Then
Text1.Text = List1.List(List1.ListIndex)
cmdUpdate.Caption = "确认修改"
Else
List1.List(List1.ListIndex) = Text1.Text
cmdUpdate.Caption = "修改"
Text1.Text = ""
End If
End Sub
编写一个键盘按键程序。对窗体的KeyDown和KeyPress事件编程，显示按下、放开一个键时的事件发生经过，如当按下了A键时程序运行界面如图8所示。
图8
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode <> 0 Then
Print "KeyDown事件：KeyCode "; KeyCode, " Shift："; Shift
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print "KeyPress事件：KeyAscii "; KeyAscii; " 按下了："; Chr(KeyAscii)
End Sub
编写使用ADO对象中的Connection对象连接SQL Server数据库的 。
Public ADOcn As Connection
Public Sub Main()
Dim strSqlServer As String
strSqlServer="Provider=SQLOLEDB;Server=(local);User ID=sa; _ Password=sa; Database=XS"
If ADOcn Is Nothing Then
Set ADOcn = New Connection
ADOcn.Open strSqlServer '连接SQL Server数据库
End If
End Sub