(--1)VB试卷A卷.docVIP

浙江科技学院 2013 -2014 学年第 学期考试试卷 A 卷 考试科目 VB程序设计 考试方式 闭卷 完成时限 2小时 拟题人 题库 审核人 批准人 201 年 月 日 学院 1 年级 等专业 题序 一 二 三 四 五 总分 加分人 复核人 得分 签名 命题： 说明： 应将全部答案写在答卷纸对应的题号处；否则作无效处理； 编程题应写明题号，若答卷纸不够，请写在背面，不要另添卷纸； 考试完成后，必须将试卷与答卷同时交回。 得分 判断题（本大题共12小题，每小题1分，共12分）  Const 常量名[As 类型|类型符号]=常数表达式 一个程序的启动对象可以是一个窗体，也可以是标准模块中名为Main的自定义Sub过程。 可以使用ReDim语句反复地改变数组的元素个数及维数，但是不能改变数组原来的数据类型。 得分 单选题（本大题共20小题，每小题1分，共20分） （A）（B）（C）（D）（A）Int(x + 0.5) （B）Int(x + 0.5)（C）0.01 * Int(x * 100 + 0.5)（D）Int(x)下列表达式中，的值为False。（A）BCDABCE （）1234512345ABC （） Not * 5 = 15 （）= 5 And 15 5 + 5 下列数据中，（ ）是日期型常量。（A） （）（） （）（A）（）（）（）（A） （B）（C）S （D）（A） （B）（C） （D）（A） （B） （C）（D）Private Sub Command1_Click() Form1.PSet (1000, 2000)End SubPrivate Sub Command2_Click() Form1.ClsEnd Sub（A）1000, 2000 （B）（C）（D）若要得到相同的坐标系统，也可以使用（ ）语句。（A）Scale (20, 15)-(20, -15)（B）Scale (-20, 15)-(20, -15)（C）Scale (20, -15)-(20, 15)（D）Scale (20, 15)-(-20, 15) （ ）可以删除图片框Pic中已加载的图片。（A）pic.Picture = （B）（C）pic.（D）pic.Picture = LoadPicture()（A）（B）（C）（D）Dim a As Long”效果相同的是（ ）。（A）Dim a（B）Dim a%（C）Dim a（D）Dim a（A）（B）（C）（D）i = Val(InputBox(输入))If i Mod 5 4 Then i = i + 10ElseIf i Mod 5 2 Then i = i – 10Else i = i * 10End IfPrint i=; i（A） （B）（C）（D）p = 1For i = 2 To 10 If a(i) a(p) Then p = iNext iPrint a(p)（A） （B） （C）（D）（A）（B）（C）（D）（A）（B） （C）（D）下列叙述中，不正确的是。（A）在过程中用Dim定义的变量是局部变量，其他过程不可以访问它（B）在中用Private定义的变量是窗体/模块级变量，可被本模块的任何过程访问，其他模块的过程不可以访问它（C）在过程中用Static定义的变量是静态变量，也是局部变量，其他过程不可以访问它（D）在“通用声明”段中用定义的变量是全局变量，可被本应用程序的任何过程访问（A）（B） （C）（D） 得分 程序填空题（本大题共4小题，每空2分，共24分） Private Sub Command1_Click() Dim x%, y%, z%, n% Print 5元 1元 5角 n = 0 For x = 1 To 19 For y = 1 To 100 – x ________（1）________  If ________（2）________ Then Print x; y; z ________（3）________  End If Next y Next x Print 共有; n; 种组合End Sub（1）（A）（B）（C）– x - y （D）z = 100 - x – y（2）（A）（