浙师大2006年夏二级VB期末考试试卷.docVIP

. .. 浙江师范大学《Visual Basic程序设计基础》考试卷 （2005----2006学年第 2 学期） 考试形式　笔试（闭卷） 　 　　 使用学生 全校05级理科（非行知）专业　 考试时间　120　分钟　　　　　　　　出卷时间 2006 年　5　月　22　日 说明： 考生应将全部答案都写在答题纸上，否则作无效处理。 试题1至试题8为程序选择填空题，考生仔细阅读每题的程序说明和相应的程序，并在每个空提供的若干可选答案中挑选出一个正确答案写在答题纸上。试题9至试题11为程序设计题，按要求编写代码，并且程序中需要用到的变量都要用DIM语句声明。 试题1（每空2分，共10分） 【程序说明】现有一身份验证系统，此系统共有两个窗体，第一个窗体（Form1）作为身份验证，用户只有当其身份被确认为合法时才能进入第二个窗体（Form2）。功能说明：在Form1中，文本框用来接收身份密码，在3次输入错误后系统退出。Form1界面如下。 Option Explicit Const PassW =Private Sub Form_Load() Text1.Text = Text1. _____(1)_____ = * Text1.MaxLength=8 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Dim iR As Integer _____(2)_____ If KeyAscii = 13 Then If _____(3)_____ Then Me.Hide Form2.Show Else If _____(4)_____ Then MsgBox 你是非法用户？！谢谢使用！ End Else iR = MsgBox(密码错误！想重试吗？, 36, 警告) If iR = vbYes Then Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) _____(5)_____ Else End End If End If End If End If End Sub (1) [A] PasswordChar [B] PasswordText [C] Text [D] KeyPress (2) [A] Public I As Integer [B] Private I As Integer [C] Static I As Integer [D] Dim I As Integer (3) [A] I2 [B] Text1.Text = PassW [C] Form2.Visible = False [D] I=I+1 (4) [A] Text1.TextPassW [B] Text1.TextPassW And I=3 [C] I=3 [D] I=2 (5) [A] I=I+1 [B] I=0 [C] I=I-1 [D] I=2 试题2（每空2分，共8分） 【程序说明】编写程序，单击一次窗体后打印如下图形。注：正三角的每行输出为数字后跟一个空格。 Private Sub Form_Click() For I = (6)__ Print Spc(25 - I); For j = 1 To (7)__ Print (8)__ Next j print Next I For I = 1 to 5 Print tab(26 - I); For j = 1 To 2 * I - 1 print (9)__ Next j Next I End Sub (6) [A] 5 To 1 Step -1 [B] 1 To 5 [C] 1 To 4 [D] 4 To 1 Step-1 (7) [A] 2 * I [B] 2*I+1 [C] 2*I–1 [D] I (8) [A] Chr(Asc(A)-1); [B] Chr(Asc(A)+i-1) [C] Chr(Asc(A)+i-1); [D] Chr(Asc(A)+i); (9) [A] Str(i);Space(1); [B] Trim(Str(i));Space(2-Len(Trim(Str(i)))); [C] trim(Str(i));Space(1) [D] Trim(Str(i));Space(2