VB程序
VB基本常识
选择题：
1）、与传统的程序设计语言相比，VB最突出的特点是
A 结构化程序设计
B 程序开发环境
C 事件驱动编程机制
D 程序调试技术
2）、下列不能打开“属性窗口”的操作是
A 执行“视图”菜单中的“属性窗口”命令
B 按F4键
C 单击工具栏上的“属性窗口”按钮
D 按“ctrl+T”组合键
E 在窗体设计器中，右击某一对象，在出现的快捷菜单中单击“属性窗口”菜单项
3）、在VB的集成环境中，下列“保存工程”菜单命令的热键是
A Alt+E
B Ctrl+S
C Alt+O
D Ctrl+O
说明：打开工程：Ctrl+O 新建工程：Ctrl+N 运行程序：F5 单步调试：F8
4）、以下可以产生工程组文件（.vbg）的情况为
A 当一个程序包含两个以上工程时
B 当一个程序包含两个以上窗体时
C 当一个程序包含两个以上类模块时
D 当一个程序包含两个以上程序模块时
说明：当一个程序包含两个以上工程时，构成一个工程组，工程组文件的扩展名是.vbg，其中g表示group的含义。
5）、以下不属于VB系统的文件类型是
A .frm
B .bat
C .vbg
D .vbp
说明：frm是窗体文件的扩展名；vbg是工程组文件的扩展名；vbp是工程文件的扩展名；
6）、在刚刚建立一个新的标准EXE工程后，不会在工具箱中出现的控件是
A 单选按钮
B 图片框
C 通用对话框
D 文本框
7）、确定一个控件在窗体上的位置的属性是
A Width和Height
B Width和Height
C Top或Left
D Top和Left
说明：Width和Height确定了控件的窗体上的大小。
8）、以下叙述正确的是
A 窗体的Name属性指定窗体的名称，用来标识一个窗体
B 窗体的Name属性的值是显示在窗体标题栏中的文本
C 可以在运行期间改变对象的Name属性的值
D 对象的Name属性值可以为空------错，应该是不能为空，不能再运行时修改只能在程序设计期间设置，窗体的Caption属性的值是显示在窗体标题栏中的文本
9）、以下关于窗体的描述中，错误的是
A 执行Unload Form1语句后，窗体Form1消失，但仍在内存中
B 窗体的Load事件在加载窗体时发生----改窗体的Load事件用来在启动程序时对对象属性和变量进行初始化，程序运行时，将自动触发窗体的Load事件
C 当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止------- 改当窗体的Enabled属性为False时，该窗体上所有控件，甚至包括窗体本身的操作都被禁止
D 窗体的Height、Width属性用于设置窗体的高和宽----改是高度和宽度
10）、以下叙述中错误的是
A 双击鼠标可以触发Dblclick事件
B 窗体或控件的事件的名称可以由编程人员确定
C 移动鼠标时，会触发MouseMove事件
D 控件的名称可以由编程人员设定
11）、程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是
A MouseUp
B MouseDown
C Load
D Click
12）、以下属于在程序运行阶段设置属性值的方法有
A 直接输入新属性的值
B 选择输入，即通过下拉列表选择所需要的属性值
C 使用代码直接改变某个属性的值---只能在程序运行阶段起作用
D 利用对话框设置属性值
13）、要使Form1窗体的标题栏上显示‖Hello!‖，以下语句正确的是
A Form1.Caption=’Hello’
B Form1.Caption=‖Hello!‖
C Form1.Caption=Hello!
D Form1-Caption=‖Hello!‖
14）、在某窗体中，有一按钮控件，其“Caption”属性的内容为“NEW”，其‖Name‖属性内容为‖Create‖，则单击该（Click）按钮产生的事件过程应是
A Private Sub MnuNEW_Click()
B Private Sub Create_Click()
C Private Sub NEW_Click()
D Sub Mnu_Create_Click()
15）、有下列程序代码：Labell.Caption=‖等级考试‖，其中的Labell.Caption和“等级考试”分别代表
A 对象、值、属性
B 对象、方法、属性
C 对象、属性、值
D 属性、对象、值16）、如果希望一个窗体在显示得时候没有边框，应该如何设置属性
A 将窗体的标题Caption设置成空字符
B 将窗体的Enable属性设置成False
C 将窗体的BorderStyle设置成0
D 将窗体的ControlBox设置成False
三、填空题
1、VB工具栏的右侧有两个栏，分别用来显示窗体的当前位置和大小，其单位为twip，1英寸等于1440 twip。
2、VB工程文件的扩展名是.vbp，窗体的文件扩展名是.frm
3、通过窗体布局窗口可以在设计时直观的调整窗体在屏幕上的位置。
4、为了选择多个控件，可以按住Shift键，然后单击每个控件。
5、面向对象系统的三要素分别是属性、方法和事件。
6、在VB中，要将一个窗体隐藏到内存中，应使用的语句hide。
说明：Load是将窗体加载到内存做预处理而不显示；Show是将内存中的窗体进行显示；Hide是将正在显示的窗体隐藏到内存中；Unload是将窗体彻底从内存中卸载掉。
7、属性窗口主要是针对窗体和控件设置的，在VB中，窗体和控件被称为对象。
8、创建第一个按钮控件对象时，系统自动为其Name属性分配一个名字，该名字为Command1。
VB程序设计基础
一、选择题
1）、为了装入一个VB应用程序，下列说法正确的是
A 只装入窗体文件
B 分别装入工程文件和标准模块文件
C 只装入工程文件
D 分别装入工程文件，窗体文件和标准模块文件
说明：VB应用程序有四类文件：工程文件，窗体文件、类模块文件和标准模块文件，只要装入工程文件，其他文件就自动装入。
2）、为了保存一个VB应用程序，下列说法正确的是
A 只保存窗体文件
B 只保存工程文件
C 分别保存工程文件、窗体文件和标准模块文件
D 分别保存工程文件和标准模块文件
3）、在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要拆行书写，可以在行末使用续行字符，表示下一行是当前行的继续，续行符是
A 一个空格加一个下划字符
B 一个下划字符
C 直接回车
D 一个空格加一个连字符
4）、下列可以作为VB变量名的是
A 4*Delta
B Alpha
C 4ABC
D AB∏
5）、设a=2，b=3，c=4，d=5，下列表达式a>b And c<=d Or 2*a>c的值是
A True
B False
C -1
D 1
6）、假设有下列记录类型：
Type Student
Number As String
Name As String
Age As Integer
End Type
则正确引用该记录类型变量的代码是
A https://www.wendangku.net/doc/b618351002.html,=‖‖
B Dim s as Student
https://www.wendangku.net/doc/b618351002.html,=‖张红‖https://www.wendangku.net/doc/b618351002.html,=‖张红‖
C Dim s as Type Student
D Dim s as Type
https://www.wendangku.net/doc/b618351002.html,=‖张红‖https://www.wendangku.net/doc/b618351002.html,=‖张红‖
7）、只能在标准模块中声明，不能再过程或窗体模块中能够声明的变量是
A 私有变量
B 全局变量
C 局部变量
D 窗体变量
说明：标准模块也称全局模块或总模块，可以砸全局变量声明，模块级变量声明和通用过程，函数等几部分组成。其中全局变量声明放在标准模块的首部，过程和函数则可以随便排列，显然，为了使变量可以在整个应用程序内均起作用，必须将其定义在标准模块中，而不能放在过程和窗体模块中。
8）、下列叙述正确的是
A 在窗体的Form_Load事件过程中定义的变量是全局变量
B 局部变量的作用域可以超出所定义的过程
C 在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程
D 在调用过程时，所有局部变量被系统初始化为0或空字符串
9）、在窗体上画一个名称为Command1命令按钮和3个名称分别为Labe1、Labe2、Labe3的标签，然后编写如下代码
Private x As Integer
Private Sub Command1_Click()
Static y As Integer
Dim z As Integer
N=10; z=n+z
Y=y+z; x=x+z
Label1.Caption=x
Label2.Caption=y
Label3.Caption=z
End Sub
运行程序，连续三次单击命令按钮后，则3个标签中显示的内容分别是
A 10 10 10
B 30 30 30
C 30 30 10
D 10 30 30
说明：变量x是在Sub过程外部声明的变量，使模块级变量，模块加载之后，它就已存在，而且在模块的所有过程中都可见，只要不退出该模块，则该值一直存在，模块的代码开始运行后，使用Static语句声明的变量y一直保持其值，直至该模块重新启动，z是用Dim定义的过程局部变量，每次运行该过程他都以初始值为基础，进行变化，所以连续3次单击命令按钮后，变量x、y 、z的值分别为：30 30 10 10）、有如下事件过程
Private Sub Form_Click()
A$=‖123‖: B$=‖456‖
X=Val(A$)+Val(B$)
Print x\100
End Sub
运行程序后，单击窗体，则窗体上显示的内容是
A 123
B 3
C 5
D 579
说明：Val()将字符串转换为数值型“123”和“456”，所以x=123+456=579
11）、在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
For i=1 to 4
For j=0 to I
Print Chr $(65+I);
Next j
Next i
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是
A B
B B A
C B
D AA
CCC BB CC BBB
DDDD CCC DDD CCCC
EEEEE DDDD EEEE DDODD
说明：Chr $(X)函数是将X的值转换成相应得ASCII字符，“65”值得ASCII字符为“A”，“66”值得ASCII 字符为“B”，“90”值得ASCII字符为“Z”，循环变量I是控制输出的字符，循环变量J是控制输出字符个数，注意J的初值为0
12）、执行以下程序段后，变量c$的值为
a$=‖Visual Basic Programing‖
b$=‖Quick‖
c$=b$&Ucase(Mid$(a$,7,6))$Right$(a$,11)
A Visual BASIC Programing
B Quick Basic Programing
C QUICK Basic Programing
D Quick BASIC Programing
说明：Ucase(字符串)是将小写字符转换为大写字符。Mid$(字符串,p,n)是从位置p开始取字符串的n 个字符。Right$(字符串,n)返回字符串的最后n个字符。
13）、选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为
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
14）、假设有如下声明：Dim x As Integer，如果Sgn(x)的值为-1，则x的值是
A 整数
B 大于0的整数
C 等于0的整数
D 小于0的数
说明：Sgn（x）返回自变量x的符号，即当x为负数时，函数返回-1，当x为0时函数返回0,当x为整数时，函数返回1。
二、填空题
1、有四种类型的文件：.bas、.res、.frm和.ocx。其中.ocx 文件类型不能再“工程资源管理器”窗口中列出。
2、与下列数学表达式(e2+6)×sin(x)+cos(x)÷2-ln2对应的Visual Basic 表达式是(Exp(2)+6)*Sin(x)+Cos(x)/2-Log(2);
3、执行以下语句后，输出的结果是ABCD HIJK
S$=‖ABCDEFGHIJK‖
Print Left(s$,4)
Print Right$(s$，4)
说明：
4、以下程序的功能是：生成20个100到300之间的随机整数，输出其中能被5整除的数并求出它们的和，请填空：
Private Sub Command1_Click()
For i=1 to 20
X=Int *200+100)
If =0 then
Print x
S=s+
End If
Next i
Print ―Sum=‖；s
End Sub
答案：1 Rnd或Rnd（n），其中n为任意整数
2 x Mod 5
3 x
说明：本题测试的随机函数的使用方法，Rnd函数产生的随机数的范围为（0，1），为了生成某个范围内的随机整数，可使用以下公式：Int((上限值-下限值+1)*Rnd+下限值)，判断数值是否能被另一个数值整除，用运算符Mod求余数的方法比较方便。
5、在窗体上画一个名称为Command1的命令按钮，编写如下事件过程：
Private Sub Command1_Click()
Dim a As String
A=
For i=1 to 5
Print Space(6+i)；Mid$(a, 6-I,2*i-1)
Next i
End Sub
运行程序后，单击命令按钮，要求窗体上显示的输出结果为:
5
456
34567
2345678
123456789
答案：123456789
6、在立即窗口中执行以下语句：Print Day(#8/31/2006#)，则输出结果是31
7、表达式Fix(-32.68)+Int(-23.02)的值为-56
说明：Fix（x）是去掉一个浮点数的小数部分，保留其整数部分；Int(x)的功能是求大于自变量x的最大整数。Int(-23.02)=-24
VB 数据输入和数据输出
一、选择题
1）、假定Picture1和Text1分别为图片框和文本框的名称，下列语句不正确的是
A Print 25
B Picture1.Print 25
C Text1.Print 25
D Debug.Print 25
说明：对象名称可以是窗体Form，图片框Picture，打印机Pinter和Debug立即窗口
2）、以下语句输出结果是（在立即窗口中）△表示空格
A =‖Beijing‖(CR)
B=‖Nanjing‖(CR)
Print a；b (CR)
A Beijin g△Nanjing
B △Beijin g△Nanjing
C Beijin gNanjing
D △Beijin g△Nanjing△3）、执行以下语句，则结果为
A=InputBox(―Today‖,‖Tomorrow‖，‖Yesterday‖，，，‖Day before Yesterday‖，5)
A Today
B Tomorrow
C Yesterday
D Day before Yesterday
说明：InputBox(prompt[,title][,default][,xpos,ypos][,helpfile,context])
4）、下列语句的输出结果是
Print Format$(351.75,‖0######.#‖)
Print Format$(9.2,‖0######.#‖)
Print Format$(25891.91,‖0######.#‖)
A0000351.8 B 0###351.75
0000009.2 0#####9.2
0025891.9 025891.91
C 351.75
D 351.7
9.2 9.2
25891.91 25891.9
说明：函数中“格式字符串”包含有符号“#”“0”时，按“0”数字占位符的格式输出，即多余的位以0补齐。
5）、在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件过程
Private Sub Command1_Click()
X=InputBox(―input‖ )
Select Case x
Case 1, 3
Print ―分支1‖
Case Is〉4
Print ―分支2‖
Case else
Print ―else 分支‖
End Select
End Sub
运行程序后，如果在输入对话框中输入2，则窗体上显示是
A 分支1
B 分支2
C else 分支
D 程序出错
6）、在窗口上画一个名称为Command1的命令按钮，然后编写如下事件过程
Private Sub Command1_Click()
Move 500,500
End Sub
运行程序后，单击命令按钮，执行的操作为
A 命令按钮移动到距窗体左边界、上边界各500的位置
B 窗体移动到距屏幕左边界、上边界各500的位置
C 命令按钮向左、上方向各移动500
D 窗体向左、上方向各移动500
7）、执行下面语句后，所产生的信息框的标题是
A =MsgBox(―你是学生吗？‖，，‖提问‖，‖‖，5)
A 提问
B 空
C 你是学生吗
D 出错，不产生信息框
说明：MsgBox(prompt[，buttons][，title][，helpfile,context])
8）、想实现当用户选择关闭某应用程序时提示用户是否保存文件，或取消选择（默认保存），正确的语句是
A MsgBox(―是否在退出前，保存已经打开的文件？‖，vbYes No)
B MsgBox(―是否在退出前，保存已经打开的文件？‖，vbYes NoCancel+vbDefault-
Button1)
C MsgBox(―是否在退出前，保存已经打开的文件？‖，vbYes NoCancel+vbDefault-
button2)
D MsgBox(―是否在退出前，保存已经打开的文件？‖，vbOkOnly)
9）、在MsgBox函数种，如果省略第三个Title参数，则对话框的标题为
A 一个随机的字符串
B 一个空字符串
C 工程的名字
D 与第一个参数相同
10）、在用FontSize 、FontBold、FontItalic、FontUnderline、FontStrikethru属性中来设置文本的大小和样式属性之前，需要先改变的属性是
A Enabled
B FontName
C Checked
D Visible
11）、为了能把信息直接送往打印机，应该把Print方法的对象改为
A Picture
B Form
C Image
D Printer
说明：Printer.Print[表达式]
12）、在VB中，用来设置窗体进行打印输出的语句是
A Form1.Show
B Form1.Print
C Form1.Println
D Form1.PrintForm
二、填空题
1、在窗体上面或一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
A=InputBox(―请输入一个整数‖)
b=InputBox(―请输入一个整数‖)
Print a+b
End Sub
运行程序后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为321456
说明：a,b是变体型变量
2、在VB中，语句Print 3＞9的输出结果是False
3、在VB中，语句Print “50×6=”；50*6的输出结果是50×6=300 说明：“；”表示紧凑型输出。
4、在窗体中有两个命令按钮：“显示”（控件名为CmdDisplay）和“测试”（控件名为cmdTest）。单击“测试”按钮时，执行如下事件过程，此事件过程的功能是：当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮；否则退出，根据题意，完善下列程序
Private Sub CmdTest_Click()
Answer= (―隐藏按钮‖)
If answer=vbOK then
CmdDisplay.Visible=
Else
End
End if
End Sub
答案： 1 MsgBox
2False
6、设计一个程序，界面如图所示，用户界面有一个标签（Label1）、一个文本框（Text1）、三个复选框（Check1、Check2、Check3）组成，程序运行后，用户在文本框输入一段文字，然后按需要单击各复选框，以改变文
字的字体、字型及大小。
要求：当不选择“宋体”时，文本应该是“黑体”；当不选择16号字时，字号为10；当不选择斜体时，文本采用默认字型，请根据题意，完善下列程序
Option explicit
Private Sub Check1_Click()
If Check1.Value=1 Then
Text1.FontName=‖宋体‖
Else
Text1.FontName=‖黑体‖
End if
End Sub
Private Sub Check2_Click()
If Check2.Value=1 Then
Text1.FontItalic=
Else
Text1.Fon tItalic=
End if
End Sub
Private Sub Check3_Click()
If Check3.Value= Then
Text1.FontSize=16
Else
Text1.Fon tSize=10
End if
End Sub
答案：1 True -----说明：为以斜体字输出
2False
3 1 ------说明：Value为1表示选中；为0表示没有选中；为2表示被禁止。
VB常用标准控件
一、选择题
1）、以下能够触发文本框Change事件的操作是
A 文本框失去焦点
B 文本框获得焦点
C 设置文本框的焦点
D 改变文本框的内容
2）、窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，则正确的属性设置为
A Label1.BackStyle=0
B Label1.BackStyle=1
Label1.BorderStyle=0 Label1.BorderStyle=1
C Label1.BackStyle=True
D Label1.BackStyle=False
Label1.BorderStyle=True Label1.BorderStyle=False
3）、能作为父控件，而且能够通过Print方法接受文本的控件是
A PictureBox(图片框)
B Image(图象框)
C Text (文本框)
D ListBox(列表框)
4）、以下关于图片框控件的说法中，错误的是
A 可以通过Print方法在图片框输出文本
B 清空图片框控件中图形的方法之一是加载一个空图形
C 图片框控件可以作为容器使用
D 使用Stretch属性可以自动调整图片框中图形的大小-----说明：只用于图片框
5）、为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是
A Value
B Default
C Cancel
D Enabled
说明：命令按钮没有Value属性；
6）、在下列事件中，命令按钮不支持的事件是
A Click
B LostFocus
C MouseDowm
D DblClick
7）、在VB中，可以通过复选框和单选按钮的某个属性来判断他们的状态，这个属性是
A Checked
B Caption
C Value
D Selected
8）、设组合框Combol有三个项目，则以下能删除最后一项的语句是
A Combol.RemoveItem Text
B Combol.RemoveItem 2
C Combol.RemoveItem 3
D Combol.RemoveItem Combol.Listcount
9）、表示滚动条控件取值范围最大值的属性是
A Max
B LargeChange
C value
D Max-Min
说明：LargeChange----单击滚动条中滚动框的前后位置，value增加或减小的值，Max-Min滚动条控件取值范围。
10）、在窗体上有一个文本框控件，名称为txtTime，一个计时器控件，名称为Timer1，要求每隔1秒钟再文本框中显示一次当前时间，程序为：
Private Sub Timer1_ _
TxtTime.Text=Time
End Sub
下划线上应填入的内容为
A Enabled
B Visible
C Interval
D Timer
11）、在窗体上画一个Timer计时器控件，要求每隔0.5秒触发一次Timer事件,则以下正确的属性设置语句是
A Timer.Interval=0.5
B Timer.Interval=5
C Timer.Interval=50
D Timer.Interval=500
说明: Timer事件是以毫秒为单位的,不能超过65秒.
12）、在下列标准控件中没有Text属性的控件是
A ListBox列表框
B TextBox文本框
C ComboBox组合框
D Frame框架
13）、在窗体上有若干控件，其中有一个名称为Text1的文本框，影响Text1的Tab顺序的属性是
A TabStop
B Enabled
C Visible
D T abIndex
13）、为了在文本框中使用垂直滚动条，要将MultiLine属性设为True，同时还要将Scrollbars属性的值设置为
A 0
B 1
C 3
D 2
14）、为了使一个文本框可以滚动和选择文字但不能编辑，需要将以下哪个属性设为True
A Enabled
B Locked
C Visible
D MultiLine
15）、使用以下哪个属性可以判断出列表框中的某个选项被选择（假设列表框允许多项选择）
A SelCount
B Sorted
C Selected
D List
说明：SelCount：用于读取列表框中所选择的项的数目；Sorted：属性中True表示自动排序，false表示不排序；List：用来保存表中项目的数组，List()数组常用于扫描表中所有项目。
16）、在设计阶段要向一个图片控件、图像控件和窗体装入一个图形文件，除了使用属性窗口中的Picture 属性外，还可以
A 向以上对象粘贴一个已经复制到剪贴板的图形
B 将一个图形文件名复制给以上对象
C 使用对象的LoadPicture方法将图形文件装入
D 将图形文件复制到工程所在的目录下
17）、在窗体中，有一个文本框控件Text1，一个列表框控件List1，并假设List1,ListCount>0。语句Text1=List1.List(List1.ListCount-1)的作用是
A 将控件List1最后一个选项的内容赋值给文本框
B 将控件List1第一个选项的内容赋值给文本框
C 将控件List1无法判断的一个选项的内容赋值给文本框
D 此包含有语法错误
18）、下面不是VB控件的是
A 内部控件
B Active控件
C 可插入的对象
D 窗体
说明：VB控件分为3类，标准控件也称内部控件、Active和可插入对象
二、填空题
1、在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，程序运行后，Command1显示为禁用（灰色）。当向文本框中输入任何字符时，命令按钮Command1变为可用，请将程序补充完整。
Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1 ()
Command1.Enabled=True
End Sub
答案：Change或_Change
2、在窗体上画一个名为Text1的文本框，为使用户键入的口令字符在文本框内部显示成符号“*”，在设计时应设置的属性是PasswordChar内输入*
3、在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下事件过程：
Private Sub Command1 _Click()
S$=InputBox(―请输入一个字符串‖)
Text1.Text=s$
End Sub
Private Sub Text1_Change()
Label1.Caption=UCase(Mid(Text1.Text,7))
End Sub
运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual Basic”，则在标签中显示的内容是BASIC
4、为了在运行时把图形文件picfile.jpg载入图片框Picture1中，所使用的语句为Picture1.Picture=LoadPicture(―picfile.jpg‖)
5、在窗体上有一个名为Text1的文本框，一个名为Check1的复选框，然后编写如下事件过程，程序运行后，选中该复选框，则将文本框Text1中的字符都变成粗体，否则取消粗体设置。根据题意，请完善下列程序
Private Sub Check1 _Click()
If Check1_V alue= vbChecked或1 True
Text1.FontBold=True
Else
Text1.FontBold=False
End if
End Sub
6、在窗体上画一个名为Label1的标签和一个名为List1的列表框，程序运行后，在列表框添加若干列表项。当双击某个列表项时在标签Lalel1中显示选中的项目，如图所示，根据题意，请完善下列程序Private Sub Form_Load()
List1.AddItem‖北京‖
List1.AddItem‖上海‖
List1.AddItem‖河北‖
End Sub
Private Sub List1 _DblClick()
Label1.Caption= L ist1.Text
End Sub
7、在窗体上画一个名为Label1的标签和一个名为List1的列表框和一个按钮Command1，通过属性按钮把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”和“第四个项目”，程序运行后，在列表框选择第一个项目，然后单击命令按钮，即可将所选择的项目解除，并在标签中显示列表框当前的项目数。下面是实现上述功能的程序，根据题意，请完善下列程序
Private Sub Command1 _Click()
If List1.ListIndex>= 0
Then
List1.RemoveItem List1.ListIndex
Label1.Caption= List1.ListCount
Else
MsgBox‖请选择要删除的项目‖
End If
End Sub
8、在窗体上有两个标签分别为Label1和Label2，其Caption属性分别为“数值”和空白，然后或一个名称为Hscroll1水平滚动条，其Min值为0，Max值为100，运行程序后，如果单击滚动条两端的箭头，则在标签Label2中显示滚动条的值，如图所示，根据题意，请完善下列程序
Private Sub Hscroll1 _ Change
Label2.Caption=Hscroll1. Value
End Sub
9、为了使按钮控件可以显示图形，应首先将Style 属性的值设置为图形格式，即将该属性设置为1。
10、为了使标签可以根据Caption属性中字符的多少自动变化其大小，需要将AutoSize 和WordWarp 属性的值设置为True
VB高级程序设计
VB控制结构
一、选择题
1）、设M=20，则执行X=IIf(M>10，-1，0)后，X的值为
A 20
B 10
C 0
D -1
说明：IIf(条件，True部分，False部分)
2）、在窗体上画一个命令按钮，名称为Cmd1。然后编写如下程序：
Private Sub Cmd1 _Click()
Dim Score As Integer
Dim Grade As Integer
Score=InputBox(―请输入一个数据：‖ )
If Val(Score )<60 Then
Grade=1
ElseIf Val(Score )<70 Then
Grade=2
ElseIf Val(Score )<80 Then
Grade=3
ElseIf Val(Score )<90 Then
Grade=4
Else
Grade=5
End If
Print ―Grade=‖；Grade
End Sub
输入85，运行程序后，单击命令按钮，则在窗口上显示的内容是
A Grade=1
B Grade=2
C Grade=3
D Grade=4
3）、若x A if x B if x C if x D if x 4）、在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1 _Click() Dim X1 As Integer Dim X2 As Integer Dim X3 As Integer X1=123 X2=45 Select Case X2\10 Case 0 X3= X1*10+ X2 Case 1 to 9 X3= X1*100+ X2 Case 10 to 99 X3= X1*1000+ X2 End Select Print X3 End Sub 运行程序后，单击命令按钮，则在窗口上显示的内容是 A 123 B 45 C 12345 D 1275 5）、以下Case语句中错误的是 A Case 0 to 10 B Case Is > 10 C Case Is > 10 And Is<50 D Case 3，5，Is > 10 6）、编写如下事件程序 Private Sub Form_Click() For j=1 to 15 Ma=Ma+j Mod 3 Next j Print Ma End Sub 运行程序后，单击窗体按钮，则在窗体上显示的内容是 A 1 B 15 C 90 D 120 7）、设有如下程序： Private Sub Command1 _Click() Dim Sum As Double，k As Double Sum=0 N=0 For i=1 to 5 K=n/i N=n+1 Sum=sum+k Next i End Sub 该程序通过For循环计算一个表达式的值，这个表达式是 A 1+1/2+2/3+3/4+4/5 B 1+1/2+2/3+3/4 C 1/2+2/3+3/4+4/5 D 1+1/2+1/3+1/4+1/5 8）、在窗体上画一个名为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 A For i=0 to List1.ListCount-1 B For i=0 to List1.Count-1 ……….. ……….. Next i Next i C For i=0 to List1.ListCount D For i=1 to List1.Count-1 ……….. ……….. Next i Next i 说明：ListCount属性返回控件列表部分项目的个数，要对列表框中的每个项目都进行处理，必须用到List(Index)属性，而该属性的下标值是从0开始的。 9）、在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1 _Click() Dim num As Integer Num=1 Do untile num>6 Print num; Num=num+2.4 Loop End Sub 运行程序后，单击命令按钮，则在窗口上显示的内容是 A 1 3. 4 5. 8 B 1 3 5 C 1 4 7 D 无数据输出 10）、在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 _Click() Dim x As Integer ，n As Integer X=1 N=0 Do while x<20 X=x*3 N=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 运行程序后，单击命令按钮，则在两个文本框中显示的值分别为 A 15和1 B 27和3 C 195和3 D 600和4 二、填空题 1、在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序 Function M(x As Integer, y As Integer ) As Integer M = IIf(x>y，x，y) End Function Private Sub Command1 _Click() Dim a As Integer ，b As Integer a=100 b=200 print M(a，b) End Sub 运行程序后，单击命令按钮，输出结果为200 2、在窗体上画一个命令按钮，其名称为Cmd Rand1，下列程序的功能是：从输入对话框输入一个正整数 n，用随机函数产生n个1——100范围的随机数，然后求出去掉一个最大数和一个最小数的平均数。 根据题意，请完善下列程序 Private Sub CmdRand1 _Click() Dim Ave As Single，Max As Integer ，i As Integer，n As Integer Dim Min As Integer，Sum As Integer，S As String Dim t As Integer S=InputBox(―请输入一个正整数：‖) N=Val(s) If n>0 then Max=n：Min=n：Sum=0 For j=1 to n T= Int(Rnd*100+1) Print t； Sum=Sum+t If t Min=t ElseIf Max Max=t End if Next j Sum=Sum-Max-Min或Sum=Sum-Min-Max Ave=Sum/(n-2) MsgBox‖平均值=‖+Str(Ave)，，‖去掉最大数和最小数后‖ End If End Sub 3、在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序 Private Sub Command1 _Click() Dim m As Integer ，k As Integer，t As Integer m=5：k=7 Select Case m Case Is<0 M=m+5 Case 1 to 10 T=m：m=k：k=t Case Else M=k Mod 3 End Select Print m；k；t End Sub 运行程序后，单击命令按钮，输出结果为7 5 5 4、执行下列程序段后，变量Sum的值为14 Sum=10 For n=2.6 to 4.9 Step 0.6 Sum=Sum+1 Next n 5、下列程序的功能是：计算1！，3！，5！，7！的值，在窗体上画一个命令按钮，其名称为Command1， 然后编写如下程序，根据题意，请完善下列程序。 Private Sub Command1 _Click() For i=1 to 7 Step 2 Fact=1 For j=1 to i Fact= Fact*j Next j Print i；‖!=‖；fact Next i End Sub 6、下列程序的功能是：计算级数 Sum=1+1+1/2+1/2+1/5+1/8+1/13+1/21+………….. 的各项之和，其精度为0.000001。根据题意，请完善下列程序。 Private Sub Command1 _Click() X=1：y=1 Sum=1/x+1/y While 1/x<0.000001 or 1/y<0.000001 X=x+y y=y+x sum=sum+1/x+1/y wend Print Sum End Sub 说明：本题是非计算循环结构的while….Wend语句的用法，观察级数的特点可知，级数的分母实际上是裴波那契数列，裴波那契数列的规律为：第一、第二个数均为1，从第三个数开始的每一个数均是前两个数之和。本题的程序执行过程如下：第一次循环x和y的值分别为2、3，第二次循环x和y的值分别为5、8，第三次循环x和y的值分别为13、21，依次类推，直到满足条件“1/x<0.000001 or 1/y<0.000001”就中止循环。 7、下列程序的功能是：从键盘中输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的 最高分数和最低分数。根据题意，请完善下列程序。 Private Sub Form _Click() Dim x As String ，amax As String，amin As String X=InputBox(―Enter as a scor e‖) Amax=x Amin=x Do while x>=0 If x>amax then Amax=x End if If x<=amin或amin>=x then Amin=x End if X=InputBox(―Enter as a Scor e ‖) Loop Print ―Max=‖；amax；‖Min=‖；amin End Sub VB的数组 一、选择题 1）、设有如下程序 Option Base 0 Private Sub Form _Click() Dim i As Integer Dim a A=Array(1，2，3，4，5，6，7，8，9) For i=0 to 3 Print a(5-i) Next i End Sub 运行程序后，单击命令按钮，输出结果为 A 4 3 2 1 B 5 4 3 2 C 6 5 4 3 D 76 说明：Option Base 0语句将数组的下标起始值定义为0。 2）、在窗体上画一个命令按钮，其名称为Command1，和一个Text1的文本框，然后编写如下程序Private Sub Command1 _Click() Dim array1(10,10) As Integer Dim i , j As Integer For i=1 to 3 For j=2 to 4 Array1(I , j) = I + j Next i Next j Text1.Text = array1(2 , 3) + array1( 3, 4) End Sub 运行程序后，单击命令按钮，输出结果为 A 12 B 13 C 14 D 15 说明：数组大小是11*11默认下起始值为0；循环语句为数组赋值，元素值等于下标之和。array1(2 , 3)=5，array1( 3, 4)=7。本题只为部分数组元素赋值，其他元素默认为0。 3）、下面关于数组的说明语句正确的是 A Dim M(10, -10) As Single B Dim N (100 to 100 , 100) As String C Dim x(5) As Integer D Dim y( ) ReDim x(10) As Integer ReDim y 说明：Dim 数组名（[下界to ]上界[，下界to ]上界]。。。。。。）As 类型名 或Dim 数组名（小标上界[，下标下界]。。。。。。）As 类型名 A中当下标不小于0时，必须用关键字To显式指明下标范围，B数组元素个数是101，类型是字符串型；C可变数组的说明应不带下标参数；D重定义语句ReDim应带下标参数。 4）、以下有关数组定义的语句序列中，错误的是 A Static arr1(3) B Dim arr2() As Integer Arr1(1)=100 Dim size As Integer Arr1(2)=‖Hello‖Private Sub Command2_Click() Arr1(3)=123.45 size = InputBox(―输入‖) ReDim arr2(size) …….. End Sub C Option Base 1 D Dim n As Integer Private Sub mmm Private Sub Command1_Click() Command2_Click() Dim arr4(n) As Integer Dim arr3(3) As Integer …….. ................ End Sub End Sub 说明：静态数组定义时，其小标要有具体的值；动态定义时，在使用前必须对下标赋予确切值。数组的动态定义过程是： Step1：先定义一个无下标的数组：Dim (数组名)( ) As (类型名) Step2：用ReDim语句进行说明：ReDim (动态数组名)([下界To ] 上界) 在说明时，“[下界To ]上界”必须是确切的值，否则会出现“要求常数表达式”的错误提示。5)、在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序 Private Sub Command1 _Click() Dim a(1 to 3, 1 to 3) ，x Dim i As Integer，j As Integer X=Array(1，2，3，4，5，6，7，8，9) For i=1 to 3 For j=1 to 3 A(I , j) = x（I*j-1） Next j Next i Call sub1( i，j，a()) End Sub Private Sub Sub1(m，n，1) For m=1 to 3 For n=1 to 3 Print t(m , n)； Next n Print Next m End Sub 运行程序后，单击命令按钮，输出结果为 A 1 2 3 B 1 2 3 2 5 8 2 4 6 3 6 9 3 6 9 C 3 6 9 D 3 6 9 2 5 8 2 4 6 1 2 3 1 2 3 6）、在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序 Private Sub Command1 _Click() Static b As Variant B=array(1，3，5，7，9) ……….. End Sub 此过程的功能是把数组b中的5个数逆序存放（即排列为9，7，5，3，1）；为实现此功能，省略号处的程序段应该是 A For i=0 to 5-1\2 B for i=0 to 5 Tmp=b(i) tmp=b(i) B(i)=b(5-i-1) b(i)=b(5-i-1) b(5-i-1)= Tmp b(5-i-1)= Tmp next i next i C For i=0 to 5\2 D for i=1 to 5\2 Tmp=b(i) tmp=b(i) B(i)=b(5-i-1) b(i)=b(5-i-1) b(5-i-1)= Tmp b(5-i-1)= Tmp next i next i 7）、在窗体上画3个单选按钮，组成一个名为chkOption的控件数组，用于标识各个控件数组元素的参数是 A Tab B Index C ListIndex D Name 8）、在窗体上四个文本框，并用这四个文本框建立一个控件数组，名称位Text1(下标)从0开始自左到右顺序增大，然后编写如下程序 Private Sub Command1 _Click() Dim I As Integer For each textbox in text1 Text1(i) = text(i), Index I=i+1 Next End Sub 运行程序后，单击命令按钮，四个文本框中显示的内容分别是 A 0 1 2 3 B 1 2 3 4 C 0 1 3 2 D 出错信息 说明：index从0开始，textbox是循环控制变量。 二、填空题 1、在窗体上画一个名为command1的命令按钮，一个名为list1的列表框，一个名为label1的标签，如 图所示，该程序的功能是：单击命令按钮，程序用“筛选法”求出1—100中的全部素数，将这些素数的在列表框中显示出来，根据题意，完善下列程序 Option Base 1 Dim a(100) as integer Private Sub Command1 _Click() Dim i , j ,n N=100 For i=2 to sqr(n) For j=i+1 to n If j mod I = 0 and a(j)<>0 Then a(j)=0 Next j Next i For I = 1 to n If a(i) <> 0 then list1.additem a(i) Next i End sub Private Sub Form _Load() Dim i As Integer For i=0 to 100 A(i)= I Next i End Sub 2、下列的程序是用“冒泡”法将数组a中的10个整数按升序排列，请根据题意，将程序补充完整 Option Base 1 Private Sub Command1 _Click() Dim a A = array(678，45，324，528，439，387，87，875，273，823) For i= 1 to 9 For j= i+1 to 10 If a（i）> a(j) Then A1 = a(i) A(i) = a(j) A(j) = a1 End if Next j Next i For I = 1 to 10 Print a(i) Next i End sub 3、在窗体上画一个名为command1的命令按钮，标题为“计算”的命令按钮，在画7个标签，其中5 个标签组成名称唯label1的控件数组，名称唯label2的标签显示计算结果，其caption属性的初始值为空，标签label3的标题为“计算结果”，程序运行时会自动产生5个随机数，分别显示在标签控件数组的各个标签中，如图所示，单击“计算”按钮，则将标签数组各元素的值累加，然后将计算结果显示在label2种，请填空 Private Sub Command1 _Click() Sum = 0 For i= 1 to 4 Sum = sum + val(label1(i), caption ) Next I Label2.caption = sum End sub VB过程 一、选择题 1、以下叙述中错误的是 A 一个工程中可以包含多个窗体文件 B 在一个窗体文件中用Private定义的通用过程可以被其他窗体调用 C 在设计VB程序时,窗体,标准模块,类模块等需要分贝保存为不同类型的磁盘文件 D 全局变量必须在标准模块中进行定义 2）、在窗体上画一个名为Command1的命令按钮,然后编写过程: Private Sub Command1 _Click() Sum = 0 For x= 1 to 5 Call sub1(x, s) Sum = sum +s Next x Print Sum End Sub Private Sub Sub1(y , w) W = 1 For I = 1 to y W = w* i Next I End sub 运行程序后，单击命令按钮，四个文本框中显示的内容分别是 A 5 B 120 C 153 D 160 说明: sum = 1!+2!+3!+4!+5! = 153 3）、在窗体上画一个名为Command1的命令按钮,然后编写过程: Private Sub Command1 _Click() Dim m As Integer , I As Integer , x(3) As Integer For i = 0 to 3 : x(i) = i : next i For i = 1 to 2 : call sub1(x) : next i For i = 0 to 3 : print x(i) ; : next i End Sub Private Sub sub1( a() as Integer ) Static j as integer Do A(j) = a(j) +a(j+1) J = j + 1 Loop while j < 2 End sub 运行程序后，单击命令按钮，四个文本框中显示的内容分别是 A 1 3 7 5 B 3 1 4 4 C 1 3 3 5 D 1 3 5 3 4）、要想在过程调用后返回两个结果,下面的过程定义语句中合法的是 A Sub sub1(byval n , byval m ) B sub sub1(n , byval m) C sub sub1(n , m) D sub sub1(byval n , m) 说明: 本题测试的形参和实参传递的返回值问题.按地址(引用)传递参数时,形参用ByRef定义, 可以返回改 VB程序设计结构：顺序结构、分支结构、循环结构。 一、顺序结构题： 二、分支结构： IF <条件> Then <语句组1> Else <语句组2> Endif IF <条件> Then <语句组> Endif 答案：1、a=6 b=5 2、Value=60 3、a=9 4、a=9:b=7 5、a=7 b=9 1、以下程序段的执行结果是? A=1 b=5 c=4 a=b b=c c=a Print a;b;c 2、该程序段运行后， 变量b的值为? a=7 b=8 a=a+b b=a-b 当条件满足时，执行语句组1 当条件不满足时，执行语句组2 执行完语句组1或语句组2后执行 Endif下面的语句。 4、该程序段运行后，变量a的值 为? a=8 b=7 z=a a=b b=z 5、经过几下几条语句，A和B的值分别为多少？ A=6 B=7 C=A A=B B=C 6、Text1和Text2中分别输入5，6， 求Labe7l中值？ Dim X AS Single, Y AS Single, Z AS Single X=Val（Text1.text） Y=Val（Text2.text） Z=X*Y／10 Label7.caption=Z 当条件满足时，执行语句组，接着执行Endif下面的语句。 当条件不满足时，执行Endif下面的语句。 1 、以下程序段的执行结果为？ A=5 B=6 If A=10 Then Value=5*x Else Value=4*x End If Select case 表达式 Visual Basic 一、名词 1.控件 2.属性 二、填空 1.在VB中，字符型常量应使用_________将其括起来，日期 /时间型常量应使用_______符号将其括起来。 2．VB的注释语句采用_________；VB的续行符采用___________；若要在一行书写多条语句，则名语句间应加 ___________分隔。 三、简答题 1.VB程序开发的一般步骤和方法是怎样的？ 2.改正下列语句中的错误 1)B$=A234 2)Gf * 6 = y +99 3)Print hh=88-54 4)X=8 ，y = 54 5)Text4.Print “ * * * * * “ 四、选择题 1.可用什么函数来转让程序控制权，以便主操作系统处理其 他的事件？ A、Input B、DoEvents C、Event D、Format 2.X=(98 Mod 10) \ 10 + 98 问：X = ？ A、100 B、98 C、0 D、96 3.PictureBox 控件的Point方法含义为： A、取得一个点的颜色值 B、显示字符串 C、画圆或椭圆 D、设置一个点的颜色值 4.当MousePointer 属性设置为什么时，MouseIcon属性才起作 用？ A、99 B、1 C、10 D、11 5.CheckBox 和OptionButton 的Alignment属性有哪些值？ A、Left，Center B、Right，Center C、Left，Right D、Left，Right，Center 6.下列哪一段代码是正确的？ A、If a >1 Then K =0 Else K = 1 End if B、If a >1 Then K= 0 Else K=1 C、If a >1 Then K= 0 Else K=1 End if D、If a >1 Then K= 0 End if 7. a = 1 if a > 0 then a = a +1 if a > 1 then a = 0 当VB执行到上述三句后，a 的值为多少？ A、2 B、1 C、0 D、3 SIN函授 Dim i%, j% Form1.Scale (-10, 3)-(10, -3) Line (-10, 0)-(10, 0) Line (0, 3)-(0, -3) For i = -10 To 10 Step 1 Line (i, 0)-(i, 0.2) CurrentX = i - 0.15 CurrentY = 0 Print i CurrentX = 9: Print "x" CurrentY = 3: Print "y" Next For j = -3 To 3 Step 1 If j <> 0 Then Line (0, j)-(0.2, j) CurrentX = 0 - 0.25 CurrentY = j + 0.1 Print j End If Next For x = -6.28 To 6.28 Step 0.001 Line (x, Sin(x))-(x + 0.001, Sin(x + 0.001)) Next 乘法口诀表 Private Sub Form_Click() Dim i%, j% For i = 1 To 9 For j = 1 To 9 Print Tab(10 * j); i & "*" & j & "=" & i * j; Next j Print Next i 打印雪花 Form1.Print Tab(1); "* * * * *"; Spc(10); "*" Print Tab(2); "* * * *"; Spc(10); "* *" Print Tab(3); "* * *"; Spc(10); "* * *" Print Tab(4); "* *"; Spc(10); "* * * *" Print Tab(5); "*"; Spc(10); "* * * * * 购买物品 Dim x!, y! x = InputBox("请输入钱数") If x < 1000 Then y = x End If If x <= 2000 And x >= 1000 Then y = 0.9 * x End If If x >= 2000 And x <= 3000 Then y = 0.8 * x End If If x >= 3000 Then y = 0.7 * x End If Text1.Text = y" 主题：程序基本知识 数据类型、常量、变量、函数和表达式 一、点击考点： 1、知道常用的数据类型、变量、常量的含义；学会定义常量、变量的数据类型。 2、知道程序中运算符、函数、表达式的表示方式，能够转换数学表达式为程序接受的 表达式。 3、掌握程序包括的四部分。 二、学习目标： 1、掌握数据类型及其特点； 2、知道常量、变量的声明格式；学会定义常量、变量 3、知道程序中运算符、函数、表达式的表示方式，能够转换数学表达式为程序接受的表达式。 4、知道程序包括的四部分内容。 三、学习方式： 在老师引导下的自主学习，互相评价做题效果 四、考点注解 1、知道常用的数据类型、变量、常量的含义；学会定义常量、变量的数据类型。 （1）VB数据类型（阅读课本27页的表） （2）常量 在程序执行过程中，其值不能改变的量称为常量。常量可以直接用一个数来表示，称为常数（或称为直接常量），也可以用一个符号来表示，称为符号常量。 常量的定义格式如下： Const <常量名> [As 数据类型]=表达式 （3）变量 在程序执行过程中，其值可以改变的量称为变量。 1）变量的命名规则 ?变量名首字符必须是字母； ?变量名只能由字母、数字和下划线组成； ?变量名不能使用VB中的关键字（保留字）； ?变量名在同一个作用域内必须唯一； ?变量名长度不超过255； ?变量的命名最好还应遵守一定的编程约定。 3）变量定义语句 Dim <变量名> As <类型> [, <变量名> As <类型>]… 2、知道程序中运算符、函数、表达式的表示方式，能够转换数学表达式为程序接受的表达式。 运算符是在代码中对各种数据进行运算的符号。例如，有进行加、减、乘、除算术运算的运算符，有进行与、或、非、异或逻辑运算的运算符。 表达式是由运算符和运算对象及圆括号组成的一个序列，它是由常量、变量、函数等用运算符连接而成的式子。表达式是构成程序代码的最基本要素。 1）赋值运算符 赋值语句的语法格式为： VB程序的建立和运行 一、课题名称： VB程序的建立和运行 二、教学课时 1课时 三、教学目标 掌握一个VB程序的建立、调试、运行、保存的过程； 掌握创建控件、设置属性的方法； 了解事件处理程序的作用及掌握编写、修改事件处理程序。 四、教学重点与难点 控件的创建及属性设置； 编写、调试事件代码。 五、教学方法与环境 任务驱动式，以讲解、演示、操作实践相结合进行教学。 网络教室，lanstar教学控制系统 六、教学过程 1、创设情景，激发学生探求、解决实际问题的愿望。 导言：如今买彩票已经成为许多人生活中不可缺少的一部分，电视里的摇奖过程勾动着众多彩民的心弦，随着摇奖机的转动，一个个中奖号码产生了。我们都知道，摇奖机摇出的号码是一个随机数，谁也无法预料、无法控制。这节课我希望能与同学们一起练习用VB软件来开发一个模拟摇奖程序，让我们也感受一下其中的快乐。 图-1 图-2 这个模拟程序开始中奖号码开始为空，当单击开奖按钮后，产生一个中奖号码。分析程序的构成，该程序在一窗口中运行，内含三个对象：标题、中奖号码、开奖按钮。 启动VB程序，进入如图-3界面。（教师演示） 图-3 放置一个标签控件、一个文本框控件、一个命令按钮控件（如下图-4）。 图-4 单击标签控件Label1将其选中，在图-4右下角的属性窗口内按下图示意修改其Caption 属性，其Font属性及另二个控件属性修改见下表。（示范、板书修改属性表） 修改后，程序界面基本完成如下图-5。保存一下程序，单击工具栏上保存图标，在弹出的对话框中依次输入窗体文件名、工程文件名，同时应该注意文件存放的位置。 图-5 双击“开奖”按钮，打开“代码编辑器”窗口如图-6，添加代码后如图-7。 图-6 图-7 此单击事件过程及三行代码的含义： Randomize 初始化随机数生成器，使 Rnd 函数产生不重复的随机数序列。 n = Int( 10000000 * Rnd ) VB典型程序！ 1、设计采用欧几里德算法求解两个自然数的最大公约数的程序。 Private Sub command1_click() Dim m As Long, n As Long Dim r As Long m = Val(Text1.Text) n = Val(Text2.Text) If m < 1 Or n < 1 Then Text3.Text = "数据错误" Else Do r = m Mod n m = n n = r Loop Until r = 0 Text3.Text = CStr(m) End If End Sub 2、从由字母、数字组成的字符串中找出所有大写字母并逆序输出的程序 Private Sub Command1_Click() Dim s As String, d As String, t As String Dim i As Integer Text1.SetFocus s = Text1.Text For i = 1 To Len(s) If Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "Z" Then t = t & Mid(s, i, 1) End If Next i For i = Len(t) To 1 Step -1 d = d & Mid(t, i, 1) Next i Text2.Text = d End Sub 3、编写程序，找出所有三位水仙花数。所谓水仙花，是指各位数字的立方和等于该数本身的数。例如，153=1^3+5^3+3^3，,所以153是一个水仙花数。 Option Explicit Private Sub command1_click() Dim I As Integer, a As Integer, b As Integer, c As Integer Dim st As String For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 vb编程代码大全 1.数值型函数： abs(num): 返回绝对值 sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负 hex(num): 返回十六进制值直接表示：&Hxx 最大8位 oct(num): 返回八进制值直接表示：&Oxx 最大8位 sqr(num): 返回平方根num>0 int(num): 取整int(99.8)=99; int(-99.2)=100 fix(num): 取整fix(99.8)=99; fix(-99.2)=99 round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2 log(num): 取以e为底的对数num>0 exp(n): 取e的n次幂通常用num^n sin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num) 2.字符串函数： len(str)：计算字符串长度中文字符长度也计为一！ mid(str,起始字符,[读取长度])：截取字符串中间子字符串 left(str,nlen)：从左边起截取nlen长度子字符串 right(str,nlen)：从右边起截取nlen长度子字符串 Lcase(str)：字符串转成小写 Ucase(str)：字符串转成大写 trim(str)：去除字符串两端空格 Ltrim(str)：去除字符串左侧空格 Rtrim(str)：去除字符串右侧空格 replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串 注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0） InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置 InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串返回起始位置space(n)：构造n个空格的字符串 string(n,str)：构造由n个str第一个字符组成的字符串 StrReverse(str)：反转字符串 split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选 1，编程输入10名短跑运动员的姓名及其100米跑成绩，输出最好成绩的运动员姓名及其成绩，再显示低于平均成绩的所有运动员姓名及其成绩。 Private Sub Form_click() Dim a(10) As String, b(10) As Single Dim I As Integer, avg As Single, max As Single, first As String For I = 1 To 10 a(I) = InputBox("请输入第" & I & "名运动员的姓名：") b(I) = InputBox("请输入第" & I & "名运动员的成绩：") Print "第" & I & "号选手" & a(I) & "的成绩为：" & b(I) Next I first = a(1) max = b(1) Print For I = 2 To 10 If b(I) > max Then max = b(I) first = a(I) End If Next I Print "成绩最好的运动员是" & first & "，成绩为："; max Print For I = 1 To 10 s = s + b(I) Next I avg = s / 10 Print "所有运动员的平均成绩为：" & avg Print For I = 1 To 10 If b(I) < avg Then Print a(I) & "运动员的成绩低于平均成绩，他的成绩为:" & b(I) End If Next I End Sub 2、素数(质数)是一个正整数，除了1和它本身之外，不能被其它任何正整数整除。编程：求出1 1、设计采用欧几里德算法求解两个自然数的最大公约数的程序。 Private Sub command1_click() Dim m As Long, n As Long Dim r As Long m = Val(Text1.Text) n = Val(Text2.Text) If m < 1 Or n < 1 Then Text3.Text = "数据错误" Else Do r = m Mod n m = n n = r Loop Until r = 0 Text3.Text = CStr(m) End If End Sub 2、从由字母、数字组成的字符串中找出所有大写字母并逆序输出的程序 Private Sub Command1_Click() Dim s As String, d As String, t As String Dim i As Integer Text1.SetFocus s = Text1.Text For i = 1 To Len(s) If Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "Z" Then t = t & Mid(s, i, 1) End If Next i For i = Len(t) To 1 Step -1 d = d & Mid(t, i, 1) Next i Text2.Text = d End Sub 3、编写程序，找出所有三位水仙花数。所谓水仙花，是指各位数字的立方和等于该数本身的数。例如，153=1^3+5^3+3^3，,所以153是一个水仙花数。 Option Explicit Private Sub command1_click() Dim I As Integer, a As Integer, b As Integer, c As Integer Dim st As String For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 I = a * 100 + b * 10 + c If I = a ^ 3 + b ^ 3 + c ^ 3 Then st = I & "=" & a & "^3+" & b & "^3+" & c & "^3" 客观题_0001 试卷总分：100 测试时间：240 单项选择题判断题 一、单项选择题（共20 道试题，共80 分。） 1. 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是（）。 A. List B. Listindex C. Text D. Listcount 2. 在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为（）。 A. 加号（+） B. 减号（-） C. 星号（*） D. 感叹号（!） 3. 保存新建的工程时，默认的文件夹是（）。 A. My Document B. VB98 C. "\ " D. Windows 4. 要清除列表框的所有内容，可用（）方法来实现。 A. RemoveTtem B. Cls C. Clear D. 以上均不可以 5. 用标准工具栏中的工具按钮不能执行的操作是（）。 A. 添加工程 B. 打印源程序 C. 运行程序 D. 打开工程 6. 改变驱动器列表框的Drive属性值，将激活（）事件。 A. Change B. Scoll C. KeyDown D. KeyUp 7. 下列语句语法正确的是（）。 A. a=1 b=2 c=3 B. a=l：b=2：c=3 C. a=1，b=2，c=3 D. a=1；b=2；c=3 8. 要在窗体Form1内显示“myfrm”，使用的语句是（）。 A. Form. print "myfrm" B. ="myfrm" C. "myfrm" D. ="myfrm" 9. 图象框Image没有的属性是（）。 A. Picture B. Appearance C. AutoRedraw D. 以上属性都没有 一、编写简单的VB 程序：然后实现该程序 案例1-2. 设计一个完成加法和减法功能的简单计算器, 利用文本框做数据的输入和输出. 程序启动后的界面如图所示。 练习目标： （1）掌握编写一个VB 应用程序的一般过程 （2）掌握从对象窗体进入代码窗体的方法 （3）掌握简单的代码编写方法（本题目的难点和重点） （4）了解标签和文本框的本质区别（标签只能做输出，文本框可做输入和输出） （5）了解标签可以设置为文本框的外形，文本框也可以设置为标签的外形 本案例用到的属性：Text 的Alignment 属性和Caption 属性；用到的方法：Command 的Click 方法。 （6）复习控件的添加和调整大小的方法。 （7）了解Val 函数和Str 函数的作用。 要求： 1.单击“加法”按钮，完成将文本框1中的数据和文本框2中的数据相加，结果放文本框3中。 2.单击“减法”按钮，完成将文本框1中的数据和文本框2中的数据相减，结果放文本框3中。 3.单击“清屏”，则清除三个文本框中的内容。 4.单击“退出”，则结束程序。 操作步骤如下： 第一步：创建一个工程（与案例1-1相同） 第二步：建立用户界面 (1) 建立一个新工程（程序）：与案例1-1相同 (2) 出现窗体编辑器,调整窗体至要求的大小。 (3) 在窗体上按照题目要求画出控件： 画三个“文本框”，框内自动标出“Text1、Text2、Text3”； 画三个标签, 标签内自动标出“Label1、Label3、Label3” 画四个“命令按钮”，按钮内自动标出“Command1、Command2、Command3、Command4”。 (4) 画完所有控件后，适当调整其位置和大小。 思考：一般情况下，同类按钮应该一样大，应怎样实现？ 第三步：设置控件的属性 (1) VB程序设计中要设置的属性只有几个最常用的属性，如控件的“名称”、Caption、Font、Text、ForeColor，其它属性不用设置，采用默认值即可。 (2) 为使设计界面时清晰有条理，通常在设计前将窗体、控件的设计信息做成一个表，然后按这个表来设计。本题的界面设计信息表为： 对象名称(Name) 标题(Caption) 文本(Text) 窗体 Form1 VB程序设计示例 标签1 Label1 数据1 标签2 Label2 数据2 标签3 Label3 计算结果 文本框1 TxtData1 无空 文本框2 TxtData2 无空 文本框3 TxtRel 无空 按钮1 cmdAdd 加法无 按钮2 cmdSub 减法无 按钮3 cmdCls 清屏无 按钮4 cmdEnd 清屏无 注意： （1）“名称”就是Name属性，与Caption是不同的属性。Name是对象的内在名字，Caption 是对象的外在“标题”。 （2）“名称”属性是只读属性，在属性窗口中标的是“名称”，在程序中则用Name。 （3）控件的Font属性和ForeColor属性用户可以根据需要设置。 第四步：编写事件驱动程序代码（在案例1-1中没有这一步） 1．进入“程序代码窗口”（有4种办法） ?双击要编写驱动程序的对象； ?执行[视图]/[代码窗口]； ?按F7键； ?单击“工程资源管理器”的“查看代码” 程序代码窗口介绍 Access中的VB程序设计 其实考的都比较简单，因为是Access，重点不在VB，你主要的是看看简单的VB语法知识，还有一些常用的函数，因为这是专门解决计算的。有什么示例可以找我探讨，我先给你一些常用函数，用与解决解答中的计算问题，你可一多练习一下，最好下载VB6.0实战下，效果很好： 计算机等级考试二级VB常用函数解析 （一）类型转换类函数 1. CType(X) [格式]： P=CBool(X) ' 将X转换为“布尔”（Boolean）类型 P=CByte(X) ' 将X转换为“字节”（Byte）类型 P=CCur(X) ' 将X转换为“金额”（Currency）类型 P=CDate(X) ' 将X转换为“日期”（Date）类型 P=CDbl(X) ' 将X转换为“双精度”（Double）类型 P=CInt(X) ' 将X转换为“整型”（Integer）类型 P=CLng(X) ' 将X转换为“长整型”（Long）类型 P=CSng(X) ' 将X转换为“单精度”（Single）类型 P=CStr(X) ' 将X转换为“字符串”（String）类型 P=Cvar(X) ' 将X转换为“变体型”（Variant）类型 P=CVErr(X) ' 将X转换为Error值 [ 范例]： (1). CStr(13)+CStr(23) ' 数值转换成字符串后，用"+"号连接，结果：1323 (2). CInt("12")+12 ' 字符串转换成整型后与12相加，结果：24 (3). P=CInt(True) ' 输出结果为-1 ' 布尔值与数值的转换时要注意，布尔值只有True和False，其中True在内存中为-1,False 存为0 第1章 6.0 概述 [课程引入]： 先用教师机播放《教学实例程序演示系统》软件，将几个用编写的、有趣的典型应用程序实例，例如：倒计时、滚动字幕、学生学籍管理、自制浏览器等演示给学生，引入本课程，以提高学生的感性认识及学习兴趣。 [课堂提问及讨论]： 有哪些同学见过或使用过应用程序？试举例说明。 [知识点讲解]： §1.1程序设计基础 一、程序设计几个概念 1、程序：是为解决某一问题而编写的语句集合，是将一个实际问题的具体操作用某种程序设计语言描述出来的指令序列。 2、程序设计：是分析问题、编写程序、调试程序的过程。 3、程序设计语言：是人们根据描述问题的需要而设计的，有固定的符号和语法规则、是计算机能够识别的人机交流所使用的语言。 二、程序设计语言的发展概况 1、机器语言 2、汇编语言 3、高级语言 §1.2 6.0简介 一、 6.0简介 1、概念： 6.0简称, 是环境下可视化的、面向对象的程序设计开发工具。 其中：英文原意是“可视的”、“视觉的”。6.0是版本号。 2、功能：用它可以开发数学计算、数据库管理、客户/服务器软件、通讯软件、多媒体及软件等。其功能之强大绝非是早期所能比拟的，其直观、通俗易懂，特别适合于初学者。 3、发展过程：美国微软公司于1991年推出1.0版至今已经历了6个版本。 4、中常用的几个基本概念： 面向对象：面向对象编程是建立在类的基础上的，其通过类的封装而使源程序更加便于维护。 事件驱动：在事件驱动模式下，程序的执行是依靠系统能够被识别的触发事件启动的。 5、的版本： 6.0是开发工具组件中的一员，它共有3个版本：标准版、专业版、企业版。教学中采用企业版。 6、运行环境 操作系统： 4.0、98，或更高版本。 ：48666 或更高的处理器。 内存：95／98下要求16以上的内存，下要求32以上。 磁盘空间：对于标准版或专业版，典型安装48，完全安装80。对于企业版，典型安装128，完全安装147。 其他设备：驱动器，鼠标。 7 、特点： ◇具有面向对象的可视化设计工具； ◇事件驱动的程序运行机制； ◇提供了易学易用的应用程序集成开发环境。 ◇结构化的程序设计语言； ◇支持多种数据库系统的访问； ◇支持动态数据交换、动态链接库和对象嵌入技术； ◇完备的联机帮助功能。 8、安装（略）、帮助系统的使用（略） 二、 6.0启动、退出 1、的启动 双击桌面上的快捷方式图标，或单击桌面上“开始”按钮→“程序”→6.0中文版→ 6.0中文版，都可以启动6.0。 2、的退出VB程序题
VB程序开发的一般步骤和方法是怎样的
VB程序
VB程序基本知识学案
VB程序的建立和运行
vb初学经典程序示例
vb编程代码大全
VB程序
vb典型程序示例
vb程序网上作业答案(1)
一、编写简单的VB程序：然后实现该程序
Access中的VB程序基础
vb程序设计教案(详细)