VB顺序结构练习

VB第三章顺序结构

返回以e为底，x为指数的幂。 Exp(1)=2.71828182845905
Int(x)
Fix(x)
均为数值类型
均为数值类型
返回不超过x的最大整数
Int(3.5)=3；Int(-3.5)=-4
Round(x)
均为数值类型
Rnd([x])
均为数值类型
若 x 为正数，返回整数部分； Fix (3.5)=3；Fix (-3.5ቤተ መጻሕፍቲ ባይዱ=-3 若x为负，返回数大于或等于x 的第一个负整数。返回 x 经过四舍五入以后的结 Round(3.5)=4；Round(-3.5)= -4 果。 1. 缺省参数时，随机返回一个0到1之间的小数（包含0不包含1）； 2. x<0，每次使用相同随机种子得到相同结果； 3. x>0，产生下一个随机数； 4. x=0，产生最近生成的随机数；在使用Rnd之前，最好先使用Randomize语句初始化随机数生成器以避免使用相同种子产生相同随机数列。
3.货币型数据
货币数据类型是为表示钱款而设置的，精确到十数点后4位(小数点前有15位)，在小数点后4位以后的数字将被舍去。它与浮点数的区别是：浮点数中的小数点是“浮动”的，即小数点可以出现在数的任何位置，而货币类型数据的小数点是固定的。
4.日期型数据
日期型数据是用来表示日期的，它由年月日及时间（可缺省）按照一定的排列组成，由一对#号作为定界符。如：#8/24/2001 1:20 PM# 表示2001年8月24日下午1时20分。
1.字符串型数据
字符串是一个由ASCII字符组成的字符序列，在Visual Basic程序中需要用双引号把组成字符串的字符包括起来例： “南华大学” “Visual Basic”

VB课件第4章Visual Basic 顺序结构

Print语句主要用于在窗体、图片框和打印机上显示或打印输出文本。
语法格式： [对象名.] Print [表达式列表]
对象名：可以是窗体（Form）、图片框（PictureBox）或打印机（Printer）的名称，如果省略对象名，则在当前窗体上直接输出。
表达式列表
可以是一个或多个表达式，各表达式之间可用逗号（，）或分号（；）分隔。如果省略，则输出一个空行。
值类型时，自动转换成数值类型再赋值。但当表达式中有非数字字符或空串时，就会出错。（3）当逻辑类型赋值给数值类型时，True转换为-1，False转换为0；反之，当数值类型赋值给逻辑类型时，非0转换为True，0转换为False。（4）任何非字符类型赋值给字符类型时，均自动转换为字符类型。
End Sub
4.5 注释、暂停与结束语句
1.注释语句
为了提高程序的可读性两种格式：
Rem <注释内容>
a
b
' 注释内容
例如：
Rem 交换a和b的值
c
c = a ' c为临时单元
a=b
b=c
关于注释语句的几点说明
(1)注释语句是非执行语句，只对程序有关部分起注释作用
(2)格式2主要放在其他语句后面对其进行说明，单撇号 “'”可以直接写在其他语句后面。
(7)一个赋值语句只能给一个变量赋值，在程序中出现连等的情况，例如a = b = 5,系统认为最左边的“=”是赋值号，以后“=”均为比较运算中的符号，在赋值时，先进行比较运算，再将运算结果赋给变量。
(8)不要将赋值运算与代数方程的概念相混淆。
如：x = x + 1
4.3 Print 语句

vb三种基本结构练习题

vb三种基本结构练习题1、计算圆的面积（顺序结构）dim r,s,c as singler=inputbox("输入r的值")s=3.14*r*rc=2*3.14*rprint sprint c2、小明去买电池，2.5元一节，买电池超过10节，超出的部分按八折出售。

输入小明买电池的数量，输出小明应付的钱数。

（选择语句）dim a as integerdim q as singlea=inputbox("输入小明买的电池数")if a>10 thenb=25+(a-10)*2.5*0.8elseb=a*2.5end ifprint b3、求1+2+3+4+……+100的和。

（循环语句）dim i,sum as integerfor i=1 to 100sum=sum+inext iprint sum4、输入数字n，求n！（n!=1*2*3*……*n）（循环语句）dim i,sum,n as longn=inputbox("输入n的值")sum=1for i=1 to nsum=sum*inext iprint sumVB上机练习汇总1、在窗体上任意位置画一个文本框和一个命令按钮，编写程序，当用户单击命令按钮时，文本框移动到窗体的左上角，并且文本框的大小是原来的2倍。

2、在窗体上任意位置画一个文本框和一个命令按钮，设置窗体的标题属性为“信息窗口”；命令按钮的标题属性为“确定”。

编写程序，当用户单击命令按钮时，在文本框中显示“包头师范学院”，要求字体为隶书、加粗、加下划线、字号为20、颜色为红色。

3、在窗体上任意位置画两个命令按钮，分别设置它们的标题属性为：加载图片、显示信息。

编写程序，当用户单击第一个命令按钮时，在窗体上加载一幅图片（图片自定）。

当用户单击第二个命令按钮时，在窗体上打印信息“包头师范学院“。

4、例1:在窗体上部设置一个文本框，文本框的下面设置3 个命令按钮，其中左边按钮中标有“单击此按钮”，中间按钮中标有“清除”，右边按钮中标有“程序结束”。

VB顺序结构编程练习题(2)

VB顺序结构编程练习题(2)1、有一个“就是它”的猜数游戏，步骤如下：请你任意输入一个三位数，在这三位数后重复一遍，得到一个六位数，467→467467。

把这个数连续除以7，11，13，最后的商就是你输入的三位数。

请编程加以验证。

2、某学校开运动会，要在正六边形的操场的周围插上彩旗。

如果每边插a面彩旗(包括每个角上的彩旗)，a变量数可由键盘输入，问总共需要多少面彩旗?3、计算图形的周长和面积．4、编写求下列自然数等差数列之和的程序，数列的首项和末项由键盘输入。

4+5+6+7+8+9+10+11+12+13+14+15{提示：等差数列的和=(首项+末项)×项数／2)、项数=末项-首项+1}5、输入一个学生的情况，包括学号(用整数表示)、姓名(用第一个字母表示)、语文成绩、英语成绩和数学成绩，然后输出学号、姓名、总分和语数外三门课的平均成绩（保留两位小数）。

