浙江师范大学《Visual Basic语言程序设计》考试 A 卷.docVIP

浙江师范大学《Visual Basic语言程序设计》考试 A 卷 （2008----2009学年第 2 学期） 考试形式　笔试（闭卷） 　 　　 使用学生 全校08级理科（非行知）专业　 考试时间　120　分钟　　　　　　　　出卷时间 2009 年　5　月　31　日 【说明】 考生应将全部答案都写在答题纸上，否则作无效处理。 试题1～9为程序选择题，请挑选出一个正确答案写在答题纸上。试题10～12为程序设计题，请为实现功能编写正确的代码。 试题1（每小题2分，共8分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】运行时先在文本框Text1中输入n的值后回车，如果值在[1,10]之间，则清空文本框Text2，并使它获得焦点。然后在在文本框Text2中输入正确的a值后按回车，将以下和式的计算结果S显示在结果文本框Text3中。 【程序】 Dim n As Byte Private Sub Text1_KeyPress(KeyAscii As Integer) n = Val(Text1.Text) If KeyAscii = 13 And 　　　（1）　　Then Text2.Text = Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) Dim a As Byte, i As Byte Dim s As Long, tx As Long If 　　　（2）　　　Then Exit Sub End If a = Val(Text2.Text) If a 0 Or a 9 Then Exit Sub End If tx = a 　　 （3）　　　 For i = 2 To n 　　　（4） 　　 s = s + tx Next i Text3.Text = Str(s) End Sub 【供选择的答案】 （1）A．n 0 And n = 10 B．n = 0 And n = 10 C．n = 1 Or n = 10 D．n 0 And n = 11 （2）A．KeyAscii = 13 B．KeyAscii 13 C．KeyAscii = \n D．KeyAscii \n （3）A．s = tx B．tx = s C．s = 0 D．s = a * 10 + a （4）A．tx = a * 10 + a B．tx = tx + a C．tx = tx * a + a D．tx = tx * 10 + a 试题2（每小题2分，共8分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】抽奖程序界面如图，先模拟生成1000个身份证号放在数组A中，运行时标签框（Label1）中显示第一个身份证号，单击“开始”命令按钮（Command1）后，命令按钮改标题改为“停止”，标签框以每隔0.1秒顺序变化显示数组中的身份证号，单击“停止”按钮身份证号变动停止，同时按钮标题改为“开始”。 【程序】 （5） Dim A(0 To 999) As String Private Sub Command1_Click() If Command1.Caption = 开始 Then n = 0 （6） Command1.Caption = 停止 Else Timer1.Enabled = False Command1.Caption = 开始 End If End Sub Private Sub Form_Load() Timer1. Interval = （7） Timer1.Enabled = False For i = 0 To 999 A(i) = For j = 1 To 18 A(i) = A(i) + Trim(Str(Int(Rnd * 10))) 模拟身份证号 Next j Next i Label1.Caption = A(0) End Sub Privat