实验2-3_程序设计基础.pptVIP

实验2-3、程序设计基础 实验章节：第2章 程序设计基础 实验目标 实验要求 实验内容 实验目标： 掌握以下知识点： 1、掌握Print 语句及有关函数的应用 2、熟悉并熟练运行常用内部函数：字符串函数、日期与时间函数、类型转换函数 3、熟悉并熟练运行InputBox函数和MsgBox函数 4、编程手段已临摹程序代码为主，同时辅助需要独立完成的程序设计题。 实验要求： 本章共包括3个实验，分3次完成（既3周）。每次实验请至少完成2道题目并上交作业。 实验内容： 题目1 字符串函数应用实例 题目2 字符串函数应用-Instr()函数 题目3 日期和时间函数应用 题目4 转换函数应用 题目5 InputBox函数和MsgBox函数 题目1、字符串函数应用实例2 汉字输入练习程序： 需要的字符串函数： Trim（） Left（） Right（） Len() 系统内部常量： vbCrLf -回车键+换行键 Chr(13)+Chr(10) 用户界面设计如下图： 部分代码分析： 1、初始化标签Label2的文字内容 Private Sub Form_Load() Label2.FontSize = 14 Label2.Caption = 床前明月光， + ①+ 疑是地上霜。 + ①+ 举头望明月， + ①+ 低头思故乡。 End Sub 代码分析： Private Sub Command2_Click() Dim s1 As String, s2 As String Dim m As Integer m = 0 s1 = Trim(Label2.Caption) s2 = Trim(Text1.Text) While Len(s2) 0 And Len(s1) 0 If Left(s2, 1) = Left(s1, 1) Then m = m + 1 End If s2 = Right(s2, Len(s2) - 1) s1 = Right(s1, Len(s1) - 1) Wend Label3.Caption = 正确输入 ① End Sub 程序要求与思考题： 1、分别将按钮“重新输入”和“退出”的代码补充完整？ 2、程序表达式” Left(s2, 1) = Left(s1, 1) “有什么作用？试将该段代码用其他相同功能的语句来代替，程序运行结果不变。 3、请用至少两种方法将代码①空白处补充完整，并比较程序运行结果。 4、请将代码②空白处补充完整，要求输出结果和程序运行界面保持一致。 题目2、字符串函数应用-Instr()函数 单词查找，如图： 需要的字符串函数： Trim（） InStr（） Len（） 代码分析： Private Sub Command1_Click() s1 = Trim(Text1.Text) s2 = Trim(Text2.Text) m1 = InStr(s2, s1) l1 = Len(s1) If m1 0 Then Text2.SelStart = m1 - 1 Text2.SelLength = l1 Text2.SetFocus MsgBox (在下文中存在需要查找的单词 s1 ！) Else MsgBox (下文不存在所需查找的单词！) End If End Sub 程序要求及思考题： 1、理解变量m1在程序代码中的作用和意义，要求： 1）可否将条件判断语句“If m1 0 Then”用其他的语句来代替而不影响程序的运行结果？ 2）表达式“Text2.SelStart = m1 – 1”中可否改为“Text2.SelStart = m1 ”或者是其他语句，为什么？试修改程序运行。 3）理解表达式“Text2.SetFocus”中“SetFocus”是属于哪一类型：属性、方法、函数或变量？为什么？ 题目1-2、思考与提高 尝试将题目1程序功能得以完善和提高，运行结果如下图所示： 题目3、日期和时间函数应用 在窗体上显示系统当前日期和时间，运行界面： 代码分析： Private Sub Form_① () Print Print 当前日期：; Date Print 当前时间：; Time() Print 当前日期和时间: ; Now() Print 系统当前时间：; Hour(Now); 点; Minute(Now); 分; Second(Now); 秒