2006年秋浙江省高等学校(visual basic)

2006年秋浙江省高等学校 计算机等级考试试卷（Visual Basic） 说明：（1）考生应将所有试 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 的 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 填写在考卷上。其中试题1~试题6,请在答卷上的各小题选项的对应位置上填“√”。 （2）请将你的准考证号的后五位填写在答卷右下角的指定位置内； （3）考试时间为90分钟 试题1（每小题3分，共12分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确。 【程序说明】 图1 图2 ·运行时初始界面如左上图所示，在文本框中输入一个整数n并按回车键后：如果n<1则重新输入，否则按钮Command1可用； ·按Command1计算费波那契数列第n项的值（该数列1、2项均为1， 此后各项为该项之和，如1、1、2、3、5、8、---）； ·用消息框输出结果（右上图 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 示n为8后，输出的结果是21），按消息框中“是”按钮则界面显示如左上图，按“否”按钮则退出。 【程序】 Dim n As Integer Private Sub Form_Load() Command1.Enable = False End Sub Private Sub Text1_KeyPress(k As Integer) If​_______(1)______ Then Exit Sub n = Text1.Text If n < 1 Then MsgBox (″n应大于零!″):Exit Sub Command1.Enabled = True End Sub Private Sub Command1_Click() Dim I As Integer _________(2)______ f(1) = 1: f(2) = 1 For i = _________(3)______ f(i) = f(i-1) + f(i-2) Next i k = MsgBox(″第″& n & ″项为″& f(n) & ″,是否继续?″,___(4)_____) If k = vbYes Then Text1.Text = ″″: Command1.Enabled = False Text1.SetFocus Else End End If End Sub 【供选择的答案】 (1) A、k = 13 B、k <> 13 C、KeyAscii <> 13 D、KeyAscii = 13 (2) A、Redim f(8) As Long B、Redim f(n) As Long C、Dim f(8) As Long D、Dim f(n) As Long (3) A、1 To n B、1 To n step 1 C、2 To n D、3 To n (4) A、vbNo B、vbYes C、vbYseNo D、vbQuestion 试题2（每小题3分，共15分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 单击Command1后，将所有在List1中存在、而在List2中不存在的表项添加到列表框控件List3中。 Private Sub Command1_Click() Dim i As Integer, j As Integer ___________(5)____________ For i = 0 To ________(6)__________ For j = 0 To ___________(7)___________ if List1.List(i) = List2.List(j) Then _________(8)_________ Next j If ___(9)____ Then List3.AddItem List1.List(i) Next i End Sub 【供选择的答案】 （5）A、List3.Clear B、List3.List=″″ C、List3.delete D、List.Cls （6）A、List1.ListCount B、List1.ListCount - 1 C、List1.ListCount D、List2.ListCount - 1 （7）A、List2.ListCount - 1 B、List2.ListCount C、List1.ListCount - 1 D、List1.ListCount （8）A、Exit For B、Exit C、Exit Do D、Break (9) A、j< List2.ListCount B、j<= List2.ListCount C、j> List2.ListCount D、j>= List2.ListCount 试题3（每小题3分，共15分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 选择一个图象文件（BMP、JPG）后，在图片框控件中P1中显示，按“反转”按钮后，将P1中每一个像素在P2中相应位置以不同颜色显示。 图（）（） 【程序】 Private Sub Form_Load() File1.___(10)_______=”*.bmp;*.jpg” P2.Width = P1.Width: P2.Height = P1.Height P1.ScaleMode = 3: P2.ScaleMode = 3 End Sub Private Sub Dir_Change() File1.Path = Dir1.Path End Sub Private Sub Drivel_Change() Dir1.Path = __(11)______ End Sub Private Sub File1_Click() ___(12)______GOTO kk P1.Picture = LoadPicture(File1.Path + File1.FileName) Exit Sub kk: P1.Picture = LoadPicture(File1.Path + “\” + File1.FileName) End Sub Private Sub Command1_Click() Dim x As Integer , y As Integer,___(13)______ Dim r As Byte, g As Byte, b As Byte For x = P1.ScaleLeft To P1.ScaleLeft + P1.ScaleWidth For y = P1.ScaleTop To P1.ScaleTop + P1.ScaleHeight C= P1.Point(x,y) If c >=0 Then r = c Mod 256: c = c \256 g= c Mod 256: c = c \256 ______(14)________ P2.PSet (x,y), RGB(256 – r , 255 – g, 255 – b) End If Next y,x End Sub 【供选择的答案】 （10）A、Filter B、Pattern C、FileName D、Path （11）A、Dir1.Path B、File1.Path C、Driver1.Path D、Driver1. Driver （12）A、On Error B、In Error C、If Error D、If Error Then （13）A、c As Byte B、c As Long C、c As Single D、c As Integer (14) A、b = c Mod 255 B、b = c \256 C、b = c D、b = c\256 试题4（每小题3分，共9分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序】 Private Sub Form_click() Dim n As Integer , i As Integer, k As Integer, j As Integer Do n = IntputBox(“请输入1个1至9之间的整数”) Loop Until 0 < n And n < 10 k = 10: j=1 For i = 1 To n Print Space(k); String(j,Trim(Str(i))) If i <= n / 2 Then k = k-1 : j = j +2 Else k = k-1 : j = j -2 End If Next i End Sub （15）若运行时输入n值为2，窗体上的显示结果为： A、1 B、1 C、1 D、2 121 222 123 121 （16）若运行时输入n值为3，窗体上的显示结果为： A、1 B、1 C、1 D、1 222 123 12 222 33333 12321 123 3 （17）若运行时输入n值为4，窗体上的显示结果为： A、1 B、1 C、1 D、1 222 222 123 222 3 33333 12345 33333 444 444 1234567 4444444 试题5（每小题3分，共9分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序】 Private Sub Form_Load() Timer1.Interval = 100 : Form1.WindowState = 2 Lable1.Width = ScaleWidth / 2: Lable2.Left = ScaleLeft Lable1.Alignment = 0: Label1.Caption = “…” End Sub Private Sub Timer1_Timer() Static m As Byte m = m + 8: Label1.FontSize = m Timer1.Interval = Timer1. Interval + 100 If m > 80 Then Timer1.Enabled = False End Sub (18)程序运行时，事件过程Timer1_Timer自动执行的次数为： A、9 B、10 C、11 D、0 (19)“运行中…”这段文字的显示位置始终在窗体的 A、窗体的左边 B、Label1的左边 C、窗体的右边 D、Label1的右边 (20) Label1的标题在窗体上的显示多次变化，其规律为： A、字体变大、变化减慢 B、字体变小、变化减慢 C、字体变小、变化加快 D、字体变大、变化加快 试题6（每小题3分，共12分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序】 Private Sub Form_Load () Form1.Height = Form1.Width * 2 / 3 Form1.FillColor = RGB(0,0,255) Form1.FillStyle = vbSold End Sub Private Sub Form_Activate() Scale (0, 0) - (300,200) paint.Caption = “Circle” Line – (150,100), FillColor, BF End Sub Private Sub paint_Click() Form1.Cls If paint.Caption = “Rectanfle” Circle (ScaleWidth / 2. ScaleHeight / 2), ScaleHeight / 2,- 255, , , ScaleHeight / ScaleWidth Else paint.Caption = “Circle” Line – (150,100), FillColor, BF End If End Sub (21)菜单项标题为“Circle”、“paint”，单击该菜单项后窗体上显示： A、 圆 B、纵轴大于横轴的椭圆 C、横轴大于纵轴的椭圆 D、矩形 (22) 菜单项标题为“Rectanfle”、“paint”，单击该菜单项后窗体上显示： A、红色边框无填充色的椭圆 B、兰色边框黑色填充的矩形 C、黑色边框兰色填充的椭圆 D、兰色边框兰色填充的矩形 (23)菜单项标题为“Circle”，两次单击名称为“paint”的该菜单项，窗体显示： A、椭圆 B、矩形 C、1个椭圆和1个矩形 D、1个椭圆和1个正方形 (24) 菜单项标题为“Rectanfle”，两次单击名称为“paint”的该菜单项，窗体显示： A、椭圆 B、矩形 C、1个椭圆和1个矩形 D、1个椭圆和1个正方形 试题7（14分） 编写事件过程Command_Click，计算下式的和，变量x与n的数值用输入对话框输入。 试题8（14分） 某文本文件以下列格式存储若干学生的学号和两门课成绩，编写单击窗体的事件过程： （1） 用通用对话框控件Commandialog1选择该文件； （2） 在Label1(0)~Label1(1)显示总分最高的学生之学号、总分。 文本文件格式 “05010101”,78,89 “05010102”,83,79