期末考试模拟试卷与参考答案.doc

VB程序设计课程考试试卷试题一、判断题（每小题2分，共20分）说明：在以下提供的若干陈述中，逐一判断其正确与否，用A表示正确，用B表示错误。(1)事件过程可以由某个用户事件触发执行，它不能被其他过程调用。(2)Visual Basic的Double类型数据可以精确表示其数值范围内的所有实数。(3)For/Next循环正常（未执行Exit For）结束后，控制变量的当前值等于终值。(4)Sub过程名在过程中必须被赋值。(5)SetFocus方法是把焦点移到指定对象上，使对象获得焦点，该方法适用于所有控件。(6)移动框架时框架内控件也随之移动，所以框架内控件的Left和Top属性值也随之改变。(7)单选钮控件和复选框控件都具有Value属性，它们的作用完全一样。(8)当组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。(9)若Visual Basic中容器取缺省坐标系，则坐标原点在容器左上角、单位长度为像素。(10)用Output模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。试题二、单选题（每小题2分，共20分）(11)将VB新建的“标准EXE”工程保存在磁盘上，至少会产生 （11） 文件。A .frx和.frmB .exe和.vbpC .vbp和.frmD .frm和.bas(12)窗体Form1的Name属性是Frm1，它的单击事件过程名是 （12） 。A Form1_ClickB Form_Click C Frm1_ClickD Me_Click(13)已知字符串变量x存放1234，表达式Val(&H+Left(x,2)的值是 （13） 。A 0B &H12C 12D 18(14)假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是 （14） 。A 数组中每个命令按钮的名称（Name属性）均为Command1B 若未做修改，数组中每个命令按钮的大小都一样C 数组中各个命令按钮使用同一个Click事件过程D 数组中每个命令按钮的Index属性值都相同(15)要使文本框显示滚动条，除了设置ScrollBars属性外还必须设置 （15） 属性。AAutoSizeBMultiLineCAlignmentDVisible(16)当Stretch属性为False时， （16） 。A 图片大小随影像框的大小进行调整B 影像框的大小随图片大小进行调整C 图片框的大小随图片大小进行调整D 图片大小随图片框的大小进行调整(17)在设计菜单时，为了创建分隔栏，要在 （17） 中输入连字符（-）。A 名称栏B 标题栏C 索引栏D 显示区(18)将通用对话框控件以“打开文件”对话框方式打开，可选 （18） 方法。A ShowOpenB ActionC OpenD FileName(19)B Private Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd SubDPrivate Sub Dir1_Change() Dir1.Path = Drive1.DriveEnd Sub要使得驱动器列表框控件Drive1发生变化时目录列表框Dir1的路径与之保持一致，应编写 （19） 事件代码。APrivate Sub Drive1_Change() Drive1.Drive = Dir1.PathEnd SubCPrivate Sub Dir1_Change() Drive1.Drive = Dir1.PathEnd Sub(20)执行语句“Write #1, 234; -34.56, Hi; Date”后，相应的文件内被写入 （20） 。A 234,-34.56,Hi,#2004-06-11#B 234;-34.56,Hi;#2004-06-11# C 234,-34.56,Hi,2004-06-11 D 234 -34.56 Hi #2004-06-11#试题三、程序填空题（每空2分，共20分，）说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。程序1【程序说明】以下程序随机产生100个两位正整数，先对这些数按从大到小的顺序排序并按每行10个显示在窗体上。再找出所有的个位数字与十位数字之和等于10的数。【程序】Private Sub Form_Click() Dim a(100) As Integer, i As Integer, j As Integer, t As Integer, x As Integer, y As Integer For i = 1 To 100 a(i) = (21) Next i For i = 1 To 99 For j = i + 1 To 100 If a(i) = 1 And (30) Then n = n + 1End Sub【选项】(26)A 退出B 开 始C 显示D 开始(27)A nB Val(n)C Str(n)D Trim(n)(28)A 1B 0C 2D 3(29)A vbBlackB RGB(255,0,0)C vbWhiteD RGB(255,255,0)(30)A x * x + y * y 2 And y 2C x * x + y * y 4试题四、程序改错题（每小题2分，共10分）Transfer 过程用于将一个十六进制整数转换为十进制整数，number函数过程用于将一个十六进制符号转换为数值。Public Sub Transfer() Dim Hex As String 十六进制数 Dim Dec As Double 十进制数 Dim temp As String Dim i As Integer Dim n As Integer Hex = InputBox(输入一个十六进制整数) n = Val(Hex)-(1)- i = 0 Do temp = Mid(Hex, i, 1)-(2)- Dec = Dec + number * 16 i-(3)- i = i + 1 Loop While i n Form1.Print str(Hex) & 转换为十进制数为 & str(Dec)-(4)-End SubPublic Function number(str As String) As Integer Select Case str Case a, A number = 10 Case b, B number = 11 Case c, C number = 12 Case d, D number = 13 Case e, E number = 14 Case f, F number = 15 Case Else number = str-(5)- End SelectEnd Function试题五、程序阅读题（每小题5分，共20分）程序1、阅读下列程序，写出当Text1获得输入焦点后，依次按 1、2、a、5键，Label1中显示的内容。Private Sub Text1_KeyPress(K As Integer) If K Asc(9) Then K = 0 Else Label1.Caption = Chr(K) + Label1.Caption End IfEnd Sub程序2、已知水平滚动条HScroll1的有关属性已经在属性窗口进行了如下的设置： HScroll1.Min=1:HScroll1.Max=10HScroll1.SmallChange=1: HScroll1.LargeChange=2:HScroll1.Value=5阅读以下程序，写出连续3次单击水平滚动条HScroll1右端箭头后，窗体上显示的结果。Private Sub HScroll1_Change() Dim y As Integer If HScroll1.Value Mod 2 = 0 Then y = y + HScroll1.Value End If Print y=; yEnd Sub程序3、写出程序运行后事件过程Timer1_Timer自动执行的次数、“运行中.”这段文字的显示位置及Label1的标题在窗体上的变化规律。Private Sub Form_Load() Timer1.Interval = 100 : Form1.WindowState = 2 Label1.Width = ScaleWidth / 2: Label1.Left = ScaleLeft Label1.Alignment = 0: Label1.Caption = 运行中.End SubPrivate Sub Timer1_Timer() Static m As Byte m = m + 8: Label1.FontSize = m Timer1.Interval = Timer1.Interval + 100 If m 80 Then Timer1.Enabled = FalseEnd Sub程序4、写出程序运行后单击窗体，窗体上的显示结果。Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 6 Print Spc(6 - i); For j = 1 To (2 * i) - 1: Print W;: Next j Print Next iEnd Sub试题六、程序设计题（10分）文本文件“e:aaa.txt”中存放了若干行字符，编制相应事件过程：在加载窗体时读入文件中各行字符并顺序在列表框控件List1的列表部分显示，在运行时按窗体控制菜单“关闭”后自动将列表框中各行数据存储到文本文件e:aaa.txt。【提示】加载窗体时自动执行的事件过程是Form_load()，按窗体控制菜单“关闭”后自动执行的事件过程是Form_Unload(Cancel As Integer)参考答案一、判断题（每小题2分，满分20分）（1）（2）（3）（4）（5）（6）（7）（8）（9）（10）BBBBBBBABB二、单选题（每小题2分，满分20分）（11）（12）（13）（14）（15）（16）（17）（18）（19）（20）CBDDBBBA BA三、程序填空题（每小题2分，满分20分）（21）（22）（23）（24）（25）（26）（27）（28）（29）（30）ABDBCDCBAA四、程序改错题（每小题2分，满分10分）（1）n = Len(Hex)（2）temp = Mid(Hex, n - i, 1)（3）Dec = Dec + number(temp) * 16 i（4）Form1.Print Hex & 转换为十进制数为 & Dec（5）number = Val(str)五、程序阅读题（每小题5分，满分20分）程序1程序2程序3程序4执行次数为11 文字的显示位置始终在窗体的左边 Label1的标题在窗体上的显示变化规律为字体变大、变化减慢 六、程序设计题（10分）Private Sub Form_Load() Dim x As String Open e:aaa.txt For Input As #1 Do Whi