2.1 数据类型、常量和变量案例
【案例说明】
1.在应用程序的代码窗口中分别输入以下四段代码,当程序运 行时在窗体上单击,分别会发生什么情况,为什么? Private Sub Form_Click() Dim n As Integer n=n+1 Print n End Sub 注意分析
2.2 数学函数案例
案例2 通过随机函数产生2个两位正整数,求这2个数之和并在窗体中显示出来。 双击窗体进入代码编辑窗口,选择Click事件,并编写以下代码。 Private Sub Form_Click() Dim a As Integer,b As Integer,c As Integer Randomize ′初始化随机数生成器 a =Int(90*Rnd+10) ′产生[10,99]区间内的随机整数 b =Int(90*Rnd+10) C =a + b ′求两数之和 Print〞产生的两个随机数分别为:〞;a,b Print〞两个随机之和为:〞;c End Sub
【案例说明】 1.使用字符串函数示例。先从字符串a= Visual Basic中找出某个指定字符 (本例为空格),再以此字符为界拆分为两个字符Visual和Basic。 2.使用日期和时间函数,计算2010年11月12号在广州招开的亚运会距离现 在还有多少天,是星期几,本月从是几月,现在的时间是多少。 3.使用转换函数完成数字或字符串的加或连接操作。 【技术要点】 实现上述案例的的第一个“将原字符拆分成Visual和Basic两个字符”过程 和效果,具体步骤如下: 1.双击窗体进入代码编辑窗口,选择Click事件,并编写以下代码。 Private Sub Form_Click() Dim a As String,b As String,c As String,n As Integer A="Visual┗┛Basic" ′┗┛表示空格,输入时按空格键 n=InStr(a,"┗┛") ′查找空格位置 b=Left(a,n - 1) ′取左边部分 c=Mid(a,n + 1) ′取右边部分 Print b ′显示左边部分 Print c ′显示右边部分 End Sub