2022年vb等级考试模拟试卷1教学内容

1、资料收集于网络,如有侵权请联系网站删除VB 考前辅导班模拟考试卷（较难）试题一 （每道题 2 分,共 8 分）阅读以下程序说明和程序,在每道题供应的如干可选答案中,选择一个正确答案；【程序说明】过程 JiSuan 用于运算 1-1/2+1/3-.+1/99-1/100【程序】Option Explicit Public 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

2、 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 -2 C、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

3、-.+1/99-1/100的和为： ” + s D、 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 word 可编辑资料收集于网络,如有侵权请联系网

4、站删除下面一句代码, 使文件列表框仅显示txt文件5 End Sub Private Sub Drive1_Change 6 End Sub Private Sub Dir1_Change 7 End Sub Private 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.Refresh End Sub （5） A、 file1.filter= ”*

5、.txt ”B、file1.pattern= ” *.txt ”C、file1.filter= ”txt 文件 |*.txt ”（6） A、 drive1.drive=dir1.path C、drive1.path =dir1.path D、file1.pattern= ” txt 文件 |*.txt ”B、dir1.path = drive1.pathD、dir1.path = drive1.drive （7） A、 file1.path=dir1.path B、dir1.path = file1.pathC、file1.path =drive1.drive D、 file1.pattter

6、n = dir1.path （8） A、 midfile1.path,1,1= ” ”B、leftfile1.path,1= ” ”C、rightfile1.path,1= ” ”D、file1.path= ” ”（9） A、 kill “ fs”B、del fs C、kill fs D、 del “ fs”试题三 （每道题 2 分,共 14 分）阅读以下程序说明和程序,在每道题供应的如干可选答案中,选择一个正确答案；【程序说明】第一次单击窗体,生成十个10,99之间的随机整数,并显示在窗体上；其次次单击窗体,将前面生成的十个随机整数进行排序,并显示在窗体上；成效如上图所示；【程序】10 Di

7、m a1 To 10 As Byte Private Sub Form_click Dim i As Integer word 可编辑资料收集于网络,如有侵权请联系网站删除 If 11 Then Cls Print 排序前数据 :; For i = 1 To 10 ai = 12 Print ai; Next i Print : secClick = True Else 13 Print 排序后数据 :; For i = 1 To 10 Print ai; Next i Print : secClick = False End If End Sub Private Sub sortArray1

8、4 , n As Integer Dim i As Integer, j As Integer, t as byte For i = 1 To n - 1 For j = 15 If xi xj Then 16 End If Next j Next i End 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、 intrnd*91+10 B、 intrnd90+10 C、i

9、ntrnd91+10 D、fixrnd*90+10 （13） A、 sortArraya, 10 B、sortArray a, 10 C、sortArray a10 D、sortArray 10,a （14） A、 x as integer B、x as byte C、x10 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 = xj : xj = xi : xi = t C、xi = t : t = xj : xj = xi 试题四 （每道题 2 分,共 16

10、分）B、t = xi : xj = xi : xj = t D、xj = t : t = xi : xi = xj 阅读以下程序说明和程序,在每道题供应的如干可选答案中,选择一个正确答案；【程序说明】自定义函数 DTOB 实现将十进制整数转换为字符串形式的二进制数；【程序】Private Sub Form_click Static k As Integer Dim x As Integer word 可编辑资料收集于网络,如有侵权请联系网站删除x = x + 2 : k = k + x Open c:result.txt For Output As 1 Print #1, DTOBx; Pri

11、nt #1, x Print #1, DTOBk; Print #1, k Close #1 End Sub private Function DTOBByVal 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、 chrn 2 B、trimstrn mod 2 C、trimstrn 2 D、 valn mod 2 （19） A、 n = n 2 B、 n = n / 2 C、n =

12、n mod 2 D、n = n - 2 （20） A、 s = DTOB B、 DTOBn = 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”

13、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.txtA 、10 2 B、10 2 C、“ 10” ,2 D、“ 10”2 10 2 100 4 “ 100” ,4 “ 10”4 10

14、 2 “ 10”2 100 4 “ 100”4 试题五 （每道题 2 分,共 10 分）阅读以下程序说明和程序,在每道题供应的如干可选答案中,选择一个正确答案；【程序说明】word 可编辑资料收集于网络,如有侵权请联系网站删除“ 字体修饰” 程序界面如上图所示,程序运行时要求有以下功能：1.“ 字体” 框架中的三个单击按钮分别为option10、option11、option12,单击任一单项按2.钮,实现对标签控件label1字体的设置；command1（标题为“ 选择颜色”）单击复选框控件check1 ,如复选框控件被选中,就将命令按钮设置为可用,否就设置为不行用；3.如命令按钮comma

15、nd1可用,就单击command1将显示“ 颜色” 对话框,可实现对标签label1上文字颜色的设置；【程序】Private Sub Check1_Click Dim k As Boolean If25 Then k = True Else k = False 26 End Sub Private Sub Command1_Click 27 Label1.ForeColor = 28 End Sub Private Sub Option1_ClickIndex As Integer Label1.FontName = 29 End Sub （25） A、 check1.value=1 B 、c

