(2013-2014-1)VB试卷B卷.docVIP

浙江科技学院 2013 -2014 学年第 学期考试试卷 卷 考试科目 VB程序设计 考试方式 闭卷 完成时限 2小时 拟题人 题库 审核人 批准人 年 月 日 学院 1 年级 等专业 题序 一 二 三 四 五 总分 加分人 复核人 得分 签名 命题： 说明： 应将全部答案写在答卷纸对应的题号处；否则作无效处理； 编程题应写明题号，若答卷纸不够，请写在背面，不要另添卷纸； 考试完成后，必须将试卷与答卷同时交回。 得分 判断题（本大题共12小题，每小题1分，共12分） 得分 单选题（本大题共20小题，每小题1分，共20分） （A） （B） （C） （D）（A）p Mod q = 0 （B）p q = 0（C）p q = 0 （D）下列中，（ ）不属于合法变量名。（A）（B）（C）（D）（A）Dim MAX As Integer （B）Const MAX As Integer（C）Const MAX As Integer（D）Dim MAX As Integer = 50（A） （B） （C） （D）（A）（B）（C）（D）（A）（B）（C）（D）（A）（B）（C） Form1.ScaleLeft = -150 Form1.ScaleTop = 100 Form1.ScaleWidth = 300 Form1.ScaleHeight = -200若要得到相同的坐标系统，也可以使用（ ）语句。（A）Form1.Scale (, 100)-(-150, -100)（B）Form1.Scale (, 100)-(300, -200)（C）Form1.Scale (, 100)-(150, -100)（D）Form1.Scale (, -200)-(-150, 100) 运行程序，依次单击Command1和Command2，窗体的CurrentX和CurrentY属性值为（ ）。Private Sub Command1_Click() Form1.ClsEnd SubPrivate Sub Command2_Click() Form1.Line (1000, 2000)-(2000, 5000)End Sub（A）000, 2000 （B）（C）（D）（A）（B）（C）（D）（A）（B）（C）（D）（A） （B） （C）（D）a = 3则表达式Fix(a * 1000 + 0.5) / 1000的值为（ ）。（A） （B） （C） （D）（A）For i = …（B）For i = … If … Then For j = … … … Next i Next i End If Next j（）For i = …（）If … Then If … Then For j = … … … End If End If Next i Next j 下列代码的功能是计算（ ）。p = 0For i = 1 To 10 p = p + a(i) Next iPrint p（A） （B） （C）（D）（ ）。（A）（B）（C）（D）（A）（B）（C）（D）（A）（B）（C） （D）（A）（B）（C）（D）得分 程序填空题（本大题共4小题，每空2分，共24分） ，将下面的程序补充完整。Private Sub Command2_Click() Dim f!, i%, sign% ________（1）________  f = 1 ________（2）________  f = f + sign / (i * (i + 1)) ________（3）________  Next i Print f=; fEnd Sub（）（A）（B）sign = -1 （C）（D）i = （）（A）For i = To 20 （B）For i = 2 To 19 （C）For i = To 20 （D）For i = To 19（）（A）（B）sign = -sign （C）（D）Private Sub Command3_