《期末考试模拟试卷与参考答案》由会员分享，可在线阅读，更多相关《期末考试模拟试卷与参考答案（7页珍藏版）》请在金锄头文库上搜索。
1、第 1 页（共 7 页） VB 程序设计课程考试试卷试题一、判断题（每小题 2 分，共 20 分）说明：在以下提供的若干陈述中，逐一判断其正确与否，用 A 表示正确，用 B 表示错误。(1) 事件过程可以由某个用户事件触发执行，它不能被其他过程调用。(2) Visual Basic 的 Double 类型数据可以精确表示其数值范围内的所有实数。(3) For/Next 循环正常（未执行 Exit For）结束后，控制变量的当前值等于终值。(4) Sub 过程名在过程中必须被赋值。(5) SetFocus 方法是把焦点移到指定对象上，使对象获得焦点，该方法适用于所有控件。(6) 移动框架时框架内
2、控件也随之移动，所以框架内控件的 Left 和 Top 属性值也随之改变。(7) 单 选 钮 控 件 和 复 选 框 控 件 都 具 有 Value 属 性 ， 它 们 的 作 用 完 全 一 样 。(8) 当组合框的 Style 属性设置为 0 时，组合框称为“下拉式组合框 ”，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。(9) 若 Visual Basic 中容器取缺省坐标系，则坐标原点在容器左上角、单位长度为像素。(10) 用 Output 模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。试题二、单选题（每小题 2 分，共 20 分）(11) 将 VB 新
3、建的“标准 EXE”工程保存在磁盘上，至少会产生 （11） 文件。A .frx 和.frm B .exe 和.vbp C .vbp 和.frm D .frm 和.bas(12) 窗体 Form1 的 Name 属性是 Frm1，它的单击事件过程名是 （12） 。A Form1_Click B Form_Click C Frm1_Click D Me_Click(13) 已知字符串变量 x 存放1234，表达式 Val(&H+Left(x,2)的值是 （13） 。A 0 B &H12 C 12 D 18(14) 假定通过复制、粘贴操作建立了一个命令按钮数组 Command1，以下说法中错误的是
4、（14） 。A 数组中每个命令按钮的名称（Name 属性）均为 Command1B 若未做修改，数组中每个命令按钮的大小都一样C 数组中各个命令按钮使用同一个 Click 事件过程D 数组中每个命令按钮的 Index 属性值都相同(15) 要使文本框显示滚动条，除了设置 ScrollBars 属性外还必须设置 （15） 属性。AAutoSize BMultiLine CAlignment DVisible(16) 当 Stretch 属性为 False 时， （16） 。A 图片大小随影像框的大小进行调整 B 影像框的大小随图片大小进行调整C 图片框的大小随图片大小进行调整 D 图片大小随图片
5、框的大小进行调整(17) 在设计菜单时，为了创建分隔栏，要在 （17） 中输入连字符（-） 。A 名称栏 B 标题栏 C 索引栏 D 显示区(18) 将通用对话框控件以“打开文件”对话框方式打开，可选 （18） 方法。A ShowOpen B Action C Open D FileName第 2 页（共 7 页）(19) 要使得驱动器列表框控件 Drive1 发生变化时目录列表框 Dir1 的路径与之保持一致，应编写 （19） 事件代码。APrivate Sub Drive1_Change()Drive1.Drive = Dir1.PathEnd SubCPrivate Sub Dir1_C
6、hange()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
7、 个两位正整数，先对这些数按从大到小的顺序排序并按每行 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 IntegerFor i = 1 To 100a(i) = (21) Next iFor i = 1 To 99For j = i + 1 To 100If a(i) = 1 And (30) Then n = n + 1End Sub【选项】(
8、26) A 退出 B 开 始 C 显示 D 开始(27) A n B Val(n) C Str(n) D Trim(n)(28) A 1 B 0 C 2 D 3(29) A vbBlack B RGB(255,0,0) C vbWhite D RGB(255,255,0)(30) A x * x + y * y 2 And y 2C x * x + y * y 4第 4 页（共 7 页）试题四、程序改错题（每小题 2 分，共 10 分）Transfer 过程用于将一个十六进制整数转换为十进制整数，number 函数过程用于将一个十六进制符号转换为数值。Public Sub Transfer()
9、Dim Hex As String 十六进制数Dim Dec As Double 十进制数Dim temp As StringDim i As IntegerDim n As IntegerHex = InputBox(输入一个十六进制整数 )n = Val(Hex) -(1)-i = 0Dotemp = Mid(Hex, i, 1) -(2)-Dec = Dec + number * 16 i -(3)-i = i + 1Loop While i Asc(9) ThenK = 0ElseLabel1.Caption = Chr(K) + Label1.CaptionEnd IfEnd Sub
10、程序 2、已知水平滚动条 HScroll1 的有关属性已经在属性窗口进行了如下的设置： HScroll1.Min=1:HScroll1.Max=10第 5 页（共 7 页）HScroll1.SmallChange=1: HScroll1.LargeChange=2:HScroll1.Value=5阅读以下程序，写出连续 3 次单击水平滚动条 HScroll1 右端箭头后，窗体上显示的结果。Private Sub HScroll1_Change()Dim y As IntegerIf HScroll1.Value Mod 2 = 0 Theny = y + HScroll1.ValueEnd I
11、fPrint y=; yEnd Sub程序 3、写出程序运行后事件过程 Timer1_Timer 自动执行的次数、 “运行中.”这段文字的显示位置及 Label1 的标题在窗体上的变化规律。Private Sub Form_Load()Timer1.Interval = 100 : Form1.WindowState = 2Label1.Width = ScaleWidth / 2: Label1.Left = ScaleLeftLabel1.Alignment = 0: Label1.Caption = 运行中.End SubPrivate Sub Timer1_Timer()Static
12、m As Bytem = m + 8: Label1.FontSize = mTimer1.Interval = Timer1.Interval + 100If m 80 Then Timer1.Enabled = FalseEnd Sub程序 4、写出程序运行后单击窗体，窗体上的显示结果。Private Sub Form_Click()Dim i As Integer, j As IntegerFor i = 1 To 6Print Spc(6 - i);For j = 1 To (2 * i) - 1: Print W;: Next jPrintNext iEnd Sub试题六、程序设计题
13、（10 分）文本文件“e:aaa.txt ”中存放了若干行字符，编制相应事件过程：在加载窗体时读入文件中各行字符并顺序在列表框控件 List1 的列表部分显示，在运行时按窗体控制菜单“关闭”后自动将列表框中各行数据存储到文本文件 e:aaa.txt。【提示】加载窗体时自动执行的事件过程是 Form_load()，按窗体控制菜单“关闭”后自动执行的事件过程是 Form_Unload(Cancel As Integer)第 6 页（共 7 页）参考答案一、判断题（每小题 2 分，满分 20 分）（1） （2） （3） （4） （5） （6） （7） （8） （9） （10）B B B B B B
14、B A B B二、单选题（每小题 2 分，满分 20 分）（11） （12） （13） （14） （15） （16） （17） （18） （19） （20）C B D D B B B A B A三、程序填空题（每小题 2 分，满分 20 分）（21） （22） （23） （24） （25） （26） （27） （28） （29） （30）A B D B C D C B A A四、程序改错题（每小题 2 分，满分 10 分）（1）n = Len(Hex)（2）temp = Mid(Hex, n - i, 1)（3）Dec = Dec + number(temp) * 16 i（4）Form1.P
15、rint Hex & 转换为十进制数为 & Dec（5）number = Val(str)五、程序阅读题（每小题 5 分，满分 20 分）程序 1 程序 2程序 3 程序 4执行次数为 11 文字的显示位置始终在窗体的左边 Label1 的标题在窗体上的显示变化规律为字体变大、变化减慢 第 7 页（共 7 页）六、程序设计题（10 分）Private Sub Form_Load()Dim x As StringOpen e:aaa.txt For Input As #1Do While Not EOF(1)Line Input #1, xList1.AddItem xLoopClose #1End SubPrivate Sub Form_Unload(Cancel As Integer)Dim i As IntegerOpen e:bbb.txt For Output As #1For i = 0 To Lis
