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

第 PAGE 8页，共 NUMPAGES 9页 浙江师范大学《Visual Basic程序设计基础》考试卷 年第 2 学期） 考试形式　笔试（闭卷） 　 　　 使用学生 全校07级理科（非行知）专业　 考试时间　120　分钟　　　　　　　　出卷时间 2008 年　5　月　31　日 说明： 考生应将全部答案都写在答题纸上，否则作无效处理。 试题1至试题6为程序选择填空题，为每个空挑选出一个正确答案写在答题纸上。试题7至试题9为程序设计题，程序中用到的所有变量都要用DIM语句声明。 试题一（每小题2分，共10分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】下列程序段先通过inputbox函数输入两个正整数m和n。然后，求出m和n的最大公约数，并显示在窗体中。 Private Sub form_click() Dim m As Integer, n As Integer, nstart As Integer, i As Integer m = Val(InputBox(请输入m的值)) n = Val(InputBox(请输入n的值)) (1) If (2) Then nstart = n End If For i = (3) If m Mod i = 0 And n Mod i = 0 Then (4) End If Next i Print (5) 的最大公约数是; i End Sub 【供选择的答案】 (1) [A] nstart =0 [B] nstart = m [C] nstart =nstar-1 [D] nstart =1 (2) [A] nm [B] nnstar [C] n nStart [D] mnstar (3) [A] 1 To nstart [B] nstart To n step -1 [C] nstart To m step -1 [D] nstart To 1 step -1 (4) [A] Exit For [B] m=m-1 [C] n=n-1 [D] Exit Sub (5) 此题选出下列表达式中写法错误的一项 [A] Str(m) 和 Str(n) [B] m + 和 + n + [C] m 和 n [D] m ; 和 ; n ; 试题二（每小题2分，共10分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 程序界面如上面两图所示，程序运行时要求有以下功能： 当用户单击“增加”按钮(Command1)，若文本框(Text1)中的内容不为空，则将文本框中的内容添加到列表框末尾，并自动将文本框中的内容选中。 当用户单击“删除”按钮(Command2)，若列表框中没有表项被选中，则用消息框提示“没有选择表项”，否则删除被选中的表项。 文本框仅允许输入数字字符与退格字符(ASCII码值为8)。 【程序】 Private Sub Command1_Click() Dim s As String, t As String s = Text1.Text If s = Then Exit Sub (6) : Text1.SetFocus Text1.SelStart = 0: (7) End Sub Private Sub Command2_Click() If List1.ListIndex = -1 Then MsgBox 没有选择表项 Else (8) End Sub Private Sub Text1_ (9) If (10) Then KeyAscii = 0 End Sub 【供选择的答案】 [A] List1.AddItem s，List1.ListCount [B] List1.AddItem s, 0 [C] List1.AddItem s, List1.ListCount - 1 [D] List1.AddItem s；0 (7) [A] Text1.SelLength = Len(Text1.Text) [B] Text1.SelLength =