例3.2设计程序,实现两个文本框内容的交换 (1)在窗体上建立两个标签、两个文本框和一个命令按钮 (2)编写程序代码 借助于另一个变量(假设为1,并直接在控件中交换数据 Private Sub Command1 click κ“交换”按钮 Dim t As string 「例32[Text1 t= Text1.Text 旧区 Textl.Text= Text2Text 第一个文本框 ABCDE Text2 Text2 Text = t 第二个文本框1235 End sub 主页
主页 例3.2 设计程序，实现两个文本框内容的交换 (1)在窗体上建立两个标签、两个文本框和一个命令按钮 (2)编写程序代码 借助于另一个变量(假设为t) ，并直接在控件中交换数据 Private Sub Command1_Click() ′“交换”按钮 Dim t As String t = Text1.Text Text1.Text = Text2.Text Text2.Text = t End Sub Text1 Text2 例3.2
采用变体型变量 编写的程序代码如下: Private Sub Command1 Click “交换”按钮 t= TextIText TextIText Text2. Text Text2Text= t End Sub 说明:对于初学者来说,为了节省时间,有时可 以不采用Dim等语句声明就直接使用变量(默认为变体 型,如t)。但在规范的软件开发中,通常都要求程序 中使用的变量必须预先声明 主页
主页 编写的程序代码如下 ： Private Sub Command1_Click() ´“交换”按钮 t = Text1.Text Text1.Text = Text2.Text Text2.Text = t End Sub 采用变体型变量 说明：对于初学者来说，为了节省时间，有时可 以不采用Dim等语句声明就直接使用变量(默认为变体 型，如t)。但在规范的软件开发中，通常都要求程序 中使用的变量必须预先声明
考把上述程序改为以下形式,数果是否一样? 想一想 Private sub commandl clicke0“交换”按钮 Text2Text= Text1.Text Text1.Text= Text2Text End sub 主页
主页 把上述程序改为以下形式，效果是否一样？ Private Sub Command1_Click() ′“交换”按钮 Text2.Text = Text1.Text Text1.Text = Text2.Text End Sub 思考题 想一想
思考题 下列程序的运行结果是什么? 想一想 运行时,在文本框Text1中输入5,单击“计算” 按钮后,在文本框Text2显示的结果是什么?20 Private Sub Commandl click “计算”按钮 Dim a As Integer, b As Integer,c As Integer a= Val(TextIText) b=7 =2* a mod b /3+1 例3.2h a=a+1 回网Tex b=2b-1 第一个文本框5 Text2 c=c+a+b 第二个文本框 Text2 Text =c 计算 End Sub 主页
主页 下列程序的运行结果是什么？ 运行时，在文本框Text1中输入5，单击“计算” 按钮后，在文本框Text2显示的结果是什么? Private Sub Command1_Click() '“计算”按钮 Dim a As Integer, b As Integer, c As Integer a = Val(Text1.Text) b = 7 c = 2 * a Mod b / 3 + 1 a = a + 1 b = 2 * b - 1 c = c + a + b Text2.Text = c End Sub 思考题 想一想 Text1 Text2 例3.2h 20
33使用 Print方法输出数据 3.3.1 Print方法 用于显示(输出)文本 格式:[对象名.] Print[表达式列表] 说明:(1)使用的对象可以是窗体等 Print w程序设计” 在当前窗体上输出 Picture. Print w程序设计” 在图片框上输出 (2)表达式列表是一个或多个表达式,如果省略,则输出 一个空行 主页
主页 3.3.1 Print方法 用于显示(输出) 格式：［对象名.］Print ［表达式列表］ 说明：(1)使用的对象可以是窗体等 Print “程序设计” ´在当前窗体上输出 Picture1.Print “程序设计” ´在图片框上输出 (2)表达式列表是一个或多个表达式，如果省略，则输出 一个空行 3.3 使用Print方法输出数据