例3.2示例 Private Sub Form Click a=3: Print *a= & a a=7: Print"实A="&a a =a *2+3: Print ***a& a End sub 运行程序后单击窗体,输出的结果如下: A=3 *A=7 冰*A=17 (3)赋值语句跟数学中等式具有不同的含意,例如赋值语 句x=x+1,表示把变量x的当前值加上1后再将结果赋给变量 “先读后写”:读出x的内容→加1→写回x(覆盖原有内容)
Private Sub Form_Click() a = 3 : Print "*A=" & a a = 7 : Print "**A=" & a a = a * 2 + 3 : Print "***A=" & a End Sub 运行程序后单击窗体，输出的结果如下： *A=3 **A=7 ***A=17 (3)赋值语句跟数学中等式具有不同的含意，例如赋值语 句x=x+1,表示把变量x的当前值加上1后再将结果赋给变量 “先读后写” ：读出x的内容 → 加1 → 写回x（覆盖原有内容） 例3.2 示例
某 年的元旦是星期几 设计步骤如下: (1)分析:计算某年y的元且是星期几,可由以下式子得出: F=y-1+[(y-1)/4]-[(y-1)/100]+[(y-1)/400]+1 其中[]表示求整 K= F Mod 7 F除以7的余数 y为某年公元年号,计算出K为星期几 (2)创建应用程序的用户界面 万年历 输入年份P005 星期 查看
(1)分析：计算某年y的元旦是星期几，可由以下式子得出： F = y-1 +［(y-1)/4］-［(y-1)/100］+［(y-1)/400］+ 1 其中［ ］表示求整 K = F Mod 7 F除以7 y为某年公元年号，计算出K为星期几 (2)创建应用程序的用户界面 例3.3 设计一个“万年历”程序，用来查看 某 年的元旦是星期几
(3)设置对象属性 (4)编写程序代码 功能要求:用户在“输入年份”文本框(Text1)中输入某 年份,单击“查看”按钮时,则在“星期”文本框(Text2) 中显示出星期几 ★
(3)设置对象属性 (4)编写程序代码 功能要求：用户在“输入年份”文本框(Text1)中输入某 一年份，单击“查看”按钮时，则在“星期”文本框(Text2) 中显示出星期几
编写的“查看”按钮( Command1) Click事件过程代 码如下: Private Sub Commandl Click Dim y As Integer, fAs Integer, kAs Intege y= Val(Text1.Text)-1 f=y+int(y/4)-Inty/100+n(y/400)+1 k=f Mod 7 等价于f-Intf/7)*7吗? Text2Text =k End Sub 运行结果(见上图) ★
编写的“查看”按钮(Command1)Click事件过程代 码如下： Private Sub Command1_Click() Dim y As Integer, f As Integer, k As Intege y = Val(Text1.Text) -1 f = y + Int(y/4) – Int(y/100) + Int(y/400) + 1 k = f Mod 7 ‘等价于f - Int(f / 7) * 7 吗 ? Text2.Text = k End Sub 运行结果（见上图）
32常用基本语句 321注释语句Rem 在程序的适应位置加上必要的注释,可以提高程序的可读性 语法格式:Rem注释内容 或′注释内容 功能:在程序中加入注释内容,以便于对程序的理解。 例如 Rem交换变量a和b的值 c为临时单元 a= b b=c 说明:(1)如果使用关键字Rm,在Rem和注释内容之间要 加一个空格。 (2)在其他语句后使用Rem关键字,必须使用冒号(:)与前面 的语句隔开。注释符(单引号’)可以直接写在其他语句后面
3.2.1 注释语句Rem 在程序的适应位置加上必要的注释，可以提高程序的可读性 语法格式：Rem 或 ´ Rem 交换变量a和b的值 c = a ´ c a = b b = c 说明：(1)如果使用关键字Rem，在Rem和注释内容之间要 (2)在其他语句后使用Rem关键字，必须使用冒号(:)与前面 的语句隔开。注释符(单引号’)可以直接写在其他语句后面。 3.2 常用基本语句