VB考前辅导班模拟试卷2.doc

VB考前辅导班模拟试卷二试题一（每小题2分，共10分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】过程JiSuan用于计算S=1+1/2!-1/3!+1/4!+-1/9!+1/10!的值，并用消息框显示结果。【程序】Option ExplicitPrivate Sub JiSuan() Dim k As Integer, f As Long, fh As Integer, (1) s as single s = 1 : (2) f = 2 : fh = 1 For k = 2 To 10 s = s + fh / f : (3) fh = -fh : f = (4) f * (k+1) Next k (5) msgbox “1+1/2!-1/3!+1/4!+-1/9!+1/10!的和为：” & sEnd Sub【供选择的答案】（1） A、s as integer B、dim s as integer C、dim s as single D、s as single（2） A、f = 1 B、f = 2 C、f= -1 D、f = -2（3） A、fh= 1 B、fh= -1 C、fh = -fh D、fh= (-1)k（4） A、f * k B、f * (k+1) C、f * 3 D、f * (k+2)（5） A、Msgbox “1+1/2!-1/3!+1/4!+-1/9!+1/10!的和为：” & fB、Msgbox “1+1/2!-1/3!+1/4!+-1/9!+1/10!的和为：” + fC、msgbox “1+1/2!-1/3!+1/4!+-1/9!+1/10!的和为：” + sD、msgbox “1+1/2!-1/3!+1/4!+-1/9!+1/10!的和为：” & s试题二（每小题2分，共16分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】程序界面如下图所示，程序运行时要求有以下功能：单击按钮Command1，生成十个100，999之间的随机整数，然后对这些数按数位之和进行升序排列并显示在窗体上。例如：112的数位之和为4，621的数位之和为9，360的数位之和为9，371的数位之和为11，因此按下图所示顺序排列。函数CalcNumber用于计算数n各数位之和。【程序】Private Sub command1_Click() Dim a(1 To 10) As Integer, b(1 To 10) As Integer Dim k As Integer, j As Integer, p As Integer, t As Integer For k = 1 To 10 a(k) = (6) fix(rnd*900)+100 : b(k) = (7) CalcNumber(a(k) Next k For k = 1 To 9 p = k For j = (8) k+1 to 10 If (9) b(p)b(j) Then p = j Next j t = a(p): a(p) = a(k): a(k) = t : t = b(p): b(p) = b(k): b(k) = t (10) Print a(k) Next k Print a(10)End SubFunction CalcNumber(ByVal n As Integer) As Integer Dim s As string, L as integer, r as integer, k as integer s = (11) trim(str(n) : L = len(s) for k = 1 to L r = r + (12) val(mid(s,k,1) next k (13) CalcNumber = rEnd Function【供选择的答案】（6） A、int(rnd*899)+100 B、int(rnd(900)+100 C、int(rnd(899)+100) D、fix(rnd*900)+100（7） A、call CalcNumber(a(k) B、call CalcNumber a(k)C、CalcNumber(a(k) D、CalcNumber a(k)（8） A、k to 9 B、k+1 to 10 C、1 to 10-k D、p+1 to 9（9） A、a(k)a(j) B、a(p)a(j) C、b(k)b(j) D、b(p)b(j)（10） A、Print a(k); B、Print a(j); C、Print t D、Print a(p);（11） A、str(n) B、chr(n) C、trim(str(n) D、string(n)（12） A、asc(left(s,k) B、asc(mid(s,k,1)C、val(left(s,k) D、val(mid(s,k,1)（13） A、r = CalcNumber(n) B、CalcNumber = rC、r = CalcNumber D、CalcNumber(n) = r试题三（每小题2分，共8分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】Dim x As IntegerPrivate Sub Form_click() x = x + 2 Call proc1(x) (1) Print x;End SubSub proc1(a As Integer) (2) Dim x As Integer (3) a = x + 2End Sub【供选择的答案】（14） 单击窗体两次后，窗体上显示的内容是什么？A、0 0 B、2 2 C、2 4 D、4 8（15） 其它代码不变，仅将程序中的语句（2）改成sub proc1(byval a as integer)，单击窗体两次后，窗体上显示的内容是什么？A、0 0 B、2 2 C、2 4 D、4 8（16） 其它代码不变，仅将程序中的语句（3）删除，单击窗体两次后，窗体上显示的内容是什么？A、0 0 B、2 2 C、2 4 D、4 8（17） 其它代码不变，仅将程序中的语句（1）改为call proc1(x+2)，单击窗体两次后，窗体上显示的内容是什么？A、0 0 B、2 2 C、2 4 D、4 8试题四（每小题2分，共14分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】 程序界面如上面两图所示，程序运行时要求有以下功能：1. 当用户向文本框text1中输入内容后按回车键，若输入的内容在列表框中已存在，则给出提示，否则将该内容添加到列表框末尾，并自动将文本框中的内容选中。2. 当用户单击“删除”按钮，若列表框中没有表项被选中，则用消息框提示“先选择，后删除”，否则删除被选中的表项。【程序】Private Sub Text1_ (18) KeyPress(Keyascii as integer) Dim c As String, k As Integer, s As String If (19) keyascii13Then exit sub c = Trim(Text1.Text) If c Then For k = 0 To List1.ListCount - 1 s = (20) list1.list(k) If s = c Then (21) exit for Next i If k List1.ListCount - 1 Then (22) list1.additem c, k : Text1.SelStart =0 : (23) text1.sellength = len(text1.text) Else MsgBox 字符串 + c + 已存在! end if End IfEnd SubPrivate Sub Command1_Click() If List1.ListIndex = -1 Then MsgBox 先选择，后删除 Else (24) list1.removeitem list1.listindexEnd Sub【供选择的答案】（18） A、KeyPress(Keyascii as integer) B、Change(Keyascii as integer)C、Change D、keyPress(Keyascii as string)（19） A、keyascii =13 B、keyPress =13C、keyPress13 D、keyascii13（20） A、list1.text B、list1.list(list1.listindex)C、list1.list(k) D、list1.list(list1.listCount)（21） A、exit sub B、exit for C、exit do D、end（22） A、list1.additem c，list1.listCount-1 B、list1.additem c; kC、list1.additem c, 0 D、list1.additem c, k（23） A、text1.sellength = len(text1.text)B、text1.sellength = len(text1.seltext)C、text1.seltext = text1.textD、text1.text = text1.seltext（24） A、list1.removeitem list1.listcount - 1 B、list1.removeitem list1.listcountC、list1.removeitem list1.listindex 1D、list1.removeitem list1.listindex试题五（每小题2分，共10分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】程序界面如下图所示，程序运行时要求有以下功能：1. 实现盘驱动器列表框drive1、目录列表框dir1、文件列表框file1的联动。2. 文件列表框file1中仅显示BMP文件。3. 单击文件列表框file1中的某一文件时，将该图片文件显示在影像框image1中。【程序】Private Sub Form_Load()下面一句代码,使文件列表框仅显示BMP文件 (25) file1.pattern=”*.bmp”End SubPrivate Sub Drive1_Change() (26) dir1.path = drive1.driveEnd SubPrivate Sub Dir1_Change() (27) file1.path=dir1.pathEnd SubPrivate Sub File1_dblClick() Dim fs As String If (28) right(file1.path,1)” Then fs = File1.Path + + File1.FileName Else fs = File1.Path + File1.FileName End If (29) image1.picture = loadpicture(fs)End Sub【供选择的答案】（25） A、file1.filter=”*.bmp” B、file1.filter=”bmp文件|*.bmp”C、file1.pattern=”*.bmp” D、file1.pattern=”bmp文件|*.bmp”（26） A、drive1.path =dir1.path B、dir1.path = drive1.drive C、drive1.drive=dir1.path D、dir1.path = drive1.path（27） A、file1.path =drive1.drive B、dir1.path = file1.pathC、file1.path=dir1.path D、file1.patttern = dir1.path（28） A、mid(file1.path,1,1)=” B、right(file1.path,1)”C、right(file1.path,1)=” D、file1.path=”（29） A、image1.picture = fsB、image1.picture = loadpicture(“fs”)C、image1.picture = loadpicture(fs)D、image1.picture = loadpicture(“”)试题六（每小题2分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】程序界面如下图所示，程序运行时要求有以下功能：1. 在窗体的load事件过程中，设置图片框pic1的宽度等于高度，并设置Pic1的内部坐标系，使之满足如下要求：图片框左边线、右边线在其自身坐标系中的横坐标分别为-50、50；图片框上边线、下边线在其自身坐标系中的纵坐标分别为50、-50。2. 单击“画线”按钮（command1），在图片框正中间画一蓝色直线，如左下图所示。3. 单击“画扇形”按钮（command2），画实心填充的两个扇形，上面扇形的半径为图片框宽度的四分之一,圆心在图片框中心点；下面扇形的半径为图片框宽度的二分之一，圆心为图片框底边的正中间。如右下图所示。4. 单击“清除”按钮（command3），清除图片框上显示的内容。 【程序】Const PI = 3.14159265Private Sub Form_Load() (30) pic1.width = pic1.height : Pic1.ForeColor = vbBlue : Pic1.Scale (-50, 50)-(50, -50)End SubPrivate Sub Command1_Click() (31) Pic1.Line (50, 0)-(-50, 0) Pic1.Line (50, 0)-(-50, 0)End SubPrivate Sub Command2_Click() Dim r As Integer(32) Pic1.FillStyle = 0 : r = (33) Pic1.ScaleWidth / 4 Pic1.FillColor = vbYellow : (34) Pic1.Circle (0, 0), r, , -3 * PI / 2, -PI / 2 Pic1.FillColor = vbRed Pic1.Circle (0, -50), 2 * r, vbBlue, -PI / 2, -PIEnd SubPrivate Sub Command3_Click() (35) pic1.clsEnd Sub【供选择的答案】（30） A、pic1.width = pic1.height B、pic1.ScaleWidth = pic1.ScaleHeightC、pic1.Height = pic1.width D、pic1.ScaleHeight = pic1.ScaleWidth（31） A、Pic1.Line (0, 50)-(0, -50) B、Pic1.Line (50, 0)-(-50, 0)C、Pic1.Line -(0,-50),vbBlue D、Pic1.Line -(-50, 0),vbBlue（32） A、Pic1.foreColor = vbred B、Pic1.FillStyle = 2C、Pic1.FillStyle = 1 D、Pic1.FillStyle = 0（33） A、Pic1.ScaleWidth / 2 B、Pic1.ScaleWidth / 4C、Pic1.Width / 2 D、Pic1.Width / 4（34） A、Pic1.Circle (0, 0), r, , -3 * PI / 2, -PI / 2B、Pic1.Circle (0, 0), r,vbBlue, -PI / 2, -3 * PI / 2C、Pic1.Circle step(0, 0), r,vbBlue, -3 * PI / 2, -PI / 2D、Pic1.Circle (0, 0), r, -3 * PI / 2, -PI / 2（35） A、clear B、pic1.clear C、cls D、pic1.cls试题七（8分）编程，用Inputbox函数输入X，根据下面公式计算Y值，并在窗体上显示Y值。代码写在窗体的Click事件过程中。y = Private Sub Form_click() Dim x As Single, y As Single 1分 x = Val(InputBox(x=) 1分 Select Case x 5分 Case Is 3 y = x + 3 Case Is = 1 y = x * x / (x + 2) Case Is 1 y = Sqr(x) Case Else y = 0End Select Print y 1分End Sub试题八（10分）界面设计、运行时状态如下图所示，按照下列要求定义各事件过程：1. 单击复选框控件check1，若复选框控件被选中，则将命令按钮command1（标题为“选择颜色”）设置为可用，否则设置为不可用。2. 若命令按钮command1可用，则单击command1将显示“颜色”对话框，可实现对标签label1上字体颜色的设置。通用对话框控件的名称为CommonDialog1。3. 单击滚动条Hscroll1两端箭头或移动滑块时，将设置标签Label1上字体大小为滚动条的值。4. 单击按钮command2“退出”，结束程序运行。在窗体的Load事件过程已有代码如下：Private Sub Form_Load() Command1.Enabled = False : label1.autosize = true Label1.Alignment = 2 居中对齐 HScroll1.Min = 12 : HScroll1.Max = 40End SubPrivate sub check1.click()if check1.value=1 then Command1.enabled=trueElseCommand1.enabled=falseEnd ifEnd subPrivate sub command1_click()Commondialog1.action=3Label1.forecolour=commondialog1.colourEnd subPrivate sub hscorll1.change() label1.fontsize=hscorll1.valueEnd subPrivate sub hscroll_scroll() label1.fontsize=hscorll1.valueEnd subPrivate sub command2_click()End End sub试题九（12分）已知“C:cj.txt”内有若干条成绩记录(记录数不确定)，格式如左下图所示。要求在窗体的Click事件过程中编写程序，查找“C:cj.txt”中所有不及格的成绩记录（包括学号，写入数据格式如右下图所示）并写入到文件“C:bjg.txt”中；同时统计成绩记录总数和不及格成绩记录数，将统计结果显示在窗体上。 Private sub form_click()dim xh as string,fs a