VB程序设计基础知识要点
Visual Basic程序设计基础知识要点（概念分析篇）
知识点1：
（1）在工程资源管理器窗口中可以包含：工程文件、窗体模块文件、标准模块文件和类模块文件（其中可以包含许多各种文件类型）。
（2）Visual Basic应用程序可以以解释方式执行和编译方式执行。
例题：
（1）以下叙述中错误的是 A
A．在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件。
B．以.bas为扩展名的文件是标准模块文件。
C．窗体文件包含该窗体及其控件的属性。
D．一个工程中可以有多个标准模块文件。
（2）以下叙述中错误的是 C
A．打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件。
B．保存Visual Basic程序时，应分别保存窗体文件及工程文件。
C．Visual Basic应用程序只能以解释方式执行。
D．事件可以由用户引发，也可以由系统引发。
知识点2：
（1）窗体和各种控件的名称（Name）是唯一的，用来标识一个窗体或控件的。
而窗体和控件的标题是用来说明的，是可有可无的。
（2）各种控件之间有部分相同的属性，并不是拥有所有属性。控件有些属性只能在属性窗口中设置，但也有少数属性只能在代码状态设置。
（3）Unload Form1方法和Form1.Hide方法的区别：第一个方法窗体消失并不存在于内存中；第二个方法窗体消失但仍存在于内存中。
例题：
（1）以下叙述中正确的是 A
A．窗体的Name属性指定窗体的名称，用来标识一个窗体。
B．窗体的Name属性的值是显示在窗体标题栏中的文本。
C．可以在运行期间改变对象的Name属性的值。
D．对象的Name属性值可以为空。
（2）以下叙述中错误的是 C
A．Visual Basic是事件驱动型可视化编辑工具。
B．Visual Basic应用程序不具有明显的开始和结束语句。
C．Visual Basic工具箱中的所有控件都具有Width和Height属性。
D．Visual Basic中控件的某些属性只能在运行时设置。
知识点3：
（1）标签(Label1)：Autosize的True属性可以自动调整标签的大小，而False 属性不能。
（2）文本框(Text1)：
1、Maxlength属性表示文本框所能容纳的字符数。
2、Passwordchar属性表示口令输入，可以是“*”或“？”等。设置文本框输入字符为“*”：Text1.Passwordchar=”*”,还原文本框字符：Text1.Passwordchar=””,
3、ScrollBars属性是表示文本框有垂直或水平滚动条，但是需要和多行属性Multiline结合一起使用。
4、SelLength属性是表示选中文本框中字符的个数：Text1.SelLength。SelStart属性是表示选中文本框中字符或光标之前的字符数：Text1.SelStrart。SelText属性是表示选中文本框中的字符：Text1. SelText。
5、文本的主要事件是Change事件：(标签内容随文本框内容变化而变化)
Private sub text1_Change（）
Label1.caption=Text1.text
End sub
6、文本框的方法只有一个：Text1.SetFocus
例题：
（1）能够获得一个文本框中被选取文本的内容的属性是 C
A．Text B. SelLength C. SelText D. SelStrart
（2）在窗体上画一个文本框(其名称为Text1)和标签(其名称为Label1)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是 A
A．Private Sub Text1_Change（） B. Private Sub Text1_Click（）Label1.caption=Text1.Text
Label1.caption=Text1.Text
End Sub End Sub
C．Private Sub Label1_Change（） D. Private Sub Label1_Click （）
Label1.caption=Text1.Text
Label1.caption=Text1.Text
End Sub
（3）命令按钮(Command1):
1、Default属性：当一个命令按钮的Default属性为True时，按回车键和单击该命令按钮的效果相同。
2、Cancel属性：当一个命令按钮的Cancel属性为True时，按ESC键和单击该命令按钮的效果相同。
（4）单选按钮和复选框(Option1和Check1)：
1、单选按钮：Value属性的值是True(选中)和False(未选中)，Option1.Value=True等同于Option1.Value用法。
2、复选框：Value属性的值是0(未选中)、1(选中)和2(表示暂时不可用)。Check1.Value=False可以用，但Check1.Value=True不可用(因为True只能转化数值－1而不是1)。
（5）列表框(List1):
1、List属性是一个数组型属性：List1.List(索引)，索引可以是数字0、1…,List1.listindex,变量i（List1.Text等同于List1.list(List1.listindex)）。
2、MultSelect属性：用来设置一次可以多选表项数。MultSelect属性值
为0时，每次只能选择一项；MultSelect属性值为1时，可以同时选择多个项目；MultSelect属性值为2时，可以用辅助键Shift或Ctrl选择多个项目。
3、常用方法：AddItem方法表示添加的是一个项目，而Removeitem方法表示通过删除索引的方式删除项目。RemoveItem 索引索引可以是数字0、1…,List1.listindex,变量i。
（6）组合框（Combo1）：
1、Style属性：Style属性值为0时，表示下拉式组合框；Style属性值为1时，表示下简单组合框；Style属性值为2时，表示下拉式列表框。其他功能类似列表框(List1)。
（7）图片框和图像框(Picture1和Image1):
1、图片框(Picture1)：Autosize属性值为True时，表示图片框大小随图片大小改变而改变；Autosize属性值为False时，表示图片框只能部分显示大图片。
2、图像框(Image1)：Stretch属性为True时，图片大小随图像框的大小改变而改变；Stretch属性为True时，图像框的大小随图片大小的改变而改变。
3、两种图形类型都可以按照下面这个方法加载图片：
Picture1.picture=LoadPicture(App.Path & “\图片名称.扩展名”)
Image1.picture=LoadPicture(App.Path & “\图片名称.扩展名”) 如果要清楚图片：
Picture1.picture=LoadPicture(“”)
Image1.picture=LoadPicture(“”)
注意:如果使用App.Path方法需要先保存好窗体文件和工程文件到考生文件夹中。
（8）滚动条(HScroll1)：
1、Max和Min属性是分别表示滚动条的最大和最小刻度，刻度值用Value 属性值来表示：HScroll1.value。
2、LargeChange和SmallChange属性是分别表示移动滚动条上的左右箭头按钮的移动量和移动滚动条上滚动框的移动量。
3、Scroll和Change事件分别表示拖动滚动条上滚动框的操作和单击滚动条上箭头按钮的操作。
（9）计时器(Timer1)：
1、Enabled属性：Enabled属性值为True时，表示计时器可以走动；Enabled 属性值为False时，表示计时器停止走动；
2、Interval属性：是表示计时器运动的时间间隔，单位为毫秒。1秒时间：Timer1.Interval=1000。
3、Enabled和Interval这两个属性一般情况下需要一起使用。
知识点4：
（1）Visual Basic常用函数的使用方法：
1、数学函数：
★求平方根：Sqr(n)
★求自然对数Log(n)→ln n log78=log e8/log e7(注意非e为底的对数需要如此转换)
★求以e为底的幂值，e x e x→Exp(x)
1 n>0
★Sqn(n)= 0 n=0
★Rad()-->X=Int(Rnd*(上界—下界+1))+下界（产生随机整数）2
★Str(x) 数值x转换成字符串str(12.75)=”12.75”这样转换12.75之前会多出一位。如果使用Cstr(12.75)=”12.75”这样转换12.75之前不会多出一位。
★Val(x) 字符x转换成数值，但x要一定是数字字符才行，Val(“12.75”)=12.75,如果是含有其他字符Val(“12.7ab”)将无法转换。
★ chr(x) 返回以x为Asccii代码值的字符 chr(97)=”a”;Asc(x) 给出字符x的Asccii代码值Asc(“A”)=65
三种类型ASCII代码值转换：
Asc(“0”)~Asc(“9”)-→48~57
Asc(“A”)~Asc(“Z”)-→65~90
Asc(“a”)~Asc(“z”)-→97~122
特殊情况：Asc(“ABC”)=65 只求第一个字符“A”的Ascii代码值★Fix(x) 将数值型数据x的小数部分舍去Fix(12.8)=12 Fix(-12.5)=-12;
Int(x) 取小于等于x的最大整数当x>0时，用法和Fix一样；当x<0时，Int(-12.3)= -13;
Cint(x) 将数值型数据x的小数部分四舍五入Cint(12.7)=13 Cint(12.3)=12
但是有特殊情况： x 当x是偶数
Cint(x.5)=
x+1 当x是奇数
3、字符函数
★Left(x,n) 从x字符串左边起取n个字符Left("ABCDEFG",3)="ABC";
Right(x,n) 从x字符串右边起取n个字符 Right("ABCDEFG",3)="EFG"。
★Mid(x,n1,n2) 从字符串x左边第n1个位置开始向右起取n2个字符
Mid(x,n) 从字符串x左边第n个位置开始向右全部取
Mid("ABCDEFG",3,2)= "CD" Mid("ABCDEFG",3)= "CDEFG"
★Instr(n,s1,s2) 从字符串s1的第n个位置起查找s2在s1中位置，如果n省略，则默认从字符串s1的第1个位置起查找s2在
s1中位置
Instr(2,"ABCDEFG","CD")=3
知识点5：
1、运算符：
★算术运算符
运算符的优先级：^ > -- > (* /) > \ > Mod > (+ --)
★关系运算符
< <= > >= = <> Like Is 运算符优先级相同
★逻辑运算符
运算符的优先级：Not > And > Or > Xor > Eqv
例题：
（1）表达式4 + 5 \ 6 * 7 / 8 Mod 9 的值是 B
A．4 B. 5 C. 6 D. 7
（2）a=3 b=2 c=1 求Print a>b>c 的结果？
首先a>b的结果是true,然后再Print True>c 此时True需要转换成-1再比较，Print -1>1 结果是False，所以整个输出结果是False。
知识点6：
1、交互函数的使用：
★ InputBox函数：
A=InputBox("提示信息","标题信息","默认值或输入框的值")
例题：
(1) 执行下列语句后，将显示输入对话框，此时如果单击“确定”按钮，则变量strInput的内容是 C
strInput=InputBox("请输入字符串","字符串对话框","字符串")
A．"请输入字符串" B. "字符串对话框"
C. "字符串"
D. 空字符串
★ MsgBox函数：
MsgBox “提示信息”, 按钮类型值+图标类型值+默认焦点值, “标题信息”
A= MsgBox “提示信息”, 按钮类型值+图标类型值+默认焦点值, “标题信息”；A的值根据单击什么按钮有关，A的值在[1,7]之间取值。比如：单击“确定”按钮，A=1。
例题：
（1）以上图形所表示的函数表达式为：
MsgBox "请输入查询的学生学号：", 3 + 32 + 256, "学生基本信息查询"
知识点7：
1、选择结构语句（If条件语句）：
★单分支条件语句：
格式：① If 条件 Then
语句块
End If （称If块语句）
② If 条件 Then 只有一条语句（称If条语句）
★双分支条件语句：
格式：If 条件 Then
语句块1
Else
语句块2
End If
★多分支条件语句
If 条件1 Then
语句块1
Elseif 条件2 Then
语句块2
。。。。。。
Else
语句块n
End If
其中，条件可以是：关系表达式(a>5)、逻辑表达式(a>5 And c>4)、变量(i)或常数(0)。
例题：
（1）下列程序段的执行结果为 A
X=5
Y=-20
If Not x>0 Then
x=y-3
Else
Y=x+3
End If
Print x-y;y-x
A. -3 3
B. 5 -8
C. 3 -3
D.
25 -25
以上题中的“条件”主要是逻辑表达式。
（2）下列程序段的执行结果为 B
X=2
Y=1
If x*y<1 Then y=y-1 Else y=-1
Print y-x>0
A. True
B. False
C. -1
D.1
以上题中的“条件”主要是关系表达式。
（3）下列程序段的执行结果为 C
Dim x As Integer
If x Then Print x Else Print x-1
A. 1
B. 0
C. -1
D.
不确定
以上题中的“条件”主要是变量。
2、选择结构语句（Select Case语句）：
Select Case 测试表达式
Case 表达式列表1
语句块1
Case 表达式列表2
语句块2
。。。。。。
Case Else
语句块n
End Select
注意：测试表达式的类型只能是数值数据或字符型，表达式列表的值
只要第一个符合测试表达式值的要求，就结束Select Case语句；表达式列表
可以是三种结构或三种混合结构：①、1 To 10 ②、1,3,5,6,7,8 ③、Is>10
④、1,2,,5,7,Is>10
例题：
（1）在窗体上画一个名称为Command1的命令按钮和两个名称分别
为Text1和Text2的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
n=Text1.text
Select Case n
Case 1 T 10
X=10
Case 2,4,6
X=20
Case Is<10
X=30
Case 10
X=10
End Select
Text2.text=x
End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按
钮，则在Text2中显示的内容是 A
A. 10
B. 20
C. 30
D.40
3、选择结构语句（IIF 函数）：
变量=IIF(条件，参数1，参数2)
其中，条件可以是：关系表达式(a>5)、逻辑表达式(a>5 And
c>4)、变量(i)或常数(0)。执行过程：条件成立，变量的值就是“参数1”，否
则变量的值就是“参数2”。
例题：
（1） 设a=6,则执行语句：x=IIF(a>5,-1,0)后，x 的值为 D
A. 5
B. 6
C. 0
D. -1
知识点8：
1、循环结构
① For 循环变量=初值 To 终值 Step 步长
循环体
If 条件 Then
语句
Exit For
End If
Next 循环变量
注意：循环如果正常退出时(没有执行Exit For 语句)，那么循
环变量必须要大于终值或等于终值+步长。
② Do While 条件 循环体 Loop
下两种循环是不管条件成立与否都至少执行一次；While 循环是条件成立执行循
环体，Until 循环是条件不成立执行循环体。
Do
循环体
Loop While 条件
例题：
（1）下列程序段的执行结果为 B
s=0:t=0:u=0
Print s;t;u
A. 3 6 14
B. 14 6 3
C. 14 3 6
D. 16 4 3
分析：
A组语句和B语句都在X循环内，并且是并列的，所以可以先计算B组语句，A组语句暂时不算，这样很容易求出u=u+1语句循环了三次，则
u=3；C组语句和D语句都在Y循环内，并且是并列的，所以可以先计算D组语句，C组语句暂时不算，这样也比较容易求出t=t+1语句循环了六次，则t=6；然后再结合答案很快就能得出答案是选B。
知识点9：
1、数组：
①数组的概念
★等级考试主要考一维数组、二维数组和三维数组(三维的只需知道数组中可以存储多少数据即可)。数组的格式：a(2,3 To 7,-1 To 2)，那它的存储空间大小计算：每一维用上界-下界+1计算，例如(2-0+1)*(7-3+1)*(2-(-1)+1)=3*5*4=60。
★数组的下标下界是根据语句Option Base n来决定：当n=0时，数组下标下界是从0开始；当n=1时，数组下标下界是从1开始。
★数组分为：
固定大小数组: Dim a(10) As Integer
动态大小数组: Dim a() As Integer Redim a(10)
★ Array函数用法：为一个变体型变量创建一个数组。
Dim a as Variant
a=Array(1,2,3,4,5)
因此：a(0)=1 a(1)=2 a(2)=3 a(3)=4 a(4)=5
★注意：如果数组被定义为一下三种类型，(1) 数值型 (2) 字符型 (3)逻辑型，则它们初始化的数组元素数值分别为：0 、空字符串和False 。
例题：
（1）在窗体上画一个命令按钮（其Name属性为Command1）,然后编写如下代码：
Private Sub Command1_Click()
Dim a(4,4) As Integer For i=1 To 4 For j=1 To 4
a(i,j)=(i-1)*3+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print a(j,i)
Next j
Next i End Sub
程序运行后，单击命令按钮，其输出结果为 D 。
A. 6 9
B. 7 10
C. 8 11
D.
9 12
7 10
8 11 9 12 10 13
分析：
对循环和数组结合的问题，往往要先看B 组语句输出结果
是什么，然后根据B
B
代入A
知识点10：
1、过程与函数：
★ 过程与函数的参数类型有：实参和形参；传递方式有：值传递
和地址传递。
★ 以下程序中，x,y 为实参；a,b 为形参
注意：实参要与形参的类型、个数要相同。
★ 在形参a,b 之前如果加上关键字ByVal ，那么就是值传递；如
果加上关键字ByRef 或不加关键字，那么就是地址传递。
★ 过程调用方式有两种：Call Swap(x,y)或Swap x,y (Swap 是
过程名)
注意：只有地址传递方式才能实现交换功能，值传递方式x,y的值不变。当有事件过程和通用过程一起运行时，先执行事件过程(Command_Click)。
例题：
（1）假定有如下的Sub过程：
Sub S(x As Single, ByVal y as Single)
t=x
x=t/y
y=t Mod y
End Sub
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As Single, b As Single
a=5:b=4
S a,b
Print a,b
End Sub
程序运行后，单击命令按钮，输出结果为_____C_____。
A. 5 4
B. 1 1
C. 1.25 4
D. 1.25 1
程序分析：
首先形参x是地址传递方式，当a传递给x时，因此a与x
拥有一个共同存储空间，图形表示：；形参y是值传递方式，当b 传递给y时，因此b与y是两个不同存储空间，图形表示：
；那么在过程S中：运算x=t/y后，x=1.25，图形
表示；因此a的值就是 1.25；运算y=t Mod y后，y=1，图形表
示:，因为此时b和y存储空间不同，则不影响b的值，则还是4,因此Print a,b的结果就是选择C答案。
知识点11：
1、菜单和鼠标事件
★菜单编辑器的使用：
注意：菜单中的标题可以为空，但不论是第几级菜单名称必须唯一，且不能为空。
★鼠标事件（按下鼠标键事件过程）
主要事件有：Form_MouseDown 、Form_MouseUp 和Form_MouseMove。现在以某个为例说明：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
…
End Sub
上述事件过程不仅使用在窗体上(Form_MouseDown),还可以使用于大多数控件上，包括命令按钮(Command1_MouseDown)或文本框(Text1_MouseDown)等。
以上鼠标事件过程的参数，含义如下：
（1）Button 有值1、2和4，分别表示按下左键、右键和中建；
（2）Shift 表示Shift、Ctrl和Alt键的状态，其值分别是1、2和4；
（3）X，Y 表示鼠标光标的坐标位置
★弹出式菜单（菜单和鼠标事件的结合使用）
Private Sub Form_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
If Button=1 Then ‘按下鼠标左键
PopUpmenu File‘通过PopUpmenu方法弹出菜单
End If ‘File是一级菜单的名称
End Sub
运行效果：
2、公共对话框(又称通用对话框)
★通用对话框是我们考试中唯一一个控件箱中没有的控件，需要我们自己添加的，添加的方法是在“工程”菜单的“部件”项中选择“Microsoft
Common Dialog Control 6.0”后，才会在控件箱中出现通用对话框图标。
★通用对话框图形
根据以上图形，相应的程序代码如下：
注意：CommonDialog.FilterIndex = 索引（索引是从1开始）
知识点12：
1、文件
文件包括三种：顺序文件、随机文件和二进制文件
①顺序访问：文件中数据是以ASCII码存储的。
②随机访问：文件长度记录是固定不变的，数据类型可以不同，
数据以二进制方式存储在文件中，可以任意时候，任意地方访
问。
③二进制访问：必须知道数据是如何写入文件的。
★如果源文件是字符类型，那么读写文件如下所示：
读文件的格式：
Open App.Path & "\文件名(In.txt)" For Input As #文件号(#1) Do while Not Eof(文件号)
Input #文件号,变量
…
Loop
Close #文件号
写文件格式：
Open App.Path & "\文件名(Out.txt)" For Output(Append) As #文件号(#1)
Print #文件号,变量
Close #文件号
注意：当写文件以Output方式时，原来的文件内容将被覆盖；当写文件以Append方式时，新的文件内容将被添加到文件尾部；
★如果源文件是数值类型，那么读写文件如下所示：
Dim a(10) As Integer
Open App.Path & "\文件名(In.txt)" For Input As #文件号(#1)
For i=1 To 10
Input #文件号,a(i)
…
Next i
Close #文件号
写文件格式：
Open App.Path & "\文件名(Out.txt)" For Output(Append) As #文件号(#1)
For i=1 To 10
Print #文件号,a(i)
Next i
Close #文件号
例题：
（1）在考生文件夹下有文件in5.txt，文件中有字符串“0&1%$s#2&3!45u6ydf7ff@8|{9er”。请在Forml的窗体上画一个文本框，名称为Text1，能显示多行；在画一个命令按钮，名称为Cl，标题为“存盘”。编写适当的事件过程，使得在加载窗体时，把in5.txt文件的内容中数字字符显示在文本框里。然后单击“存盘”按钮，把文本框中的内容存到文件out5.txt中。如图所示：
根据题目要求，所编写程序如下：
（2）在考生文件下有文件in.txt，文件有10个数据：123 521 362 821 400 300 710 990 120 500. 请在Forml的窗体上画一个文本框，名称为Text1，能显示多行；在画一个命令按钮，名称为Cl，标题为“存盘”。编写适当的事件过程，使得在加载窗体时，把in5.txt文件的内容显示在文本框里，然后统计10 个数的最大数、最小数和它们的和，并把最大数、最小数和它们的和写到“out.txt”文件中。如图所示：
根据题目要求，所编写程序如下：
Visual Basic程序设计基础知识要点（程序设计篇）全国计算机等级考试中常用的程序编程部分：
一、求最大数、最小数、求和以及求平均数
二、求阶层
三、求最大公约数
四、求素数
五、求水仙花数（拆数法）
六、排序（选择排序、直接插入排序和冒泡排序）
七、字符操作
1、字符串取反（反向输出字符串）
2、判断字符串中的某个字符是否为字母
3、统计每类字符的个数
八、矩阵求法（二维数组）
九、文件读写操作
1、字符型读写操作
2、数值型读写操作
九大问题具体例子分析：
一、求最大数、最小数、求和以及求平均数
例题：随机产生10个两位整数，并存入数据a中，然后分别求10个元素中的最大数、最小数、求10个元素之和以及它们的平均数。
Private Sub Command1_Click()
Dim a(10) As Integer, i As Integer, Max As Integer, Min As Integer
Dim Sum as Integer, Avg As Single
Sum=0
For i= 1 To 10
a(i)=Int(Rnd*90)+10 ’产生10—99之间的随机整数
Next i
Max=a(1):Min=a(1) ’假设最大数和最小数
For i= 1 To 10
If Max Max=a(i) End If If Min>a(i) Then ’求最小数 Min=a(i) End if Sum=Sum+a(i) ’求和 Next i Avg=Sum/10 ’求平均数 Print “最大数：”;Max;“最小数：”;Min;“和：”;Sum;“平均数：”;Avg End Sub 二、求阶层 例题：求10！. Private Sub Command1_Click() Dim Sum As Long, i As Integer Sum=1 For i= 1 To 10 Sum=Sum*i Next i Print “10!=”;Sum End Sub 三、求最大公约数 例题：求M和N两个数的最大公约数。 Private Sub Command1_Click() Dim M As Integer, N As Integer, R As Integer M=36:N=24 Do R=M Mod N M=N N=R Loop While R<>0 ’或 Loop Until R=0 Print “M和N的最大公约数为：”；M End Sub 四、求素数 例题：求100—200之间的所有素数,并按每行5个元素格式输入所有素数。 Private Sub Command1_Click() Dim n As Integer ,i As Integer j As Integer For n = 100 To 200 For i = 2 To n-1 ’n-1可以是n/2,也可以是 Sqr(n)形式If n Mod i =0 Then Exit For Next i If i>n-1 Then j=j+1 ’统计素数个数 Print n; If j Mod 5 =0 Then Print ’输出5个数换行 End If Next n End Sub 五、求水仙花数（拆数法） 例题：求100—999之间的所有水仙花数，并将所有水仙花数在文本框中显示。所谓水仙花数：即153=1^3+5^3+3^3条件成立。 方法1：（数值型：使用运算符Mod 和 \） Private Sub Command1_Click() Dim i As Integer ,a As Integer ,b As Integer ,c As Integer For i = 100 To 999 a=i\100’取百位数 b=i\10 Mod 10 ’取十位数 c=i Mod 10 ’取个位数 If i=a^3+b^3+c^3 Then Text1.Text=Text1.Text & i & Space(2) End If Next i End Sub 方法2：（字符型：使用函数Mid、Val和CStr） Private Sub Command1_Click() Dim i As Integer ,a As Integer ,b As Integer ,c As Integer For i = 100 To 999 a= Val(Mid(Cstr(i),1,1))’取百位数 b= Val(Mid(Cstr(i),2,1))’取十位数 c= Val(Mid(Cstr(i),3,1))’取个位数 If i=a^3+b^3+c^3 Then Text1.Text=Text1.Text & i & Space(2) End If Next i End Sub 六、排序问题 例题：随机产生10个两位整数，并存入数据a中，然后将这10个元素从小到大排序（或从大到小）,并将排序号的数组显示在文本框中。 方法1：选择排序 Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, j As Integer ,temp As Integer For i= 1 To 10 a(i)=Int(Rnd*90)+10 ’产生10—99之间的随机整数 Next i For i= 1 To 9 ’比较n-1轮 For j = i+1 To 10 ’每一轮比较几次 If a(i)>a(j) Then ’从大到小：a(i) temp=a(i) a(i)=a(j) a(j)=temp End If Next j Next i For i =1 To 10 Text1.Text=Text1.Text & a(i) & space(2) Next i End Sub 方法2：直接插入排序 Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, j As Integer ,temp 《VB程序设计》综合复习资料习题 《VB程序设计》综合复习资料 第一章Visual Basic程序设计概述 一、填空题 1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。 4、Visual Basic 6.0用于开发__________环境下的应用程序。 二、选择题 1、下面不是VB工作模式的是（） A．设计模式B．运行模式C．汇编模式D．中断模式 2、可视化编程的最大优点是（） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（） A．可视化B．面向对象C．面向图形D．事件驱动 三、简答题 1、代码窗口主要包括哪几部分？ 第 2 页共 32 页 2、在工程资源管理器窗口中，主要列出了哪三类文件？ 3、窗体布局窗口的主要用途是什么？ 4、VB的基本特点是什么？ 5、怎样理解可视化设计？ 6、怎要理解事件驱动编程？ 第二章简单的VB程序设计 一、填空题 1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。 2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。 7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。 9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。 二、选择题 1、以下能够触发文本框Change事件的操作是（） A．文本框失去焦点B．文本框获得焦点 C．设置文本框的焦点D．改变文本框的内容 2、应用程序设计完成后，应将程序保存，保存的过程是（） A．只保存窗体文件即可 B．只保存工程文件即可 第 3 页共 32 页 《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。 第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C ) 优质文档VB程序设计考试题库——考试专用 1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数”或"零"。 2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 3、题目：单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。 4、题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。 5、题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中 6、题目：单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中 7、题目：(事件)单击窗体。(响应)生成一个一维数组(10个数组元素依此为： ' 15、23、72、43、96、23、3、65、88、17 写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中 8、题目：(事件)单击窗体。(响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。 9、题目：(事件)单击窗体。(响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中。 10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。将结果存入变量J中。 1题 n = InputBox("输入一个自然数") If n > 0 Then result = "正数" ElseIf n < 0 Then result = "负数" ElseIf n = 0 Then result = "零" End If MsgBox "输入的数据" & n & "为：" & result 2题 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum 3题 Dim i As Integer V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 …… VB程序设计试题及答案（一） 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 … … Next x Next x 第4章VBScript基础知识 习题4 1. 选择题（可多选） （1）下列哪一个变量名称是正确的？B A. 1_ab B. ab_1 C. _ab D. ab? （2）在一段程序中a是一个变量，那么"a"是：B A. 变量 B. 直接常量 C. 字面常量 D. 符号常量 （3）下面哪条语句可以正确执行？（注：第四句我的主页两边是中文引号）C A. Response.Write " 《VB程序设计》模拟试题 ●填空题 1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、 类模块文件的扩展名为______CLS_______ 。 2.Visual Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类，前者根据其取值的不同，可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________。 3. Abs(-6.5)= _____6.5______；Int(-9.1)= ____-10_______。 4. "程序"& "设计"运算结果为 ___程序设计____ 。 5. Dim a, b as Boolean语句显式声明变量a是___变体___变量，b是___布尔__变量。 6. MsgBox函数的返回值中， VBRetry表示单击了____重试_____按钮，VBYes表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。 7. 要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。 8.对话框分为_________对话框和________对话框两种类型，其中_____________ 对话框最 常用。 9. 对象是Visual Basic应用程序的基本单元，它是由 ___类___创建的。在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。 10. 条件判断语句可以使用___If…then____________语句、 ____If…Then…Else______语句和 ______If…Then…ElseIf______语句。Select case 语句 11. 声明一个值为3.14的常量Pi的语句为___Const pi = 3.14______。 12. Do…Loop Until 循环结构中，当条件为____真____时结束循环。 13. 要显示弹出菜单，可以在代码中使用_____________事件。 14. 参数传递有__________方式、__________方式和命名传递方式，常量默认采用__________方式；变量默认采用__________方式；表达式默认采用__________方式。 15. 名称属性必须以一个__字母标点_开始并且最长可达40个字符,不能包括__符号___ 和 ___空格___。 16.Visual Basic的程序模块有3种：____窗体模块____ 、标准模块和 ____类模块____。 17.Visual Basic程序，按其语句代码执行的先后顺序，可以分为___顺序__结构、选择__结构和___循环____ 结构。 18.数组元素下标的下界默认为是_____________，如果要改变其默认值，应使用_____________。 ●判断题 （）1. Visual Basic运行程序的方法只有编译模式。 （）2. 语句Command1.visible=false 与Command1.enabled=false 是等价的。 （）3. InputBox函数和MsgBox函数一样，返回的是字符串。 （）4. 通过类模块，我们不可以根据需要建立自己的控件。 （×）5. 2.1E+5是合法的Visual Basic数据。 （）6. 根据占用内存方式的不同，可将数组分为常规数组和动态数组两种类型。 （√）7. x2是合法的变量名。 （）8. 按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。 一、单选题（共15小题，每小题2分，共30分） 1.以下叙述中，错误的是（B ）。 A) 在Visual Basic中，对象所能响应的事件是由系统定义的 B) 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定 C) Visual Basic中允许不同对象使用相同名称的方法 D) Visual Basic中的对象具有自己的属性和方法 2.下列叙述中，错误的是（C ）。 A、VB是可视化程序设计语言 B、VB采用事件驱动编程机制 C、VB是面向过程(对象)的程序设计语言 D、VB应用程序可以以编译方式执行 3.下列（A ）是合法的变量名。 A、x_y （合法变量名以字母或下划线头） B、x-y C、2x D、and 4.选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（C ）。 A、T>=1.7 And W<=62.5 B、T<=1.7 Or W>=62.5 C、T>1.7 And W<62.5 D、T>=1.7 Or W<62.5 5.设a=”Visual Basic”，下面使b=”Basic”的语句是（B ） A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a， 8,5) 取字符串a第8个字符开始的5个 6.如果x小于y的平方，则在窗体上输出“OK”。完成该要求的单行条件语句是（C ）。 A、If x < y ^ 2 Then "OK" B、If x < y ^ 2 Then Show "OK" C、If x < y ^ 2 Then Print "OK" D、f x < y ^ 2 Then Put "OK" 7.要使循环体至少执行一次，应使用（D ）循环。 A、For …Next B、While …Wend C、Do …Loop[While/Until] D、Do[While/Until] …Loop（先做在判断， 所以会执行一次的） 8.下面程序段求两个数中的大数，不正确的语句是（D ）。 A、Max=Iif(x>y,x,y) B、if x>y Then Max=x Else Max=y C、Max=x D、if y>=x Then Max=y（Else） If y>=x Then Max=y Max=x 9.以下条件语句错误的是（ A ）。 A、If X Then Y = Y + 1 B、If X = 0 Then Y = 0 C、If X > 0 Then Y = 1: Print Y D、If X > Y Then Print Y End If 10.若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中 设置（D ）。 A、Text属性值为* B、Caption属性值为* 程序设计 第一题、 题目：（事件）单击窗体 （响应）求 50 以内所有偶数的和，并在窗体上输出来。 将结果存入变量 S 中。 代码： Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Next Print (CStr(s)) 第二题 题目：（事件）双击窗体 （响应）求 s=1+1*2+1*2*3+ ?.+1*2*3* ?.*10 并将结果存入变量S 中代码： Dim i,j As Integer Dim k As Long k=1 s=0 For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 Next Print(CStr(s)) 第三题 题目：（事件）单击窗体 （响应）求 100 以内偶数的和，并将结果输出在窗体上。 将结果存入变量 SUM中 代码： Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum 第四题 题目：（事件）单击窗体 （响应）编写程序求10*11*12+11*12*13+ ? .+15*16*17 的结果 并将结果输出到窗体上。将结果存入变量M中。 代码： Dim i,j As Integer Dim s As Long For i =10 To 15 s=1 For j = i To i +2 s=s*j Next m=m+s Next Print (CStr(m)) 第五题 题目：（事件）双击窗体 （响应）求 100 以内奇数的和，并将结果输出在窗体上。 将结果存入变量 SUM中。 代码： Dim i As Integer For i=1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum 第六题 3.1交换变量a1、a2的值，P35 Private Sub Form_Click() Dim a1 As Integer, a2 As Integer, t As Integer a1 = 5: a2 = 10 Form1.Print "交换"; a1; a2 t = a1: a1 = a2: a2 = t Form1.Print "得:"; a1; a2 End Sub Private Sub Form_Load() Form1.AutoRedraw = True Form1.Print "交换两个数" Form1.Print "单击窗体开始" End Sub 3.2 Tab 函数，P35 Private Sub Form_Click() Form1.Print Tab(10); "*********" Form1.Print Tab(11); "*******" Form1.Print Tab(12); "*****" Form1.Print Tab(13); "***" Form1.Print Tab(14); "*" End Sub Private Sub Form_Load() Form1.AutoRedraw = True Form1.Print "显示星号三角形，单击窗体开始" End Sub 3.5 Move 方法在指定位置显示窗体，文本框和图，P45 Private Sub Form_Load() Picture1.AutoRedraw = True Move 3000, 2000, 2800, 2800 Text1.Move 300, 200, 2000, 500 Picture1.Move 300, 1000, 1600, 1200 Text1.Text = "文本框" Picture1.Print "图片框" End Sub 图3.13 显示和隐藏，P46 Private Sub Form_Click() Form1.Hide Form2.Show End Sub Private Sub Form_Load() 《V i s u a l B a s i c程序设计》期末复习题 一、单项选择题 1．Visual Basic是一种面向对象的可视化编程语言，采取了（）的编程机制。 A．按过程顺序执行B．从主程序开始执行 C．事件驱动D．按模块顺序执行 2．与传统的设计语言相比，Visual Basic最突出的特点是（） A．程序开发环境B．结构化程序设计 C．程序调试技术D．事件驱动的编程机制 3．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（）。 A．缺少.frm窗体文件B．该可执行文件有病毒 C．运行的机器上无VB系统D．以上原因都不对 4. Visual 集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。 A．设计模式B．编写代码模式 C．执行模式D．中断模式 5．后缀为.bas的文件表示（）。 A．工程文件 B．窗体文件 C．窗体二进制数据文件 D．标准类模块文件 6．工程文件的扩展名是（）。 A．.vbp B．.frm C．.bas D．.frx 7．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。 A．时钟控件B．图像框C．框架D．通用对话框 8.以下叙述中错误的是（）。 A．一个工程中可以包含多个窗体文件 B．在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件 C．在一个窗体文件中用Private定义的通用过程能被其它窗体调用 D．全局变量必须在标准模块中定义 9．要在窗体Form1内显示“欢迎您！”，使用的语句是（） A．="欢迎您!" B．="欢迎您!" C．Form. print "欢迎您!" D． "欢迎您!" 10．决定标签内显示内容的属性是（） A．Name B．Text C．Caption D．Alignment 11．要设置命令按钮的背景图形，必须设置的两个属性是（） A．Caption和Picture B．Style和Picture C．Style和Icon D．Value和Icon 12．将数据项“China”添加到列表框List1中成为第一项，应使用的语句是（）A．"China" B．"1,China" C．"China",0 D．"China",1 13．在VB中，下列各项合法的变量名是（）。 A．Integer B．ab-c C．2abc D． a_bc 14．在VB中，下列合法的变量名是（） 月考上机试题 一．选择题：(10*2) 1由单精度浮点型的数据组成的字节数是 A.2 B.4 C.8 D.16 2.可以同时删除字符串前导和尾部空白的函数是 A．Ltrim B．Rtrim C．Trim D．Mid 3.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 A.工程资源管理器窗口 B.工具箱窗口 C.代码窗口 D.属性窗口 4.在窗体上添加如下命令按钮，然后编写如下事件过程：C Private Sub Command1 _ Click() Dim a(10)As Integer Dim p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 该过程的运行结果为: A.35 B.33 C.31 D.29 5.VB表达式Cos(0)+Abs(1)+Int(Rnd(1))的值是 A.1 B. -1 C. 0 D. 2 6.若m，x，y，均为Integer型变量，则执行下面语句后m值是m=1：X=2：Y=3 m=IIf(X＞Y，X+Y，X-Y) A.-1 B.0 C.1 D. 2 7.设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) 8.以下不能运行工程的操作是 A..执行"运行"菜单中的"启动"命令 B.单击工具栏中的"启动"命令 D.按下F5键 C.按下Ctrl+F5键 9.下列关于面向对象程序设计的叙述不正确的是 A.对象具有属性、方法等特性 B.对象之间的通信产生了消息 C.一个对象是一个软件构造块，它包含数据与相关的操作 D.对象的属性不能被改变 10.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1 _ Click（） Static X As Integer Static Y As Integer Cls Y=l Y=Y+5 X=5+X Print X，Y End Sub 程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为: A.15 16 B.15 6 C.15 15 D.5 6 二．填空题（3*4） 1.计算1*2*3*...*3000，当积大于3000时停止计算。请在_______处将程序补充完整。 Private Sub FormClick() Dim t As Single,j As Integer J=1 For j=1 To 3000 ____t=t*j______________ If t＞3000 Then Exit For Next j Debug.Print j,t End Sub 2.下面程序运行后，输出的结果是_BBBB______。 For J= 1 To 10 A(J)=2*J B(J)=A(J)*2 Next J Print B(J/2+0.1) End 3.设有如下程序：程序运行后，单击窗体，则在窗体上显示的是6 5 4 3，请在_______处将程序补充完整。 Option Base 0 Private Sub Form _ Click（） Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i) Next i End Sub 三．编程题：（34*2） 1. 用随机函数产生10个不大于100的整数存入一维数组a中，并找出这组数中能被3整除余2的数赋值于数组b。点击开始按钮在窗体中显示数组a和数组b。 2018-2019 第二学期计算机专业 每个窗体的二 《 VB 程序设计》试题（ A 卷） 进制数据文件，（共 10道 20分） 一、选择题 控件的属性值 等 1、一个工程必须包含的文件的类型是（） A）*.vbp *.frm *.frx B）*.vbp *.cls *.bas C） *.bas *.ocx */res D）*.frm *.cls *.bas 2、以下关于 VB 数据类型的说法，不恰当的是（） A）VB 6.0提供的数据类型主要有字符串型和数值型，此外还有班级：字节、货币、对象、日期、布尔和变体数据类型等 B）目前 Decimal 数据类型只能在变体类型中使用 C）用户不能定义自己的数据类型 D）布尔型数据只能取两种值，用两个字节存储 姓名： 3、以下各项，可以作为 VB 变量名的是（） A） Book B）2_Seek C）123.58D）Book-1 学号：4、函数 Int(Rnd(0)*10) 是在 ()范围内的整数。 A）(0,1)B）(1,10)C）(0,9)D）(1,9) 5、要将名为 MyForm 的窗体显示出来，正确的使用方法是（） A） MyForm.Show B）Show.MyForm C） MyForm .Load D）MyForm .Show 6、输入代码时， VB 可以自动检测 ()错误。 A）语法错误B）编译错误C）运行错误D）逻辑错误 7、单击窗体上的关闭按钮时，触发的事件是（） A ）Form_Initialize()B）Form_Load() C）Form_Unload()D）Form_Click() 8、.用于将窗体上的对象分组的控件是（） A ）列表框B）组合框C）标签D）框架 9、下面语句正确的是（） A ） If x<3*y And x>y Then y=x^3 B） If x<3*y And x>y Then y=3x C）If x<3*y : x>y Then y=x^3D）If x<3*y : x>y Then y=x**3 10、 1.下列程序段的执行结果为 a=5 For k=1To 3 a=a + k Next k Print k； a A）-1 6B）-1 16C）411D）1121 二、程序设计（共4道题 80分） 1、利用TextBox、Label、Commandbutton控件编写如下功能和如 下用户界面的 VB 程序《VB程序设计》综合复习资料习题
VB程序的设计_试题与答案_1
vb程序设计试题(含答案)
VB程序设计考试题库 优质文档
VB程序设计试题及答案一
VB程序设计试题及答案(一)
VB程序设计基础
我的主页
" B. Response.Write "我的主页
" C. Response.Write "我的主页
" D. Response.Write "“我的主页”
" （4）执行语句a="6"后，变量a的数据子类型是?A A. 字符串 B. 日期 C. 数值 D. 布尔 （5）执行语句a="2008-8-8"后，变量a的数据子类型是?A A. 字符串 B. 日期 C. 数值 D. 布尔 （6）假设变量a=5、b=3，则执行语句c="a>b"后，变量c的数据子类型是?A A. 字符串 B. 日期 C. 数值 D. 布尔 （7）语句a="abc"="abc"运行完毕后，变量a的数据子类型是?C A. 数值 B. 字符串 C. 布尔 D. 日期 （8）执行语句a=3: a=a+5后，变量a的值是： A. 3 B. 5 C. 8 D. 出错 （9）已知x=123，那么执行语句y=x \10 Mod 10后，变量y的值是? A. 0 B. 1 C. 2 D. 3 （10）已知a= "ab"，那么执行语句b="cd'" & a & " " & "ef"后，变量b的值是? （提示：请注意题目和答案中的空格） A. "cd'ab ef" B. "cd'abef" C. "cdabef" D. "cdab ef" （11）下面的语句执行完毕后，变量a、b、c、d的值分别是? <% a="1"+"1": b="1"+1: c="1" & "1": d="1" & 1 %> A. "11"、"11"、"11"、"11" B. "11"、2、"11"、"11" C. 2、2、"11"、"11" D. "11"、"11"、2、2 （12）请问表达式Not(6+3<5+2)的值是？ A. True B. False C. 9 D. 无法计算 （13）请问Int(3.45)和Int(-3.45)的值分别是什么？ A. 4、-4 B. 3、-4 C. 3、3 D. 3、-3 （14）执行语句a=Int(10 * Rnd())后，则a的值不可能出现的有? A. 0 B. 1 C. 10 D. 11 （15）在取整时按四舍五入进行的函数是？ A. Int B. Fix C. Round D. CInt （16）请问Mid("八千里路云和月",3,2)的返回值是什么？ A. "千里" B. "里路" C. "里" D. "路云" （17）执行语句a=InStr(Trim(Replace(" abcdef ","c","")),"ef")后，变量a的值是? A. 0 B. 1 C. 4 D. 5 （18）函数DateDiff("m",#2008-8-8#,#2008-10-1#)的返回值是? A. 1 B. 2 C. 54 D. 5《VB程序设计基础》模拟精彩试题
一VB程序设计基础练习题库
VB程序设计题库(全)
VB程序设计基础例题
VB程序设计期末复习题
VB程序设计考试试题及答案
《VB程序设计基础》习题答案
《VB程序设计》试题及答案