苏科版初中信息技术选修《顺序结构》课件ppt1.pptVIP

第3章 VB.NET面向对象程序设计——第3节 功能：确定某一变量的值（将赋值号“=”右边表达式的值赋予赋值号左边的变量）。 格式： 变量名=表达式 其中，表达式允许是常数、变量、函数、表达式。 （1）赋值号与等号意义不同，它表示将表达式的值赋予变量。 （2）表达式中所含的变量必须事先已被赋值。否则，数值型变量被视为0，字符型变量被视为空字符。 （3）赋值号两边的数据类型应当相同或兼容。即：不能将字符串表达式的值赋给数值变量，也不能将数值表达式的值赋给字符串变量。 （4）可以把任何类型的数据赋值给Object类型的变量。 （5）也可对控件的属性赋值 格式： 控件名.属性=属性值 例： Textbox1.Text= 欢迎！ 有以下变量声明： Dim I As Integer,K As Integer Dim S1 As String,S2 As String Dim V1,V2 则下列语句均有效： I= 10 S1= abcdefg S2= xyz V1= I V2= S1 S2= V2 + S2 问题：若有变量声明 Dim S1 As Single, S2 As Single,K As Integer 1、语句 s1=10 :s2=5 k=s1/s2 对否？ 2、语句 s1=10 :s2=5 s1=s1\s2/5 变量S1的结果？ \：整除 /：实数除 1、MessageBox.Show方法：利用消息对话框的Show方法在程序执行过程中显示所需的信息。 格式： MessageBox.Show(显示信息) 例如： S1 = 10 : S2 = 5 S1 = S1 \ S2 / 5 MessageBox.Show(s1= S1) 2、利用文本框输出 例如： S1 = 10 : S2 = 5 S1 = S1 \ S2 / 5 TextBox1.Text = s1= S1 注意：双引号、符号、VbCrlf在输出时的作用 【例3—6】已知圆柱体的半径0.5米，高为10米，试设计一程序计算该圆柱体的体积，并将结果显示在窗体上。 计算圆柱体的体积公式为：V=πR2H 程序代码： Private Sub Form1_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles MyBase.Click Const pi = 3.14159 Dim H As Integer, R As Single, V As Single H = 10 : R = 0.5 V = pi * R * R * H MessageBox.Show(体积= Format(V, ####.00)) End Sub 【例3—7】 试编一程序，交换变量A与B的值。 将变量A的数值送入变量B中，必须先将B中原有数值保留起来，否则B中的数值将被A的数值取代。因此在程序中还需一个用于临时保留数值的变量C。 程序代码： Private Sub Form1_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles MyBase.Click Dim A As Integer, B As Integer, C As Integer A = InputBox(请输入A的值) B = InputBox(请输入B的值) C = B : B = A : A = C MessageBox.Show(A= A vbCrLf B= B) End Sub 【例3—8】从键盘输入任意一个四位正整数，编写程序分别输出该数的个位、十位、百位、千位。 变量A、B、C、D分别表示个位、十位、百位、千位。 程序代码： Private Sub Form1_Click(ByVal sender As Object, ByVal e _ As System.EventArgs) Handles MyBase.Click Dim A As Integer, B As Integer, C As Integer, D As Integer Dim Num