6、输入三条边的整数值a、b、c，输出该三边构成的三角形的面积。

7、输入一个三位整数，输出该三位数的各位数字之和，以及它的反序数。

8、三个小朋友做游戏，第一个人把自己的糖果等分为三份，多余的吃掉，一份留给自己，另两份分别给其他两位；接下来，第二个人也仿照第一做法做了一遍，最后第三个人也如前面的人一样做了一遍。

请输出三人做完游戏后各自的糖果数。

(三人刚开始时各自的糖果数用键盘输入)。

9、输入一元二次方程的三个系数(b2>4ac)，输出该方程的二个实数根。

10、输入两个整数给A,B两个变量，编程交换A,B两个变量的值，并输出。

(用两种以上方法)。

VB 第03章顺序结构程序设计

程序设计的一般步骤
第一步，分析问题。
第二步，程序流程设计。第三步，人机界面设计。
第四步，程序代码设计。
第五步，运行、调试。第六步，编译、发布。
字符数。
例如： Print “后面有8个空格”; Spc(8); “前面有8个空格”
输出结果：后面有8个空格前面有8个空格
Tab(n) ——用来将插入点定位在绝对列号上，n 为列号。例如：输出结果： Print Tab(10); “姓名”; Tab(25); “年龄” 姓名年龄
Cls方法
InputBox函数
例如：
Dim strName As String * 40 strName = InputBox(“请输入你的姓名” + vbCrLf + “然后单击确定” , “输入框” ) 也可以使用如下语句： Dim strName As String * 40 strName = InputBox( “请输入你的姓名” + Chr(13) +
‘ 计算 x*3 的值，得6，把6赋给y
‘ 计算 x+1 的值，把 3 赋给 x ‘ 把 “Hello” 赋给a$ ‘ 0.1 赋给 sRate
Text1.Text ＝ “欢迎使用 Visual Basic 6.0 ”
注意：当表达式的类型与变量的类型不一致时，强制转换成左
边的类型。例如： iA% = 10 / 3.0 ' iA中的结果为3
[对象名.] Print [表达式列表]
其中：对象名——一般为窗体名。省略此项，表示在当前窗体
上输出。表达式列表——是一个或多个表达式。若为多个表达式，则各表达式之间用“，”或“；”隔开。省略此项，则输出一空行。功能：依次计算各个表达式的值，按指定的格式在对象上打印输出。

vb顺序结构

说明
InputBox 函数返回值是字符（String) 型。当要获取数值型数据时，应对被赋值变量作出类型说明：
Dim r!
r = InputBox("Please enter radius:", _ "InputBox Demo ", 0, 100,100) 或使用Val函数作类型转换： r= Val(InputBox("Please enter radius:", _ "InputBox Demo ", 0, 100,100)) 函数中参数按顺序排列，若省略某些参数，须加相应的逗号分隔： r= InputBox("Please enter radius:", , , 100,100))
控件属性设置
当前名称
Label1 Label2 Label3 Text1
属性 Caption Caption Caption Text
新值
Type your name and password to login
&User Name &Passord <blank>
控件属性设置（续）
Text2 Text PasswordChar Caption Caption Cancel Caption BorderStyle <blank> * OK Cancel Ture* Enter Program Password 1-Fixed Single
程序中常用 N=N+1 实现累加。* 2 数据输入 1. InputBox 函数（生成一个对话框,让用户输入数据。）格式： InputBox(prompt[,title][,default][,xPos][,yPos])

VB操作题顺序结构操作题

VB6—顺序结构操作题一、操作题，每题10分，6题共60分【第1题】打开“Z:\12\工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。

