VB 复习练习题
2.工程文件的扩展名是（ D ）。
A)bas B)cls C)frm D)vbp
3.确定控件位置的属性是B
A) Width和Height B)Width或Long
C) Right和Left D)Top和Left
4.窗体标题栏上显示的内容使用下列哪个属性进行设置（B）
A)name B)Caption
C)Fontname D)Font
5．在设计阶段，当双击窗体上的某个控件时，打开的窗口是C
A)工具箱B)对象窗口
C)代码窗口D)属性窗口
6.以下叙述中错误的是（B）
A)窗体载入时触发窗体的Load事件
B)窗体或控件的事件的名称可以由编程人员确定
C)移动鼠标时，会触发MouseMove事件
D)控件的名称可以由编程人员设定
7．以下能在文本框Text1中显示“2015 "的语句是（D ）
A)https://www.doczj.com/doc/df13165537.html,="2015"
B)Text1.Passwordchar="2015"
C)Text1.Caption="2015"
D)Text1.Text="2015"
8．下列可作为Visual Basic变量名的是（ D ）。
A) A&A B) 6ABC
C)*arr D)sinX
9．执行以下程序段
a$="Visual C++ Programming"
b$=" Basic "
C$= Left(a, 7) & UCase (b) & Right(a, 12)
后,变量C的值为（ A ）。
A)Visual BASIC Programming B)VISUAL C++ Programming
C)Visual C++ Programming D)VISUAL BASIC Programming
10．设a=15，b=20，则执行c=Int ((b-a）* Rnd +a）后，c值的范围为（D ）。
A)15～20 B) 16～19
C) 16～20 D) 15～19
11．设a=2,b=3,c=4, 下列表达式的值是（ D ）。
Not a <= c Or 4*c = b^2 And b <> a+c
A) -1 B) 1
C) True D) False
12．VB的3中结构化程序设计的3种基本结构是（ A ）。
A) 选择结构、顺序结构、循环结构
B) 递归结构、选择结构、顺序结构
C) 过程结构、转向结构、递归结构
D) 选择结构、过程结构、顺序结构
13．在窗体上画一个名称为Commandl的命令按钮和两个名称分别为Textl、Text2的文本框，然后编写如下事件过程:
Private Sub Command1_Click()
n=val(Text1.Text)
Select Case n
Case 1 To 20
x=10
Case 2, 4, 6
x=20
Case Is <10
x=30
Case 10
x=40
End Select
Text2.Text=x
End Sub
程序运行后，如果在文本框Text1中输入6，然后单击命令按钮，则在Text2中显示的内容是（ A ）。
A) 10 B) 20 C) 30 D) 40
14. 下列程序段的执行结果为（ B ）。
a=75
If a>60 Then I=1
If a>70 Then I=2
If a>80 Then I=3
If a>90 Then I=4
Print "I="; I
A) I＝1 B) I＝2 C) I＝3 D) I＝4
15．执行以下程序段
Dim i As Integer, x As Integer
x = 0
For i = 20 To 1 Step -2
x = x + i \ 4
Next
Print x
后，x的值为（C）。
A)16 B)18 C)25 D)27
16．有如下程序：
d$=""
a$="abcde"
For i=Len(a$) To 1 Step -1
d$= Mid(a$,i,1) + d$
Next i
Print d$
运行后，输出的结果是（ B ）。
A) abcde B) edcba
C) acebd D) ecadb
17. 设有以下循环结构
Do
循环体
Loop While<条件>
则以下叙述中错误的是（A ）。
A）若“条件”是一个为0的常数，则一次也不执行循环体
B) “条件”可以是关系表达式、逻辑表达式或常数
C) 循环体中可以使用Exit Do 语句
D) 如果“条件”总是为True，则不停地执行循环体
18.要求设置计时器时间间隔为2秒钟，那么它的Interval属性值应该为（A ）。
A）2000 B）200
C）20 D）2
19.设有如下程序：
Option Base 1
Private Sub Form_Click()
a=Array(1,2,3,4,5,6,7,8,9)
For i=1 To 4
Print a(6-i);
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是（ B ）。
A) 4 3 2 1 B) 5 4 3 2
C) 6 5 4 3 D) 7 6 5 4
20．单击命令按钮时，下列程序的执行结果为（ C ）。
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 12: y = 32
Call Proc(x, y)
Print x; y
End Sub
Sub Proc(ByVal n As Integer, m As Integer)
n = n Mod 10
m = m Mod 10
End Sub
A)12 32 B)2 32
C)12 2 D)12 3
二、填空题
1．编写如下程序
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 15
b = 7
Print n(a, b)
End Sub
Function n(x As Integer, y As Integer) As Integer
n = IIf(x > y, x, y)
End Function
程序运行后，单击命令按钮，输出结果为15 。
5．在过程调用中，常用的参数传递可以分为__按值___和__按址___两种方式。
6．用Array函数初始化数组：
Dim city As Variant
city=Array("北京"，"上海"，"天津"，"重庆")
其中city(2)的值为天津。
7．语句Dim score(30,1 to 4,3) As Single声明的数组，数组名为score ；数组类型为single ；维数为三维；数组元素个数共有496 个。8．在一个含有若干列表项的列表框控件Listl中，表示当前被选中列表项内容的语句是List.text ；能够获得组合框Combo1中项目个数的语句是Combo1.ListCount 。
9. 复选框和单选框的标题文字可以通过Caption 属性来设置。当一个复选框
被选中时，它的Value属性的值是 1 。
10．执行下面的程序段后，输出结果为12 。
S=5
For i=2 To 5 Step 0.5
S=S+1
Next i
Print S
11．阅读以下代码：
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum = 0
arr = Array(2,4,6,8,10,12,14,16,18,20)
For i=1 To Ubound（arr）
If arr(i)/4 = arr(i)\4 Then
Sum = Sum + arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为60 。
12．闰年的年号要么能被4整除但不能被100整除，要么能被称400整除。判断年号y 是否为闰年的逻辑表达式是yMod 4=0 And Not y Mod 100=0 Or y Mod 400=0 。
13．下列语句的输出结果是a+b=7 。
Private Sub Form_Click()
a = 3
b = 4
Print "a"; "+"; "b"; "="; a+b
End Sub
判断题
1．标签控件能够显示文本信息，文本内容对齐方式用Alignment属性来设置。（√）2．判断x是否为偶数的条件表达式可以写为x/2=Int(x/2）。（√）。
3．在Option Base 1的前提下，若有定义Dim A%(10)，则数组A所占的字节数是22个。
（×）
4．Visual Basic 6.0分为2种版本。（×）
5．设置Height或Width的数值单位为twip，是1点的1/20。（√）
6. 如果要在窗体的Load事件中使用Print方法，应该设置窗体的某个属性才能正常输
出结果，否则窗体无法显示打印结果。（√）
7. 假设有如下事件过程
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=2 Then
PopupMenu File
End If
End Sub
其中Button=2表示按下的是鼠标左键。（×）
8．在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，使用语句load。
（√）
9. 双击窗体Form1，将被执行的事件过程的名字应为Click事件。（×）
10. 执行下面程序段的结果是4321。（√）
Option Base 1
Private Sub Command1_Click()
Dim a
s = 0
a = Array(1, 2, 3, 4)
j = 1
For i = 1 To 4
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub
编程题
1.结合上机实践操作，观察如图1所示的程序界面中，有几种对象类型，分别写出每种
对象的名称，中英文均可。
图1
2.计算sum=1+2+3+…..+n，n由用户随意给出。
图2
3.编程实现内容互换小游戏，界面设计如图3所示。
图3
试卷编号：25 所属语言：Visual Basic 试卷方案：VB程序设计 试卷总分：100分 共有题型：4种 一、单选共15题（共计30分） 第1题（2.0分）题号:2299 难度:中第1章 将调试通过的工程经"文件"菜单的"生成.exe文件"编译成.exe后,将该可执行文件转到其他机器上不能运行的主要原因是(). A:运行的机器上无VB系统所需的动态连接库 B:缺少.frm窗体文件 C:该可执行文件有病毒 D:以上原因都不对 答案：A 第2题（2.0分）题号:2344 难度:中第2章 下列字符串常量中,最大的是(). A:"北京" B:"上海" C:"天津" D:"广州" 答案：C 第3题（2.0分）题号:2436 难度:中第2章 能正确表达a≤1或a≥5的逻辑表达式是(). A:a<=1或a>=5 B:a<=1,a>=5 C:a<=10 Or a>=5 D:a<=l And a>=5 答案：C 第4题（2.0分）题号:2539 难度:中第2章 用一个程序段对一个对象被单击(或双击)做出响应,从而实现指定的操作,称为(). A:可视化程序设计 B:事件驱动编程机制 C:过程化程序实际方法
D:非过程化程序设计语言 答案：B 第5题（2.0分）题号:2601 难度:中第3章 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click() K = 3 If X < 3 Then Print X + 3; If X < 4 Then Print X + 4; If X < 5 Then Print X + 5; If X< 6 Then Print K + 6; Print End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是(). A:6 7 8 9 B:7 8 9 C:8 9 D:9 答案：B 第6题（2.0分）题号:2662 难度:中第3章 运行下面程序后,在窗体中显示的是(). Private Sub Form_Click() a$="*": b$="$" For k=1 To 3 x$=String$(Len(a$)+k,b$) Print x$; Next k Print End Sub A:*** ** **** B:*$*$*$ C:1*$2*$3*$ D:$$$$$$$$$ 答案：D
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
上海立信会计学院本科实验报告 班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验3 选择结构 一、 实验目的 1． 掌握单分支、双分支和多分支条件语句的使用 2． 掌握情况语句的使用及其与多分支条件语句之间的区别。 二、实验要求 1． 在C:\下建立子文件夹“VB 实验3”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件、窗体文件 及可执行文件（），本实验中的第二题，需保存的文件有：工程文件、窗体文件 及可执行文件（），其余实验依此类推。 2． 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 三、 实验内容： 1. 编一程序输入上网的时间并计算上网费用，计算的方法如下： 费用= 50250~102.51030?? ???>≤>≤小时上网时间元，每小时小时上网时间元，每小时小时上网时间元，基数 同时为了鼓励多上网，采用累进计费制，但每月收费最多不超过150元。上网时间在文本框中输入；上网费用在标签中输出，所有控件字体默认、大小为小四。要求使用多分支结构（IF THEN ELSEIF ）编写，效果如图3-1所示。
图3-1 Option Explicit Private Sub Command1_Click() Dim s!, sum! s = Val If s <= 0 Then MsgBox "上网时间不能为负数和零", , "输入错误" Text1 = "" Else If s <= 10 Then sum = 30 ElseIf s > 10 And s <= 50 Then sum = 30 + (s - 10) * ElseIf s > 50 And s <= 60 Then sum = 130 + (s - 50) * 2 Else sum = 150
2012二级VB上机考试试题题库 VB考试上机试题 1) .新建一个工程，实现单击Command1将text1中的内容复制（或者剪切）到Text2中。（要求使用Clipboard对象）保存。 窗体上一个text文本框，两个command按钮，caption分别为“剪切”，“恢复”，运行后要求在text1中输入文本，点“剪切”，把text1中的内容剪切掉，点”恢复“，把text1中的内容恢复出来。提示：定义一个变量用来存放text1中的内容。 2) .新建一个工程，文本框text1,使用户输入字母一律转换为大写显示（焦点在最右端）保存。 3) .新建一个工程，实现功能：在窗体中实现由下向上滚动显示“您好！网络之家”这几个字。保存。 4) .新建一个工程，在Form1界面创建Form2，Form3两个子菜单的Forms菜单，选择Form2子菜单，以无模式显示Form2,选择Form3子菜单，以有模式显示Form3.保存。5) .新建一个工程，在界面上放置一个工具条Toobar1,在工具条上有三个按纽，按下第一个按钮时用MsgBox显示：“第一个按纽被按下”；按下第二个按纽时用MsgBox显示：“第二个按纽被按下”；按下第三个按纽时用MsgBox显示：“第三个按钮被按下”。保存。
6) 。新建一个工程，包含两个窗体Form1,Form2。实现功能制作－－－欢迎界面，时间为三秒，三秒后，Form1消失，Form2出现。保存。 7) 。新建一个工程，实现功能限制：在Text1中只能输入10个字母，超过的在Text2中显示。保存。 8) 。新建一个工程，实现功能单击Text1框时，Text1中的内容被全选。保存。 9) 。新建一个工程，实现功能点击Command1按钮，读取系统的汉字字型，在ComBox列表框中显示。保存。 10) 。新建一个工程，实现单击Commmand1将Text1的内容剪切到Text2中。（上次的那道题目是复制）保存。 11) 。新建一个工程，其中含五个单选按钮，两个面板StratusBar1. 第一面板题“欢迎探讨”，点击单选按钮时，第二个面板标题为选中的标题号。保存。 12) 。新建一个工程，使用打开对话框找到某一文件（硬盘上任意一文本文件），带全路径的文件名，显示在一文本框内。保存。
第1题（1.0分）题号:227 表达式1 and 0的值【1】.答案：1). False 第2题（1.0分）题号:222 把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】. 答案：1). False 第3题（1.0分）题号:60 a 和b 中有仅只有一个为1,相应的Visual Basic逻辑表达式为【1】. 答案：1). a=1 xor b=1 第5题（1.0分）题号:244 设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是【1】. 答案：1). (x mod 10) * 10 + int(x/10) 第7题（1.0分）题号:226 表达式32\7 MOD 3^2 的值是【1】. 答案：1). 4 第8题（1.0分）题号:288 文件按照存取方式及其组成结构可以分为顺序文件和【1】. 答案1). 随机文件或随机 第9题（1.0分）题号:319 Option Base 1的作用是确定数组的下界为【1】. 答案：1). 1 第1题（1.0分）题号:236 所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义. 答案：N 第2题（1.0分）题号:246 ActiveX控件是扩展名为*.ocx的独立文件,使用时需用 "工程"/"部件"载入或移去. 答案：Y 第3题（1.0分）题号:289 框架控件和形状控件都不能响应用户的鼠标的单击事件. 答案：Y 第4题（1.0分）题号:350 在窗体模块的声明部分中用Private声明的变量的有效范围是其 所在的工程. 答案：N 第5题（1.0分）题号:354 在框架控件上放置的控件可以移动到框架控件的外面. 答案：N 第6题（1.0分）题号:231 可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案：Y 第8题（1.0分）题号:247 Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始角、终止角的大小相关,而且与起始角、终止角的正或负相关.答案：Y 第9题（1.0分）题号:330 有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案：Y 第10题（1.0分）题号:225 Visual Basic程序的运行可以从Main()过程启动,也可以从某 个窗体启动. 答案：Y 第1题（1.0分）题号:319 能够改变窗体边框线类型的属性是(). A:FontStyleB:BorderStyleC:BackStyleD:Bord er 答案：B 第2题（1.0分）题号:822 以下()对象不具有Clear方法. A:列表框B:组合框C:剪贴板D:图片框 答案：D 第3题（1.0分）题号:258 常量-0.00013579的科学计数法是(). A:-1,3579E+0.4B:.00013579C:-13.579E-5D:-1.3579E-0.4 答案：C 第4题（1.0分）题号:230 vb 应用程序是分层管理的,其最高的层次为(). A:工程B:模块C:窗体D:过程 答案：A 第5题（1.0分）题号:837 用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:HideB:CheckedC:VisibleD:Enabled答案：C 第6题（1.0分）题号:334 若要使标签控件显示时,不覆盖其背景内容,
实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5
（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③
2007年春 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试 二级试卷 试卷语种：Visual Basic 第一部分计算机基础知识 1．微电子技术是信息技术领域的关键技术，它以集成电路（IC）为核心。在下列有关叙述中，错误的是。 A．A．目前IC芯片（如CPU芯片）的集成度可达数千万个电子元件 B．B．Moore定律指出，单块IC的集成度平均每半年翻一番 C．C．从原料熔练到最终产品包装，IC的制造工序繁多，工艺复杂，技术难度非常高 D．D．非接触式IC卡采用电磁感应方式无线传输数据，所以又称为射频卡或感应卡 2．在下列有关通信中使用的传输介质的叙述中，错误的是。 A．A．计算机局域网中大多使用无屏蔽双绞线，其无中继有效传输距离大约100m B．B．同轴电缆可用于传输电视信号 C．C．光纤价格高，一般不在校园网和企业网中使用 D．D．微波的波长很短，适合于长距离、大容量无线通信 3．二进制数（1010） 2与十六进制数（B2） 16 相加，结果为。 A．(273) 8B.(274) 8 C.(314) 8 D.(313) 8 4.设有一段文本由基本ASCII字符和GB2312字符集中的汉字组成，其代码为B0 A1 57 69 6E D6 D0 CE C4 B0 E6，则在这段文本中含有。 A．1个汉字和9个西文字符 C.3个汉字和5个西文字符 B.2个汉字和7个西文字符 D.4个汉字和3个西文字符 5.在下列有关CPU的叙述中,错误的是 . A. A.CPU的主要组成部分有运算器、控制器和寄存器组 B. B.CPU的主要功能是执行指令，不同类型CPU的指令系统通常有所 不同 C. C.为了加快运算速度，CPU中可包含多个算术逻辑部件（ALU） D. D.目前PC机所有的CPU芯片均为Intel公司的产品 6．PC机在加电启动过程中会运行POST程序、引导程序、系统自举程序等。若在启动过程中，用户按某一热键（通常是Del键）则可以启动CMOS设置程序。这些程序运行的顺序是。 A．A．POST程序->CMOS设置程序->系统自举程序->引导程序 B．B．POST程序->引导程序->系统自举程序->CMOS设置程序 C．C．CMOS设置程序->系统自举程序->引导程序->POST程序 D．D．POST程序->CMOS设置程序->引导程序->系统自举程序 7.目前PC机一般都有USB和FirWire接口,用于连接各种外部设备.在下列关于这两种接口的叙述中,错误的是 . A. https://www.doczj.com/doc/df13165537.html,B是一种串行接口,可以连接键盘、鼠标器、优盘、数码相机等 多种设备
九江学院期末考试复习题（政法A1111）第一套 一、判断题 1、Visual Basic程序开发的特点是面向对象的事件驱动。（√） 2、Print_Text 是一个不合法的变量名。（×） 3、窗体的AutoRedraw属性实现了屏幕图像的重建。（√） 4、设置字体大小应使用Font属性（×） 5、Sub过程可以实现嵌套调用（√） 6、IIF函数中的三个参数都不能省略。（√） 7、块结构条件语句以End If结束，而单行结构条件语句没有End IF。（√） 8、当终值小于初值时，步长为负数。（√） 9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（√） 10、关于数组的引用,在程序中,凡是简单变量可以出现的地方都可以出现数组元素的引用(√) 二、单项选择题 1．Print Format（123，”####”）执行之后的结果为 A）＃123B）123C）123＃D）＃＃＃＃ 【答案】B 2．下面可以表示注释语句开头的为 A）Re B）R C）Rem D）dim 【答案】C 3．下列选项中窗体载入事件为
A）Load事件B）Click事件C）DblClick事件D）Unload事件 【答案】A 4．Timer控件可以使用下列哪种事件 A）Click事件B）Timer事件C）Dblclick事件D）Change事件 【答案】B 5．在InputBox函数中哪一个参数是必须的 A）Prompt B）Buttons C）Title D）Context 【答案】A 6．以下叙述中错误的是： A）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B）Sub过程中不能嵌套定义Sub过程 C）Sub过程可以嵌套调用Sub过程 D）事件过程可以像通用过程一样由用户定义过程名 【答案】C 7．要填加一个标准模块，可使用“_____”菜单中的“添加模块”命令。 A）文件B）视图C）工程D）工具 【答案】C 8．在块结构条件语句If-Then / Endif中 (A)必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句，运行时将出现错误
1、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5
2011-2012学年第一学期算法与程序设计期末考试题 班级：姓名：分数： 一、单项选择题（每题4分） 1.算法是解决问题的( ) A.程序代码 B.方法与步骤 C.计算公式 D.最终结果 2.以下不能作为vb常量的的是( ) A.“Good Luck” B. PI C. 1.5E-3 D. 16.34 3.以下各表达式中, 计算结果为0的是( ) A. INT(12.4)+INT(-12.6) B. CINT(12.4)+CINT(-12.6) C. FIX(13.6)+FIX(-12.6) D. FIX(12.4)+FIX(-12.6) 4.设a=″Visual Basic″，下面使b=″Basic″的语句是( ) A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 5.inputbox() 函数返回值类型为( ) A.数值 B.字符串 C.数值和字符串 D.变体 6.下列关于For…Next语句的说法正确的是( ) A. 循环变量、初值、终值和步长都必须为数值型 B.Step后的步长只能为正数 C. 初值必须小于终值 D.初值必须大于终值 7.下列符号中，只有( )是合法的VB变量名。 A．xy23 B．23xy C．Sub D．xy8[1] 8.数学表达式Sin30°写成VB表达式是( ) A．Sin30 B．Sin(30) C．Sin(30°) D．Sin(30*3.14/180) 9.在VB的运算中，级别最高的是( ) A．= B．And C．Or D．Not 10.判断任意3条线段a、b、c能否构成三角形的表达式为( ) A．a+b>=c Or a+c>=b Or b+c>=a B．Not(a+b
《VB程序设计》实验单元二 实验报告 专业班级：新闻班姓名: ________________ 学号：—指导教师：完成时间：2013.5 一、实验题目 数组和自定义类型 二、实验环境 Visual Basic6.0 程序软件 三、实验目的 1.掌握数组的声明、数组元素的引用。 2.掌握固定长度数组和动态数组的使用差别。 3.掌握数组常用的操作和常用算法。 4.掌握列表框和组合框的使用。 5.掌握自定义类型及数组的使用。 四、实验内容 1.随机产生30—100 （包括30、100）的10个正整数，求最大值、最小值、平均值，并显示整个数组的只和结果。 2.随机产生20个学生成绩，统计各分数段人数。即0~59、 60~69、 70~79、80~89、90~100,并显示结果。
五、实验步骤 1.打开VB界面，建立工程 2.在窗体窗口设置界面 3?属性窗口控件对象属性设置 4.编写程序代码 5?运行程序及调试 6?程序建立，保存工程文件六、实验结果 第1题：
70 53 57 28 30 77 1 76 81 70最大值81 最小值1 平均值54.3 4 41 86 79 37 96 87 5 94 36 最大值96 最小值4 平均值56.5 52 76 5 59 46 29 62 64 26 27 :最大值76 最小值5 平均值44.6 82 82 58 98 91 22 69 98 24 53最大值98 最小值22 平均值67.7 10 99 67 1 57 10 10 79 28 4 最大值99 最小值1 平均值36. 5 29 38 30 94 97 40 27 16 16 64实验 r Q Forml 回
全国计算机VB等级考试历年全真试题 （共15套，含答案） ２００５年4月份二级VB真题（附参考答案） （考试时间90分钟，满分100分） 一、选择题((1)~(35)每小题2分，共70分) 下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。 (1)数据的存储结构是指 A) 存储在外存中的数据B) 数据所占的存储空间量 C) 数据在计算机中的顺序存储方式D) 数据的逻辑结构在计算机中的表示 (2)下列关于栈的描述中错误的是 A)栈是先进后出的线性表B) 栈只能顺序存储
C)栈具有记忆作用D) 对栈的插入与删除操作中，不需要改变栈底指针 (3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是 A) 冒泡排序为n/2 B) 冒泡排序为n C) 快速排序为n D) 快速排序为n(n-1)/2 (4)对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为 A) log2n B) n/2 C) n D) n+1 (5)下列对于线性链表的描述中正确的是 A)存储空间不一定是连续，且各元素的存储顺序是任意的 B)存储空间不一定是连续，且前件元素一定存储在后件元素的前面 C)存储空间必须连续，且前件元素一定存储在后件元素的前面 D)存储空间必须连续，且各元素的存储顺序是任意的 (6)下列对于软件测试的描述中正确的是 A)软件测试的目的是证明程序是否正确 B)软件测试的目的是使程序运行结果正确 C)软件测试的目的是尽可能多地发现程序中的错误 D)软件测试的目的是使程序符合结构化原则 (7)为了使模块尽可能独立，要求 A)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强 B)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱 C)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱 D)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强 (8)下列描述中正确的是 A) 程序就是软件 B) 软件开发不受计算机系统的限制 C) 软件既是逻辑实体，又是物理实体 D) 软件是程序、数据与相关文档的集合 (9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指 A) 数据与程序独立存放 B) 不同的数据被存放在不同的文件中 C) 不同的数据只能被对应的应用程序所使用 D) 以上三种说法都不对 (10) 用树形结构表示实体之间联系的模型是
第一部分：客观题 一、单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（） A、工程资源管理器窗口 B、工具箱窗口 C、属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（）方法来实现。 Ａ、RefreshＢ、SetfocusＣ、GotfocusＤ、Value 4、下列不可作为VB变量名的是（） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是（） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（）。
n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（） Ａ、ClickＢ、MouseDownＣ、MouseUpＤ、DblClick 9、下列为整型变量的是（） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0 C、x Mod 2 =0 And y Mod 2=0 D、x Mod 2 =1 And y Mod 2 =1 12、在通用声明中给出Option Base 1语句，则数组a包含（）个数组元素。 Dim a(3, -2 To 1, 5) As Integer A、60 B、75 C、120 D、13
Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.doczj.com/doc/df13165537.html, 第3章Visual Basic 语言基础 1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+1
2.mod 3.X=Int(X) And Y=Int(Y) And X*Y>0 4. 4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=0 5.x=Int((99-10+1)*Rnd+10) 6.0 “” 7.空格 8.6，845.30 9. （1）8 （2）1 （3）abcd （4）出错，类型不匹配 （5）False （6）2008-6-29 （7）I likeVB （8）4 （9）4 4 （10）3 4 （11）10 -10 （12）-1 （13）aa （14）3 （15）0 （16）1 （17）C （18）5 （19）8 （20）34.54 （21）中国 （22）上海 （23）VISUAL BASIC （24）visual basic 10. （1）x<-100 or x>100 （2）a=Int(a) And b =Int(b) Or a<0 And b<0 （3）x<=y or x>=z （4）a>0 And a<>Int(a) （5）a=0 xor b=0 （6）Len(S)<10 （7）UCase(S)=S （8）Left(S,1)=”a” And Right(S,1)=”a” （9）Instr(S,”@”)<>0 （10）Trim(S)=S （11）Date=#8/8/2008#
1、VB应用程序中可以包括三种模块：( 窗体模块)、( 标准模块) 和类模块。 2、下列过程不能在标准模块中定义的是( A )。 A、事件过程 B、子过程 C、函数过程 D、公共过程 3、以下叙述中错误的是D A、如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B、Sub过程中不能嵌套定义Sub过程 C、Sub过程中可以嵌套调用Sub过程 D、事件过程可以像通用过程一样由用户定义过程名 2、在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上( 窗体名称)。 2、自定义的过程有两种形式：＿Sub＿和＿Function＿。 3、用于退出过程的语句是( D )。 A、Exit B、Exit For C、Exit Do D、Exit Sub 4、在过程的参数列表中列入__ Optional __关键字，就可以指定过程的参数为可选的。 5、如果使用Call关键字来调用一个需要参数的过程，参数就必须要加上__括号__。 1、在窗体代码中有以下事件过程的声明，其中Private表示( B ) Private Sub lblAbc_Change() …… End Sub A、此过程可以被任何其它过程调用 B、此过程只可以被本窗体模块中的其它过程调用 C、此过程不可以被其它过程调用 D、此过程只可以被本工程中的其它过程调用 9、假定已定义了一个过程Sub Add(a As Single,b As Single)，则正确的调用语句是( A )。 A、Add 12,5 B、Call(2*x,Add(1.57)) C、Call Add x,y D、Call Add(12,12,x) 10、要想在过程调用后返回两个结果，下面的过程定义语句合法的是( C )。 A、Sub Procl(ByVal,n,ByVal m) B、Sub Procl(n,ByVal m) C、Sub Procl(n,m) D、Sub Procl(ByVal n,m) 6、写出单击命令按钮Command1时的窗体显示结果。 Public Sub Proc(ByRef n As Integer,ByVal m As Integer) n=n Mod 10 m=m\10 End Sub Private Sub Command1_Click() Dim x as Integer,y As Integer x=15:y=30 Call Proc(x,y) Print x;y
第一部分：客观题 1、 单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（ ） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （ ） A、工程资源管理器窗口 B、工具箱窗口 C、 属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（ ）方法来实现。 Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value 4、下列不可作为VB变量名的是（ ） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是 （ ） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（ ） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（ ） Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick 9、下列为整型变量的是（ ） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是 （ ） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0
《VB程序设计》实验报告 专业：信息管理与信息系统 班级：1502班 学号： 姓名： 日期：2016年12月20日
一、实验题目：记事本程序的设计 二、实验目的 1、掌握菜单编辑器的使用方法。 2、掌握菜单事件的编程方法。 3、初步掌握多窗体程序设计方法。 三、实验内容与步骤 1、实验内容：设计一个记事本程序。 2、界面设计（贴出对象属性表和界面设计图）。 ①在窗体frmPad上添加一个文本框text1，并根据下表修改窗体及控件属性。 对象窗体属性设置 对象名属性值 FrmPad Caption “记事本” Text1 MultiLine True ScrollBars 2-Vertical Text 清空 ②使用菜单编辑器在窗体上建立菜单：选中窗体frmpad后，单击“工具”菜 单的“菜单编辑器”命令，弹出“菜单编辑器“对话框，如下图所示。 ③根据下表设置菜单。 菜单设置 菜单项标题菜单项名称快捷键其他属性编辑mnuEdit ···剪切mnuCut Ctrl+X ···复制mnuCopy Ctrl+C ···粘贴mnuPaste Ctrl+V
文本风格mnuStyle ···粗体（&B）mnuBold "复选"属性为True ···斜体（&I）mnuItalic "复选"属性为True 弹出菜单popMenu "可见"属性为True ···剪切popCut ···复制popCopy ···粘贴popPaste 设计好程序窗体如下图所示。 菜单编辑器
界面设计 3、编写程序代码。 Private Sub Form_Load() Text1.FontSize = 16 Text1.Text = "Visual Basic程序设计" mnuBold.Checked = False mnuItalic.Checked = False End Sub '剪切 Private Sub mnuCut_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub '复制
大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10)
实验三 第1题四则运算题 设计如下窗体,为五个命令按钮编写5段代码完成四则运算及退出程序,其中在计算除法时,如果第二个数就是零,在消息框中显示信息“除数为零”。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a + b End Sub Private Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a - b End Sub Private Sub Button3_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button3、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a * b End Sub Private Sub Button4_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button4、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text