vb等级考试模拟试卷

精品文档VB考前辅导班模拟考试卷（较难）试题一（每小题2分，共8分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】过程JiSuan用于计算1-(1/2)+(1/3)-.+(1/99)-(1/100)的值，并用消息框显示结果。【程序】Option ExplicitPublic Sub JiSuan() Dim i As Integer, s As Single : (1) for (2) k = 1 / i : s = s + k k = (3) : s = s + k Next i (4) End Sub【供选择的答案】（1） A、k as integer B、dim k as integer C、dim k as single D、k as single（2） A、i = 1 to 100 step 2 B、i = 100 to 1 step -2C、i = 1 to 100 D、i = 100 to 1 step 1（3） A、1/i+1 B、-1/(i+1) C、-1/i+1 D、1/(i+1)（4） A、msgbox(“1-(1/2)+(1/3)-.+(1/99)-(1/100)的和为：” & s)B、msgbox(“1-(1/2)+(1/3)-.+(1/99)-(1/100)的和为：” + s)C、msgbox “1-(1/2)+(1/3)-.+(1/99)-(1/100)的和为：” + sD、msgbox “1-(1/2)+(1/3)-.+(1/99)-(1/100)的和为：” & s试题二（每小题2分，共10分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】程序界面如下图所示，程序运行时要求有以下功能：1. 实现盘驱动器列表框drive1、目录列表框dir1、文件列表框file1的联动。2. 文件列表框file1中仅显示txt文件。3. 当双击文件列表框file1中的某一文件时，删除该文件。【程序】Private Sub Form_Load()下面一句代码,使文件列表框仅显示txt文件 (5) End SubPrivate Sub Drive1_Change() (6) End SubPrivate Sub Dir1_Change() (7) End SubPrivate Sub File1_dblClick() Dim fs As String If (8) Then fs = File1.Path + File1.FileName Else fs = File1.Path + + File1.FileName End If (9) MsgBox 删除成功 : File1.RefreshEnd Sub（5） A、file1.filter=”*.txt” B、file1.pattern=”*.txt”C、file1.filter=”txt文件|*.txt” D、file1.pattern=”txt文件|*.txt”（6） A、drive1.drive=dir1.path B、dir1.path = drive1.pathC、drive1.path =dir1.path D、dir1.path = drive1.drive（7） A、file1.path=dir1.path B、dir1.path = file1.pathC、file1.path =drive1.drive D、file1.patttern = dir1.path（8） A、mid(file1.path,1,1)=” B、left(file1.path,1)=”C、right(file1.path,1)=” D、file1.path=”（9） A、kill “fs” B、del fs C、kill fs D、del “fs”试题三（每小题2分，共14分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】第一次单击窗体，生成十个10,99之间的随机整数，并显示在窗体上。第二次单击窗体，将前面生成的十个随机整数进行排序，并显示在窗体上。效果如上图所示。【程序】 (10) Dim a(1 To 10) As BytePrivate Sub Form_click() Dim i As Integer If (11) Then Cls Print 排序前数据:; For i = 1 To 10 a(i) = (12) Print a(i); Next i Print : secClick = True Else (13) Print 排序后数据:; For i = 1 To 10 Print a(i); Next i Print : secClick = False End IfEnd SubPrivate Sub sortArray( (14) , n As Integer) Dim i As Integer, j As Integer, t as byte For i = 1 To n - 1 For j = (15) If x(i) x(j) Then (16) End If Next j Next iEnd Sub（10） A、定义数组 B、dim secClick as boolean C、secClick=true D、cls（11） A、not secClick B、secClick=true C、secClick = -1 D、secClick（12） A、int(rnd*91)+10 B、int(rnd(90)+10 C、int(rnd(91)+10) D、fix(rnd*90)+10（13） A、sortArray(a, 10) B、sortArray a, 10 C、sortArray a(10) D、sortArray 10,a（14） A、x() as integer B、x as byte C、x(10) as byte D、x() as byte（15） A、1 to n - i B、i to n - 1 C、i + 1 to n D、i +1 to n -1（16） A、t = x(j) : x(j) = x(i) : x(i) = t B、t = x(i) : x(j) = x(i) : x(j) = t C、x(i) = t : t = x(j) : x(j) = x(i) D、x(j) = t : t = x(i) : x(i) = x(j)试题四（每小题2分，共16分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】自定义函数DTOB实现将十进制整数转换为字符串形式的二进制数。【程序】Private Sub Form_click() Static k As Integer Dim x As Integer x = x + 2 : k = k + x Open c:result.txt For Output As 1 Print #1, DTOB(x); Print #1, x Print #1, DTOB(k); Print #1, k Close #1End Subprivate Function DTOB(ByVal n As Integer) As String Dim s As String, c As String While (17) c = (18) s = c + s : n = (19) Wend (20) End Function（17） A、n0 D、n1（18） A、chr(n 2) B、trim(str(n mod 2) C、trim(str(n 2) D、val(n mod 2)（19） A、n = n 2 B、n = n / 2 C、n = n mod 2 D、n = n - 2（20） A、s = DTOB B、DTOB(n) = s C、Print s D、DTOB = s（21） 单击窗体两次后，文件C:result.txt中的内容是什么？A、10 2 B、10 2 C、“10”,2 D、“10” 2 100 4 10 2 “10”,4 “10” 2（22） 其它代码不变，仅将程序中的print全部换为write，单击窗体两次后，文件C:result.txt中的内容是什么？A、10 2 B、10 2 C、“10”,2 D、“10” 2 100 4 10 2 “100”,4 “10” 2（23） 其它代码不变，仅将函数DTOB的形参定义由Byval n as integer换成n as integer，单击窗体两次后，文件“C:result.txt”中的内容是什么？A、10 2 B、10 0 C、“10”,2 D、“10” 0 10 2 10 0 “100”,4 “10” 0（24） 其它代码不变，仅将打开文件语句中的output改为append，单击窗体两次后，文件C:result.txt中的内容是什么？A、10 2 B、10 2 C、“10”,2 D、“10” 2 10 2 100 4 “100”,4 “10” 4 10 2 “10” 2 100 4“100” 4试题五（每小题2分，共10分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】“字体修饰”程序界面如上图所示，程序运行时要求有以下功能：1. “字体”框架中的三个单击按钮分别为option1(0)、option1(1)、option1(2)，单击任一单选按钮，实现对标签控件label1字体的设置；2. 单击复选框控件check1，若复选框控件被选中，则将命令按钮command1（标题为“选择颜色”）设置为可用，否则设置为不可用。3. 若命令按钮command1可用，则单击command1将显示“颜色”对话框，可实现对标签label1上文字颜色的设置。【程序】Private Sub Check1_Click() Dim k As Boolean If (25) Then k = True Else k = False (26) End SubPrivate Sub Command1_Click() (27) Label1.ForeColor = (28) End SubPrivate Sub Option1_Click(Index As Integer) Label1.FontName = (29) End Sub（25） A、check1.value=1 B、check1.value=0 C、check1.value=false D、check1.value=2（26） A、command1.visible = k B、command1.cancel = kC、command1.enabled = k D、command1.default = k（27） A、commondialog1.showopen B、commondialog1.showsaveC、commondialog1.showfont D、commondialog1.action = 3（28） A、commondialog1.ForeColor B、commondialog1.ColorC、commondialog1.BackColor D、commondialog1.FontColor（29） A、option1.caption B、option1(index).captionC、option1.fontName D、option1(index).FontName试题六（每小题2分，共14分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】程序界面如下面两图所示，程序运行时要求有以下功能：1. 列表框控件list1中已有若干表项（均为数字字符），并按从小到大的顺序排序。2. 当用户向文本框text1中输入数字后按回车键，将该数字添加列表框list1中合适的位置，使列表框list1中的表项仍然有序，并自动将文本框中的内容选中（如下面右图所示）。3. 当用户单击“删除”按钮，若没有列表框中没有表项被选中，则用消息框提示“先选择，后删除”，否则删除被选中的表项。 【程序】Private Sub Command1_Click() If list1.listindex= -1 Then MsgBox 先选择，后删除 Else (30) End SubPrivate Sub Text1_ (31) Dim n As Integer, i As Integer, tempN As Integer If KeyAscii = 13 Then n = Val(Text1.Text) For i = 0 To List1.ListCount - 1 tempN = (32) If tempN n Then (33) Next i (34) : Text1.SelStart = 0 : (35) End IfEnd Sub（30） A、list1.removeitem list1.listcount -1 B、list1.removeitem list1.listcountC、list1.removeitem list1.listindex -1 D、list1.removeitem list1.listindex（31） A、KeyPress(Keyascii as integer) B、Change(Keyascii as integer)C、Change D、keyPress(Keyascii as string)（32） A、list1.listindex B、list1.list(list1.listindex) C、val(list1.list(i) D、i（33） A、exit sub B、exit for C、exit do D、n = tempN（34） A、list1.additem text1.text, list1.listcount B、list1.additem text1.text iC、list1.additem text1.text, i D、list1.additem text1.text（35） A、text1.sellength = len(text1.text) B、text1.sellength = len(text1.seltext)C、text1.seltext = text1.text D、text1.text = text1.seltext试题七（8分）编写一个自定义函数FunX，实现计算下面的分段函数。funX(x) = 试题八（10分）界面设计、运行时状态如下图所示，按照下列要求定义各事件过程：1. 在窗体的load事件过程中，设置定时器timer1时间间隔为0.05秒，不可用；设置滚动条的最小值为50，最大值为200；设置按钮的标题为“开始”。2. 单击命令按钮command1，若按钮标题为“开始”，则标签label1从左向右移动（每次timer事件发生移动100缇），同时按钮标题变成“停止”，当标签移出右边时，从左边重新进入；若按钮标题为“停止”，则标签停止运行，同时按钮标题变成“开始”。3. 单击滚动条两端箭头或移动滑块,能实时改变定时器控件的时间间隔。试题九（12分）界面设计、运行时状态如下图所示，按照下列要求定义各事件过程：1. 在窗体的load事件过程中，设置图片框pic1的内部坐标系，使之满足如下要求：图片框左边线、右边线在其自身坐标系中的横坐标分别为-PI、PI；图片框上边线、下边线在其自身坐标系中的纵坐标分别为1、-1，2. 单击“画坐标系”按钮（command1），在图片框中画出如下面左图所示的坐标系。3. 单击“sinx”按钮（command2）,则在图片框上画一个周期-PI，PI的正弦曲线。4. 在通用声明部分已经写了一条语句：Const PI = 3.141592655. 单击“退出”按钮（command3）,结束程序运行。 试题一（01-04）：CABD试题二（05-09）：BDACC试题三（10-16）：BADBDCA试题四（17-24）：CBADACBA试题五（25-29）：ACDBB试题六（30-35）：DACBCA试题七：function FunX(x as single) as single if x=1 thenif x3 then funx = x+2else funx = x2/(x+2)end ifelse if x0 then funx = sqr(x)else funx = 0end ifend ifend function试题八：private sub Form_Load() timer1.enabled = false erval = 50 Hscroll1.max = 200 hscroll1.min = 50 command1.Captio