2010VB期末考试模拟卷

1、 VB程序设计期末考试模拟试卷说明:（1）考生应将答案填写在答卷上，否则作无效处理；（2）考试时间为120分钟。试题一、判断题（每小题2分，共20分）说明：在以下提供的若干陈述中，逐一判断其正确与否，用A表示正确，用B表示错误。(1)事件是由Visual Basic预定义的对象能够识别的动作。(2)整型变量有Byte、Integer和Long类型3种。(3)在循环体内，循环变量的值不能被改变。(4)Sub过程名在过程中必须被赋值。(5)若Visual Basic中容器取缺省坐标系，则坐标原点在容器左上角、单位长度为像素。(6)移动框架时框架内控件也随之移动，所以框架内控件的Left和Top属性

2、值也随之改变。(7)使用单选钮控件数组时，它们响应同一个Click事件，由Index参数值来区分不同的按钮。(8)影像框的Stretch属性设置为True时，影像框的大小会根据显示的图片大小进行调整。(9)设计菜单中每一个菜单项分别是一个控件，每个控件都有自己的名称。(10)若要新建一个磁盘上的顺序文件，可用Output和Append方式打开文件。试题二、单选题（每小题2分，共20分）(11)将VB新建的“标准EXE”工程保存在磁盘上，至少会产生 （11） 文件。A .frx和.frmB .exe和.vbpC .vbp和.frmD .frm和.bas(12)Int(Rnd*100)表示的是 （

3、12） 范围内的整数。A 0，100B1，100 C 0，99D1，99(13)已知字符串变量x存放1234，表达式Val(&H+Left(x,2)的值是 （13） 。A 0B &H12C 12D 18(14)在窗体Form1的一个事件过程中，不能用 （14） 来清除窗体上所绘制的图形。A Form1.ClsB Me.ClsC Form.ClsD Cls(15)由“For i=1 To 25 Step 4”决定的循环结构被执行 （15） 次。A 25 B 5 C 6D 7(16)B Private Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd

4、SubDPrivate Sub Dir1_Change() Dir1.Path = Drive1.DriveEnd Sub要使得驱动器列表框控件Drive1发生变化时目录列表框Dir1的路径与之保持一致，应编写 （16） 事件代码。APrivate Sub Drive1_Change() Drive1.Drive = Dir1.PathEnd Sub CPrivate Sub Dir1_Change() Drive1.Drive = Dir1.PathEnd Sub(17)选中复选框控件时，复选框的Value属性值为 （17） 。A 1B 0C TrueD False(18)将焦点主动设置到指

5、定的控件或窗体上，应采用 （18） 方法。A SetDateB SetFocusC SetText D GetGata(19)将通用对话框控件以“打开文件”对话框方式打开，可选 （19） 方法。A ShowOpenB ActionC OpenD FileName(20)执行语句“Write #1, 234; -34.56, Hi; Date”后，相应的文件内被写入 （20） 。A 234,-34.56,Hi,#2004-06-11#B 234;-34.56,Hi;#2004-06-11# C 234,-34.56,Hi,2004-06-11 D 234 -34.56 Hi #2004-06-1

6、1#试题三、程序填空题（每空2分，共20分，）说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。程序1【程序说明】以下程序按下式计算y，x由键盘输入。Fuction f(x)是计算y的自定义函数。【程序】Private Sub Command1_Click() Dim x As Single, y As Single （21） （22） Print y=; yEnd SubFunction f(x As Single) As SingleDim y as Single If x = -5 And x = 5 Then （23） Else （24） End If

7、（25） End Function【选项】(21)A InputBox x=,xB InputBox(x=,x)C x= InputBox(x=)D y = InputBox(x=)(22)A call f(x)B y=fC y=f(x)Df(x)(23)A y = x * Sin(x) + e xB y = xSin(x) + Exp(x)C y = xSin(x) + e xD y = x * Sin(x) + Exp(x)(24) A y = Sqr(x - 5) + Log(x)B y = (x - 5)1/2 + Log(x)C y = (x - 5)1/2 + Log(x) / L

8、og(10)D y = Sqr(x - 5) + Log(x) / Log(10)(25)A Print yB Print fC f = yD y = f程序2【程序说明】以下程序随机产生100个两位正整数，先对这些数按从大到小的顺序排序并按每行10个显示在窗体上。再找出所有的个位数字与十位数字之和等于10的数。【程序】Private Sub Form_Click() Dim a(100) As Integer, i As Integer, j As Integer, t As Integer, x As Integer, y As Integer For i = 1 To 100 a(i)

9、= (26) Next i For i = 1 To 99 For j = i + 1 To 100 If a(i) a(j) Then (27) End If Next j Next i For i = 1 To 100 Print a(i); (28) Next i For i = 1 To 100 x = (29) 取十位数字 y = a(i) Mod 10 取个位数字 If x + y = 10 Then Print a(i) Next iEnd SubPrivate Sub Swap( (30) ) As Integer Dim Temp As Integer Temp = X :

10、X = Y : Y = TempEnd Sub【选项】(26)A Int(Rnd * 90 + 10)B Int(Rnd * 100)C Int(Rnd * 99)D 10 To 99(27)A Call Swap a(i), a(j)B Call Swap(a(i), a(j)C Temp = Swap(a(j), a(i)D Swap(a(j), a(i)(28)A If i = 10 Then PrintB If i = 10 *n Then PrintC If i 10 = 0 Then PrintD If i Mod 10 = 0 Then Print(29)A a(i) / 10B

11、 a(i) 10C Int(a(i)/10D Fix(a(i)(30)A ByVal X As Integer, ByVal Y As IntegerB ByVal X As Single, ByVal Y As SingleC ByRef X As Integer, ByRef Y As IntegerD ByRef X As Single, ByRef Y As Single试题四、程序阅读题（每小题5分，共20分）程序1、阅读下列程序，写出单击窗体后程序运行结果。Private Sub Form_Click() Dim a As Integer, b As Integer a = 5:

12、b = 0 Do Until a 9 Then Timer1.Enabled = FalseEnd SubPublic Sub sub1(n As Integer) n = n + 1 Print n=; nEnd Sub程序4、画出单击命令按钮Command1后图片框Picture1中显示的图形。Private Sub Form_Load() Picture1.Scale (-10, 10)-(10, -10)End SubPrivate Sub Command1_Click() Picture1.Line (-5, 5)-(5, -5) Picture1.Line (-5, -5)-(5, 5) Picture1.Circle (0, 0