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

浙江师范大学《Visual Basic程序设计基础》考试卷 （2005----2006学年第 2 学期） 考试形式 笔试（闭卷） 使用学生 全校05级理科（非行知）专业 考试时间 120 分钟 出卷时间 2006 年 5 月 22 日 说明： (1) 考生应将全部答案都写在答题纸上，否则作无效处理。 (2) 试题1至试题8为程序选择填空题，考生仔细阅读每题的程序说明和相应的程序，并在每个空提供的若干可选答案中挑选出一个正确答案写在答题纸上。试题9至试题11为程序设计题，按要求编写代码，并且程序中需要用到的变量都要用DIM语句声明。

试题1（每空2分，共10分） 【程序说明】现有一身份验证系统，此系统共有两个窗体，第一个窗体（Form1）作为身份验证，用户只有当其身份被确认为合法时才能进入第二个窗体（Form2）。功能说明：在Form1中，文本框用来接收身份密码，在3次输入错误后系统退出。Form1界面如下。 Option Explicit Const PassW = "12345678" 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] I<2 [B] Text1.Text = PassW [C] Form2.Visible = False [D] I=I+1 (4) [A] Text1.Text<>PassW [B] Text1.Text<>PassW 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-Len(Trim(Str(i)))) 试题3（每空2分，共8分） 【程序说明】通用过程tj为一个统计程序，用于统计字符串内包含的字母和其他字符的个数。参数mstr存放被统计的字符串，counts用于存放字母个数, counto存放其他字符个数。 Public Sub tj(ByVal mstr as String, ___(10)__ counts as Integer, ByRef counto as Integer) Dim ml As Integer, i As Integer, mstrc As String ml = ___(11)___ For i = 1 To ml mstrc = ___(12)___ Select Case mstrc Case ___(13)___ counts = counts + 1 Case Else counto = counto + 1 End Select Next i End Sub (10)[A] ByVal [B] ByRef [C] Private [D] Dim (11)[A] Val(mstr) [B] Str(mstr) [C] Trim(mstr) [D] Len(mstr) (12)[A] Left(mstr, I) [B] Mid(mstr, I, 1) [C] Right(mstr, I - 1) [D] Mid(mstr, I - 1, 1) (13)[A] "A" To "Z", "a" To "z" [B] "A" , "Z", "a" , "z" [C] "A" , "Z" ; "a" , "z" [D] "A" To "Z" ; "a" To "z"

试题4（每空2分，共10分） 【程序说明】变量a是包含10个2位随机整数的一维数组，下面的程序用选择法将数组a中的10个整数按升序排列,最后将这些数从大到小在打印在窗体中。 Private Sub Command1_Click() Dim a(10) as integer Dim p as integer,i as integer, j as integer For i=0 to 9 a(i) = ___(14)___ next i For i = 0 to 8 ___(15)___ Do j = j + 1 If ___(16)___Then p = a(i) a(i) = a(j) a(j) = p End If Loop While ___(17)___ Next i For ___(18)___ Print a(i) Next i End Sub (14)[A] int(rnd*90)+10 [B] int(rnd*89)+10 [C] rnd*90+10 [D] int(rnd*90) (15)[A] p =i [B] p = j [C] j = i + 1 [D] j = i (16)[A] a(i) <= a(j) [B] a(i) > a(j) [C] a(i)<> a(j) [D] a(i) < a(j) (17)[A] j < 11 [B] j < 10 [C] j < 9 [D] j < 8 (18)[A] i = 0 to 9 [B] i = 1 to 10 [C] i = 9 to 0 step –1 [D] i = 9 to 0

试题5（每空2分，共8分） 【程序说明】在图片框坐标系中，左上角的坐标为(-100, 100)，右下角坐标为(100, -100)，在文本框中输入弧度制的角度值，单击命令按钮，图片框内将生成带有坐标系的角度，如图所示。 Private Sub Form_Load() ___(19)___ Text1 =““ Text1.TabIndex = 0 Command1.Enabled = False End Sub Private Sub Command1_Click() Picture1.Cls Picture1.CurrentX =___(20)___ Picture1.CurrentY = 0 Picture1.Print “(0, 0)” Picture1.Line ___(21)___ Picture1.Line (0, -100)-(0, 100) Picture1.Line ___(22)___ Command1.Enabled = False End Sub Private Sub Text1_Change() Command1.Enabled = True End Sub (19)[A] Scale (-100, 100)-(100, -100)