如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。

Private Sub Command1_Click()Dim h As IntegerDim m As IntegerDim s As IntegerDim ss As Integerss = Val(①)h = ②m = (ss - h * 3600) \ 60s = (ss - h * 3600) Mod ③Label1.Caption = Str(h)Label2.Caption = Str(m)Label3.Caption = Str(s)End Sub【第2题】打开文件“考生文件夹\26\工程1.vbp”，完善Command1_Click及Command2_Click事件代码并保存。

在窗体上有一个“标签”控件Label1和两个“命令按钮”控件，命令按钮command1上显示“上移”，另一个命令按钮command2上显示“下移”。

实现功能：（1）设置标签控件Label1属性，显示文字为“欢迎进入算法与程序设计”；（2）单击“command1”时，Label1上移100个单位；单击“command2”，Label1下移100个单位。

【第3题】打开文件“考生文件夹\32\工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：从键盘上输入一个三位数，然后将它逆序输出到对应文本框中。

例如输入为“123”时，输出结果为“321”。

Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim bai As IntegerDim shi As IntegerDim ge As Integera = Val(①)bai = a \ 100shi = (a - bai * 100) \ 10ge = a Mod 10② = ge * 100 + shi * 10 + bai③ = Str(b)End Sub【第4题】打开“Z:\36\工程1.vbp”，完善Command1_Click事件代码并保存。

计算机二级VB训练题及答案

计算机二级VB训练题及答案2017年计算机二级VB训练题及答案计算机等级考试要取得好成绩平时一定要多加练习，提高做题技巧和速度。

