VB(5)
vb第5章
件 Else
MsgBox "请先在列表中选择某字段", , "注意"
End If
End Sub
17
(2) 将右列表框中选择的字段移动到左列表框中。
Private Sub Command2_Click()
If List2.ListCount = 0 Then
第 五
MsgBox "列表中已没有可选的字段", , "注意"
Visual BASIC
第5章
常用控件
本章要点:
• 选项按钮、复选框
程
• 列表框、组合框
序 设
• 计时器、滚动条、框架
计
1
5.1 控件的公共属性
1. Name属性
(1) 运行时是只读的
第 (2) 缺省名称
五 章
(3) 以字母开始，最长40个字符，可包括字母、数字
和下划线，不能包括标点符号或空格(允许汉字)
常 End Sub
用 内
Private Sub Check3_Click()
部 Text1.FontStrikethru = Check3.Value
控 End Sub 件
Private Sub Check4_Click()
Text1.FontUnderline = Check4.Value
End Sub
第
五
章 List1
List2
常
用
内
部
控 件
将左列表框中选择的书名移动到右列表框中
将右列表框中选择的书名移动到左列表框中
将左列表框中的所有书名移动到右列表框中
将右列表框中的所有书名移动到左列表框中
VB语言第5章教案
主页
采用Print直接在窗体上输出结果，程序代码如下： Private Sub Form_Load() Show For i = 1 To 7 Print Tab(10 - i); For j = 1 To 2 * i - 1 Print Chr(i + 48); Next j Print Next i End Sub Print Chr(i+48)与Print i有所不同
主页
例5.7 用π /4＝1 - 1/3 + 1/5 - 1/7 + …… 级数,求π 的近似值。当最后一项的绝对值小于10-5时，停止计算 采用Print直接在窗体上输出结果，程序代码：
Private Sub Form_Load() Show Dim pi As Single, n As Long, s As Integer pi = 0 : n = 1 : s = 1 Do While n <= 100000 '或1/n>=0.00001 pi = pi + s / n s = -s n=n+2 Loop Print "π="; pi * 4 End Sub
假设列表框List1中有四个表项，并已选定第2项，则 有： List1.ListIndex 为1 List1.Text的值为”副教授” List1.Selected(1)为True
VB第5章 数组、结构与集合
其中的“变量名”表示一个用于依次存放各数组元素的变量， 其类型必须与数组元素的类型一致。在需要遍历所有数组元素时， 特别是在数组长度不易确定的环境中，使用这种For Each…Next语 句就很方便。
5.1 数组
5.1.1 声明和访问数组 3. 多维数组 下标数量大于等于2的数组称为“多维数组”。在多维数组中， 比较常用的是二维数组，其数据组织形式与常见的二维表格十分相 似。声明二维数组与声明一维数组的语法格式类似，例如： Dim ary1(3, 4) As Integer '声明一个4行5列的数组 '声明一个两索引最大值不确定的二维数组 Dim ary2(,) As Integer
第5章 数组、结构与集合
本章讲述的主要内容
5.1 数组数组
在现实生活中有着各种各样的数据，这些数据在所讨论的问 题中可分为两类：一类是仅与其取值有关，而与其所在的位置无 关；更常见的另一类是不仅与其取值有关，并且与其所在的位置 也密切相关，如二维表格中的数据与其所在行列坐标有着密切的 关系。 前面我们所讲过的变量都是简单变量，利用简单变量可以解 决不少问题，但是如果在程序设计中仅使用简单变量，势必受到 简单变量单独性和无序性的限制，而难于或无力解决那些数据不 仅与取值有关，而且与其所在位置也有关的较复杂的问题，如学 生成绩就隐含着名次和成绩。要想方便地解决这些问题，通常需 要借助于复杂数据类型即数组。数组是一些具有相同类型的数据 按一定顺序组成的序列，数组中的每一个数据都可以通过数组名 及唯一索引号（下标）来存取。
声明多维数组时，用逗号表示维数，一个逗号表示二维数组， 两个逗号表示三维数组，依次类推。
5.1 数组
5.1.2 Array类 Visual Studio提供的Array类中包含了一些适用于数组常用操 作的方法，使用这些方法能完成数组清零、复制、排序、反转等常 用操作。Array类的常用方法见表5-2。
大学计算机vb课程 第五章 常用控件【精选】
0--Unchecked：未被选定
False：未选定 1--Checked：选定
2--Grayed：灰色，禁止选择
Style属性
0--Standard：标准方式
1--Graphical：图形方式
Picture属性
未选定时的图标或位图
DownPicture属性 选定时的图标或位图
DisabledPicture属性 禁止选择时的图标或位图
选中。
Sorted(D)：True：按字母顺序排列。False：按加入先后顺序排列。 Text(P) ：被选中列表项的内容，如：
List 1.List(List 1.ListIndex) = List1.Text MultiSelect：0-None：禁止多项选择；
1-Simple：简单多项选择； 2-Extended：扩展多项选择。
常用事件
5.1 单选钮和复选框
有Click事件，因为单击时自动改变状态，故不需要编写过程。
【例5-1】
用单选按钮和复选框制作如图 所示窗口。当用户选择了“所在学 院”和“学习课程”后，单击“确 定”，则选择结果显示在下面的文 本【框属中性。设置】
默认名
Name属性
其它属性及设置
Option1 Option2 Option3 Check1 Check2 Check3 Check4 Label1
择的项目列出来，不 组合框有三种类型，由其Style属性值决定，Style
能直接修改项目。 可为0、1或2。
0——默认值。下拉式组合框。
1——简单组合框。
2——下拉式列表框。
常用属性
5.3 列表框和组合框
说明：P——只可在程序中设置或引用，D——只可在设计状态设置 List (PD) ：字符型数组，存放列表框的项目，下标从0开始。 ListIndex(P)：选中项目的序号，无项目被选定时为-1。 ListCount(P)：项目的数量，ListCount-1是最后一项的下标。 Selected(P)：逻辑数组。Selected(i)的值为True表示第i+1项被
vb教程5
数组的引用
引用数组元素的格式为： 数组名（下标） 数组名（下标） 说明： (1) 在程序中，凡是能用变量的地方，都可用数组 元素来替换。 (2) 引用数组元素时，要注意数组名、类型及维数 要与定义的一致。 (3) 数组元素的下标要在定义的范围之内。
第5章 数组
例 5-3 定义一个可存放不同类型数据的一维数组 并输出。
第5章 数组
例5-4
用LBound函数和UBound函数改写例5-3。
第5章 数组
静态数组
静态数组的二种形式: 静态数组的二种形式: 用Dim语句所定义的数组。 Dim语句所定义的数组。 用Static语句定义的数组。 Static语句定义的数组。 两者的区别： (1) Static语句只能出现在过程中，Dim 语句不仅可 Static语句只能出现在过程中，Dim 以出现在过程中，还可以出现在通用声明中。 (2) 在过程中用Dim语句定义的数组，过程执行结束 在过程中用Dim语句定义的数组，过程执行结束 后将释放内存空间。 (3) 在过程中用Static语句定义的数组，过程执行结 在过程中用Static语句定义的数组，过程执行结 束后将不会释放内存空间。
第5章 数组
例5-6
随机产生n 个学生的一门课成绩，在图片框 中输出，求其平均成绩，用文本框输出，学生人数 由文本框输入。
第5章 数组
例5-6 代码
第5章 数组
数组的基本操作
数组是一种构造类型，数组名通常是整个数组 的标识，对数组的操作实际上是对数组元素的操作。 基本操作一般是指对数组元素所进行的输入和输出， 即如何给数组元素赋值，又如何将数组元素的值显 示在窗体上或控件上。
第5章 数组
数组元素的输入(方法一)
vb课后练习答案习题解答 (5).
第5章数组与记录5.1 填空题1.若要定义一个包含10个字符串元素,且下界为1的一维数组s,则数组说明语句为(。
答案:Dim s(1 To 10 As String2.若要定义一个元素为整型数据的二维数组a,且第一维的下标从0到5,第二维下标从-3到6,则数组说明语句为(。
答案:Dim a(0 To 5,-3 To 6 As Integer3.如果数组元素的下标值为实数,则VB系统会按(进行处理。
答案:四舍五入原则4.数组元素个数可以改变的数组称为(;数组元素可以存放不同类型数据的数组称为(。
答案:可调数组、可变类型数组5.数组刷新语句用于(。
若被刷新的数组是数值数组,则把所有元素置(;若被刷新的数组为字符串数组,则把所有元素置(。
答案:清除指定数组内容、0、空字符串10.控件数组是由一组类型和(相同的控件组成,共享(。
答案:名字、同一个事件过程11.控件数组中的每一个控件都有唯一的下标,下标值由(属性指定。
答案:Index12.建立控件数组有两种方法:(和(。
答案:在设计阶段通过相同Name属性值来建立、在程序代码中使用Load方法5.2 选择题1.下列一维数组说明语句错误的是(。
a Dim b(100 AS Doubleb Dim b(-5 To 0 AS Bytec Dim b(-10 To –20 AS Integerd Dim b(5 To 5 AS String答案:c2.若有数组说明语句为:Dim a(-3 To 8,则数组a包含元素的个数是(。
a 5b 8c 11d 12答案:d3.设有数组说明语句:Dim c(1 To 10,则下面表示数组c的元素选项中(是错误的。
a c(i-1b c(5+0.5c c(0d c(10答案:c4.下列数组说明语句中正确的是(。
a Dim a(-1 To 5,8AS Stringb Dim a(n,nAS Integerc Dim a(0 To 8,5 To –1AS Singled Dim a(10,-10AS Double答案:a5.设有数组说明语句:Dim b(-1To2,-2To2,则数组b中元素的个数是(。
(整理)计算机二级VB第5章选择题及答案
1、2、11、为了把焦点移到某个指定的控件，所使用的方法是（）。
A、S etfocusB、V isibleC、R efreshD、G etfocus12、对文本框text1编写如下事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim b As Stringb = Chr(KeyAscii)KeyAscii = Asc(UCase(b))End Sub运行时，下列叙述中，正确的是（）。
A、T ext1中无法输入字符B、T ext1中内容为“b”C、T ext1中输入的字符都变为大写D、T ext1中输入的字符都被转换成ASCII码13、为了暂时关闭计时器，应把该计时器的（）属性设置为False。
A、V isibleB、T imerC、E nabledD、I nterval14、在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程；Private Sub Form_Load()List1.Additem” 357”List1.Additem”246”List1.Additem” 123”List1.Additem” 456”Text1.Text=””End SubPrivate Sub List1_Dblclick()A = List1.TextPrint A + Text1.TextEnd Sub程序运行后，在文本框中输入“789”，然后双击列表框中的“456”，则输出结果为（）。
A、1245B、456789C、789456D、015、假设时钟控件的Interval属性为1000，Enabled属性为True，则下列事件过程每隔一秒计算机将发出（）次Beep铃声。
Private Sub Timer1_Timer()For I=1 to 10BeepNextEnd SubA、1000B、10C、100D、1000016、设置图片框的（）使其按图片尺寸自动调整大小。
visual basic (vb)第5章_2(循环语句)解析
Visual Basic 程序设计
1 为什么要使用循环结构？ 使用循环结构，上述程序可以修改为： Private Sub Form_Click() For I = 1 To 6 Print "**********" Next I End Sub 与前面的程序相比，循环结构使得程序更加 清晰，功能更加强大，修改也更加方便。
VB 程序设计基础课件 Visual Basic 程序设计
例题3 计算S=1!+2!+……+20!
Private Dim Dim S = For Sub Form_Click() S As Single, temp As Single I As Integer, J As Integer 0 I = 1 To 20 temp = 1 For J = 1 To I temp = temp * J Next J S = S + temp Next I Print "1!+2!+……20!=", S End Sub
例题5 输出乘法口诀—2
Private Sub form_Click() For I = 1 To 9 For J = 1 To I Print I;"*"; J; "="; I * J; ' 不换行 Next J Print ' 换行 Next I End Sub
Visual Basic 程序设计
例6 输出图形
Visual Basic 程序设计
Private Sub picture1_Click() Picture1.Cls ' 清除图片框 n = Val(InputBox("请输入行数")) For i = 1 To n Picture1.Print Tab(n + 1 - i); ' 控制打印起点 For j = 1 To 2 * i - 1 Picture1.Print "*"; Next j Picture1.Print For j = 1 To n - i Next i Picture1.Print Spc(1); End Sub
VB教程 (5)
3．关于循环体 循环体是一条或多条语句 可以包括分支结构和循环结构 可以写成一行或多行。 循环体中可以引用循环控制变量，也可以不引用。 但不要随便修改循环控制变量的值，以防引起循 环混乱。 4．强行终止死循环 使用Ctrl+Break可以暂停程序运行
再使用VB工具栏上的“结束”按钮终止程序执行。 19 Visual Basic程序设计教程
5.4.2 Exit For语句
循环中，中途退出循环，称为跳出循环。 跳出For/Next循环的语句就是Exit For。 跳出循环后，将执行Next语句后面的语句。 Exit For语句一般往往与If语句合用。如：
If A >= 2 Then '素数判断 For i = 2 To Int(Sqr(A)) If A Mod i = 0 Then Exit For 'A能被i整除,不是素数,退出For循环 Next i If i > Int(Sqr(A)) Then '表示A不能被2~ Int(Sqr(A))中的数整除 Print A; "是素数" Else '此时表示程序运行是通过Exit For转出来的 Print A; "不是素数" End If Else Print A; "不是素数" End If
在使用Exit Do退出循环的时候，没有改变i的值，故A能被该 i整除，即A可以表示成A=i*(A/i)。 事实上只要判断A能否被2、3、……、Sqr(A)整除即可。
9
Visual Basic程序设计教程
逻辑运算使用逻辑运算符 VB提供了多个逻辑运算符，有： 非(Not)、与(And)、或(Or) 异或(Xor)、等价(Eqv)、蕴含(Imp)。 1．基本格式
vb第五章 数组
5.2 数组的基本操作
VB不允许对数组整体操作，例如： Dim A(2,3) As Integer A=2 不允许！ 只能对数组元素进行操作，例如： A(1,1)=1 A(1,3)=2 A(2,2)=A(1,1)*2+A(1,3)
25
一、数组元素的赋值
1、用赋值语句给数组元素赋值 例如：A（1，1）=1 A（1，2）=5 2、通过循环语句给数组元素赋值 例如： For I=1 To 10 A(I)=Int(100*Rnd)+1 Next I 该循环语句产生10个100以内的随机整数，存 入数组A中。
22
For Each –Next举例(一维数组的使用) P90例
运行结果： Option base 1 14 21 28 35 42 49 Private Sub Form_Click() 56 63 Dim A(12) As Integer, V As Variant 70 77 84 91 Dim I%, Js% Js = 0 Js = 14 For Each V In A For I = 1 To 12 Js = Js + 1 A(I) = Js Print V; If Js Mod 6 = 0 Then Print Js = Js + 7 输出每行 Next V Next I 6个元素 Print End Sub
数组是具有相同数据类型的多个 值的集合，数组的所有元素按一定顺 序存储在连续的存储单元中。
14
一维数组的结构
逻辑结构 内存的存 放次序
StrA(0) StrA(1) StrA(2) StrA(3) StrA(4) StrA(5) StrA(6) StrA(7) StrA(8)
存储结构
VB程序设计考试题库(5)
VB程序设计考试题库（5）一、单选题（每题1分，共50题）1.以下关于Visual Basic特点的叙述中，正确的是（未填）。
错误正确答案：DA.构成Visual Basic程序的多个过程有其固定的执行顺序B.Visual Basic程序只可以编译运行，不可以解释运行C.Visual Basic采用面向对象的程序设计方法D.Visual Basic程序是结构化程序，具备结构化程序的三种基本结构2.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是（未填）错误正确答案：CA.窗体布局窗口B.立即窗口C.代码窗口D.监视窗口3.在设计阶段，当双击窗体上的某一个文本框控件时，系统将在代码窗口中显示该文本框控件的（未填）事件过程模板。
错误正确答案：CA.ClickB.DblclickC.ChangeD.GotFocus4.文本框的（未填）属性用于设置或返回文本框中的文本内容。
错误正确答案：AA.TextC.Caption5.程序运行时，若要通过回车键调用某命令按钮的Click事件过程，则可设置该命令按钮的（未填）属性值为True来实现。
错误正确答案：CA.valueB.EnabledC.DefaultD.Cancel6.下列函数中，返回值的类型与其它3个不同的是（未填）。
错误正确答案：AA.NOW()B.HOUR()C.YEAR()D.DAY()7.表达式"Turbo"+"c">"Ture"+"Basic"的值是（未填）。
错误正确答案：BA.TRUEB.FALSEC.NullD.出错信息8.下列不能作为VB中的变量名的符号是（未填）。
错误正确答案：CA.A45C.89TaD.xy9.函数Len(str(val("-135.6")))的值是（未填）错误正确答案：BA. 11B. 6C. 5D. 810.为了给x，y，z三个变量赋初值1，下面正确的赋值语句是（未填）。
VB第5章 循环结构程序设计
教案讲稿第五章循环结构程序设计[旧课复习]：复习内容：1.多分支选择结构语句2.选择结构的嵌套复习目的：学生回顾多分支选择结构的实现语句和嵌套语句的使用复习时长：大约8分钟[新课导入]：导入方式：以日常生活中的实例让学生理解什么是循环结构导入目的：增强学生的理解能力导入时长：大约7分钟[新课讲授]：重点：Do…Loop和For…Next循环语句的使用难点：多重循环语句的使用方法：运用多媒体辅助教学，采用讲授法和案例教学法5.1循环语句循环结构是专门用于实现有规律的重复性操作的算法结构，是结构化程序设计的3种基本结构之一。
所谓循环，是指在一定的条件下多次重复执行一组语句。
循环结构由两部分组成。
（1）循环体：即要重复执行的语句序列。
（2）循环控制部分：指定循环条件来控制重复次数的语句。
正常情况下，循环次数必须是有限的。
5.1.1 Do…Loop语句若事先不知道循环次数，只知道循环结束条件，可以使用Do…Loop循环。
Do…Loop循环语句有前测型循环和后测型循环两种语法结构。
1. 前测型Do…Loop循环前测型循环是先判断条件，根据条件成立与否决定是否执行循环体，这种情况下，循环体有可能一次都不被执行。
前测型循环有两种语法格式：格式1（当型前测型）：Do While〈条件〉[〈语句列1〉][ Exit Do ][〈语句列2〉]Loop格式2（直到前测型）：Do Until 〈条件〉[〈语句列1〉][ Exit Do ][〈语句列2〉]Loop说明：（1）当VB执行Do While…Loop循环时，先判断指定的条件，若条件为True，执行循环体，条件为False时退出循环；当执行Do Until…Loop循环时，先判断指定的条件，若条件为False，执行循环体，条件为True时退出循环。
（2）〈条件〉是条件表达式，为循环的条件，其值为True或False。
如果省略条件即条件为Null，则条件会被当作False。
vb5
5.1 数组 5.2 数组 自定义类型及其数组 5.5 综合应用
5.1 数组
数组并不是一种数据类型，而是一组相同类型变量 数组并不是一种数据类型， 的集合，数组必须先声明后使用。数组又分为静态（ 的集合，数组必须先声明后使用。数组又分为静态（定 长）数组和动态（可变长）数组两类。 数组和动态（可变长）数组两类。
For i=0 to UBound(b) b(i);” ; Picture1.Print b(i); ”; Next i 注意:(1)利用 函数对数组各元素赋值 数组各元素赋值， 注意:(1)利用 Array 函数对数组各元素赋值，声明的数 组是可调数组或连圆括弧都可省略的数组， 组是可调数组或连圆括弧都可省略的数组，并且 其类型只能是Variant. 其类型只能是Variant. (2)数组的下界为0 (2)数组的下界为0，上界由 Array 函数括号内的参 数组的下界为 数个数决定， 获得， 数个数决定，也可通过函数 Ubound 获得， 也可改变数组的维数。 也可改变数组的维数。 2、数组的输入 可以通过文本控件输入， InputBox函数输入 函数输入。 可以通过文本控件输入，也可通过 InputBox函数输入。
5.2 数组的基本操作
1、给数组元素赋初值 （1）利用循环结构 For i=1 to 10 A(i)=0 Next i （2）利用 Array 函数 Dim a As Variant, b As Variant, i% a=Array(1,2,3,4,5) b=Array(“abc” b=Array(“abc”,“def”,“67”) def” 67” For i=0 to UBound(a) a(i);” ; Picture1.Print a(i); ”; Next i
VB第5至6次
VB常用算法（一）累加和连乘1、算法说明累加形式：V=V+e连乘形式：V=V*e其中：V是变量，e是递增表达式。
累加和连乘一般通过循环结构来实现。
注意：需在执行循环体前对变量V赋初值。
一般的，累加时置初值0；连乘时置初值为1。
举例求N!的结果。
错误的写法：Private Sub Command1_Click()Dim n%, i%, s&n = Val(InputBox("输入n"))For i = 1 To ns = 1 ‘赋初值语句位置不对！s = s * iNext iPrint s ‘输出s的值为n，而不是n!End Sub应用举例根据下列公式，求自然对数e的的近似值。
要求：误差小于0.00001解题技巧1)由于这类题目往往是根据精度要求来求值，因此我们不能预知具体循环次数，所以这类题目一般用D o循环，很少用For循环。
设定循环变量和通项变量，注意各变量的初值；2)分解通项表达式中各因子，并分别将各因子用循环变量表示；3)如果步骤2中有的因子比较复杂，难以直接用变量表示，此时可以考虑使用Function过程；4)根据步骤1、2、3，写出通项表达式；5)根据精度要求（往往是误差或通项小于10负多少次方这样一个关系表达式），写出一条满足精度或通项要求后跳出循环的语句。
通项是用：if 通项表达式<10^(-N) then exit do ，误差用：if 通项表达式>10^(-N) then exit do注意这句话一般需放在累加或者连乘式之前。
题目一根据X值计算：n＝1，2，……要求：n项绝对值小于等于10-6为止。
题目二编程题按下列公式编写求积分余弦函数值的程序。
当通项绝对值小于10－5时停止计算。
VB常用算法（二）最值问题1、算法说明在若干数中求最大值，一般先取第一个数为最大值的初值（即假设第一个数为最大值），然后，在循环体内将每一个数与最大值比较，若该数大于最大值，将该数替换为最大值，直到循环结束。
第12章 vb与数据库(5)
4.使用数据环境设计器 4.使用数据环境设计器 ①添加数据环境设计器 添加数据环境设计器到Visual Basic工程中,数据环 添加数据环境设计器 境设计器中则自动添加一个Connection对象。 ②设置Connection对象的属性 设置 对象的属性 右击Connection对象选择[属性]命令，设置“提供 程序”和“连接”。 ③创建Command对象 创建 对象 右击Connection对象选择[添加命令]命令，即可创 建和Connection对象相关联的Command对象到数 据环境设计器中。
Visual basic
程序设计
第十二章 vb与数据库（5） vb与数据库 12章 VB与数据库应用 与数据库应用（
12.8
数据环境设计器
12.9
数据视图
12.10
数据报表设计器
结束
本节主要介绍使用数据 环境设计器、数据视图和数 据报表使用的方法。
结束
结束
3. 创建数据报表 创建数据报表 ①添加数据报表
选择[工程]/[添加 Data Report]命令，则添加一个 数据报表（默认名为DataReport1） 如果设计器不在[工程]菜单上，单击[工程]/[部件]命 令。在“设计器”选项卡，选择“Data Report"。
②设置 DataReport 对象的属性
结束
Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 datev.rscommand1.MoveFirst Case 1 datev.rscommand1.MovePrevious If datev.rscommand1.BOF Then datev.rscommand1.MoveFirst End If
VB第5章
5.1.2 逻辑运算符与逻辑表达式
逻辑运算符的含义及逻辑表达式示例。
运算 符 Not And Or Xor Eqv Imp 含义 逻辑非 逻辑与 逻辑或 逻辑异 或 逻辑等 于 逻辑蕴 含 举 例 Not ("a" > "b")，结果为 真 (5 >= 3) And (9 > 5)，结 果为真 ("x" > "y") Or (4 <> 5)， 结果为真 (8 = 7) Xor (10 > 7)，结 果为真 (12 > 8) Eqv ("c" > "d")， 结果为假 (10 = 10) Imp (12 > 22)， 结果为假 说 明 “a” > ”b” 为假，再进行取反运算，所以 结果为真 两个表达式的值都为真，结果为真 两个表达式的值有一个为真，结果为真 两个表达式的值不同，结果为真 两个表达式的值一真一假，结果为假 第一个表达式值为真，第二个为假，所 以结果为假。
button参数是一个整数说明当前是哪个鼠标键shift参数用于判断键盘上shiftctrl和alt等3个按键是否被按下xy是鼠标指针的位置坐标571鼠标事件button参数十进制二进制按键情况000没有按下任何鼠标键001按下鼠标左键010按下鼠标右键011同时按下鼠标左右键100按下鼠标中间键101同时按下鼠标中间左键110同时按下鼠标中间右键111同时按下鼠标的三个键571鼠标事件shift参数表十进制数二进制数说明000没有按下转换键001按一个shift键010按一个ctrl键011按ctrlshift键100按alt键101按altshift键110按altctrl键111按altctrlshift键571鼠标事件释放鼠标键时触发mouseup事件
VB语言第5章教案：用户界面设计技巧
VB语言第5章教案：用户界面设计技巧。
本文将从以下几个方面阐述 VB语言用户界面设计技巧：一、用户界面设计的原则在 VB语言中，良好的用户界面设计应该遵循以下原则：1.易用性原则。
良好的用户界面是易于使用的，而易用性是用户界面设计的首要目标。
2.一致性原则。
用户界面应该遵循一致性原则，即相同的控件具有相同的外观和功能。
3.导航性原则。
用户应该能够轻松地找到他们所需的功能。
二、用户界面设计元素VB语言用户界面设计元素包括窗体、标签、按钮、文本框、列表框等。
在设计用户界面时，需要合理的运用这些元素，以满足用户的需求。
1.窗体设计。
窗体是 VB语言的主界面，窗体设计需要注意窗体的尺寸、颜色、边框等方面。
2.标签设计。
标签是窗体中重要的元素，可以用于显示文本以及组织控件。
3.按钮设计。
按钮是实现功能的重要元素，需要合理的选择按钮名称、排列顺序、按钮大小等。
4.文本框设计。
文本框可以用于输入用户数据，需要注意控件大小、可输入字符、输入掩码等方面。
5.列表框设计。
列表框可以用于显示列表数据，需要注意控件大小、列头、排列顺序等方面。
三、用户界面设计技巧VB语言用户界面设计技巧包括以下几个方面：1.背景颜色设计。
背景颜色的选择需要考虑色彩的搭配及色调的调和，应选择适合用户接受的颜色。
2.字体颜色设计。
字体颜色的选择需要考虑可读性，应选择符合常规习惯的字体颜色。
3.图标设计。
图标可以提高界面美观程度，需要注意图标的大小、颜色等因素。
4.按钮设计。
按钮设计需要考虑按钮名称、按钮颜色、按钮大小等因素，以提高按钮的易用性。
5.快捷键设计。
提供快捷键可以提高软件的效率及易用性，在快捷键设计中需要考虑快捷键是否便于记忆，是否影响操作流程等因素。
四、总结VB语言用户界面设计是软件设计中重要的一环，在设计用户界面时需要充分考虑用户需求，选择恰当的控件和设计技巧，提高软件的易用性和用户体验，从而提高软件的应用价值。
VB第5课
求平均 数列求和
VB第 课作业: VB第4课作业: 一,编写程序: 编写程序: 输入一个三位正整数x 如果x是回文数(正过来读和反过来读一样, 1. 输入一个三位正整数x , 如果x 是回文数 ( 正过来读和反过来读一样 ,如 383就是一个回文数 就是一个回文数, 123就不是一个回文数 就不是一个回文数) 输出"是回文数" 383就是一个回文数,而123就不是一个回文数),输出"是回文数", 否则输出"不是回文数" 否则输出"不是回文数". 2.输入一个小于等于100的正整数a,如果它是7的倍数,则输出"是7的倍 输入一个小于等于100的正整数a 如果它是7的倍数,则输出" 100的正整数 如果不是7的倍数,则输出"不是7的倍数" 数",如果不是7的倍数,则输出"不是7的倍数".如果输入的正整数 超过100 则显示"输入错误" 100, 超过100,则显示"输入错误". 盘根目录下建立一个以四位学号命名的文件夹, 二 , 在 D 盘根目录下建立一个以四位学号命名的文件夹 , 将程序保存在文件 夹中,并生成以学号命名的exe文件. exe文件 夹中,并生成以学号命名的exe文件. 注意:请将Form1 Caption属性 注意:请将Form1的Caption属性 Form1的 改为四位学号. 改为四位学号. 回文数 7的倍数
�
Dim x as Integer x=Inputbox("请输入一个三位正整数") If x\100=x mod 10 Then print "是回文数" Else print "不是回文数" End If
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、判断题保存判断题阅卷1、移动框架时框架内控件也跟随移动，因此框架内控件的Left和Top属性值也随之改变。
对错错误参考答案：错2、块If结构中的End if可以缺省。
对错错误参考答案：错3、调用一个过程时，实际参数和形式参数的类型必须一致。
对错错误参考答案：对4、由于Single型变量的取值范围比Long型变量大，所以Single型变量开销内存也比Long型多。
对错错误参考答案：错5、语句Const A=100是将A声明为一个常量。
对错错误参考答案：对6、利用窗体布局窗口，可以布置应用程序运行时各窗体的位置。
对错错误参考答案：对7、在程序运行中，目录列表框将以树形展开方式显示某个盘或目录内的各个子目录名，并用是否为打开的文件夹图标来表示选定的目录。
对错错误参考答案：对8、通过设置影像框的Picture属性可改变影像框中显示的图片，若要清除图片也是通过设置Picture属性来实现。
对错错误参考答案：对9、列表框控件List1的最后一个表项为List1.List (List1.ListCount)。
对错错误参考答案：错10、在消息框（MsgBox）中，“Prompt”（消息）是必选项，最大长度为64个字符。
对错错误参考答案：错保存判断题阅卷二、单选题保存单选题阅卷1、将命令按钮Command1设置为窗体的取消按钮，可修改该控件的______属性。
A、EnabledB、ValueC、DefaultD、Cancel错误参考答案：D2、下面合法的变量名是______。
A、EndB、privateC、ABC_1D、4A错误参考答案：C3、由“For i=1 To 9 Step -3”决定的循环结构被执行______次。
A、4B、5C、6D、0错误参考答案：D4、在窗体Form1的LOAD事件过程中有语句：Form1.Print "Visual Basic"，但运行时窗体并未显示打印文字，此时需要修改窗体的______属性,才能使窗体启动有输出结果。
A、AutosizeB、EnabledC、AutoredrawD、Visible错误参考答案：C5、下面哪一项不可以赋值给数值型变量？A、123.4B、"123.4"C、1.234F2D、1.234E2错误参考答案：C6、下列选项中，属于VB程序设计的特点是______。
A、面向过程、事件驱动B、面向对象、顺序驱动C、面向过程、顺序驱动D、面向对象、事件驱动错误参考答案：D7、执行语句“Write #1, 123; -34.56, "hey"; Date”后，相应文件内被写入 ______。
A、123,-34.56,hey,2001-08-03B、"123","-34.56","hey","2001-08-03"C、123,-34.56,"hey",#2001-08-03#D、123 -34.56 hey 2001-08-03错误参考答案：C8、下列______是用来画圆、圆弧及椭圆的。
A、Circle方法B、Pset方法C、Line方法D、Point属性错误参考答案：A9、文本框控件的Alignment属性决定______。
A、是否显示多行文本B、鼠标移至控件时，所显示的提示C、显示文本的对齐方式D、文本框的显示内容错误参考答案：c10、描述以（1000，1000）为圆心、以400为半径画1/4圆弧的语句，以下正确的是______。
A、Circle(1000,1000),400,0,3.1415926/2B、Circle(1000,1000),,400,0,3.1415926/2C、Circle(1000,1000),400,,0,3.1415926/2D、Circle(1000,1000),400,,0,90错误参考答案：C保存单选题阅卷三、程序填空题保存程序填空题阅卷1、【程序说明】本程序利用1个定时器、1个文本框和2个命令按钮制作一个动态表。
各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。
运行时，单击“开始”按钮后表开始每分钟计一次时，并在文本框上显示总分钟数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时间（折算成小时、分钟，不计算秒数）。
Dim x as longPrivate Sub Form_Load()Timer1.Interval = 60000: Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click()Clsx = 0----1----End SubPrivate Sub Command2_Click()Dim h As Integer, m As Integer, s As IntegerTimer1.Enabled = Falseh = ----2----m = ----3----Print "运行了" + Str(h) + "小时" + Str(m) + "分"End SubPrivate Sub Timer1_Timer()----4----Text1.text = xEnd Sub（1）请在左边文本框当中输入正确答案。
错误参考答案：Timer1.enabled=true（2）请在左边文本框当中输入正确答案。
错误参考答案：x\60（3）请在左边文本框当中输入正确答案。
错误参考答案：x mod 60（4）请在左边文本框当中输入正确答案。
错误参考答案：x=x+1 或者 x=1+x2、【程序说明】程序运行时界面如下图，红桃、梅花、方块、黑桃的图形文件在界面设计时已经在属性窗口中设置好，而且使用的是Image1控件数组，程序运行时，单击Image1时，Image2显示相应的图片，同时在Picture1中用蓝色显示哪个图案被选中的文字信息。
Private Sub Image1_Click(Index As Integer)----1----Picture1.FontSize = 20----2---- = vbBluePicture1.Cls----3----Case 0Picture1.Print "红桃被选中"Case 1Picture1.Print "草花被选中"Case 2Picture1.Print "方片被选中"Case 3Picture1.Print "黑桃被选中"End SelectEnd Sub（1）请在左边文本框当中输入正确答案。
错误参考答案：Image2.Picture =Image1(Index).Picture（2）请在左边文本框当中输入正确答案。
错误参考答案：Picture1.ForeColor（3）请在左边文本框当中输入正确答案。
错误参考答案：Select Case Index3、【程序说明】以下程序执行后将产生一个6×6的转置矩阵，将二维数组中所有行和对应列的元素进行交换。
Private Sub Form_Click()Dim a(1 To 6, 1 To 6) As IntegerDim i As Integer, j As IntegerForm1.Print "原始数据"For i = 1 To 6For j = 1 To 6a(i, j) = Int(Rnd * 10)Form1.Print a(i, j);Next jForm1.PrintNext iFor i = 2 To 6For j = 1 To ----- 1 ----------- 2 -----Next jNext iForm1.Print "转置后数据"For i = 1 To 6For j = 1 To 6----- 3 -----Next jForm1.PrintNext iEnd SubPublic Sub Swap(a As Integer, b As Integer)Dim temp As Integertemp = aa = bb = tempEnd Sub（1）请在左边文本框当中输入正确答案。
错误参考答案：I（2）请在左边文本框当中输入正确答案。
错误参考答案：Call Swap(a(I, j), a(j, I)) 或者 Swap a(I, j), a(j, I)（3）请在左边文本框当中输入正确答案。
错误参考答案：Print a(i, j);保存程序填空题阅卷四、程序阅读题保存程序阅读题阅卷1、写出程序运行时单击窗体后，在图片框上出现的结果。
Private Sub Form_Load()Picture1.Width = Picture1.HeightEnd SubPrivate Sub Form_Click()Dim i As Single, x As Single, y As SinglePicture1.Scale (-100, 100)-(100, -100)For i = 0 To 2 * 3.1415926 Step 0.0001x = 100 * Cos(i)y = 100 * Sin(i)Picture1.Line (0, 0)-(x, y), RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)) Next iEnd Sub（1）请在左边文本框当中写出正确的答案。
A、B、C、D、错误参考答案：C2、写出程序运行时单击窗体后，a1.dat文件的结果。
Private Sub Form_Click()Dim k as integer, I as integerOpen "a1.dat" For Output As #1For k=5 to 1 step -1For i = 1 To k : Print #1,k; : Next iPrint #1,Next kClose #1End Sub（1）请在左边文本框当中写出正确的答案。
A、1 1 1 1 12 2 2 23 3 34 45B、1 2 3 4 5C、5 5 5 5 54 4 4 43 3 32 21D、5 4 3 2 1错误参考答案：C3、请写出单击窗体，输入值3后窗体上的显示结果。
Private Sub Form_Click()Dim n%, m$n = InputBox("n=")m = List1.List(n)Form1.Print mEnd SubPrivate Sub Form_Load()List1.AddItem "折叠"List1.AddItem "展开"List1.AddItem "退出"End Sub（1）请在左边文本框当中写出正确的答案。