□ 自考名师全程视频授课，图像、声音、文字同步传输，享受身临其境的教学效果； □ 权威专家在线答疑，提交到答疑板的问题在24小时内即可得到满意答复； □ 课件自报名之日起可反复观看，不限时间、地点、次数，直到当期考试结束后一周关闭； □ 付费学员赠送1G超大容量电子信箱；及时、全面、权威的自考资讯全天24小时更新； □ 一次性付费满300元，即可享受九折优惠；累计实际交费金额500元或支付80元会员费，可成为银卡会员，购课享受八折优惠；累计实际交费金额1000元或支付200元会员费， 可成为金卡会员，购课享受七折优惠（以上须在同一学员代码下）； 英语/高等数学预备班：英语从英文字母发音、国际音标、基本语法、常用词汇、阅读、写作等角度开展教学；数学针对有高中入学水平的数学基础的同学开设。通过知识点精讲、经典例题详解、在线模拟测验，有针对性而快速的提高考生数学水平。立即报名！ 基础学习班：依据全新考试教材和大纲，由辅导老师对教材及考试中所涉及的知识进行全面、系统讲解，使考生从整体上把握该学科的体系，准确把握考试的重点、难点、考点所在，为顺利通过考试做好知识上、技巧上的准备。立即报名！ 真题串讲班：以考试大纲为主导，对各章节知识点进行全面梳理讲解，突出考试重点、难点与考点，教授答题思路与方法，通过对课程的整体情况分析及近2次考试的真题讲解，帮助考生更准确地把握考试方向，做好考前最后冲刺，为考生顺利通过考试铺平道路。串讲班课程在考前一个月左右开通。立即报名！ 习题班：自考365网校与北大燕园合作推出，每门课程均涵盖该课程全部考点、难点，在线测试系统按照考试难度要求自动组卷、全程在线测试、提交后自动判定成绩。我们相信经过反复练习定能使您迅速提升应试能力，使您考试梦想成真！立即报名！ 自考实验班：针对高难科目开设，签协议，不及格返还学费。全国限量招生，报名咨询 立即报名！ 自考精品班：全力打造专属于学员个人的辅导计划，学员自入学当天便开始享受专属于自己的个性化辅导课程，专职教学辅导老师及班主任全程跟踪学员的学习情况，随时调整辅导方案，以保证学习计划的有效进行。帮助学员克服可能出现的学习上的怠倦、不良情绪的影响等情况。坚定考试必胜信念，并以最适合自己的方式，在短时间内掌握考试内容，全面提升学员的考试通过率。我们承诺，当期考试不通过，下期学费减半！立即报名！
浙江省2010年1月高等教育自学考试
Visual Basic程序设计试题
课程代码：07759
一、判断题（本大题共10小题，每小题1分，共10分）
判断下列各题，正确的在题后括号内打“√”，错的打“×”。
1. 如果窗体的Enabled属性为False，就不能对窗体上的任何控件进行操作。（ ） 2. VB的Double类型数据可以精确表示其数值范围内的任何实数。（ ） 3. 窗体的Top、Left属性为数值，其单位长度只能是缇。（ ） 4. 要使输入文本框的字符始终显示“#”，则应修改其PasswordChar属性为“#”。（ ） 5. 代码窗口内“通用”部分和其中某过程中声明了同名的变量，他们是同一变量。（ ） 6. 在用户拖动滚动框时，发生滚动条控件的Change事件。（ ）
7. 通过设置CommonDialog控件的Enabled属性，可以选择该控件是否可用。（ ） 8. 在VB6.0中利用菜单编辑器设计下拉式菜单，不能超过三层。（ ） 9. 选中文件列表框File1中某选项时，ame属性值为所选文件的全名。（ ） 10. Open语句中的通道号，必须是当前未被使用的、最小的作为通道号的整数值。（ ）
二、单项选择题（本大题共10小题，每小题1分，共10分）
在每小题列出的备选项中只有一个是符合题目要求的，请将其代码填写在题后的括号内。错选、多选或未选均无分。
1. 改变控件在窗体中的上下位置应修改该控件的______属性。（ ） A.Top B.Left C.Width D.Right
2. 使输入焦点到文本框控件Text1，应执行语句（ ） A.ield B.cus C.cus D.art
3. 若s的当前值为0、i的当前值为1，执行下列语句后s、i的值分别为（ ）
Do
s = s + i: i = i + 2 Loop Until s>20 A.25和11 B.20和10 C.1和3 D.19和9 4. 执行Sub过程中的语句______可结束调用该Sub过程。（ ） A.Exit Sub B.Break Sub C. Break D. Exit 5.______对象不能作为控件的容器。（ ） A.Form B.PictureBox C.Shape D.Frame
6. 设置为单选的列表框控件List1中，对当前选中的表项不正确的表示方式是（ A. B.（ndex） C.（ListIndex）
7. 在图片框控件pic1上坐标（x,y）处画一个红点，写作（ ） A.Pset（x,y）,Rgb（255,0,0） B.（x,y）,Red C.Pset（x,y）,Red D.（x,y）,vbRed 8. RGB函数中的3个数字分别表示（ ） A.红、绿、白 B.红、绿、蓝 C.色调、饱和度、亮度 D.当前色、背景色、前景色 9. 语句“Circle（1000,1000）,800，，，，2”绘制的是（ ） A.弧 B.椭圆 C.扇形 D.同心圆
10. 同层次菜单项的______属性设置为相同，才可以设置索引值、组成控件数组。（ A.Caption B.Name C.Index D.ShortCut
三、填空题（本大题共8小题，每小题2分，共16分）
请在每小题的空格中填上正确答案。错填、不填均无分。 1. VB的常量 &H23所表示的十进制数为 ______。
2. 将数学式 log（x＋y） 写作VB算术表达式为______。
3. 判断X是否满足条件“|X|≥2”的VB逻辑表达式为______。 4. 从字符串s1中第2个字符开始搜索子串s2，写作______ 。
5. 在窗体代码窗口的“通用”部分，用 ______ 声明的变量是模块级变量。 6. 定时器控件的 ______ 属性值设置为False时，不响应Timer事件。
） ）
7. 窗体或图片框控件的______ 方法可以改变该控件的坐标系。
8. 数据绑定控件的 ______属性返回或设置数据源，将控件绑定到一个数据库。
四、程序填空题（本大题共11小题，每小题2分，共22分）
阅读下列各程序，根据程序说明在每小题提供的若干可选答案中挑选一个正确答案，用字母A、B、C或D填写在程序中划线处。
1.【程序说明】单击窗体后输入m，输出其所有素数因子。如输入12则输出2、2、3，输入30则输出2、3、5，输入60则输出2、2、3、5。 【程序】
Private Sub Form_Click（ ） Dim k As Integer, m As Integer m = InputBox（\） （1） Do While m <> 1
If m Mod k = 0 Then
Print k: （2） Else
（3） End If Loop End Sub
【供选择的答案】 （1） A.k = 0 B.k = 1 C.k = 2 D.m = 2 （2） A.m = m / k B.m = m Mod k C.k = m / k D.k = k / m （3） A.m = m / k B.k = k + 1 C.k = k - 1 D.k = k / m 2.【程序说明】自定义Sub过程s2，返回一维数组n个元素中的最大值、最小值。 【程序】
Private Sub s2（ a（ ） As Single,n As Integer, （1） ） Dim i As Integer
max = a（1）: min = （2） For i = 2 To n
If a（i） > max Then （3） If a（i） < min Then min = a（i） Next i
（4） 【供选择的答案】
（1） A.max as Single, min As Single B.ByVal max, min As Single C.ByVal max, ByRef min D.max as Integer, min As Integer （2） A.min = a（2） B.min = a（1） C.min = 0 D.min = -1 （3） A.Print max B.a（i） = max C.max = a（i） D.s2 = a（i） （4） A.End s2 B.End C.End Sub D.End Function 3.【程序说明】下列程序将1～1000之间的素数写入到文件e:＼su.txt中。 【程序】
Private Sub Command1_Click（ ） Dim i As Integer, j As Integer
07759#VisualBasic程序设计试题第页共8页07759#
