VB试卷(A).docVIP

中国计量学院现代科技学院200 8 ~ 200 9 学年第 二 学期 《 计算机程序设计（B） 》课程考试试卷（ A ） 开课系部： 计算机系 ，考试时间： 2009 年6月 30 日 9 时 考试形式：闭卷●、开卷□，允许带 　 入场 考生姓名： 学号： 专业： 班级： 题序 一 二 三 四 五 六 七 八 九 总分 得分 评卷人 说明： (1)考生应将所有试题的答案填写在答卷上，否则无效； (2)考试时间为90分钟； 一、阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 程序1.【程序说明】单击Command1后用输入对话框输入1个整数，单击Command2后在Text1中显示其反序的数（高位变低位）。要求在文本框中不可输入任何字符。 例如：输入123显示321，输入-567显示-765。 【程序1】 (1) Private Sub Form_Load() (2) End Sub Private Sub Command1_Click() Text1.Text = : n = InputBox(n=) End Sub Private Sub Command2_Click() If n 0 Then n = -n: Text1.Text = - While n 0 Text1.Text = (3) (4) Wend End Sub 【供选择的答案】 (1) A、Dim n As Byte B、Dim n As Integer C、Dim n As String D、Public n As Byte (2) A、Text1.Locked = True B、Text1.Locked = False C、Text1.Visible = True D、Text1.Visible = False (3) A、n/10 Text1.Text B、n Mod 10 Text1.Text C、Text1.Text n/10 D、Text1.Text n Mod 10 (4) A、n = n \ 10 B、n = n / 10 C、n = n Mod 10 D、n = n - 10 程序2． 【程序2】 Private Sub Command1_Click() 读文件 Dim s As String Open e:\xxx.txt For (5) As #1 While Not EOF(1) Line Input #1, s : List1.AddItem s Wend Close #1 End Sub Private Sub Command2_Click() 分解 Dim i As Integer, n As Integer, s1 As String, s2 As String For i = 1 To (6) n = Len(List1.List(i - 1)) ReDim a(n) As String * 1 For j = 1 To n a(j) = (7) Next j s1 = : s2 = For j = 1 To n If (8) Then s1=s1+a(j) Else s2=s2+a(j) Next j List2.AddItem s1 List3.AddItem s2 Next i End Sub 【供选择的答案】 (5)A、Read B、Append C、Input D、Output (6)A、List1.Count B、ListCount C、ListCount-1 D、List1.ListCount (7)A、Mid(List1.List