《可视化程序设计模拟题.docx》由会员分享，可在线阅读，更多相关《可视化程序设计模拟题.docx（15页珍藏版）》请在三一文库上搜索。
1、可视化程序设计模拟题 作者： 日期：15 窗体顶端一、单项选择题：（每小题2分，共24分）1、在VB中，称对象的数据为（）。A、属性B、方法C、事件D、封装2、VB中，将命令按钮控件在窗体中失效（不可用）的属性语句是（）。A、defaultB、CancelC、EnabledD、Visible3、函数Len(Str(Val(“123.4”)的值为（）。A、11B、5C、6D、84、将文本框的（）属性设置为True时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框的宽度时自动换行。A、MultiLineB、ScrollBarsC、TextD、Enabled5、通过文本框的（）事件过程可以
2、获取文本框中键入字符的ASCII码值。A、ChangeB、GotFocusC、LostFocusD、KeyPress6、运行时，要清除图片框P1中的图像，应使用语句（）。A、PicturelPicture=“”B、P1Picture=LoadPicture（）C、Picture lPicture=LoadPictureD、Picture lPicture=LoadPicture(“C：WINDOWSClouds.bmp”)7、要清除组合框Combo1中的所有内容，可以使用（）语句。A、CombolClsB、CombolClear C、CombolDeleteD、CombolRemove8、Ti
3、mer控件的（）属性决定该控件是否对时间的推移做响应。将该属性设置为False会关闭Timer控件，设置为True则打开它。A、EnabledB、VisibleC、TimeD、Capable9、定时器的Interval属性以（）为单位指定Timer事件之间的时间间隔。A、分B、秒C、毫秒D、微秒10、通过设置Shape控件的（）属性可以绘制多种形状的图形。A、ShapeB、BorderstyleC、FillstyleD、Style11、当函数EOF()的返回值为真时，表示文件的指针指向（）。A、开头B、尾部C、第一个记录D、最后一个记录12、Function过程要由函数名返回一个值。如果不使用
4、As数据类型选项来指定函数的类型，函数类型默认为（）类型。A、IntegerB、VariantC、LongD、Siring窗体底端二、填空题：（每空1分，共26分）1、Visual Basic是计算机语言。2、VB中，两个窗体（Form1和Form2）进行调用时，方法语是、。3、如使用变量X来存放数据765432.123456，应该将变量X声明为类型。4、VB中，对于没有赋值的变量为系统默认值。自动将数值类型的变量赋初值，变长的字符串被初始化为，而定长的字符串则用填充。Variant变量被初始化为。将布尔型的变量初始化为。5、VB的控件主要有三种类型分别是、。6、一个数据库可以有表，表中的称为
5、记录，表中的称为字段。7、随机文件以为单位读写，二进制文件以为单位读写。8、不论任何控件，共同具有的是属性。9、通用对话框提供了六种形式的对话框。在显示通用对话框前，应通过设置属性或调用方法来选择。10、自定义类型中的元素类型可以是字符串，但该字符串必须是。11、组合框是组合了和的特性而形成的一种控件。12、滚动条响应的重要事件有、。13、当运行程序时，系统自动执行启动窗体的事件过程。三、阅读程序，写出结果：（每小题6分，共30分）1、在窗体上画一个文本框，有如下事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As S
6、tringchar=Chr(KeyAscii)KeyAscii=Asc(UCase(char)Print String(6, KeyAscii)End Sub程序运行后，如果在键盘上输入字母“a”，则窗体上显示的结果。2、执行下面的程序，单击命令按钮Command1后在窗体上显示的图形功能。Private Sub Command1_Click()Picture1.Print Tab(5); "*"For i=1 To 4Picture1.Print Tab(5-i); "*" Spc(2*i-1); "*"Next iFor i=3
7、To 1 Step-1Picture1.Print Tab(5-i); "*" Spc(2*i-1); "*"Next iPicture1.Print Tab(5); "*"End Sub3、有如下事件过程，写出程序的功能。Private Sub Command1_Click ( )X=100 Do Until x200 IF X Mod 3=0 AND X Mod 7=0 THENText1.Text=Text1.Text & STR (X) & CHR(13) & CHR(10) END IF X=X+1
8、Loop END Sub 4、有如下事件过程，写出运行结果Private Sub Command1_Click ( )s=0i=1Do While i<=5s=s+i2i=i+1LoopPrint "s=" & sEnd Sub5、有如下事件过程，写出程序的功能。Private Sub Command1_Click()Dim N As Integer, I As Integer, X As Integer, S As IntegerN=0: S=0For X=1 To 30For I=2 To X-1 Step 1If X Mod I=0 Then Exit
9、For End IfNext IIf I=X ThenN=N+1S=S+XEnd IfNext XPrint "N=" & N & "个" & "，S和为:" & SEnd Sub 四、程序设计：（每小题10分，共20分）1、编写程序：设计一个程序。窗体中包含两个列表框。左侧列表框中列出若干城市的名称。当双击某个城市名时，这个城市从左侧的列表框中消失，同时出现在右侧的列表框中。其中，左侧列表框中的城市名是在程序开始运行时添加到列表框中的。窗体界面如下图所示：2、编写程序：从指定的任意一个驱动器中的任何一
10、个文件夹下查找文本文件（不含汉字），并将选定的文件的完整路径显示在文本框Textl中，文件内容显示在文本框Text2中。运行界面如下图所示：一、单项选择题（每小题2分,共24分）123456789101112ACBADBBACA BB二、填空题（每空1分，共26分）1、面向对象；结构化2、Show；Hide3、双精度数Double4、零(0)；一个零长度的字符串(“”)；空格； Empty；False 5、标准控件；ActiveX；可插入的对象 6、一个到多个；行；列7、记录；字节8、Name（名称）9、Action；Show10、定义长度11、文本框；列表框12、Scroll；Change1
11、3、Load三、阅读程序，写出结果：（每小题6分，共30分）1、程序运行后，如果在键盘上输入字母“a”，则窗体上显示的结果为：AAAAAA 。2、显示的图形为：3、105 126 147 168 1894、运行结果:555、程序的功能为：求30以内的素数个数及素数和。N=10个，S和为:129四、程序设计：（每小题10分，共20分）1、程序如下：Private Sub Form_Load()List1.AddItem "上海"List1.AddItem "北京"List1.AddItem "天津"List1.AddItem "
12、;广东"List1.AddItem "辽宁"List1.AddItem "陕西"List1.AddItem "河南"List1.AddItem "深圳"List1.AddItem "四川"List1.AddItem "重庆"End SubPrivate Sub List1_DblClick()For i=0 To 9If List1.ListIndex=i ThenList2.AddItem List1.List(i)List1.RemoveItem iEnd If
13、Next iEnd SubPrivate Sub Command1_Click()EndEnd Sub2、程序如下：Private Sub File1_Load()File1.Pattern=“*.txt”End SubPrivate Sub Dir1_Change()File1.Path=Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path=Drive1.DriveEnd SubPrivate Sub File1_Click()If Right$( File1.Path, 1)<>="" Then Text1.Text=File1.Path & ""File1.FileNameElseText1.Text=File1.Path & File1.FileNameEnd IfOpen Text1. Text For Input As #1Text2.Text=Input (LOF(1),1)CloseEnd Sub