![Visual-Basic实验-答案(三)(同名17637)_第1页](http://file2.renrendoc.com/fileroot_temp3/2021-3/11/f0eeae3a-de9c-4f7a-881e-3835051ba3e1/f0eeae3a-de9c-4f7a-881e-3835051ba3e11.gif)
![Visual-Basic实验-答案(三)(同名17637)_第2页](http://file2.renrendoc.com/fileroot_temp3/2021-3/11/f0eeae3a-de9c-4f7a-881e-3835051ba3e1/f0eeae3a-de9c-4f7a-881e-3835051ba3e12.gif)
![Visual-Basic实验-答案(三)(同名17637)_第3页](http://file2.renrendoc.com/fileroot_temp3/2021-3/11/f0eeae3a-de9c-4f7a-881e-3835051ba3e1/f0eeae3a-de9c-4f7a-881e-3835051ba3e13.gif)
![Visual-Basic实验-答案(三)(同名17637)_第4页](http://file2.renrendoc.com/fileroot_temp3/2021-3/11/f0eeae3a-de9c-4f7a-881e-3835051ba3e1/f0eeae3a-de9c-4f7a-881e-3835051ba3e14.gif)
![Visual-Basic实验-答案(三)(同名17637)_第5页](http://file2.renrendoc.com/fileroot_temp3/2021-3/11/f0eeae3a-de9c-4f7a-881e-3835051ba3e1/f0eeae3a-de9c-4f7a-881e-3835051ba3e15.gif)
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、专业学院( 班级 )姓名学号任课教师0目录实验一Visual Basic编程环境和控件0实验二窗体及基本控件使用5实验三顺序结构程序设计12实验四选择结构程序设计18实验五选择结构程序设计(续)23实验六循环结构程序设计31实验七循环结构程序设计(续)35实验八常用控件 .39实验九常用控件(续) .48实验十数组53实验十一数组(续)61实验十二顺序文件66实验十三过程72实验十四过程(续)78实验十五菜单及通用对话框83实验十六随机文件(选作)86附录 :VB 统考编程题(精选)89期末自测题( A 卷)99期末自测题( B 卷)1041实验报告的整理与编写上机实验结束后,编写实验报告是软
2、件工程的要求,也是培养科学作风的重要途径,实验报告的主要内容包括:(1)实验目的实验作为教学的一个重要环节,其目的在于更深入地理解和掌握课程教学中的有关基本概念,应用基本技术解决实际问题,从而进一步提高分析问题和解决问题的能力。因此,当我们着手做一个实验的时候, 必须明确实验的目的, 以保证达到课程所指定的基本要求。在写实验报告时,要进一步确认是否达到了预期的目的。(2)实验内容实验的目的是要通过解决一些具体问题来达到的。在书中,每一部分都安排了多个实验题目,根据教学安排、进度、实验条件、可提供的机时、学生的基础等因素,可以选择其中的几个或全部。因此,在实验报告中,实验内容是指本次实验中实际完
3、成的内容。在每一个实验题目中,一般都提出一些具体要求,其中有些具体要求是为了达到实验目的而提出的,不仅有具体的实验题目,还应包括具体要求。(3)程序设计说明包括算法设计思路,必要的流程图,界面设计说明、使用模块及变量的说明等。(4)源程序代码Visual Basic 的源程序包括界面设计和代码。程序设计的产品是程序,它应与算法或流程图相一致,要与用户界面设计一致。程序要有具有易读性,符合结构化原则。(5)程序的运行结果(包括对不同测试数据的运行结果)程序运行结果一般是输出语句所输出的结果。对于不同的输入,其输出的结果是不同的。因此,在输出结果之前一般还应注明输入的数据,以便对输出结果进行分析和
4、比较。在程序的运行中,还必须用各种不同情况的数据进行调试,以检查程序能否正常运行。因为,有时程序对某些情况是可以正常运行的,而对某些特殊情况的数据可能会出现运行出错或死机,通过各种数据的调试,尽量做到程序不会出问题。(6) 实验体会分析和体会实验中碰到的问题及解决方法 ,这是实验报告中最重要的一项,也是最容易忽视的一项。实验过程中大量的工作是程序调试,在调试过程中会遇到各种各样的问题,每解决一个问题就能积累一点经验,提高自己的编程能力。因此,对实验的总结,最主要的是程序调试经验的总结。调试分析也包括对结果的分析。体会主要是指通过本次实验是否达到了实验目的,有哪些基本概念得到了澄清,碰到了那些以
5、前没有见到的问题,最后采用什么方法得到解决等。2实验日期年月日实验一Visual Basic 编程环境和控件一、实验目的1、掌握启动与退出Visual Basic 的方法。2、掌握 Visual Basic 语言程序的开发环境 .3、掌握 Visual Basic 语言程序设计的方法与特点4、掌握建立、编辑、运行和保存一个简单的Visual Basic 应用程序的全过程。二、实验内容申请一个免费邮箱 ( 如果已经有邮箱,请跳过 ) ,以便以后将每星期编制的程序压缩并存放在邮箱中(或者保存在 U盘中),以便复习时用。1. 创建第一个应用程序。 编写一个简单程序, 实现单击命令按钮时在文本框显示“
6、单击命令按钮” ,单击窗体空白处时在文本框显示“单击窗体” 。 保存窗体文件名:SY1_1.frm,保存工程名: SY1_1.vbp。程序界面如图 1 1.所示。图 1.1实验 1 的运行界面【步骤】 启动 Visual Basic6.0,在弹出的“新建工程 ”对话框中选择“标准EXE”。 在窗体上建立一个文本框和一个命令按钮。建立方法:在左边工具箱上,单击要绘制的控件的按钮,再把鼠标移到窗体,按住鼠标左键画出所需大小的框体。或者是双击工具箱的要绘制的控件的按钮。 分别选中命令按钮和文本框,在属性窗口中对各属性进行设置,属性设置参照表:表 1.1实验 1 属性设置0对象名称属性属性值窗体Cap
7、tion我的第一个程序文本框Text(空)命令按钮Caption命令按钮 双击命令按钮,进入代码窗口中命令按钮的默认事件,编写代码如下:Private Sub Command1_Click()Text1.Text = 单击命令按钮 End Sub 双击窗体的空白处,进入代码窗口中窗体的默认事件(Form_Load(),在右边的过程列表框中选择Click,编写代码如下:Private Sub Form_Click()Text1.Text = 单击窗体 End Sub 单击工具栏上的按钮,运行程序,分别单击命令按钮以及窗体空白处,观察文本框上显示的内容有何变化。 如果程序代码有错误,则进入代码窗口
8、中调试程序。 单击工具栏上的按钮,结束程序运行。 单击工具栏上的按钮,将窗体、工程分别以SY1_1.frm 、 SY1_1.vbp 保存在磁盘上。2. 建立一个应用程序 , 界面如图 1.2 所示,窗体包含有一个文本框和三个按钮,要求文本框中的字体为 14 号黑体加粗,颜色为红色,且文本内容居中显示。编写代码实现:图 1.2实验 2 的运行界面1 )按“显示内容”按钮时,文本框显示“Hello,Visual Basic!”;2 )按“清屏”按钮时,文本框中文字消失;3 )按“结束”按钮后,程序结束。(提示:代码中输入 End ,则可结束应用程序运行)1保存窗体文件名: SY1_2.frm,保存
9、工程名: SY1_2.vbp。表 1.2实验 2 属性设置对象名称属性属性值窗体 Form1CaptionText文本框 Text1AlignmentFontForeColor命令按钮 Command1Caption显示内容命令按钮 Command2Caption清屏命令按钮 Command3Caption结束编写代码如下:代码遇到的主要问题及分析:3 、P260实验 A 。二、 3. 编写一程序,在文字框中统计在该窗口上鼠标单击的次数。设计和运行界面如图1.3所示。完成后自己取名保存。图 1.3实验 3设计界面运行界面2编写代码如下:代码遇到的主要问题及分析:【提高题 】 P259实验 A
10、。二、 1.编写一程序,要求在屏幕上显示“欢迎学习VisualBasci”,并在“请输入你的姓名” 标签后的文本框Text1中输入姓名; 单击“你输入的姓名是”按钮,则在Label3标签上显示在文本框Text1中输入的姓名。窗体如图 1.4 所示。Label1调整控件的大小使内容显示为两行Label2Text1Label3Command1将 BorderStyle 属性设置为1图 1.4提高题的运行界面编写代码如下:代码遇到的主要问题及分析:【选作题 】窗体上有两个名称分别为C1, C2 的命令按扭,一个文本框Text1 。命令按钮的标题及文本框上显示的字符自定。编程实现当按下C1 时,将 C
11、2 的标题与 Text1中的内容交换。要求:31 )界面自己设计2)连续多次单击 C1,都能将 C2 的标题与 Text1中的内容交换。设计的界面如下:编写代码如下:代码遇到的主要问题及分析:实验心得体会成绩:教师签名:4实验日期年月日实验二窗体及基本控件使用一、实验目的1 、复习启动与退出Visual Basic的方法。2 、掌握窗体基本的事件、方法和属性,并学会在不同的事件的过程中,编写代码。3 、掌握文本框和标签两种控件的使用,掌握文本框和标签控件的常用属性、事件和方法。以及它们之间的区别。4 、掌握命令按钮控件的常用属性、事件和方法。二、实验内容1 、设计一个程序(如图2.1所示),用
12、窗体模拟黑板,窗体上没有最大化、最小化按钮;鼠标单击窗体时窗体上输出提问,双击时显示回答。分析:把窗体装扮成黑板模样,要设置窗体的BackColor属性为黑色,ForeColor属性为白色(模拟粉笔字的颜色) 。窗体上没有最大化、最小化按钮, 则需要设置窗体的MaxButton、MinButton属性。而单击、双击时的输出显示,可以在Click、 DblClick事件里用Print和 Cls方法来实现 。( a)设计状态( b )运行状态( c )窗体单击( d )窗体双击图 2.1实验 2.1模拟黑板1) 属性设置表 2.1实验 1 属性设置对象名称属性属性值窗体 Form1BackColo
13、rvbBlackForeColoFontVbwhite5MaxButtonFalseMinButtonFalse2 )代码编写代码遇到的主要问题及分析:Private Sub Form_Load()Form1.Caption = 模拟黑板 End SubPrivate Sub Form_Click()ClsPrint 1+1=?End SubPrivate Sub Form_DblClick()ClsPrint 1+1=2End Sub【思考】如果进一步要求随机出题(简单的数学四则运算题)在窗体上输出并显示答案,该怎么做Private Sub Form_Click()Dim a As Inte
14、ger, b As Integera = Int(Rnd * 10)b = Int(Rnd * 10)Print a; +; b; =; a + b减法等同理End Sub2 、窗体上有一个文本框Text1,要求当鼠标划过文本框Text1时,鼠标显示Cross“ ”形状;窗体上的一个标题为 “复制 ”的命令按钮 C1。通过属性窗口实现以上的设置之后,编程实现:1) 程序启动时窗体标题为 “修改文本框内容 ”;2) 单击命令按钮 C1,则把按钮上的标题复制到文本框,并使按钮不可见;3) 单击窗体空白处,按钮可见但不可用。6?必要属性设置表 2.2实验 2 属性设置对象名称属性属性值Text1mo
15、usepointer2-crossC1caption复制? 代码编写代码遇到的主要问题及分析:Private Sub Form_Load()Form1.caption=“修改文本框内容”End SubPrivate Sub C1_Click()Text1 = C1.CaptionC1.Visible = FalseEnd SubPrivate Sub Form_Click()C1.Visible = TrueC1.Enabled = FalseEnd Sub3、窗体上有四个文本框, 两个标题分别为 “显示选中信息”“选中文本”的命令按钮。要求程序运行时,光标焦点在Text1上,按下Tab键后,
16、光标焦点跳到在Text3上。在文本框Text1中输入一些字符;要求编程实现:图 2.2实验 2.3文本信息选定窗体1 )在文本框Text1中输入一行文字并按回车(Enter)后,把 Text1的内容设置为窗体的标题。2 )在 Text1中选中其中一部分内容后, 单击“显示选中信息” 命令按钮,则把在 Text17中被选中文本的 第一个字符的顺序号 ,被选中文本的 字符个数 ,被选中的 文本内容 分别显示在文本框 Text2 ,Text3 , Text4 中。3) 分别在文本框 Text2 , Text3 中输入你所希望文本框 Tex1 中选中文本信息的顺序号以及长度,单击“选中文本”命令按钮,
17、则根据文本框Text2 ,Text3 输入的内容,在 Text1 中选中对应的内容,同时在 Text4 中显示出来。【提示】部分相关属性和事件:SelStart 、SelLength、 SelText、KeyPress?必要的属性设置表 2.3 实验 3 属性设置对象名称属性属性值Text1text“”Text2text“”Text3text“”Text4text“”Command1caption显示选中信息Command2caption选中文本Text1tabindex0Text3tabindex1或者 Text2tabstopfalse?代码编写代码遇到的主要问题及分析:Private S
18、ub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Form1.Caption = Text1End SubPrivate Sub Command1_Click()Text2 = Text1.SelStartText3 = Text1.SelLengthText4 = Text1.SelTextEnd SubPrivate Sub Command2_Click()Text1.SelStart = Text2Text1.SelLength = Text3Text4 = Text1.SelTextEnd Sub或者Private
19、Sub Text1_LostFocus()Text3.SetFocusEnd Sub8【提高题 1】创建 VB 工程,运行时可将文本框中的文字缩小以及还原。窗体中包括下列控件:标签、文本框和两个命令按钮,窗体标题为“字符缩小” ,文本框字号为30 磅。 图 2.3实验提高1 窗体在文本框输入一串字符;按下“缩小”按钮时字号缩小为原来的一半( 每按一下都会缩小为一半 ),界面如右图。请完善以下代码:Private Sub Form_Load()Text1.FontSize = 30设置文本框原始字号End SubPrivate Sub Command1_Click()Text1.FontSize
20、 = _Text1.FontSize / 2_将文本框字体每次缩小一半End SubPrivate Sub Command2_Click()_Text1.FontSize = 30_ 文本框的字体恢复为30End Sub【提高题 2 】 P260 实验 A 。二、5. 命令按钮 、字号、内容和格式的复制 练习!效果如右图。要求 :1 )Command1: 使得 Text1中的字体和字号根据图 2.4实验实验提高1 窗体命令按钮上显示的要求改变。2 )Command2: 要求将 Text1选中的内容及其字体格式 复制到 Text2文本框中。? 代码编写代码遇到的主要问题及分析:Private S
21、ub Command1_Click()Text1.FontName = 隶书 Text1.FontSize = 25End SubPrivate Sub Command2_Click()9Text2 = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSizeEnd Sub【选作题】参考 P35 ,建立一个允许剪切、复制和粘贴的简单便笺板程序。可增加内容:利用 MouseMove 事件决定命令按钮的有效性,即当选中内容,“剪切”、“复制”按钮有效,否则无效。图 2.5窗体原始界面按下运行按钮时的界面选
22、中文本框部分内容的界面? 代码编写代码遇到的主要问题及分析:Private Sub Form_Load()Command1.Enabled = FalseCommand2.Enabled = FalseEnd SubPrivate Sub Text1_MouseMove(Button As Integer, Shift As Integer, X AsSingle, Y As Single)If Text1.SelText ThenCommand1.Enabled =trueCommand2.Enabled =trueEnd IfEnd Sub其他代码见p36实验心得体会10成绩:教师签名:1
23、1实验日期年月日实验三顺序结构程序设计实验目的:1熟练掌握 VB 的基本数据类型。2熟练掌握基本的输入输出函数和语句。3掌握顺序结构程序设计的方法。实验内容1 、定义两个变量a 和 b,它们的值分别由键盘输入。编程计算并输出a 与 b 的和、差、积、商、 a 除以 b 的余数、 a b 的值。(要求自己设计窗体及输入、输出,必须有明确的示意提示)。? 代码编写:代码遇到的主要问题及分析:Private Sub Form_Click()Dim a as integer,b as integera = Val(InputBox( 输入 a 的值 )b = Val(InputBox( 输入 b 的值
24、 )Print a=; a; b=; bPrint a+b=; a + bPrint a-b=; a - bPrint a*b=; a * bPrint a mod b=; a Mod bEnd Sub2 、定义一个变量 a ,由键盘输入其值为任意四位整数,编程实现分别输出个、 十、百、千位四个数字,并各个数字的平方和。【提示】利用 mod 和 运算符将每一位分离。? 代码编写:12代码遇到的主要问题及分析:Private Sub Form_Click()Dim a As IntegerDim b%, c%, d%, e%a = Val(InputBox( 输入 a 的值 ,要求 4 位整数
25、)b = a Mod 10 个位c = a 1000 千位d = (a - c * 1000) 100 百位e = (a - c * 1000 - d * 100) 10Print 个位 :; bPrint 十位 :; ePrint 百位 :; dPrint 千位 :; cPrint 平方和 :; b 2 + e 2 + d 2 + c 2End Sub3 、P262实验 B 二、 1。? 代码编写:代码遇到的主要问题及分析:Private Sub Command2_Click()Text1 = Format(9 / 5 * Val(Text2) + 32, 0)End Sub4 、设计窗体并
26、实现:1)单击 “连接 ”,将 Text1 和 Text2 的内容连接起来显示在Text3 ;2)单击 “求和 ”,求出 Text1 和 Text2 之和显示在 Text3;3 )要求:在单击 “连接 ”之前 Text3不可见,点 “连接 ”之后 “连接 ”按钮不可用;(a)设计状态(b)运行状态图 3.1实验 3.4窗体? 代码编写:13代码遇到的主要问题及分析:Private Sub Command1_Click()Text3.Visible = TrueText3 = Text1 & Text2Command1.Enabled = FalseEnd SubPrivate Sub Comm
27、and2_Click()Text3 = Val(Text1) + Val(Text2)End SubPrivate Sub Form_Load()Text3.Visible = FalseEnd Sub5 、创建 VB 工程,界面如右所示,编程实现运行时可将标签中的文字字号随机放大( 15 整数倍)和(任意比例)缩小以及还原(原来字号)。界面如右图所示。【提示】图 3.2实验 3.5窗体1 )将标签的 AotuSize属性设置为 False及 True ,看看有什么区别?2 )用一个变量在程序开始运行时记住标签中原始字体的大小(想想放在什么事件过程中?);这个变量还会在“还原”按键中使用,其说
28、明语句要放在通用- 声明中;3 )每次按放大或缩小按键都会在当前的基础上放大或缩小;4 )字体放大到一定程度会出现“溢出”的错误提示,可以先不管。? 代码编写:代码遇到的主要问题及分析:Dim tPrivate Sub Form_Load()t = Label1.FontSizeEnd SubPrivate Sub Command1_Click()Label1.FontSize = Label1.FontSize * Int(Rnd * 5 + 1)14End SubPrivate Sub Command2_Click()Label1.FontSize = Label1.FontSize *
29、RndEnd SubPrivate Sub Command3_Click()Label1.FontSize = tEnd Sub6 、编程实现随机产生一个“ F”“S”范围内的大写字母,并输出该字母及其对应的ASCII码值,同时输出其小写字母及其对应的ASCII码的值。? 代码编写:代码遇到的主要问题及分析:Private Sub Form_Click()a = Int(Rnd * (83 - 70 + 1) + 70)Print Chr(a); 的 ASCII 值=; aPrint LCase(Chr(a); 的 ASCII 值 =; Asc(LCase(Chr(a)End Sub【选作题
30、1】编程解决古代数学问题“鸡兔同笼” 。即已知在同一个笼子里有总数为m只鸡和兔,鸡和兔的总脚数为n 只,求鸡和兔各有多少只?【提示】鸡和兔的总数m、鸡和兔的总脚数n 需要预先输入(文本框或输入框输入)。再设鸡和兔子的个数分别为x和 y,通过已知输入的m 和 n;列出方程求解,分别用m,n 两个已知量来表示x 和 y 。?代码编写:代码遇到的主要问题及分析:Private Sub Form_Click()m = Val(Text1)n = Val(Text2)y = 1 / 2 * n - mx = 2 * m - 1 / 2 * nPrint 鸡有 ; x; 兔子有 ; yEnd Sub【选作
31、题 2】编程实现电话号码自动升位。要求将原来任意一个带区号的7 位电话号码升到8 位,在电话号码最前面加8 。程序运行结果如图所示。 (要求必须适用15于 3 位或 4 位区号的电话号码)【提示】无论区号或电话号码是多少位,只要找到“-”的位置,就可以将“-”之前(包括“-”)的左子串、 “ 8”、以及“ - ”后面剩下的字符串“串”起来。? 代码编写:代码遇到的主要问题及分析:Private Sub Form_Click()a = InStr(Text1, -)Text2 = Left(Text1, a) + 8 + Mid(Text1, a + 1)End Sub【提高题】参考教材 P33
32、 的例 2.5及 P65 的例 4.2 ,完成 P263 实验 B 二、 2。? 代码编写:代码遇到的主要问题及分析:Const PI = 3.14Private Sub Command1_Click()r = Val(Text1)Text2 = Format(PI * r 2, 0.00)End SubPrivate Sub Command2_Click()r = Val(Text1)Text3 = Format(2 * PI * r, 0.00)End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1) ThenMsgBox 输入
33、有非数字字符,请重新输入Text1 = Text1.SetFocusEnd IfEnd Sub实验心得体会16成绩:教师签名:17实验日期年月日实验四选择结构程序设计实验目的:2掌握逻辑表达式的正确书写形式。3掌握单分支与双分支条件语句的使用。实验内容1 编写程序,通过键盘输入变量x 的值,求函数 y 的值。x ,x0y1,x0x代码遇到的主要问题及分析:Private Sub Command1_Click()x = Val(Text1)If x = 0 Theny = Sqr(x)Elsey = 1 / Abs(x)End IfText2 = yEnd Sub2 、输入一串字符串C,判断字符
34、串 C 中的第三个字符是“ C”时,利用 msgbox 显示“ yes ”,否则显示“ No”.代码遇到的主要问题及分析:Private Sub Command1_Click()Dim C As StringC = Text1If Mid(C, 3, 1) = c ThenMsgBox (yes)Else: MsgBox (no)End IfEnd Sub183 、输入一个年份,判断它是否为闰年,并输出是否为闰年的相关信息。【提示】判断闰年的条件是:年份能被4 整除但不能被100 整除;或者是能被400 整除。如: 1900、2100、 2010 年不是闰年; 2008、 2000 年是闰年。
35、代码遇到的主要问题及分析:Private Sub Form_Click()Dim a As Integera = Text1If a Mod 400 = 0 Or a Mod 4 = 0 And a Mod 100 0 ThenMsgBox ( 本年份为闰年 )ElseMsgBox ( 此年份为非闰年)End IfEnd Sub4. 如右图,窗体上有两个文本框一个标签和一个命令按钮。程序运行时分别在文本框中输入两个数字后单击命令按钮进行计算。 要求: Text1 中的数值大于或等于 Text2 时,计算两个数的和,否则计算两个数的差,最后将运算式和结果显示在标签中。代码遇到的主要问题及分析:P
36、rivate Sub Command1_Click()x = Val(Text1)y = Val(Text2)If x = y ThenLabel1 = x & + & y & = & x + yElseLabel1 = x & - & y & = & x - yEnd IfEnd Sub【进一步要求】对两个文本框中的数据进行有效性判断。利用文本框的LostFocus 事件进行判断,若输入的不是数字,用 MsgBox 给出“是否重新输入”的提示,提示窗口上有两个命令按钮:“是”和“否”,显示问号的图标。若回答“是”则将文本框中原来的内容清空、光标重新定位于文本框,若回答“否”则程序终止。? 代
37、码编写:代码遇到的主要问题及分析:19Private Sub Text1_LostFocus()If Not IsNumeric(Text1) Theni = MsgBox( 是否重新输入 , 4 + vbQuestion, 警告 )If i = 6 ThenText1 = Text1.SetFocusElseEndEnd IfEnd IfEnd SubPrivate Sub Text2_LostFocus()If Not IsNumeric(Text2) Theni = MsgBox( 是否重新输入 , 4 + vbQuestion, 警告 )If i = 6 ThenText2 = Tex
38、t2.SetFocusElseEndEnd IfEnd IfEnd Sub5 、猜数字游戏:事先设定的一个数字(如6 ),程序提示用户输入一个1 10 之间的整数,如果输入的数字与事先设置的数字相同,则提示“输入正确”,否则显示“错了” 。? 代码编写:代码遇到的主要问题及分析:Private Sub Command1_Click()x = Val(InputBox( 输入一个1 10 之间的整数 )If x = Text1 ThenMsgBox 输入正确 ElseMsgBox 错了 End IfEnd Sub【提高题 1】修改上面程序,当输入的值比设置的数字小, 显示“错了,你猜得小了。”;
39、输入的值比设置的大,则显示“错了,你输入的太大了。”(请直接在上题修改)【提示】本实验属于多分支结构。20Private Sub Command1_Click()x = Val(InputBox( 输入一个1 10 之间的整数 )If x = Text1 ThenMsgBox 输入正确 ElseIf x c And b + c a And a + c b ThenPrint 此三边可构成三角形ElsePrint 此三边不可构成三角形End IfEnd Sub【选作题】课堂示例“字符串替换” ,使用多个函数完成时,如果源字符串中没有要查找的子串,程序就会出错。修改程序当没有要查找的子串时,弹出“
40、没有找到的”提示框,并将源串放到结果文本框中。【提示】 InStr(C1,C2)在 C1 中查找 C2 是否存在,若找不到,结果为0。? 代码编写:代码遇到的主要问题及分析:Private Sub Command1_Click()i = InStr(Text1, Text2)If i = 0 Then21MsgBox 没有找到 Label5 = Text1Elsek = i + Len(Text2)Ls = Left(Text1, i - 1)Label5 = Ls + Text3 + Mid(Text1, k)End IfEnd Sub实验心得体会成绩:教师签名:22 日期年月日实验五选择结构程序设计(续)实验目的:1掌握情况 句的使用。2. 掌握情况 句与多分支条件 句的区 。3掌握分支嵌套 句的使用。实验内容1、 入一元二次方程ax2+bx+c=0系数 a,
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 部编人教版八年级语文下册《卖炭翁》课件
- 结构力学优化算法:禁忌搜索(TS):结构力学优化软件工具介绍
- 结构力学数值方法:谱方法:非线性结构分析的谱方法
- 英语练与测﹒课课通(基础模块3)-答案
- 教材资源之课程教案:项目四任务三跨境客户忠诚度管理策略
- 宝马试驾活动方案
- 2.2整式的加减 (公开课用)
- 部编人教版化学七年级下册全册全套课件
- 米氮平合并艾司唑仑治疗慢性失眠症的临床疗效观察
- 在劳动中创造人生价值课件-2024-2025学年统编版道德与法治七年级上册
- 三年级上册数学教案-3.2图形的运动:旋转现象 ▎冀教版
- 请求鉴定人员出庭接受质证申请书
- 岗位任职资格评价表
- 鲁教版七年级英语上册(五四学制)全套精美课件
- 简明新疆地方史赵阳
- 高职高专(副教授)职称评定个人专业技术工作总结(由韦老师提供,未经许可请勿转载)
- DB45-T 1696-2018危岩防治工程技术规范-(高清可复制)
- 中国消化内镜诊疗相关肠道准备指南的解读
- 七年级英语下Unit8 说课课件
- DBJ41T 147-2015 泡沫玻璃保温板保温系统应用技术规程-(高清版)
- 国家职业技能鉴定职业工种分类表
评论
0/150
提交评论