浙江省计算机等级考试二级VB 2015春季真题 .docVIP

2008 年春浙江省高等学校 计算机等级考试试卷(二级 Visual Basic) 说明：⑴ 考生应将所有试题的答案填写在答卷上。其中试题 1～试题 6，请在答卷上各小题 正确选项的对应位置处填“√”； 请将你的准考证号的后五位填写在答卷右下角的指定位置内； 考试时间为 90 分钟; 试题 1（每小题 3分，共 12分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】单击 Command1后用输入对话框输入 1个整数，单击 Command2后在 Text1 中显示其反序的数（高位变低位）。要求在文本框中不可输入任何字符。 例如：输入 123显示 321，输入-567显示-765。 【程序】 (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 = (4) Wend End Sub 【供选择的答案】 (1)A、DimnAsByte C、DimnAsString (3)  B、DimnAsInteger D、PublicnAsByte (2)A、Text1.Locked=True C、Text1.Visible=True (3)A、n/10Text1.Text C、Text1.Textn/10 (4)A、n=n\10 C、n=nMod10 B、Text1.Locked=False D、Text1.Visible=False B、nMod10Text1.Text D、Text1.TextnMod10 B、n=n/10 D、n=n-10 1  Create PDF with GO2PDF for free, if you wish to remove this line, click here to buy Virtual PDF Printer  试题 2（每小题 3分，共 12分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 运行时，可以在图片框控件 p1用红色绘制下列坐标线并加上数字显示。 Private Sub Form_Activate() P1.Height = P1.Width P1.FontSize = 10 (5) (6) (-10, 110)-(110, -10) P1.Line (-5, 0)-(100, 0) P1.Line (0, -5)-(0, 100) For i = (7) P1.Line (i, 0)-(i, 2) P1.Line (0, i)-(2, i) Next i For i = 1 To 9 P1.CurrentX = i * 10 - 2 P1.CurrentY = -2 (8) Next i End Sub 【供选择的答案】 (5)A、P1.Draw B、P1.Line  C、P1.Print  D、P1.Scale (6)A、P1.ForeColor=RGB(255,0,0) C、P1.FillColor=VbRed B、P1.FillColor=RGB(255,0,0) D、P1.ForeColor=Red (7)A、1To9Step1 B、10To90 C、10To90Step10 D、2To9 (8)A、PSeti B、P1.Printi C、P1.Pseti 2 D、Printi  Create PDF with GO2PDF for free, if you wish to remove this line, click here to buy Virtual PDF Printer  试题 3（每小题 3分，共 12分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 单击“读文件”按钮将文本文件读入并逐行在列表框控件 List1中显示；然后单击“分 解”按钮将 List1每行中的英文字母、其他字符分别显示在 List2、List3各行中。 运行结果如下图所示。 【程序】 Private Sub Command1_Click() Dim s As String Open e:\xxx.txt For (9) While Not EOF(1) 读文件 As #1 Line Input #1, s : List1.AddItem s Wend Close #1 E