16、heck1.value=0 C 、check1.value=false D 、check1.value=2 （26） A、 command1.visible = k C、command1.enabled = k （27） A、 commondialog1.showopen C、commondialog1.showfont （28） A、 commondialog1.ForeColor C、commondialog1.BackColor （29） A、 option1.caption C、option1.fontName 试题六 （每道题 2 分,共 14 分）B、command1.cancel

17、 = k D、 command1.default = k B、 commondialog1.showsave D、commondialog1.action = 3 B、 commondialog1.Color D、commondialog1.FontColor B、option1index.caption D、 option1index.FontName 阅读以下程序说明和程序,在每道题供应的如干可选答案中,选择一个正确答案；【程序说明】word 可编辑资料收集于网络,如有侵权请联系网站删除程序界面如下面两图所示,程序运行时要求有以下功能：1. 列表框控件 list1 中已有如干表项（均为数字

18、字符）,并按从小到大的次序排序；2. 当用户向文本框 text1 中输入数字后按回车键,将该数字添加列表框 list1 中合适的位置,使列表框 list1 中的表项仍旧有序,并自动将文本框中的内容选中（如下面右图所示）；3. 当用户单击 “ 删除”按钮,如没有列表框中没有表项被选中,就用消息框提示 “ 先选择, 后删除” ,否就删除被选中的表项；【程序】Private Sub Command1_Click If list1.listindex= -1 Then MsgBox 先选择,后删除 Else 30 End Sub Private Sub Text1_ 31 Dim n As Integ

19、er, i As Integer, tempN As Integer If KeyAscii = 13 Then n = ValText1.Text For i = 0 To List1.ListCount - 1 tempN = 32 If tempN n Then 33 Next i 34 : Text1.SelStart = 0 :35 End If End Sub （30） A、 list1.removeitem list1.listcount -1 C、list1.removeitem list1.listindex -1 （31） A、 KeyPressKeyascii as in

20、teger B、list1.removeitem list1.listcount D、list1.removeitem list1.listindex B、ChangeKeyascii as integer C、Change D、keyPressKeyascii as string （32） A、 list1.listindex B、list1.listlist1.listindex C、vallist1.listi D、i （33） A、 exit sub B、 exit for C、exit do D、n = tempN （34） A、 list1.additem text1.text,

21、list1.listcount B、list1.additem text1.text i C、list1.additem text1.text, i （35） A、 text1.sellength = lentext1.text C、text1.seltext = text1.text 试题七 （8 分）D、list1.additem text1.text B、text1.sellength = lentext1.seltext D、text1.text = text1.seltext 编写一个自定义函数 FunX,实现运算下面的分段函数；word 可编辑资料收集于网络,如有侵权请联系网站删除

22、funXx = xx 2 xx23当xx3当13当0 x10当x0试题八 （10 分）界面设计、 运行时状态如下图所示,根据下列 要 求 定 义各大事过程：1.在窗体的load 大事过程中,设置定时器2.timer1时间间隔为0.05 秒,不行用；设置滚动条的最小值为50,最大值为200；设置按钮的标题为“ 开头”；为单击命令按钮command1,如按钮标题3.“ 开头” ,就标签label1从左向右移动（每次timer大事发生移动100 缇）,同时按钮标题变成“ 停止” ,当标签移出右边时,从左边重新进入；如按钮标题为“ 停止”,就标签停止运行,同时按钮标题变成“ 开头”；单击滚动条两端箭头

23、或移动滑块, 能实时转变定时器控件的时间间隔；试题九 （12 分）界面设计、运行时状态如下图所示,根据以下要求定义各大事过程：1.在窗体的load 大事过程中, 设置图片框pic1 的内部坐标系, 使之满意如下要求：图片框左边线、右边线在其自身坐标系中的横坐标分别为 纵坐标分别为 1、-1 ,-PI 、PI ；图片框上边线、下边线在其自身坐标系中的2. 单击“ 画坐标系” 按钮（command1）,在图片框中画出如下面左图所示的坐标系；3. 单击“sinx ” 按钮（ command2）, 就在图片框上画一个周期 -PI ,PI 的正弦曲线；4. 在通用声明部分已经写了一条语句：Const P

24、I = 3.14159265 5. 单击“ 退出” 按钮（command3）, 终止程序运行；word 可编辑资料收集于网络,如有侵权请联系网站删除试题一（ 01-04）： CABD 试题二（ 05-09）： BDACC 试题三（ 10-16）： BADBDCA 试题四（ 17-24）： CBADACBA 试题五（ 25-29）： ACDBB 试题六（ 30-35）： DACBCA 试题七：function FunXx as single as single if x=1 then if x3 then funx = x+2 else funx = x2/x+2 end if else if x0 then funx = sqrx else funx = 0 end if end if end function 试题八：private sub Form_Load timer1.enabled = false erval = 50 Hscroll1.max = 200 hscroll1.min = 50 command1.Caption = “ 开头 ”end sub private