[计算机软件及应用]03程序控制结构.ppt

3.1.2．注释语句：　　为了提高程序的可读性，通常应在程序的适当位置加上一些注释。注释语句用来对程序代码的说明，但不参与程序的执行。  注释语句的格式： Rem 注释内容 或 ‘ 注释内容例如：REM 声明变量Dim x, y As Integerx = 125 把常量赋值给变量x，在代码窗口中注释显示为绿色y = x ^ 2 REM 把x的平方值赋给变量y 通过读Text属性能在运行时检索文本框的当前内容。 格式：变量名 = 文本框名.属性名 说明：文本框的Text属性为字符串类型，如果要得到数值型数据，需要调用转换函数进行转换。 例： Dim a As Integer a = CInt(Textbox1.Text) Dim salary As Double Dim a100, a50, a20, a10, a5, a1 As Integer salary = TextBox1.Text a100 = salary \ 100 : TextBox2.Text = a100 salary = salary - 100 * a100 a50 = salary \ 50 : TextBox3.Text = a50 salary = salary - 50 * a50 a20 = salary \ 20 : TextBox4.Text = a20 salary = salary - 20 * a20 a10 = salary \ 10 : TextBox5.Text = a10 salary = salary - 10 * a10 a5 = salary \ 5 : TextBox6.Text = a5 salary = salary - 5 * a5 a1 = Mid(salary, 1, 1) : TextBox7.Text = a1 salary = salary - 1 * a1 : TextBox8.Text = Format(salary,”.00”) 例：使用选项按钮组来选择时间的格式。 Private Sub RadioButton1_CheckedChanged(…) Handles RadioButton1.CheckedChanged Label1.Visible = True End Sub Private Sub RadioButton2_CheckedChanged(…) Handles RadioButton1.CheckedChanged Label1.Visible = False End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = IIf(Hour(TimeOfDay) 12, 下午, 上午) If Label1.Visible = True Then Label2.Text = Format(TimeOfDay, h:mm:ss) Else Label2.Text = Format(TimeOfDay, H:mm:ss) End If End Sub 说明： 1、测试条件为必要参数，可以是任何数值表达式或字符串表达式； 2、在Case子句中，表达式表为必要参数，用来测试其中是否有值与测试条件相匹配。匹配时执行其后的语句块，直到下一个Case子句处结束。如果是最后一个子句，则会执行到 End Select； 3，如果不止一个Case与测试条件相匹配，则只对第一个匹配的Case执行对应的语句块； 4，表达式表中有多个表达式时，相邻的表达式之间要用逗号“，”隔开。 5，Case Else子句用于指明其他语句列。 例1：使用Select Case语句来判定成绩的等级。 例：利用组合框，设计一个抽奖程序。 例：利用组合框，设计一个抽奖程序。 例3：利用For…Next循环语句显示1000以内的所有能被37整除的自然数。 说明： ① Do While…Loop是前测型当型循环语句，当〈条件〉为真（True）时执行循环体，条件为假（False）时，终止循环。 Do Until…Loop是前测型直到型循环语句，当〈条件〉为假（False）时执行循环体，条件为真（True）时，终止循环。 ②〈条件〉是表达式，为循环的条件，其值