vb等级考试模拟试卷1.docVIP

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 【供选择的答案】 A、k as integer B、dim k as integer C、dim k as single D、k as single 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 A、1/i+1 B、-1/(i+1) C、-1/i+1 D、1/(i+1) 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)的和为：” + s D、msgbox “1-(1/2)+(1/3)-...+(1/99)-(1/100)的和为：” s 试题二（每小题2分，共10分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 程序界面如下图所示，程序运行时要求有以下功能： 实现盘驱动器列表框drive1、目录列表框dir1、文件列表框file1的联动。 文件列表框file1中仅显示txt文件。 当双击文件列表框file1中的某一文件时，删除该文件。 【程序】 Private Sub Form_Load() ’下面一句代码,使文件列表框仅显示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 A、file1.filter=”*.txt” B、file1.pattern=”*.txt” C、file1.filter=”txt文件|*.txt” D、file1.pattern=”txt文件|*.txt” A、drive1.drive=dir1.path B、dir1.path = drive1.path C、drive1.path =dir1.path D、dir1.path = drive1.drive A、file1.path=dir1.path B、dir1.path = file1.path C、file1.path =drive1.drive D、file1.patttern = dir1.path A、mid(file1.path,1,1)=”\” B、left(file1.path,1)=”\” C、right(file1.path,1)=”\” D、file1.path=”\” A、kill “fs” B、del fs C、kill fs D、del “fs” 试题三（每小题2分，共14分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 第一次单击窗体，生成十个[10,99]之间的随机整数，并显示在窗体上。第二次单击窗体，将前面生成的十个随机整数进行排序，并显示在窗体上。效果如上图所示。 【程序】 (10) Dim a(1