下面是店铺为大家整理的2017年计算机二级VB训练题及答案，希望对大家有帮助!练习一1.在待排序的元素序列基本有序的前提下，效率最高的排序方法是(C)A)冒泡排序B)选择排序C)快速排序D)归并排序2.非空的循环单链表head的尾结点(由p所指向)，满足(A)A)p->next==NULLB)p==NULLC)p->next=headD)p=head3.线性表的顺序存储结构和线性表的链式存储结构分别是(C)A)顺序存取的存储结构、顺序存取的存储结构B)随机存取的存储结构、顺序存取的存储结构C)随机存取的存储结构、随机存取的存储结构D)任意存取的存储结构、任意存取的存储结构4.结构化程序设计所规定的三种基本控制结构是(D)A)输入、处理、输出B)树形、网形、环形C)顺序、选择、循环D)主程序、子程序、函数5.下列不属于软件调试技术的是(D)A)强行排错法B)集成测试法C)回溯法D)原因排除法6.软件生命周期中花费时间最多的阶段是(B)A)详细设计B)软件编码C)软件测试D)软件维护7.软件设计中，有利于提高模块独立性的一个准则是(A)A)低内聚低耦合B)低内聚高耦合C)高内聚低耦合D)高内聚高耦合8.数据库的故障恢复一般是由(D)A)数据流图完成的B)数据字典完成的C)DBA完成的D)PAD图完成的9.下列关系运算的叙述中，正确的是(B)A)投影、选择、连接是从二维表行的方向进行的运算B)并、交、差是从二维表的列的方向来进行运算C)投影、选择、连接是从二维表列的方向进行的运算D)以上3种说法都不对10.在关系数据库中，对一个关系做投影操作后，新关系的.元组个数将(A)A)等于原来关系中的元组个数B)大于原来关系中的元组个数C)小于原来关系中的元组个数D)不能确定元组个数11.以下不具有Picture属性的对象是(B)A)窗体B)图片框C)图像框D)文本框12.双击窗体中的对象后，Visual Basic将显示的窗口是(D)A)项目(工程)窗口B)工具箱C)代码窗口D)属性窗口13.若要将窗体从内存中卸载，其实现的方法是(A)A)ShowB)UnLoadC)LoadD)Hide14.要使目录列表框(名称为Dirl)中的目录随着驱动器列表框(名称为Drivel)中所选择的当前驱动器的不同而同时发生变化，则应：(A)A)在Dirl中的Change事件中，书写语句 Dirl.Drive=Drivel.DriveB)在Dirl中的Change事件中，书写语句 Dirl.Path=Drivel.DriveC)在Drivel中的Change事件中，书写语句Dirl.Path=Drivel.DriveD)在Drivel中的Change事件中，书写语句Dirl.Drive=Drivel.Drive15.设有如下声明：Dim x As Integer如果Sgn(x)的值为-1，则表示x的值是(A)A)整数B)大于0的整数> C)等于0的整数D)小于0的数16.下述说法不正确的是(B)A)变量名的长度不能超过255个字符B)变量名可以包含小数点或者内嵌的类型声明字符C)变量名不能使用关键字D)变量名的第一个字符必须是字母17.下列可作为Visual Basic变量名的是(A)A)FilenameB)A(A+B)C)A%DD)Print18.语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是(BD)A)-36B)1C)-1D)-7219.下面说法中，不正确的是(D)A)Cls清除由Print方法显示的文本或在图片框中显示的图形，并把光标移到对象的左上角(0,0)B)当前窗体是用Picture属性装入的图形时，也可以用Cls方法清除C)Move方法用来移动窗体和控件，并改变其大小D)Cls方法中的对象，可以是窗体或图片框，如果省略则清除当前窗体中显示的内容20.假定在图片框Picturel中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(D)A)选择图片框，然后按Del键B)执行语句 Picturel.picture=LoadPicture("")C)执行语句 Picturel.picture=""D)选择图片框，在属性窗口中选择Picture属性条，然后按回车键[ 结束 ]练习二1.下列关于栈的叙述正确的是(D)A)栈是非线性结构B)栈是一种树状结构C)栈具有先进先出的特征D)栈具有后进先出的特征2.若某二叉树的前序遍历访问顺序是abdgcefh，中序遍历访问顺序是dgbaechf，则其后序遍历的结点访问顺序是(D)A)bdgcefhaB)gdbecfhaC)bdgaechfD)gdbehfca3.根据数据结构中各数据元素之间前后件关系的复杂程度，一般将数据结构分成(C)A)动态结构和静态结构B)紧凑结构和非紧凑结构C)线性结构和非线性结构D)内部结构和外部结构4.下面对对象概念描述错误的是(A)A)任何对象都必须有继承性B)对象是属性和方法的封装体C)对象间的通讯靠消息传递D)操作是对象的动态属性5.软件开发的结构化生命周期方法将软件生命周期划分成(A)A)定义、开发、运行维护B)设计阶段、编程阶段、测试阶段C)总体设计、详细设计、编程调试D)需求分析、功能定义、系统设计6.下列工具中为需求分析常用工具的是(D)A)PADB)PFDC)N-SD)DFD7.开发大型软件时，产生困难的根本原因是(A)A)大系统的复杂性B)人员知识不足C)客观世界千变万化D)时间紧、任务重8.下述关于数据库系统的叙述中正确的是(A)A)数据库系统减少了数据冗余B)数据库系统避免了一切冗余C)数据库系统中数据的一致性是指数据类型一致D)数据库系统比文件系统能管理更多的数据9.单个用户使用的数据视图的描述称为(A)A)外模式B)概念模式C)内模式D)存储模式10.关系数据库管理系统能实现的专门关系运算包括(B)A)排序、索引、统计B)选择、投影、连接C)关联、更新、排序D)显示、打印、制表11.与传统的程序设计语言相比，Visual Basic 最突出的特点是(C)A)结构化程序设计B)程序开发环境C)事件驱动编程机制D)程序调试技术12.在Visual Basic 中，下列优先级最高的运算符是(A)A)*B)\C)<D)Not13.下列语句用来设置疤錐orm1的属性，其中在运行时不能正确操作的语句是(B)A)Form1.Caption="Form Test"B)="Form Test"C)Form1.MaxButton=FalseD)Form1.MinButton=False14.表达式Left("how are you",3)的值是(A)A)howB)areC)youD)how are you15.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是(C)A)工程资源管理器窗口B)工具箱窗口C)代码窗口D)属性窗口16.下列正确的Visual Basic注释语句是(B)A)Dim a(10)As Integer Rem 这是一个VB程序B)这是一个VB程序P Private Sub Command1_Click() …C)a=1:b=2:_Rem 这是一个VB程序：c=3D)If Shift=6 And Button=2 ThenPrint"BBBB"Rem这是一个VB程序End If17.代数式ab+cd对应的Visual Basic6.0表达式是(A)A)a/(b+c/D)B)(a/b+c)/dC)a/(b+c)/dD)a/b+c/d18.使程序立即从一个Function过程中退出的语句是(A)A)Exit FunctionB)ExitC)ReturnD)Resume19.要使一个标签透明且具有边框，则应(B)A)将其BackStyle属性设置为0，BorderStyle属性设置为0B)将其BackStyle属性设置为0，BorderStyle属性设置为1C)将其BackStyle属性设置为1，BorderStyle属性设置为0D)将其BackStyle属性设置为1，BorderStyle属性设置为120.在窗体上画一个命令按钮，然后编写如下代码：Private Sub Command1_Click()a&=InputBox("请输入第一个数")b&=InputBox("请输入第二个数")Print b&+a&End Sub程序运行后，单击命令按钮，在两个输入对话框中先后输入12345和54321，程序的输出结果是(A)A)66666B)5432112345C)1234554321D)出错[ 结束 ]【2017年计算机二级VB训练题及答案】。

VB第四周顺序结构

例如：
Print Tab(2);"学号"；Tab(11);"姓名"；Tab(21);"成绩 "
输出结果是(1个汉字占2个位置)：

