第一篇：可视化程序设计(VB)模拟试题
可视化程序设计（VB）
一、填空题（32分，共 8 题，每小题 4 分）
1.要使用通用对话框控件，必须首先在“部件”对话框中选择 ______，将其添加到工具箱中。
2.运行时，要使工具栏Toolbarl中索引值为4的按钮无效（变成灰色），应使用语句： ______。
3.运行时，要使工具栏控件Toolbarl中的第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句： ______。
4.在用手工方式设计工具栏时，可以设置工具按钮的 ______ 属性为其添加功能提示。
5.用户自定义类型中的元素类型可以是字符串，但该字符串必须是 ______。
6.设a=sqr（2）*sqr（3），下列语句的输出结果分别是。print format$（a，“000.00”）
print format$（a，“###.#00”）
print format$（a，“00.00E+00”）
print format$（a，“－#.####”）
7.如果需要将窗体载入内存却不显示，需要将该窗体的 ______ 属性设置为False，再用 ______ 语句装载。
8.随机产生一个范围是(100，300）的整数，表达式为 ______。
二、程序阅读题（24分，共 3 题，每小题 8 分）
1.写出下列事件过程的执行结果。
Private Sub Command1_Click()
s3(1)s3(1)
End Sub
Private Sub s3(ByVal a As Integer)
Dim x As Integer Static y As Integer
x=x+a
y=y+a
Print “x=”;x, “y=”;y
End Sub
2.下列标准模块和窗体模块的功能是给通信录文件“d:txrf1.dat”添加新记录，在横线上填上适当内容。
标准模块：
Type txr num As Integer name As String * 10 tel As String * 8 addr As String * 20
End Type
窗体模块：
Private Sub Command1_Click()
Dim n%, zgr As txr Open “d:txrf1.dat”
For Random As #1
Len = Len(zgr)
zgr.num = InputBox(“输入新职工编号：”)
zgr.name = InputBox(“输入新职工姓名：”)
zgr.tel = InputBox(“输入新职工电话号码：”)
zgr.addr = InputBox(“输入新职工住址：”)
n =(1)(2)
Close #1
End Sub
3.本程序有一个标准模块和一个窗体模块。Sub main过程是本程序的启动过程，其他过程是窗体模块的事件过程。执行本程序，写出依次单击命令按钮commandl和command2，在窗体上分别输出的3行结果。
标准模块：
Public X As Integer Sub main（）
X＝5
Form1.Show
Form1.Print X
End Sub
窗体模块
Dim y As Integer
Private Sub command1_click（）
y＝X*2
Print y
End Sub
Private Sub command2_click（）
y＝X／2 Print y
End Sub
三、问答题（24分，共 3 题，每小题 8 分）
1.VB坐标系中旋转什么方向是正向
2.什么是“内外循环交叉”？
3.Now函数和Date函数有何区别？
四、程序设计题（20分，共 1 题，每小题 20 分）
利用随机函数，模拟投币结果。设共投币100次，求“两个正面”、“两个反面”、“一正一反”3种情况各出现多少次？
答案：
一、填空题（32分，共 8 题，每小题 4 分）
1.参考答案：
Microsoft Common Dialog Controls 6.0
解题方案：
评分标准：
2.参考答案：
Toolbarl．Buttons（4）．Enabled＝False
解题方案：
评分标准：
3.参考答案：
Toolbarl．Buttons（2）．ButtonMenus（3）．Enabled＝False
解题方案：
评分标准：
4.参考答案：
ToolTipText
解题方案：
评分标准：
5.参考答案：
定长字符串
解题方案：
评分标准：
6.参考答案：
002.45、2.449、24.49E-01、－2.4495
解题方案：
评分标准：
7.参考答案：
Visable；Load
解题方案：
评分标准：
8.参考答案：
+ Rnd * 200
解题方案：
评分标准：
二、程序阅读题（24分，共 3 题，每小题 8 分）
1.参考答案：
执行结果为： x=1 y=1 x=1 y=2
解题方案：
过程调用
评分标准：
2.参考答案：
(1)LOF(1)/ Len(zgr)+ 1(2)Put #1, n, zgr
解题方案：
标准模块和窗体模块应用
评分标准：
3.参考答案：
执行结果为： 5 10 2
解题方案：
区别标准模块与窗体模块
评分标准：
6三、问答题（24分，共 3 题，每小题 8 分）
1.参考答案：
在VB坐标系中，逆时针方向为正，各绘图方法都参照此坐标系。计算对象的坐标点时务必注意这一点。
解题方案：
评分标准：
2.参考答案：
循环嵌套时，内外循环交叉。
For i＝1 ito 4
For j= 1 to 5 „
Next i
Next j
上述循环的交叉，运行时显示“无效的Next控制变量引用”。外循环必须完全包含内循环，不得交叉。
解题方案：
评分标准：
3.参考答案：
Now函数和Date函数都是求当前机器内日期，不同之处是Now函数除日期外还带回时间。
解题方案：
时间函数
评分标准：
四、程序设计题（20分，共 1 题，每小题 20 分）
0.参考答案：
Private Sub Form_Click()
Randomize Timer
Dim a(1, 1)
For i=1 To 100
n1=Int(Rnd*2)
n1=Int(Rnd*2)
a(n1, n2)=a(n1, n2)+1
Next i
Print “投币结果如下：”
Print “ ～～～～～～～～～～～～～”
Print “ 两个正面的次数为：”;a(0, 0)
Print “两个反面的次数为:”;a(1, l)
Print “一正一反的次数为:”;a(0, 1)+ a(1, 0)
End Sub
解题方案：
使用循环控制设计算法 评分标准：
循环5分，算法5分
第二篇：可视化程序设计(VB)第一次作业
可视化程序设计（VB）第一次作业
一、单项选择题
1.Visual Basic程序中分隔各语句的字符是(:)
2.工程文件的扩展名是（vbp）
3.下列运算符中，运算级别最高的是（*）
4.下列可作为Visual Basic的变量名的是(Filename)
5.下面的程序的输出结果是(21 21)
x=5
For i = 1 To 20 Step 2
x=x+i5
Next i
Print x, i
6.下列赋值语句合法的是（A=A+B）
7.下列属性中，目录列表框和文件列表框都有的属性为（Path）。
8.执行下面的程序段后，x的值为(21)
x=5
For i = 1 To 20 Step 2
x=x+i5
Next i
9.向一个顺序文件中写数据时，（Append）是从文件末尾添加的方式打开顺序文件。
10.Seek方法用于在（表）类型的记录集中查找满足条件的记录。
11.当函数EOF()的返回值为真时，表示文件的指针指向（尾部）
12.如果要退出Do„Loop循环，可使用语句（Exit Do）。
13.在VB中，称对象的数据为（属性）。
14.不论何对象，都具有（Name）属性。
15.使用Public Const语句声明一个全局的符号常量时，该语句应放在（标准模块的通用声明段）。
16.下面关于变量的作用域，正确的描述是（同一模块中不同级的变量不能同名）。
17.设a=2，b=3，c=4，d=5，下列表达式的值是（False）a＞b AND c＜=d OR 2*a＞c
18.把数值型转换为字符（串）型需要使用下列哪一个函数？（Str）
19.以下叙述错误的是（KeyPress事件中可以识别键盘上某个键的按下与释放）
20.用于设置或返回文件类型的属性是（Pattern）。
21.要删除列表框中的某一个项目，需要使用（ReMoveItem）方法。
22.以下语句的输出结果是(在立即窗口中)(Δ27ΔΔ65Δ)a=27 ＜CR＞(＜CR＞为回车)b=65 ＜CR＞ Print a;b ＜CR＞
23.语句Print 5*55/5的输出结果是(25)
24.编写如下事件过程：
private sub form_mousedown（button as integer，shift as integer，x as single，y as single）
if shift=6 and button=2 then
print “BBBB”
end if
end sub
程序运行后，为了在窗体上输出“BBBB”，应执行的操作为（同时按下ctrl、alt键和鼠标右键）
25.如果X是一个正实数，对X的第三位小数四舍五入的表达式是（0.01 * Int(100 *(X +0.005))）
第三篇：VB程序设计期末模拟试题及答案
《VB》期末复习题及答案
综合复习题
一、填空题
1．创建一个VB应用程序三个主要的步骤是__创建应用程序界面_、_设置属性_和_编写代码_。2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的 属性 窗
口中，把此文本框的__text__属性设置成空白。
3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信 息，可使用___Label_____控件；若允许用户输入文本，则应使用___TextBox___控件。4．窗体的常用方法有_Load方法 Show方法 Hide方法 Unload方法 5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK，应当编写的语句是 txtshow.text=“GOOD WORK” 6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以
下事件过程填空。
Private Sub Cmdopen_ Click()、frm1.show End Sub 7．Visual Basic 6种类型的表达式是 算术表达式 字符串表达式 关系表达式 布尔表达式 日期表达式 对象表达式，Visual Basic根据表达式的_运算符来确定表达式的类型。8．表达式93 7 Mod 2 ^ 2 的值是___________。
9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c 达式c>a And Not b 10．日期表达式 #2/24/02#1 > c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX Print Tab(Y + 5);“*”;Next Y Print Next X 4． Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print “30+60”, Print 30 + 60 ？ ？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z 五、编程题 1．设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。 2．设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。 3．设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时，标签（Label1）中的文字（欢迎您！）的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。4．任意输入3个数，求大小排第二的那个数，写出程序代码。 0 《VB》期末复习题及答案 综合复习题 一、填空题 1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。 2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__________窗口中，把此文本框的_____________属性设置成空白。 3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。 4．窗体的常用方法有__________、___________、___________和___________。5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK，应当编写的语句是____________________________________。 6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。 Private Sub Cmdopen_ ___________ _____________________ End Sub 7．Visual Basic 6种类型的表达式是______________、______________、______________、________________、_________________、____________________。Visual Basic根据表达式的___________来确定表达式的类型。8．表达式93 7 Mod 2 ^ 2 的值是___________。 9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print “30+60”, Print 30 + 60 ？ ？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z 五、编程题 1．设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给 4 出提示信息，否则计算三科平均成绩。单击退出按钮则退出。 2．设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。 3．设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时，标签（Label1）中的文字（欢迎您！）的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。4．任意输入3个数，求大小排第二的那个数，写出程序代码。《VB》期末复习参考答案 一、填空题 1．创建应用程序界面 设置属性 编写代码 2．属性、text 3．Label TextBox 4．Load方法 Show方法 Hide方法 Unload方法 5．txtshow.text=“GOOD WORK” 6．Click()、frm1.show 7．算术表达式 字符串表达式 关系表达式 布尔表达式 日期表达式 对象表达式 运算符 8．1 9．True False 10．12 11．Sin(x)^ 2 + Sqr(x ^ 2-y ^ 2)/(2 * x)12．Dim A(1 To 5，-2 To 6)As String 13．单击 双击 装载 多 响应某个事件后所执行的程序代码 cmd1 Click 14．完成某种特定的功能 对象名.方法名 Form1.Show 15．AutoSize Stretch 16．FileCopy “c:command.com”，“d:command.com” 二、单项选择题 1．B 2．C 3．C 4．D 5．D 6．B 7．B 8．D 9．D 10．C 11．D 12．A 13．C 三、指出下列句中的错误，修改或者说明原因。1．int.sum 不正确。变量名中不能包括小数点。2．变量名的长度最长可达255个字符。3． 3.6，4 因为a 不是整型变量。 4．不正确。程序不可以改变字符的长度，这是VB规定。 5．不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。6．False。逻辑表达式计算结果。 7．不正确。两个日期型数据相减，其结果是一个数值型数据。8．不正确。静态变量为局部变量，只能在过程中声明。9．正确。10．正确。 11．正确。 12．不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。 四、读程序题，写出程序运行结果。 1．程序运行后，单击窗体，输出结果为： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 2．程序运行后，单击按钮Command1，输出结果为：120。3.* ** *** **** ***** 4.aabb-30 False aabb-30 False 30+60 90 30+60 90 5.11 13 9 五、编程题 1． Private Sub Command1_Click()Text1.Text = “" Text2.Text = ”“ Text3.Text = ”“ Text4.Text = ”“ End Sub Private Sub Command2_Click()a = Trim(Text1.Text)b = Trim(Text2.Text)c = Trim(Text3.Text)If a = ”“ Or b = ”“ Or c = ”“ Then MsgBox ”成绩填写不完全！“, vbCritical Else Text4.Text =(Val(a)+ Val(b)+ Val(c))/ 3 6 End If End Sub Private Sub Command3_Click()Unload Me End Sub 2． Private Sub Command1_Click()x = Val(Text1.Text)If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End If End Sub 3． Private Sub Check1_Click()If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub Private Sub Check2_Click()If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End If End Sub Private Sub Command1_Click()Unload Me End Sub 4． a = Val(InputBox(”输入第一个数：“))b = Val(InputBox(”输入第二个数：“))c = Val(InputBox(”输入第三个数：“))If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t MsgBox(”求大小排第二的数是：" & b) 2014年4月份考试可视化程序设计（VB）第二次作业 一、单项选择题（本大题共100分，共 25 小题，每小题 4 分） 1.下列过程不能包含在标准模块中定义的是（）。 A.事件过程 B.子过程 C.函数过程 D.公共过程 2.下列关于数据库说法错误的是（） A.一个表可以构成一个数据库 B.多个表可以构成数据库 C.一个表的每一条记录中的各数据项具有相同的类型 D.同一个字段的数据具有相同的类型 3.下列属性中，目录列表框和文件列表框都有的属性为（）。 A.List B.value C.Path D.Pattern 4.下列关于菜单访问键和快捷键的说法正确的是（） A.若一菜单项的Caption属性为“打开(&O)”，则其快捷键是Ctrl+O B.快捷键指用于执行一个命令的功能键或组合键，可以在菜单编辑器中将快捷键设为Alt+F C.可以为任意的菜单项都添加快捷键或访问键 D.通过访问键打开某个子菜单时，必须先使焦点位于其上一级菜单 5.要设置列表框的选择方式，应使用（）属性。 A.Columns B.MultiSelect C.Style D.List 6.下面关于随机文件的描述，不正确的是：（） A.每条记录的长度必须相同 B.一个文件中记录号不必惟一 C.可通过编程对文件中的某条记录方便地修改 D.文件的组织结构比顺序文件复杂 7.下列说法正确的是（） A.如果框架的Enable设为False，则框架内的所有控件都不可用。 B.时钟控件的Visable属性设为True时，该控件在程序运行时可见，设为False时，则不可见。 C.在列表框中能够将项目按字母顺序从大到小排列。 D.移动框架时，框架内的控件不随之移动。 8.下列控件中，（）不是用于文件操作的控件。 A.List Box B.DriveListBox C.DirListBox D.FileListBox 9.可以在窗体模块的通用声明段中声明（）。 A.全局变量 B.全局常量 C.全局数组 D.全局用户自定义类型 10.通过设置Line控件的（）属性可以绘制虚线、点划线等多种样式的直线。 A.Shape B.Style C.Fillstyle D.Borderstyle 11.当函数EOF()的返回值为真时，表示文件的指针指向（） A.开头 B.尾部 C.最后一个字节 D.最后一个记录 12.下面的哪一项不能用来在模块之间传递数据（）。 A.全局变量 B.对象属性 C.全局数组 D.模块级变量 13.数据控件用于设置指定数据控件所访问的记录来源的属性是（） A.RecordSource B.DataSource C.DatabaseName D.RecordSetType 14.将通用对话框CommonDialog1的类型设置为“另存为”对话框，该调用该控件的（）方法。 A.ShowOpen B.ShowColor C.ShowSave D.ShowFont 15.在下列关于对话框的叙述中，错误的是（）： A.作为对话框窗体的Borderstyle、ControlBox、MaxButton和MinButton应分别设置为l、True、False和 False。 B.语句frmAbout．Show vbModeless，frmMain将 fmAbout窗体显示为 fmMain的无模式子窗体。 C.可以将对话框分成两种类型：模式的和无模式。 D.语句frmAbout．Show将frmAbout作为无模式对话框显示。 16.AVI动画类似电影，由若干帧组成，Animation控件可以显示（）的音频视频动画（AVI文件）。 A.无声 B.有声 C.无声和有声都可以 D.单声道 17.在用菜单编辑器设计菜单时，必须输入的项有（）。 A.快捷键 B.标题 C.索引 D.名称 18.通过文本框的（）事件过程可以获取文本框中键入字符的ASCII码值。 A.Change B.GotFocus C.LostFocus D.KeyPress 19.以下说法正确的是（）。 A.使用Data控件可以直接显示数据库中的数据 B.使用数据绑定控件可以直接访问数据库中的数据 C.使用Data控件可以对数据库中的数据进行操作，却不能显示数据库中的数据 D.Data 控件只有通过数据绑定控件才可以访问数据库中的数据 20.以下关于索引的说法，错误的是（）。 A.一个表可以建立一个到多个索引 B.每个表至少要建立一个索引 C.索引字段可以是多个字段的组合D.利用索引可以加快查找速度 21.以下叙述错误的是（） A.在KeyUp和KeyDown事件过程中，从键盘上输入A和a是相同的B.在KeyUp和KeyDown事件过程中，从键盘上1和小键盘上的1看作不同数字 C.KeyPress事件中不能识别键盘上某个键的按下与释放 D.KeyPress事件中可以识别键盘上某个键的按下与释放 22.下面关于多重窗体的叙述中，正确的是（）。 A.作为启动对象的 main于过程只能放在窗体模块内 B.如果启动对象是 main子过程，则程序启动时可不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体 C.没有启动窗体，程序不能执行 D.以上都不对 23.改变驱动器列表框的Drive属性将引发（）事件。 A.Load B.Click C.Pattern change D.Change 24.以下的属性和方法中（）可重定义坐标系。 A.DrawStyle属性 B.DrawWidth属性 C.Scale方法 D.ScaleMode属性 25.下面关于过程作用域，错误的描述是（）。 A.全局级过程的作用域为整个工程 B.在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上窗体名称 C.在不同模块中定义的模块级过程可以同名 D.在不同模块中定义的工程级过程不能同名 答案： 一、单项选择题（100分，共 25 题，每小题 4 分） 1.A 2.C 3.C 4.D 5.B 6.B 7.A 8.A 9.A 10.D 11.B 12.D 13.A 14.C 15.A 16.A 17.D 18.D 19.D 20.B 21.D 22.B 23.D 24.C 25.D第四篇：VB程序设计期末模拟试题及答案
第五篇：2014年4月份考试可视化程序设计(VB)第二次作业
点击咨询 