《VB程序设计》模拟考试试题

1、VB程序设计模拟考试试题2一、填空题（每空1分，共18分）1. Visual Basic6.0是面向 的程序设计方法，采用 驱动的编程机制。2. 当进如Visual Basic集体环境，发现没有显示“工具箱”窗口，应选择 菜单的 选项,使“工具箱”窗口显示。3. 十进制整型数的表示范围为 。4. 根据所给条件，引出逻辑表达式：（1）闰年的条件是：年号(year)能被4整除,但不能被100整除；或者能被400整除。逻辑表达式为： （2）一元二次方程有实根的条件为：a不等于0且b2-4ac>=0逻辑表达式为： 5. .列表框中项目的序号是从 开始的， 表示列表框中最后一项的序号。6. 控件数

2、组的名字由 属性指定，而数组中的每个元素由 属性指定。7. 为了在运行时把图形文件Pf.jpg装入图片框Picture1，所使用的语句为 。8. 整理菜单的分隔栏时，选用的符号是_ _。9. Visual Basic提供的对数据文件的三种访问方式为随机访问方式_ _和二进制访问方式。10. 控件是Visual Basic 6.0和数据库之间的桥梁，而 控件则把Data控件和用户界面了解起来，两者构成了Visual Basic 6.0开发数据库的主体。二、选择题（每题2分，共38分）1. 可以用来在启动程序时对属性和变量进行初始化的事件( )A Click B Unload C Activate

3、 D Load2. 当窗体上有多个控件时，最多只有( )个控件是活动的。A 1 B 2 C 3 D 多3. 当对被选择的控件进行对齐、调整大小等操作时，将以( )为准。A 所有控件 B 某些控件 C 基准控件 D 以上说法均不对4. Visual Basic中的语句通常按“一行一句，一句一行”的规则书写，但也允许多个语句放在同一行中。在这种情况下，用来隔开各语句的符号是( )A 冒号 B 分号 C 逗号 D 感叹号5. 一般来说，在用Visual Basic开发应用程序时，其通常的步骤为( )A 设置可视界面 编写代码 程序测试、运行B 建立可视用户界面 设置可视界面特性 编写事件驱动代码C

4、编写事件驱动代码 程序测试 程序运行和维护D 以上步骤均不对6. 下面4个选项中属于字符型数据的是( )A “Hello” B Hello C Hello D #Hello7. 双精度浮点数存储时占的字节数是( ) A 4 B 8 C 16 D 328. 下面为正确的整型常量的是( ) A &624 B 0347 C &0127 D &01289. 把小写字母转换为大写字母的函数是( ) A Lcase$ B Ucase$ C Instr D Len10. “x是小于100的非负数”，用Visual Basic表达式表示正确的是( ) A 0<=x<100

5、B 0<=x<100 C 0<=x And x<100 D 0<=x Or X<10011. 假定Picture1和Text1分别为图片框和文本框的名称，下列语句不正确的是( )A Print 100 B Picture1.Print 100C Text1. Print 100 D Debug. Print 10012. 表达式4+56*7/8Mod9的值是( )A 4 B 5 C 6 D 713. 在窗体上画一个命令按钮,然后编写如下事件过程：( ) Private Sub C ommand1_Click( )a=InputBox(Enter the Fi

6、rst Integer)b=InputBox(Enter the Second integer)Print b+aEnd Sub程序运行后,单击命令按钮,先后在两个输入对话框中分别输入456和123,则输出结果是 A 579 B 123 C 456 D 12345614. 若要使标签控件显示时不覆盖其背景内容，要对其设置的属性是（ ）A BackColor B BorderStyle C ForeColor D. BackStyle15. 下面程序 x$=a y$=b z$=c For I=1 to 2X$=y$：y$=z$：z$=x$ Next I Print x$+y$+z$运行后的输出结

7、果是（ ）A cab B bca C bcb D cbc16. 下面程序段For I=1 To 3 Step 1Print Spc(5-I);For j=1 To 2*I-1 Print *;Next j;Print Next I 运行结果为（ ）A * * * * * B * * * * * * * * * * * * * C * D * * * * * * * * * * * * * * * * *17. 设有语句   open "c：TestDat" For OutPut As#1   则以下错误的叙述是 （ ）A)