└┘学号└┘└┘└┘└┘└┘姓名└┘└┘└┘└┘└┘└┘成绩
使用对话框
对话框既可以用来显示信息，也可以用于输入信息 VB中能够建立两种预制对话框：输入框和消息框使用系统提供的函数(InputBox和 MsgBox)，而不必为对话框另建窗体
一、赋值语句
形式：[LET]变量名＝表达式作用：将表达式的值赋值给变量名。一般用于给变量赋值或对控件设定属性值。例： s!=0.1 Text1.Text ＝ "欢迎使用Visual Basic 6.0 “ 当表达式的类型与变量的类型不一致时，强制转换成左边的精度，如 iA% = 10 / 3 iA中的结果为3
按钮及图标值如下:
“先读后写”：读出x的内容 → 加1 → 写回x（覆盖原有内容）
二、使用Print方法输出数据 Print方法
用于显示(输出)文本格式：［对象名.］Print ［表达式列表］说明：(1)使用的对象可以是窗体等 Print “程序设计” ´在当前窗体上输出 Picture1.Print “程序设计” ´在图片框上输出
(2)表达式列表是一个或多个表达式，如果省略，则输出一个空行 (3)当输出多个表达式时，各表达式之间用分号“；”(紧凑格式)或逗号“，”(按区格式)隔开。按区格式(14个字符位置)
例：Private Sub Form_Click()
a=2 b = "VB" Print 50 * a Print b Print Print "The Total is" End Sub

vb大一选择程序结构习题答案答案

4.2习题一、选择题1. 以下不正确的单行结构条件语句是（ D）。

（A）If x>y Then Print ＂x>y＂（B）If x Then t=t*x（C）If x Mod 3=2 Then Print x（D）If x<0 Then y=2*x-1: Print x End If2. 给定程序段Dim a As Integer, b As Integer, c As Integera=1：b=2：c=3If a=c-b Then Print ＂#####＂ Else Print ＂*****＂以上程序（ C ）。

（A）没有输出（B）有语法错（C）输出#####（D）输出***** 3. 运行下面程序后，在弹出的消息窗口中显示的是（ D）。

Private Sub Form_Click()score=Int(Rnd)+5Select Case scoreCase 5a$="Good"Case 4a$="Ok"Case 3a$="Pass"Case Elsea$="Bad"End SelectMsgBox a$End SubA、BadB、PassC、OkD、Good4. 下面语句书写正确的是（D）。

(A) If a>max Then max=a Else max=b End If(B) If a>max Then max=aElse max=bEnd If(C) If a>max Thenmax=aElsemax=6( D) If a>max Thenmax=aElsemax=6End If5. 执行下列程序段输出的结果为（ C ）。

a=3IF a>0 ThenPrint ＂###＂ElsePrint ＂$$$＂End IfA) ###$$$B) $$$###C) ###D) $$$6. 下面程序段运行后,显示的结果是( B )dim xif x then print x else print x+1(A) 1 (B) 0 (C) -1 (D) 显示出错信息7: 语句IF x=1 THEN y=1, 下列说法正确的是( C )(A) X=1和Y=1均为赋值语句 (B) X=1和Y=1均为关系表达式(C) X=1为关系表达式,Y=1为赋值语句 (D) X=1为赋值语句,Y=1为关系表达式8. 用IF 语句表示分段函数，⎩⎨⎧<+≥+=1311)(2x x x x x f 下列程序段不正确的是( A )(A) If x>=1 then f=sqr(x+1) (B) If x>=1 then f=sqr(x+1)F=x*x+3 if x<1 then f=x*x+3(C) F=x*x+3 (D) f=sqr(x+1)If x>=1 then f=sqr(x+1) If x<1 then f=x*x+39. 下面IF 语句统计满足性别（sex ）为男，职称（duty ）为副教授以上，年龄（age ）小于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+110. 下面程序段求两个数中的大数，( D )不正确。

VB中结构

格式： If < 条件表达式 > < 语句块1> Else < 语句块2> End If
Then
T 表达 F 式
语句(块)1
语句(块)2
功能：当表达式的值为非0（True）时,执行Then后面的语句块1，否则执行Else后面的语句块2。
例：判断两个数的乘积是否是正数。
Private Sub Command1_Click() Dim x As Integer, y As Integer x = Val(Text1.Text) y = Val(Text2.Text) If x * y > 0 Then
〈语句块1〉
ElseIf 〈表达式2〉Then
〈语句块2〉
……
[Else
表达式1
F
〈语句块 n+1 ] End If
表达式2
F…
T
T
表达式
nn T
语句块11
语句块2 …… 语句块nn
语句块n+11
说明：
① 不管有几个分支，程序执行了一个分支后，其余分支不再执行。
② ElseIf子句的数量没有限制，可以根据需要使用任意多个ElseIf子句。
（一）顺序结构
程序中的语句依照其在程序中的位置依次顺序地执行，叫做语句的顺序执行。
赋值语句格式：变量名/对象属性名 = 表达式功能：将赋值号右边表达式的值赋给赋值号左边的变量或对象属性。
举例：
a = 300 b = a * 2 + 100 Form1.Width = b
注意：
① 赋值号左边只能是变量，不能是表达式、常量。
3．Select Case语句（多分支结构）

