vb等级考试模拟试卷

1、精品文档VB考前辅导班模拟考试卷(较难)试题一(每小题 2 分，共 8 分)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】过程 JiSuan 用于计算 1-(1/2)+(1/3)-.+(1/99)-(1/100)的值，并用消息框显示结果。 【程序】Opti on ExplicitPublic Sub JiSua n()Dim i As In teger, s As Si ngle :(1)fork = 1 / i : s = s + kk =(3): s = s + kNext i(4)End Sub【供选择的答案】(1)A、 k as integerB

2、、dim k as integerC、dim k as singleD、k as single(2)A、i = 1 to 100 step 2B、i = 100 to 1 step -2C、i = 1 to 100D、i = 100 to 1 step (3)A、1/i+1B、 -1/(i+1)C、-1/i+1D、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、msgbox1-(1/2)+(1/3)-.+(1/99

3、)-(1/100)的和为：” + sD、msgbox1-(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

4、 文件End Sub精品文档Private Sub Drive1_Cha nge()End SubPrivate Sub Dir1_Cha nge()End SubPrivate Sub File1_dblClick()Dim fs As StringIf (8)The nfs = File1.Path + File1.FileNameElsefs = File1.Path + + File1.FileNameEnd If(9)MsgBox 删除成功:File1.RefreshEnd Sub(5)A、 file1.filter= *.txt ”B、 file1.pattern= ”.txt ”

5、C、file1.filter= ”xt 文件 |*.txt ”D、 file1.pattern= txt 文件 |*.txt ”(6)A、 drive1.drive=dir1.pathB、 dir1.path = drive1.pathC、drive1.path =dir1.pathD、dir1.path = drive1.drive(7)A、file1.path=dir1.pathB、 dir1.path = file1.pathC、 file1.path =drive1.driveD、file1.patttern = dir1.path(8)A、mid(file1.path,1,1)= ”

6、 ”B、 left(file1.path,1)=C、right(file1.path,1)= ” ”D、 file1.path=(9)A、kill“s”B、del fsC、kill fsD、del fs试题三（每小题 2 分，共 14 分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】-inlxi:非序前数据：735862363779 11788373排序后数据：1136 3758627373787983第一次单击窗体，生成十个10,99之间的随机整数，并显示在窗体上。第二次单击窗体，将前面生成的十个随机整数进行排序，并显示在窗体上。效果如上图所示。【程

7、序】(10)Dim a(1 To 10) As BytePrivate Sub Form_click()Dim i As In tegerIf (11) ThenCisPrint 排序前数据：；Fori = 1 To 10iii Forml精品文档a(i) =(12)Print a(i);Next iPrint : secClick = TrueElse(13)Print 排序后数据:;Fori = 1 To 10Print a(i);Next iPrint : secClick = FalseEnd IfEnd SubPrivate Sub sortArray(14), n As In te

8、ger)Dim i As In teger, j As In teger, t as byteFor i = 1 To n - 1For j =(15)If x(i) x(j) The n(16)End IfNext jNext iEnd Sub(10) A、定义数组B、dim secClick as boolean C、secClick=trueD、cls(11)A、not secClickB、secClick=trueC、secClick = -1D、secClick(12) A、in t(rnd*91)+10B、int(rnd(90)+10C、int(rnd(91)+10)D、fix(r

9、nd*90)+10(13) A、sortArray(a, 10)B、sortArray a, 10C、sortArray a(10)D、sortArray 10,a(14) A、x() as in tegerB、x as byteC、x(10) as byteD、x() as byte(15) A、1 to n - iB 、i to n - 1C、i + 1 to nD、i +1 to n -1(16) A、t = x(j) : x(j) = x(i) :x(i) = tB、t = x(i) : x(j) = x(i) : x(j) = tC、x(i) = t : t = x(j) : x(j

10、) = x(i)D、x(j) = t : t = x(i) : x(i):=x(j)试题四（每小题 2 分，共 16 分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】自定义函数 DTOB 实现将十进制整数转换为字符串形式的二进制数。【程序】Private Sub Form_click() Static k As In teger Dim x As In tegerx = x + 2 : k = k + xOpen c:result.txt For Output As 1Print #1, DTOB(x);Print #1, xPrint #1, DTO

11、B(k);Print #1, kClose #1End Subprivate Fun ction DTOB(ByVal n As In teger) As Stri ng精品文档Dim s As Stri ng, c As Stri ngWhile(17)c =(18)s = c + s : n =(19)Wend(20)End Function(17) A、 n0D、 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 2B、n=n / 2C、 n = n mod 2 D、n = n

12、- 2(20) A、s = DTOBB、DTOB( n) = sC、Print sD、DTOB = s(21)单击窗体两次后,文件C:result.txt中的内容是什么？A、 10 2B、10 2C、 “10” ,2D、 “10”2100 410 2“10”,4“10” 2(22)其它代码不变，仅将程序中的print 全部换为 write，单击窗体两次后，文件C:result.txt 中的内容是什么？A、10 2 B、10 2C、“ 10” ,2D、“10” 2100 410 2“100 ” ,4“10” 2(23)其它代码不变，仅将函数DTOB 的形参定义由 Byval n as integ

13、er 换成 nas integer，单击窗体两次后，文件“ C:result.txt ”中的内容是什么？A、10 2 B、10 0C、“ 10” ,2D、“10” 010 210 0“100 ” ,4“10” 0(24)其它代码不变，仅将打开文件语句中的output 改为 append,单击窗体两次后，文件 C:result.txt中的内容是什么？A、10 2B、10 2C、“ 10” ,2D、 “10”210 2100 4“100 ” ,4“10”410 2“10”2100 4“100 ”4试题五(每小题 2 分，共 10 分)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正

14、确答案。【程序说明】精品文档“字体修饰”程序界面如上图所示，程序运行时要求有以下功能：1.“字体”框架中的三个单击按钮分别为option1(0) 、option1(1) 、option1(2)，单击任一单选按钮，实现对标签控件 labell 字体的设置；2.单击复选框控件 checkl，若复选框控件被选中，则将命令按钮command1(标题为“选择颜色”)设置为可用，否则设置为不可用。3.若命令按钮 command1 可用，则单击 command1 将显示“颜色”对话框，可实现对标签labell 上文字颜色的设置。【程序】Private Sub Check1_Click()Dim k As B

15、oolea nIf (25) The n k = True Else k = False(26)End SubPrivate Sub Comma nd1_Click()(27)Label1.ForeColor =(28)End Sub试题六(每小题 2 分，共 14 分)Private Sub Optio n1_Click(l ndex As Integer)Label1.Fo ntName =(29)End Sub(25)A、check1.value=1 B、check1.value=0 C、(26)A、command1.visible = kC、command1.enabled = k(2

16、7)A、com mon dialog1.showope nC、com mon dialog1.showfo nt(28)A、commondialog1.ForeColorC、com mon dialog1.BackColor(29)A、option1.captionC、option1.fontNamecheck1.value=false D、check1.value=2comma nd1.ca ncel = kcomma nd1.default = kcom mon dialog1.showsaveD、com mon dialog1.acti on = 3B、com mon dialog1.C

17、olorD、com mon dialog1.F on tColorB、 option1(index).captionD、option 1(index).FontName精品文档阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】精品文档程序界面如下面两图所示，程序运行时要求有以下功能：1.列表框控件 listl 中已有若干表项（均为数字字符），并按从小到大的顺序排序。2.当用户向文本框 textl 中输入数字后按回车键，将该数字添加列表框listl中合适的位置，使列表框 listl 中的表项仍然有序，并自动将文本框中的内容选中（如下面右图所示）。3.当用户单击

18、“删除”按钮，若没有列表框中没有表项被选中，则用消息框提示“先选择，后删除”，否则删除被选中的表项。【程序】Private Sub Comma nd1_Click()If list1.listindex= -1 Then MsgBox 先选择，后删除 ” Else (30)End SubPrivate Sub Text1_ (31)Dim n As Integer, i As Integer, tempN As IntegerIf KeyAscii = 13 Thenn = Val(Text1.Text)For i = 0 To List1.ListCo unt - 1tempN =(32)I

19、f tempN n Then(33)Next i(34): Text1.SelStart = 0 :(35)End If试题七（8 分）编写一个自定义函数 FunX,实现计算下面的分段函数。2 2 4 4 4 4EndSub(30)A、list1.removeitemlist1.listcount-1B、list1.removeitem list1.listcountD、list1.removeitem list1.listindexB、Change(Keyascii as integer)D、keyPress(Keyascii as string)5tindex)C、val(list1.li

20、st(i) D、iC、exit doD、n = tempN(34)A、list1.additem text1.text, list1.listcountB、list1.additem text1.text iC、list1.additem text1.text, iD、list1.additem text1.text(35)A、text1.sellength = len(text1.text)B、text1.sellength = len(text1.seltext)C、text1.seltext = text1.textD、text1.text = text1.seltext精品文档x 3当

21、x 32x当1x 3fun X(x)=x 2x当0 x 10当x0试题八（10 分）界面设计、运行时状态如下图所示，按照下各事件过程：1.在窗体的 load 事件过程中，设置定时timerl 时间间隔为 0.05 秒，不可用； 置滚动条的最小值为50，最大值为200;设置按钮的标题为“开始”。2.单击命令按钮 comma nd1 若按钮标题开始”，则标签 labell 从左向右移动（每次 timer 事件发生移动 100 缇），同时按钮标题变成“停止”，当标签移出右边时，从左边重新进入；若按钮标题为“停止”，则标签停止运行，同时按钮标题变成“开始”3.单击滚动条两端箭头或移动滑块，能实时改变定

22、时器控件的时间间隔。试题九（12 分）界面设计、运行时状态如下图所示，按照下列要求定义各事件过程：1.在窗体的 load 事件过程中，设置图片框 pic1 的内部坐标系，使之满足如下要求：图片框左边线、右边线在其自身坐标系中的横坐标分别为-PI、PI;图片框上边线、下边线在其自身坐标系中的纵坐标分别为 1、-1，2.单击“画坐标系”按钮（command1，在图片框中画出如下面左图所示的坐标系。3.单击“ sinx ”按钮（command2 ,则在图片框上画一个周期 -PI ， PI的正弦曲线。4.在通用声明部分已经写了一条语句：Co nst PI = 3.141592655.单击“退出”按钮（

23、command3 ,结束程序运行。祝考试咂利列要求定义器设精品文档试题一 （01-04）试题二（05-09） 试题三（10-16） 试题四（17-24） 试题五（25-29） 试题六（30-35） 试题七：function FunX(x as sin gle) as sin gle if x=1 the nif x3 thenfunx = x+2elsefunx = xA2/(x+2)end ifelseif x0 thenfunx = sqr(x)elsefunx = 0end ifend ifend fun cti on试题八：private sub Form_Load() timer1.e nabled = falsetimer1.i nterval = 50 HscrolH.max = 200hscrolH.min = 50 command1.Caption = 开始”end sub private sub comma nd1_Clic