1、自考人网校专本套读 2018 春季招生进行中，零学历 2.5 年拿本科，支持学费分期，0 利率 0 手续费！应用市场搜索“自考人”下载自考 APP 神器，随时随地无忧备考，自测练习强化巩固，考试重点轻松装进口袋！浙江省 2014 年 4 月自学考试 VisualBasic 程序设计试题课程代码：07759请考生按规定用笔将所有试题的答案涂、写在答题纸上。选择题部分注意事项：1. 答题前，考生务必将自己的考试课程名称、姓名、准考证号用黑色字迹的签字笔或钢笔填写在答题纸规定的位置上。2. 每小题选出答案后，用 2B 铅笔把答题纸上对应题目的答案标号涂黑。如需改动，用橡皮擦干净后，再选涂其他答案标号
2、。不能答在试题卷上。一、单项选择题(本大题共 10 小题，每小题 2 分，共 20 分)在每小题列出的四个备选项中只有一个是符合题目要求的，请将其选出并将“答题纸”的相应代码涂黑。错涂、多涂或未涂均无分。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.
3、Form1.Text=“Visual Basic 窗体”3.如果要在菜单中添加一个分隔线，则应将其 Caption 属性设置为A.= B.* C. x, “y=“; yEnd SubPrivate Sub Swap(ByVal a As Integer, ByRef b As Integer)自考人网校专本套读 2018 春季招生进行中，零学历 2.5 年拿本科，支持学费分期，0 利率 0 手续费！应用市场搜索“自考人”下载自考 APP 神器，随时随地无忧备考，自测练习强化巩固，考试重点轻松装进口袋！Dim c As Integerc = a: a = b: b = cPrint “a=“;
4、a, “b=“; bEnd Sub【问题与供选择的答案】32. 当第一次单击命令按钮 Command1 时，窗体上显示的结果为A. B.a2b 5x y a 5b 2xyC. D. 33.当第二次单击命令按钮 Command1 时，窗体上显示的结果为A. B. a2b10xy a 5b2xyC. D.以上都不对 534.当将程序中的 Swap(ByVal a As Integer, ByRef b As Integer)改为 Swap(a As Integer, ByRef b As Integer)时，第一次单击命令按钮 Command1 时，窗体上显示的结果为A. B.a2bxy5 a52
5、xyC. D. b35.如题(34)改动，第二次单击命令按钮 Command1 时，窗体上显示的结果为A. B.a2b10xy a52 xyC. D. 5 b7(二)【程序】Private Sub Form_Load()Picture1.Scale (-100, 100)-(100, -100)Text1 =“ “Text1.TabIndex = 0Command1.Enabled = FalseEnd SubPrivate Sub Command1_Click()Picture1.ClsPicture1.CurrentX =0Picture1.CurrentY = 0Picture1.Lin
6、e (-100, 0)-(100, 0)Picture1.Line (0, -100)-(0, 100)自考人网校专本套读 2018 春季招生进行中，零学历 2.5 年拿本科，支持学费分期，0 利率 0 手续费！应用市场搜索“自考人”下载自考 APP 神器，随时随地无忧备考，自测练习强化巩固，考试重点轻松装进口袋！Picture1.Line (0, 0)- (100 * Cos(Val(Text1.Text), 100 * Sin(Val(Text1.Text)Command1.Enabled = FalseEnd SubPrivate Sub Text1_Change()Command1.E
7、nabled = TrueEnd Sub【问题与供选择的答案】36.程序运行后，在文本框 Text1 中输入 1.7，单击命令按钮 Command1 后，图片框 Picture1 上显示的结果为：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)后，图片框 Pi
8、cture1 的坐标系原点位置为A.图片框的左上角 B.图片框的右下角C.图片框的中心 D.不确定(三)【程序】Private Sub Command1_Click()i = List1.ListIndexFor i = 0 To 9自考人网校专本套读 2018 春季招生进行中，零学历 2.5 年拿本科，支持学费分期，0 利率 0 手续费！应用市场搜索“自考人”下载自考 APP 神器，随时随地无忧备考，自测练习强化巩固，考试重点轻松装进口袋！List1.AddItem Int(90 * Rnd + 10)Next iEnd SubPrivate Sub Command3_Click()List
9、1.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【问题与供选择的答案】40.程序运行后，单击命令按钮 Command1 后，列表框 List1 中显示的内容为A.10 个 9099 的正整数 B.10 个 90100 的正整数C.10 个 1099
10、 的正整数 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!的值。运行界面如图。编写完整的事件过程完成以上功能。自考人网校专本套读 2018 春季招生进行中，零学历 2.5 年拿本科，支持学费分期，0 利率 0 手续费！应用市场搜索“自考人”下载自考 APP 神器，随时随地无忧备考，自测练习强化巩固，考试重点轻松装进口袋！