大学vb 实验作业5 顺序结构程序设计

2、编写程序判断某年是否是闰年。
提示：闰年的判断条件
（1）如果此年号能被400整除;
（2）如果此年号能被4整除，但不能被100整除。
满足以上两条件之一，则提示该年是闰年，否则提示该年不是闰年。
3、在文本框1中输入1到7之间的整数，在文本2中显示对应的英文单词。对应规则如下：
1——星期一；2——星期二；3——星期三；4——星期四；
软件：Microsoft Visual Basic 6.0
实验内容
１、编写程序判断某个数是否是水仙花数。
小知识：一个三位数其各位数字立方和等于该数本身，这个数就是水仙花数。如153是一个“水仙花数”，因为153=13＋53＋33。
要求：用inputbox函数输入一个三位数，将判断结果输出在消息框上，如是则在消息框提示该数是水仙花数(如下图１)，否则在消息框上提示该数不是水仙花数（如下图２）。
5——星期五；6——星期六；7——星期日
4、新建工程，在窗体上添加两个按钮，标题分别为“输入”和“交换”。
程序运行后，单击“输入”按钮，通过输入对话框输入两个整数；
单击“交换”按钮，如果第一个数小于第二个数，则交换两数。最后将两个数在窗体上显示出来。
实验小结
实验名称
实验五顺序结构程序设计
实验时间
第六周
实验目的
（1）掌握基本语句的用法
（2）掌握InputBox和MsgBox函数的用法
（3）进一步掌握编写简单顺序结构程序的方法
（4）掌握关系、逻辑表达式的正确书写形式
（5）掌握由IF语句构成的选择结构
（6）学会编写选择结构程序解决实际问题
实验环境
硬件：微型计算机

VB教程—排序算法复习(共23张PPT)

排序问题 1、冒泡法(起泡法) 2、顺序交换法 3、选择法 4、插入法
1、冒泡法
首先我们来看把最大的那个数放在最后位置上的方法：假设有5个数，分别为10，2，6，7，4，存放在a(1)-a(5)中。
首先，从a(1)到a(5)，相邻的两数两两进行比较，在每次比
较过程中，若前一个数比后一个数大，则交换两元素的内容。
Next i
思考：如果这5个数是2，4，6，7，10，简述程序执行流程。
1.冒泡法
改进算法: Dim a(1 To 5) As Integer For i = 1 To 5
a(i) = Val(InputBox("输入一个数")) Next i For i=1 to 4
flag=0 For j=1 To 5-i
第1轮： for j=2 to 5
if a(1)>a(j) Then t=a(1): a(1)=a(j) : a(j)=t
End if Next j
第2轮： for j=3 to 5
if a(2)>a(j) Then t=a(2): a(2)=a(j) : a(j)=t
End if Next j
第3轮： for j=4 to 5
Next i Print For i = 1 To n
Print a(i); Next i
2、顺序交换法
我们再来看一种将最小的数放在第一个位置的算法先设定用a(1)存放最小值，然后用a(1)分别与其后
的每一个数a(j)(j=2..5)进行比较，在比较过程中如果a(1)不是小的数，就将a(1)与a(j)互换。
算法：不急于交换，先找出a(1)到a(5)中最小数所在的位置K，一遍扫描完之后，再把a(1)与a(K)互换。

(完整版)VB选择排序专题

VB选择排序专题班级姓名知识点回顾：1、数组的作用：一组意义相同，类型相同的数据的保存，通常借助于数组。

如：高二年级所有同学的学籍号可定义为大小为700（只能多不能少）的long类型的数组xjh1 to 700) 或xjh(699)；2、数组名称可自取: 符合※以字母开头、※除了“_”外不能有其他字符、※不能用VB已用的关键字即可；3、数组下标的定义可以从任何数开始，但通常为0或1，如：a(19)，表示下标从0开始到19；a(1 to 19)表示下标从1开始。

下标即位置，能代表数组值。

4、数组赋初值方法多样，通常用循环语句。

没有赋值默认数组中每个数初值为0或FALSE或“”。

5、排序概念和意义：把一组类型相同的数据按照升序或者降序的规律排列起来。

6、排序的算法要点：※将N个数据保存在数组中；※理清是升序或是降序排序——升序为从小到大，降序为从大到小；※算法很多——冒泡排序、选择排序、插入排序、希尔排序、快速排序等……7、选择排序的特征：以降序为例——第一遍排序，找出最大值的位置，与数组中第一个数交换，第二遍排序，找出次大值的位置，与数组中第二个数交换。

