1、课程号：SG04002VB 程序设计 考试试卷（ A）考试形式：闭卷考试 考试时间：120 分钟所有答案答在答题纸上院系 学号 姓名 得分 题号 一 二 三 四 五 总分一 判断题（正确划，错误划）（10 分）1. 事件的编程可以在代码设计窗口中进行，系统为不同对象提供了不同的事件集。事件是对象特有的，不能主观臆造 (事件不是对象特有的，方法是对象所特有的)2. 即使单选按钮控件数组中的元素分属在多个容器中也只能从中选择一个控件 3. 过程和函数的区别在于有无返回值 4. 只要把 Image 控件的 Stretch 属性设置为 True，控件会自动调整大小以适应所装载的图片的大小（说反了，应该
2、是图片适应控件的大小）5. Left(Val(“1234ab“), 2)的结果是 ”12” Val 返回的是数，把 1234 给 left, 但是 left 返回是串，取串里的两个字符 12，所以结果是 12 这个串，要加双引号。6. 列表框控件的 Style 属性为 1（Checkbox ）时，MultiSelect 属性必须为 0（None ）Style 只有 0 和 1，0 是标准的，1 是复选 checkbox，组合框是三个值 0,1,27. 没有通用对话框控件文件就没办法读写 对话框不负责文件的读写，只负责传串，文件读写由读写语句进行。读图形文件是函数完成的,load picture
3、, 写图形文件是 save picture.8. 通过 PaintPicture 方法可以对图片进行缩放和裁剪等变换 还可以翻转9. Doloop while 和 Do while loop 在循环条件为 True 时循环结果一样 当循环条件为false 时不一样10.只有顶级菜单和二级菜单才能调用窗体的 PopupMenu 方法制作弹出式菜单 只有父菜单才能备调用二 单项选择填空题（共 40 分）1 有 value 属性的控件是【 D 】ATextBox BListBox CComboBox DScrollBar 有 value 属性的有三个控件：opptionbutton, checkbo
4、x, scrollbar2 下列属性中不属于组合框控件是【 B 】AListIndex BSelected CText DList3 能画横半轴为 3，纵半轴为 2 的语句是【 C 】AMe.Circle (0, 0), 3, , , 2 / 3 BMe.Circle (0, 0), 3, , , , 3/2CMe.Circle (0, 0), 3, , , , 2 / 3 DMe.Circle (0, 0), 3, , , 3/2.Circle Step(x, y), , , 纵比横 中间缺 3 个参数，颜色，起和止幅度，用四个逗号分隔4 下列控件没有 change 事件是【 B 】ATex
5、tBox BListBox CScrollBar DComboBox5 命令按钮控件能响应用户的单击必须保证其【 C 】属性均为真AVisible 和 Caption BEnabled 和 ToolTipTextC Enabled和 Visible DCaption 和 ToolTipText6 下面标识符哪个可作为数组的名字【 B 】A1abc Babc1 Cab(c1) Da.bc1标识符命名规则：以字母和汉字开头，不能和已有函数重名，标识符由字母、数字和下划线组成。7 下列对象中没有 Caption 属性的是【 D 】AMDI Form B SDI Form CLabel D Scrol
6、lBar8 下列【 A 】方法是 MDI Form特有的方法A Arrange B Hide CSetFocus DShow 9 下面【 A 】对象拥有 AutoRedraw 属性APictureBox 和窗体 BFrame 和窗体CPictureBox 和 Frame DPictureBox 和 Image AutoRedraw 是存储动态输出信息的，在窗体重绘时还拿出来描绘的窗体，就要把autoredraw 置为 true. 窗体最小化后展开，窗体被其他窗体覆盖，窗体由小变大的时候。窗体和 picturebox 支持绘图。10 下列【 D 】属性是 SDI Form 特有的AEnabled
7、 BDrawWidth CCaption DMDIChild 11 下列控件中没有事件的是【 D 】ATimer 控件和 Shape 控件 BShape 控件和菜单 CTimer 控件和菜单 DShape 和 Line 控件Timer 有 timer 事件，菜单有 click 事件12 不能作为容器是【 D 】AFrame BForm CPictureBox DImage容器有四个，窗体的容器 MDI，SDI 窗体，frame 控件， picturebox.13 动态数组重定义应使用【 D 】关键字ADim BPreserve CType DReDimDim 可以定义窗体级变量，也可以定义局部
8、变量，窗体级在通用段定义，局部在函数和过程内定义。静态局部变量可以保留上次函数调用的值。14 下列对象中拥有 KeyPreview 属性是【 B 】AMDI Form B SDI Form CComboBox D ListBox15 可以删除列表框所有列表条目的方法是【 A 】AClear BRemoveItem CAdditem DCls Cls 是清屏16 可以向列表框添加列表条目的方法是【 C 】AClear BRemoveItem C Additem DCls17 下列【 B 】语句可以让 T 控件 1 秒中自动激发 10 次 Timer 事件AT.Interval =50 BT.In
9、terval = 100CT.Interval =150 DT.Interval =2001 秒=1000 毫秒18 下列【 A 】方法能完成窗体逻辑坐标系统的设置AScale BSetFocus CShow DPaintPicture徒手写不用坐标系统19 【 C 】属性可以设置 TextBox 输入文本的掩码AMaxLength BFontSize CPasswordChar DMultiLineMaxLength 设置文本框，接纳的最大文本数20 窗体第一个和最后一个发生的事件是【 A 】AInitialize 和 Terminate BTerminate 和 InitializeCLo
10、ad 和 Unload DUnload 和 Load21 若要处理程序运行过程中的错误应使用【 C 】语句先捕获错误 AOn Error GoTo 0 BOn Error Resume Next COn Error GoTo 语句行号 DResume Next捕获的时候有三种情况：On Error GoTo 0 ：系统处理错误的方法On Error Resume Next ：忽略错误On Error GoTo 语句行号 正确的处理方式三种错误：语法错误，逻辑错误，运行错误恢复错误：Resume Next ，Resume 行号，Resume 0（从错误行开始执行 ）三 阅读下面程序，写出单击 C
11、ommand1 后的程序运行结果（10 分）1. Private Sub Ch(ByVal a As Integer, ByRef b As Integer)Dim k As Integerk = a: a = b: b = kEnd SubPrivate Sub Command1_Click()Dim x As Integer, y As Integerx = 10: y = 20Ch x, yPrint x, yEnd Sub （10 10）不能是（10,10）2. Private Sub Command1_Click()Dim x As Integer, y As Integerx =
12、91y = x Mod 10 * 10 + x 10Print y End Sub 乘的优先级比 mod 高Mod 是求余数答案是 1003. Private Sub Command1_Click()Print av(3, 4, 6, 8, 10)End SubPublic Function av(ParamArray s() As SingleDim H As IntegerDim i As VariantDim C As IntegerFor Each i In sH = H + iC = C + 1Next iav = H / CEnd Function这个是求平均值 31/5=6.24
13、. Public Function ABC(a As Single, Optional b = 5) As IntegerIf IsMissing(b) = True ThenABC = a * aElseABC = a * bEnd IfEnd FunctionPrivate Sub Command1_Click()Print ABC(10, 2), ABC(3)End Sub答案是（20,15）缺省参数 IsMissing(b) = True 的意思是如果 b 是缺省的，但是 b 已经给了默认值了，就不可能再缺省了，所以这条不执行。ABC(3) 没有给 b,就默认 b 是 5ABC(10,
14、 2) 给了 b 的值，就不用 b 的默认值了，用 2.5. Private Function ABC(A As Integer)Static K As IntegerK = K + AABC = KEnd FunctionPrivate Sub Command1_Click()Dim I As Integer, S As IntegerFor I = 1 To 5S = S + ABC(I)NextPrint SEnd Sub静态局部变量可以保留上次函数调用的值。（35）1+1+2+1+2+3+1+2+3+4+1+2+3+4+5=35四 程序填空（30 分）1. 下面函数的功能是随机产生一个
15、字母（大小写都可能），并返回该字母，阅读并理解程序，填写缺失的代码。Private Function zm() As StringRandomizeDim k As IntegerDo【 k=int(rnd*58+65) 】这个的意思是要产生一个 65 到 122 的随机数Loop【 until 】Not (k 90) 这个的意思是大小写字母之间的其他如果是 while, 就不要那个 not【 zm 】= Chr(k) End Function2. 有下面界面（图 1）用于学习标兵的评选，选择合适的人选后（必须选择 5 人）按提交按钮（Commadn1）把本次的选择结果写到文件 a.txt 中
16、（ a.txt 中将记录所有的评选结果，如图 2 所示）。程序控制人数的多选，但少选按提交按钮时程序给予提示。当一个选民提交选择后，程序将清除所有选择以备下一个选民选择。请填写缺失的代码图 1图 2Option ExplicitDim k As IntegerPrivate Sub C_Click(Index As Integer)If C(Index).Value = 1 Then【 k=k+1 】Elsek = k - 1End IfIf k 5 Then【 C(Index).Value = 0 】End SubPrivate Sub Command1_Click()If k = 5 Th
17、enDim s As StringDim i As IntegerFor i = 0 To C.UBoundIf 【 C(i).Value = 1 】Thens = s & C(i).Caption & “ “End IfNext iFor i = 0 To C.UBoundIf C(i).Value = 1 ThenC(i).Value = 0End IfNext iOpen “d:a.txt“ For 【 append 】As #1 这个是追加，output 是会重写的Print #1, s CloseElseMsgBox “人员选少了，请继续选择！“, vbExclamationEnd
18、IfEnd Sub3. 下面是绘图程序，模仿系统附件中的“画图”程序（程序设计界面如图 3）。当单击t(0)后，按住鼠标左键可以实现徒手写的功能；当单击 t(1)后，按住鼠标左键可以画直线；当单击 t(2)后，按住鼠标左键可以擦除鼠标移动区域内的图形；当单击 t(3)后，按住鼠标左键可以画圆，圆心为鼠标移动距离的中心点，半径为该距离长度的一半；如图 4 所示。当单击保存按钮（Command1）时，弹出对话框如图 5 并保存绘制的图形；单击退出按钮（Command2）时，卸载窗口，结束程序运行。根据上述功能填写缺失代码图 3图 4图 5根据程序的运行特征可以判断 T 数组中的控件是【 oppti
19、onbutton 】控件Option ExplicitDim ts As StringDim xx As Single, yy As SinglePrivate Sub Command1_Click()C.ShowSaveSavePicture P.Image, 【 C.filename 】End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()P.AutoRedraw = Truet(0).Value = Truets = “笔“End SubPrivate Sub P_MouseDown(Butto
20、n As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenSelect Case tsCase “笔“P.CurrentX = XP.CurrentY = YCase “直线“【 xx=X:yy=Y 】Case “圆“xx = X: yy = YCase “橡皮“P.Line (X - 40, Y - 40)-(X + 40, Y + 40), P.BackColor, BF End SelectEnd IfEnd SubPrivate Sub P_MouseMove(Button As Integer
21、, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenSelect Case tsCase “笔“【 P.pset (x,y) 】Case “橡皮“P.Line (X - 40, Y - 40)-(X + 40, Y + 40), P.BackColor, BFEnd SelectEnd IfEnd SubPrivate Sub P_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenSelect C
22、ase tsCase “直线“【 P.line (xx,yy)-(x,y) 】Case “圆“Dim xc As Single, yc As Single, r As Singlexc = (xx + X) / 2yc = (yy + Y) / 2【 r 】 = Sqr(X - xx) 2 + (Y - yy) 2) / 2 【 P.circle (xc,yc), r 】End SelectEnd IfEnd SubPrivate Sub t_Click(I As Integer)【 Case i 】Case 0ts = “笔“Case 1ts = “直线“Case 2ts = “橡皮“Cas
23、e 3ts = “圆“End SelectEnd Sub五 程序设计（10 分）1. 编写一段代码将 D:a.exe 文件拷贝到 E 盘，并改名为 b.exe。（5 分）Private Sub Command1_Click()Open “D:a.exe” For Binary as #1Open “E:b.exe” Binary as #2Dim i as longDim b as byteFor i=1To LOF(1)Get=1, ,bPut=2, ,bNextCloseMsgBox ”文件复制完成”，vbinformationEnd Sub2. 编写一个 cal 函数，该函数接受两个数和
24、一个运算符，根据运算符对两个数进行四则运算，返回运算结果。（5 分）Function cal(x as single, s as string,y as single) as singleDim t as singleSelect Case sCase ”+”t=x+yCase “-”t=x-yCase “*”t=x*yCase “/”t=x/yEnd SelectCal=tEnd function注意：所有答案答在答题纸上，写在试卷上将不得分考试完毕后，请将试卷和答题纸分开上交VB 程序设计 考试试卷（A）答题纸院系 学号 姓名 得分 一判断题（正确划，错误划）（10 分）题号 1 2 3 4 5 6 7 8 9 10答案二单项选择填空题（共 40 分）题号 1 2 3 4 5 6 7 8 9 10答案题号 11 12 13 14 15 16 17 18 19 20答案三阅读下面程序，写出单击 Command1 后的程序运行结果（10 分）题号 答案 题号 答案1 4 2 5 3 四程序填空（30 分）题号 答案 题号 答案1 9 2 103 114 125 136 147 158 五程序设计（10 分）（请写清题号）