8、该语句打开C盘根目录下一个己存在的文件TestDat B)  该语句在C盘根目录下建立一个名为TestDat的文件 C)   该语句建立的文件的文件号为1 D) 执行该语句后，就可以通过Print#语句向文件TestDat中写入信息18. 表的每一行就是一个（ ）；表中的每一列称作一个（ ），描述了它所含有的数据。A 记录 字段 B 索引 字段 C 字段 记录 D 记录 索引19. Data控件的很多方法，当我们在运行时修改了Record-Source属性后，需要调用（ ）方法刷新记录集。A Refresh方法 B UpdateRecord方法C UpdateCo

9、ntrols方法 D Cancelupdate方法三、程序填空题（每空2分，共36分）1 下面的程序段是检查输入的文字段中大括号是否配对，并显示相应的结果本程序在文本框中边输入边统计大括号的个数，以+输入回车作为结束标志，然后显示结果请将程序补充完整Dim Count1% Private Sub Text1_KeyPress(Key Ascii As Integer) If =Then Count1=Count1+1 Else If = Then If KeyAscii=13 Then If Then Print 左右大括号配对Else If Then Print 左大括号数多；Count1；

10、个Else Print 右大括号数多；-Count1；个End If End If End Sub2 阅读程序：Private Sub Form_Click( )num=0 Do while num<=2num=num+1Print num Loop End Sub程序运行后，单击窗体，输出结果是 。3 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click( ) Dim n( )As Integer Dim a,b As Integer a=InputBox(Enter the first number) b=

11、InputBox(Enter the second number)ReDim n (a To b)For k=Lbound(n,1)To Ubound(n,1) n(k)=k Printn(;k;)=;n(k)Next k End Sub程序运行后，单击命令按钮，在输入对话框中分别输入和，输出结果为 。4 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： Private Sub Command1_click( ) Dim a(5) For I=0 To 4 A(i)=I+1 T=I+1 If t=3 Then Print a(i); A(t-1)=a(I-2) E

12、lse A(t)=a(i) End If If I=3 Then a(I+1)=a(t-4) A(4)=1 Print a(i); Next I End Sub程序运行后，单击命令按钮，输出结果为 。5 在窗体中添加一个名称为Text1的文本框，两个名称分别为Command1和Command2的命令按钮。要求程序运行后，用户向文本框中输入字母，单击Command1按钮则文本框中字母全部转换为大写；然后单击Command2按钮则文本框中字母全部转换为小写。请将下列程序补充完整。 Private Sub Text1_KeyUp(KeyCode As Integer, Shift As I

13、nteger)   _ _ = Text1.Text End Sub Private Sub Command1_Click()   Text1.Text = _ _  End Sub  Private Sub Command2_ _   Text1.Text = LCase(Text1.Tag) End Sub6 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： Private Sub Command1_click() Dim m(10)As Integer For

14、 k=1 To 10 M(k)=12-k Next k X=6 Print m(2+m(x) End Sub 程序运行后，单击命令按钮，输出结果为 。7 下面程序运行后，输出的结果为_ _  Private Sub Command1_Click( ) A$=”Beijing” B$=”dalian” C$=”shanghai” C$=Instr(LeftA$,2)+Right$(B$,2),C$)Print C$  End Sub 8 在窗体上画两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscoll1的水平滚动

15、条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值，如图所示。请填入适当的内容，将程序补充完整。Private Sub HScroll1_ ()Labl2.Caption=HScroll1. End Sub9 在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题分别为“

16、+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4，程序运行情况如图所示。请在填入适当的内容，将程序补充完整。Private Sub Command1_Click()For i=0 To 3If =True thenopt=Option1(i).CaptionEnd IfNextSelect Case Case”+”Result=Val(Text1.Text)+Val(Text2.Text)Case”-”Result=Val(Text1.Text)-Val(Text2.Text)Case”*”Res

17、ult=Val(Text.Text)*Val(Text2.Text)Case”/”Result=Val(Text1.Text)/Val(Text2.Text)End Select =ResultEnd Sub四、程序改错题（共8分）在数组b中查找其中一个数，并输出该数在数组中的位置。其程序代码如下： Private sub search( a（7）As variant，ByVal key As Variant，ByVal index%)   Dim I   For IUBound(a) To LBound(a)  If keya(I) Then   indexI   Exit sub  End If   Next I   Index-1   End Sub