8、关于选择排序需理解：※N个数最多进行N-1遍排序；两数比较的次数最多为N*(N-1)/2；两数交换次数最多为：N-1次；※选择排序的变式即改进算法非常多，比如N个数据排序时，发现某一遍排序两两比较过程中已没有数据交换则可以停止继续排序，比如比较过程中直接交换等，在练习中要加强理解和记录；9、选择排序的经典代码：( 以降序为例，所有for语句都要熟练转化为do while语句)巩固练习：1、在VB中，如果变量p用来存储某张试卷上的缺考填涂标记，则p应采用的最适合的数据类型是（）A．Integer B．Boolean C．Single D．String2、VB语句“Dim a(50) As String”定义的数组元素个数以及第8个数组元素分别为（）；VB语句“Dim a(1 to 50) As long”定义的数组元素个数以及第8个数组元素分别为（）A. 51，a(7)B.50，a(7)C. 51，a(8)D.50，a(8)3、有如下Visual Basic程序段：m = a(2)For j = 3 To 50If a(j) > m Then m = a(j)Next jMsgbox(str(m))该程序段执行后，变量m中存储的是（）A、a(1)至a(50)中的最小值B、a(2)至a(50)中的最大值C、a(2)至a(50)中的最小值的位置D、a(1)至a(50)中的最大值的位置4、以下程序执行后，i的值是（）Dim a(1 To 5) As IntegerDim f As Booleana(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10i = 1: f = TrueDo While i <= 5 And f = TrueIf a(i) = 56 Then f = Falsei = i + 1LoopLabel1.Caption = iA．6 B．3 C．4 D．55、在2017年秋季学校运动会上，男生第一组6位选手的百米成绩（单位：秒）分别是“13.4、12.3、11.2、13.8、13.1、11.0”，若使用选择排序法将该组的成绩按第一名、第二名、第三名……的顺序排序，则第一遍排序后的顺序是（）；两遍排序后的顺序是（）;A. 11.0 11.2 12.3 13.8 13.1 13.4B.11.0 12.3 11.2 13.8 13.1 13.4C. 11.0 11.2 13.4 12.3 13.1 13.8D.11.0 13.4 12.3 11.2 13.8 13.16、有一组10个数据的无序序列，利用选择排序算法进行从小到大的排序，需要比较的次数和最多需要进行加工的遍数，以及最多交换数组数据的次数分别为（）A. 9，9，9B.15，9，8C.45，9，9D.45，8，87、在NBA某赛季中，快船队5场比赛得分依次为97，89，111，70，90，若采用选择排序算法对其进行从小到大排序，在整个排序过程中，数据97被交换的次数是( )A．1 B．2 C．3 D．48、用选择排序算法对一组学生的身高数据进行升序排序，已知第一遍排序结束后的数据序列为165，168，178，175，171，则下列选项中可能是原始数据序列的是（）A、175，178，168，165，171B、178，168，165，175，171C、165，178，168，175，171D、165，168，171，175，1789、对存储在stu ( 0 to n )中的n+1个元素用选择排序算法进行排序，元素交换次数的范围和元素比较次数的值分别为（）A、[0，n]，（n-1）*n/2B、[1，n-1]，（n-1）*n/2C、[0，n]，（n+1）*n/2D、[1，n-1]，（n+1）*n/210、以下是选择排序主要部分，其中线框内代码用于寻找d(a)到d(n)的最小值的下标(即通常所说的位置)。

VB顺序结构及选择结构练习一、单选题1.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程Private Sub Command1_Click()b=5c=6Print a = b + cEnd Sub程序运行后，单击命令按扭，其结果为（D）A）a=11 B）a=b + c C）a= D）False2. 在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程Private Sub Command1_Click(D)a=11b=5c=6Print a = b + cEnd Sub程序运行后，单击命令按扭，其结果为（）A）a=11 B）a=b + c C）a= D）True3.以下语句的输出结果是（B）a = Sqr(3)Print Format(a,”$$#### : ###”)A）$1.732 B）$$1.732 C）$1732 D）$$00001.7324.以下程序段的输出结果是（D）a = Sqr(3)b = Sqr(2)c =a>bPrint cA）-1 B）0 C）False D）True5.以下语句的输出结果是（C）Print Format$ (32548.5,”000,000.00”)A）32548.5 B）32,548.5 C）032,548.50 D）32,548.501.假定有如下语句：answer$=MsgBox(“String1”,, “String2”, “String3”,2)执行该语句后，将显示1个信息框，此时如果单击“确定”按扭，则answer$的值为（D）A）String1 B）String2 C）String3 D）12.InputBox函数返回值的类型为（B）A）数值B）字符串C）变体D）数值或字符串（视输入的数据而定）3.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程。

Private Sub Command1_Click()a = InputBox(“Enter the First integer”)b = InputBox(“Enter the Second integer”)Print b + aEnd Sub程序运行后，单击命令按扭，先后在2个输入对话框中输入456和123，则输出结果是（D）A）579 B）123 C）456123 D）1234564.执行下面的语句后，所产生的信息框的标题是（A）a = MsgBox(“AAAA”，，”BBBB”,””,5)A）BBBB B）空C）AAAA D）出错，不能产生信息框5.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程Privete Sub Command1_Click()MsgBox Str(123 + 321)End Sub程序运行后，单击命令按扭，则在信息框中显示的提示信息为（B）A）123 + 321 B）字符串”444”C）数值444 D）空白6.MsgBox函数的反回值的类型为（A）A）整型(Integer) B）字符串C）变体D）整数或字符串（视选择的按扭而定）1.假定有如下语句：st$=InputBox(“请输入一串字符”, “输入对话框”, “请输入字符串”)当用户输入完毕，按“确定”按扭后，st$变量的内容是（）A）请输入一串字符B）字符串对话框C）请输入字符串D）用户输入内容1. 假定有如下语句：Private Sub Form_Click()Dim a,b,x As Integera = InputBox (“a=?”)b = InputBox (“b=?”)x = a + bIf a > b Then x = a - bPrint xEnd Sub运行时从键盘输入3和4，输入x的值是（C）A）3 B）5 C）7 D）92. 假定有如下语句：Private Sub Form_Click()b = 1 : a = 2Print IIf (a >= b,a,b)End Sub运行后输出的结果是（C）A）0 B）1 C）2 D）33.假定有如下语句：Private Sub Form_Click()s = Val (InputBox ( “Input V alue of s:”))Select Case sCase Is < 6f = s + 1Case Is < 5f = s + 2Case Is < 4f = s + 3Case Elsef = s + 4End SelectPrint s;fEnd Sub运行时从键盘输入6，输出结果是（D）A）6 7 B）6 8 C）6 9 D）6 104. 假定有如下语句：Private Sub Form_Click()score = Int (Rnd * 10) + 80Select Case scoreCase Is < 60a$ = “F”Case 60 To 69a$ = “D”Case 70 To 79a$ = “C”Case 80 To 89a$ = “B”Case Elsea$ = “A”End SelectPrint a$End Sub运行时输出的结果是（B）A）A B）B C）C D）D5. 假定有如下语句Private Sub Form_Click()a = Val (InputBox (“请输入a”))b = Val (InputBox (“请输入b”))x = a*a + bIf b > a Then x = b*b + aPrint xEnd Sub运行时从键盘输入3和4，输出X的值是（C）A）12 B）13 C）19 D）206. 假定有如下语句Private Sub Form_Click()K = 2If K >= 1 Then A = 3If K >= 2 Then A = 2If K >= 3 Then A = 1Print AEnd Sub运行时，输出的结果是（B）A）1 B）2 C）3 D）出错7. 假定有如下语句Private Sub Form_Click()k = Val ( InputBox (“请输入一个数”))If k <= 0 Then Abc = 4 : GoTo aIf k <= 1 Then Abc = 3 : GoTo aIf k <= 2 Then Abc = 2 : GoTo aIf k <= 3 Then Abc = 1a:Print k ; AbcEnd Sub运行时输入3，输出的结果是（A）A）3 1B）3 4 3C）3 4 3 2D）3 4 3 2 18.设有函数r =1 x < 02 x >=0则下列能正确计算该函数值的语句是（D）A）If x < 0 Then r = 1ElseIf x >= 0 Thenr = 2End IfB）If x < 0 Then r = 1ElseIf x >= 0 Then r = 2 Else r = 1End IfC）Print ( IIf (x >0,1,2))D）r = IIf (x < 0,1,2)二、简答(填空)题1.假设有如下程序，程序运行后，单击窗体输出结果是（032，548.60）Private Sub Form_Click ()a = 32548.56Print Format (Int((a*10+0.5)) / 10,”000,000.00”)End Sub2.以下程序段的功能是（对变量X四舍五入后取整）x = 8.6y=Int(x+0.5)Print y3.假设有如下程序，程序运行后，单击窗体输出结果是（4）Private Sub Form_Click ()a = 25 Mod (1-2^3)Print aEnd Sub4.以下语句的输出结果是（Beijing）s$=”China”s$=”Beijing”Print s$5.以下语句的输出结果是(3)a%=3.14156Print a%6.设a=Sqr(2)*Sqr(3)，下列语句的输出结果分别是Print Format $ (a,”000.00”) 输出结果：002.45Print Format $ (a,”###.#00”) 输出结果：2.449Print Format $ (a,”00.00E+00”) 输出结果：24.49E-01 Print Format $ (a,”-#.####”) 输出结果：-2.4495三、编程题1.编写打印下面三角形图案的源程序（书上55页4题）*************************程序代码：Private Sub Form_Click()Form1.Print Tab(15); "*"Form1.Print Tab(14); "***"Form1.Print Tab(13); "*****"Form1.Print Tab(12); "*******"Form1.Print Tab(11); "*********"End SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "显示星号三角形,单击窗体开始" End Sub2.设a=5,b=2.5,c=7.8，编程序计算y=πab/a+b*c程序代码：Private Sub Form_Click()a =5 :b = 2.5 :c = 7.8y = (3.1416*a*b)/(a+b*c)Print “y=”;yEnd Sub1.编写求以10为底，求10000的对数值的源程序。