期末模拟题答案.docVIP

广东商学院试题参考答案及评分标准 2012年12月期末复习（模拟试卷） 课程名称 可视化程序设计VB 课程代码 课程负责人 聂永红 ---------------------------------------------------------------------------------------------------------------------- 单选题（10分，每小题1分） 1 2 3 4 5 6 7 8 9 10 A C C D C C C A B B 二、填空题（10分，每题2分） 1. Caption 2. # 3. 9 4. CurrentX，CurrentY 5. 10 三、完善程序（20分，每题10分，每空2分） 1. (1) Randomize (2) ReDim (3) Int(Rnd * 90 + 10) 或：Round(Rnd * 89 + 10) (4) n - i (5) Print A(i) 2. (1) 1 to 5 (2) Str(A(i)) (3) A(i) A(j) (4) Label2.Caption (5) 绘制结果，每人的结果根据实际情况均不相同：其中第1个数字是宿舍号，第2个数字是年龄，第3个数字是四位出生年份，第4个数字是两位出生月份，第5个数字是学号后两位。  四、写出程序的功能及运行结果（20分，每题5分） 1. （1）Timer1.Enabled =False （2分） （2）运行后，单击“开始”按钮，输入学号后两位，用学号有关的颜色（如军色等）来填充圆，该圆逐渐变大，圆心位置不变，当圆充满图片框时则变为别的颜色（如亮青色等），并开始逐渐缩小，当缩小到初始大小时又变为军色，并再次逐渐变大，如此往复。单击“停止”按钮，则停止变化。（3分） 2. （1）Picture1.Cls （2分） （2）以姓名为：张三，学号为：331为例。 （3分） ①一共统计了文本框中331个字符。 ②绘出结果如下，注意，学号不同，结果也不相同。 3. （1）填写学号的最后一位数字，0~9。 （2）如果学号的最后一位数能被3整除，则显示： 如果学号的最后一位数不能被3整除，则显示： （3）内层循环变量j用于控制每行打印的表达式，即总体的“列”。输出该图形后，内层循环一共运行10次（学号的最后一位数能被3整除）或21次（学号的最后一位数不能被3整除）。在使用Print函数进行输出时，是用Tab( )函数来表示输出表达式的列位置的。 4. （1）输入的数字分别是学号后四位数字的第1到第4位数字，如：1、2、3、4。 （2）如果学号的后四位数字分别是1、2、3、4，那么窗体中显示的内容为： （3）将a(1)和a(4)中元素的值进行互换，a(2)和a(3)中元素的值进行互换，从而实现按照输入数字顺序的倒序进行输出。 五、程序改错（20分，每题10分） 1. 打开“程序改错第1题”，修改四条语句。注意：修改4处错误，得到1个运行结果（10分）。 第一处：0 改为：13 第二处： = 改为 = 第三处：Dim改为ReDim 第四处：= 改为 运行结果如下（姓名、学号不同，得到的结果也不一样）。 2. 打开“程序改错第2题”，修改1个属性、3条语句。注意：修改4处错误，得到1个运行结果（10分）。 第一处：把时钟控件的Interval属性0改为1000 第二处：将Timer1.Enabled =0 改为：Timer1.Enabled = True 或Timer1.Enabled=111（非零值） 第三处：将Picture2.Visible = True 改为：Picture3.Visible = True 第四处：将green = green + 1改为：green = green - 1 运行结果如下（学号最后三位数为123的学生运行结果）。 六、编程题（20分） 1. 打开“编程题第1题.vbp”，部分程序已给出，按要求实现（10分）： 编写程序段1，定义学号变量num为整型量，并用输入框为学号赋值（2分） Dim num% num = InputBox(输入学号最后三位数字：) 编写程序段2，判断学号xh是否是素数（5分） 参考程序，方法不限 Dim result As Boolean, i% result = True For i = 2 To Sqr(num) If xh Mod i = 0 Then result = False Exit For End If Next i 编写程序段3，在在