1、自考人网校专本套读2018春季招生进行中，零学历2.5年拿本科，支持学费分期，0利率0手续费！浙江省2014年4月自学考试VisualBasic程序设计试题课程代码：07759请考生按规定用笔将所有试题的答案涂、写在答题纸上。选择题部分注意事项：1. 答题前，考生务必将自己的考试课程名称、姓名、准考证号用黑色字迹的签字笔或钢笔填写在答题纸规定的位置上。2. 每小题选出答案后，用2B铅笔把答题纸上对应题目的答案标号涂黑。如需改动，用橡皮擦干净后，再选涂其他答案标号。不能答在试题卷上。一、单项选择题(本大题共10小题，每小题2分，共20分)在每小题列出的四个备选项中只有一个是符合题目要求的，请将其
2、选出并将“答题纸”的相应代码涂黑。错涂、多涂或未涂均无分。1.以下不属于Visual Basic系统的文件类型是A. frm B. bat C. bas D. vbp2.以下能在窗体Form1的标题栏中显示“Visual Basic窗体”的语句是A.Form1.Name=“Visual Basic窗体” B.Form1.Title=“Visual Basic窗体”C.Form1.Caption=“Visual Basic窗体” D.Form1.Text=“Visual Basic窗体”3.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为A.= B.* C.& D.4.以下能判断是
3、否到达文件尾的函数是A.BOF B.LOC C.LOF D.EOF5要使定时器控件可以使用，需设置的属性是A. Interval B. Enabled C. Value D. Text6.下面有关数组处理的叙述中，不正确的是控件数组可由多个控件组成，这些控件具有相同的名字控件数组中的元素可以是不同类型的控件用ReDim语句重新定义动态数组时，不得改变该数组的数据类型可用Public语句在窗体模块的通用说明处定义一个全局数组变量A. B.C. D.7.VB中利用Circle方法不可以画A.圆 B.直线C.弧 D.椭圆8.以下关于子过程或函数的定义中，正确的是A. Sub f1(n As Stri
4、ng*1) B. Sub f1(n As Integer)As IntegerC. Function f1(f1 As Integer)As Integer D. Function f1(ByVal n As Integer)9.在用通用对话框的ShowOpen显示“打开”文件对话框时，若要指定其中的文件类型为文本文件，正确的描述格式是A.“text(.txt)|(*.txt)” B.“文本文件(.txt)|(.txt)”C.“text(.txt)|(*.txt)” D.“text(.txt)(*.txt)”10.下面程序的内层循环次数是For i=1 TO 3For j=1 TO iFor
5、k=j TO 3.Next kNext jNext iA.3 B.14 C.9 D.21二、判断题(本大题共10小题，每小题1分，共10分)判断下列各题，在答题纸相应位置正确的涂“A”，错误的涂“B”。11.在Visual Basic中，只能在属性窗口中设置一个对象的属性值。12.在过程中不能定义全局变量。13.注释语句一定要放在程序段的开头或语句行的最后。14.列表框的ListIndex属性值为1，表示列表框的第一个列表项被选中。15.Dim D(9) as integer定义一个由9个元素组成的一维整型数组D。16.Visual Basic默认的坐标系统，其坐标原点(0,0)在容器的左上角
6、。17.过程的定义不能嵌套，但过程的调用可以嵌套。18.窗体的Cls方法将清除运行时所产生的文本和图形，而设计时设置的背景位图不受其影响。19.当用Print #语句向文件写入数据时，各字段数据在磁盘上以紧凑格式存入，能自动在数据项之间插入逗号，并将字符串加上双引号。20.Option Base语句只能在模块级中使用，而不能在过程中使用。三、程序填空题(本大题共3小题，每空2分，共22分)阅读下列各程序，根据程序说明在每小题提供的若干可选答案中挑选一个正确答案，用字母A、B、C或D填写在答题纸相应位置上。(一)【程序说明】把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框
7、Text1 中显示出来。【程序】Private Sub Command1_Click()Dim inData As StringText1.Text = Open .smtext1.txt (21) As #1Do While (22) (23) Text1.Text = (24) LoopClose #1End Sub【供选择的答案】21.A. For Input B. For Output C. For AppendD. For Read22.A. Not BOF(0)B. Not EOF(0)C. Not BOF(1) D. Not EOF(1)23.A. Print #1, inDat
8、a B. Write #1, inData C. Input #1, inData D. Put #1, inData24.A. Text1.Text B. inData C. Text1.Text + inData D. Text1.Text & inData(二)【程序说明】变量a是包含10个2位随机整数的一维数组，下面的程序用选择法将数组a中的10个整数按升序排列,最后将这些数从大到小打印在窗体中。【程序】Private Sub Command1_Click()Dim a(10) as integerDim p as integer,i as integer, j as integerF
9、or i=0 to 9a(i) = (25) next iFor i = 0 to 8 (26) Doj = j + 1If (27) Thenp = a(i)a(i) = a(j)a(j) = pEnd IfLoop While (28) Next iFor i = 9 to 0 step 1Print a(i)Next iEnd Sub【供选择的答案】25.A. Int(Rnd*90)+10)B. Int(Rnd*89)+10) C. Rnd*90+10 D. Int(Rnd*90)26.A. p =i B. p = j C. j = i + 1 D. j = i27.A. a(i) a(
10、j) C. a(i) a(j) D. a(i) = 9 B. j = 8 C. j 9 D. j 8(三)【程序说明】单击窗体后，圆形控件Shape1自动从左上角向右下角沿抛物线方向运动。要求圆形控件每隔0.1秒下落一次，水平方向匀速运动，1秒内移动1000个坐标刻度单位；垂直方向为匀加速(平方关系)运动；当圆形控件Shape1到达窗体右边界时，停止运动。【程序】Dim X As IntegerPrivate Sub Form_Load()Form1.Move 0, 0, 6000, 6000Shape1.Shape = 3Shape1.Move 0, 0, 100, 100Timer1.In
11、terval = (29) Timer1.Enabled = FalseEnd SubPrivate Sub Form_Click()X = 0 (30) End SubPrivate Sub Timer1_Timer()X = X + 1Shape1.Left =1000 * XShape1.Top= X*XIf (31) Then Timer1.Enabled=FalseEnd Sub【供选择的答案】29.A.100 B.1000 C.0 D.1030.A.Timer1.Enabled = FalseB.Timer1.Enabled = TrueC.Timer1.Interval = 10
12、0D.Timer1.Interval = 031.A.Shape1.Left = Form1.WidthC.Shape1.Left = Form1.ScaleWidth -Shape1.Width四、程序阅读题(本大题共3小题，每问2分，共22分)阅读下列各程序并回答问题，在每小题提供的若干可选答案中挑选一个正确答案，用字母A、B、C或D填写在答题纸相应位置上。(一)【程序】Private Sub Command1_Click()Static x As IntegerDim y As Integerx = x + 5y = y + 2Form1.ClsCall Swap(x, y)Print
13、x=; x, y=; yEnd SubPrivate Sub Swap(ByVal a As Integer, ByRef b As Integer)Dim c As Integerc = a: a = b: b = cPrint a=; a, b=; bEnd Sub【问题与供选择的答案】32. 当第一次单击命令按钮Command1时，窗体上显示的结果为A.B.C.D.33.当第二次单击命令按钮Command1时，窗体上显示的结果为A.B. C.D.以上都不对34.当将程序中的Swap(ByVal a As Integer, ByRef b As Integer)改为Swap(a As In
14、teger, ByRef b As Integer)时，第一次单击命令按钮Command1时，窗体上显示的结果为A.B.C.D.35.如题(34)改动，第二次单击命令按钮Command1时，窗体上显示的结果为A.B.C.D.(二)【程序】Private Sub Form_Load()Picture1.Scale (-100, 100)-(100, -100)Text1 = Text1.TabIndex = 0Command1.Enabled = FalseEnd SubPrivate Sub Command1_Click()Picture1.ClsPicture1.CurrentX =0Pic
15、ture1.CurrentY = 0Picture1.Line (-100, 0)-(100, 0)Picture1.Line (0, -100)-(0, 100)Picture1.Line (0, 0)- (100 * Cos(Val(Text1.Text), 100 * Sin(Val(Text1.Text)Command1.Enabled = FalseEnd SubPrivate Sub Text1_Change()Command1.Enabled = TrueEnd Sub【问题与供选择的答案】36.程序运行后，在文本框Text1中输入1.7，单击命令按钮Command1后，图片框P
16、icture1上显示的结果为：A.B.C.D.37.图片框Picture1的坐标系原点位置为A.图片框的左上角B.图片框的右下角C.图片框的中心D.不确定38.如果把Picture1.Scale (-100, 100)-(100, -100)语句去掉，则在文本框Text1中输入1.7，单击命令按钮Command1后，图片框Picture1上显示的结果为A.B.C.D.39.执行(38)后，图片框Picture1的坐标系原点位置为A.图片框的左上角B.图片框的右下角C.图片框的中心D.不确定(三)【程序】Private Sub Command1_Click()i = List1.ListInde
17、xFor i = 0 To 9List1.AddItem Int(90 * Rnd + 10)Next iEnd SubPrivate Sub Command3_Click()List1.ClearList2.ClearEnd SubPrivate Sub Command2_Click()Dim n As DoubleFor i = List1.ListCount - 1 To 0 step -1n = Val(List1.List(i)If n Mod 2 = 1 ThenList2.AddItem nList1.RemoveItem iEnd IfNext iEnd Sub【问题与供选择的
18、答案】40.程序运行后，单击命令按钮Command1后，列表框List1中显示的内容为A.10个9099的正整数B.10个90100的正整数C.10个1099的正整数D.10个10100的正整数41.在(40)的基础上，单击命令按钮Command2后，列表框List1中显示的内容为A.9099的奇数 B.90100的偶数C.1099的奇数D.1099的偶数42.单击命令按钮Command2时，List1.RemoveItem i语句对所有满足条件的列表项的删除顺序为A.从上往下B.从下往上C.随机删除D.不确定非选择题部分注意事项：用黑色字迹的签字笔或钢笔将答案写在答题纸上，不能答在试题卷上。五、程序设计题(本大题共2小题，每小题13分，共26分)43.编写过程P1，实现用随机数函数产生100个100300之间的整数，并在窗体上输出能被3 整除的数的和及个数。44.窗体中有一个文本框Text1、两个标签Label1和Label2、一个垂直滚动条Vscroll1。点击滚动条，可使文本框中显示2，20之间的一个正整数n，标签Label1中立刻显示 1！+ 2！+ + n!的值。运行界面如图。编写完整的事件过程完成以上功能。应用市场搜索“自考人”下载自考APP神器，随时随地无忧备考，自测练习强化巩固，考试重点轻松装进口袋！
