VB4程序设计.pptVIP

函数 P50 格式： 函数名（参数） 注意每个函数的： 函数名及功能 参数个数 每个参数的类型和定义域 函数值类型 取整函数 P51 Rnd 函数 P51 例：字体的放大、缩小 将文本框中的字体随机放大1~3整数倍；任意比例缩小；“还原”按扭将字体恢复成原始大小。 常用字符函数 P52 【注意】 (1)赋值号与关系运算符等于号都用“=”表示，注意加以区分。如: If a=b then c=d (2)赋值号左边只能是变量，不能是常量、常数符号或表达式。如： x+y=3 (3) 不能在一句赋值语句中，同时给多个变量赋值。 例如：dim x%,y%,z% x=y=z=1 (4)如下赋值语句形式很常用: x=x+1 sum=sum+x 判断下面语句的正确性 n%=3.6 k%= abc123 sin(x)=x+y Text1.Text= a=b=c=1 s=s+1 √ n的结果为4 × 出错，类型不匹配 × 出错，左边是函数 √ 清除文本框内容 × 不能连续赋值 √ s的原值加1再赋给s 例：求一元二次方程的根 例：输入任意一个实数，输出其绝对值 布尔型(boolean)数据 是一种逻辑型数据，只有两个值： True False 关系运算符 P47 例：鸡兔同笼问题 鸡兔同笼，有h个头和f只脚，问有鸡兔各几只。 逻辑运算符 P48 而且、与——两个条件同时成立：And 或——两个条件至少一个成立：Or 取反—— Not 逻辑表达式举例 课堂练习 加密程序：将“明文”的大写字母随机向右移动1～3位，形成“密码”。 【提示】 文本框中输入一个大写字母（小写变成大写） 程序随机产生1~3之间的随机数 将字母右移相应的位数 特别注意字母X、Y、Z * * 判断：能正确运行出结果吗? 为什么? Private Sub Form_Click() Dim a As Integer, b As Integer a = 32767 b = 32768 Print a Print b End Sub Dim a,b As Single c=c+10 变量 a, b, c是什么类型的? 变量的隐式声明和强制显式声明(Option Explicit) P42~43 改为： Dim a As Integer, b As Long 或 Dim a %, b 判断：能输出结果吗? 为什么? Private Sub Form_Load() Print For i = 1 To 5 Print Tab(i); String(6 - i, ★); Spc(6); String(i, ▲) Next I End Sub Form_Load事件中，Print方法无效果。 P67 修改方案： 1：将窗体的AutoRedraw属性修改为True. 2：在程序的第一个Print之前加语句：Me.Show Sqr(4) String(5,”AB”) 显示5个”A” Int: 取小于或等于其本身的最大整数。 如： Int(35.6)=35 Int(-35.6)=-36 Fix: 取整。 如：Fix(35.6)=35 Fix(-35.6)=-35 Round: 四舍五入函数。 如： Round(35.6)=36 Round(3.14159,3)=3.142 格式： Rnd( ) Rnd Rnd(N) 说明： 0≤ Rnd ＜1 产生0~1之间的随机数 产生[L，U]区间内的随机整数 Int((U - L + 1) * Rnd + L) 例：产生[30~50]的随机整数 Int(Rnd*21)+30 为保证每次产生不同的随机数列，可在事件过程中使用语句 Randomize 随机放大1~3整数倍： Text1.FontSize = Text1.FontSize * Int(Rnd()*3+1) 缩小的比例为任意 Text1.FontSize = Text1.FontSize * Rnd() 转换函数 P51 Asc: 字符转换成Ascii码值。 如：Asc(a)97 Asc(A) 65 Chr:字符Ascii码值转换成字符。 如：Chr(9