VB大纲4.pptVIP

?4. 数据输入、输出????（1）数据输出：①Print方法。②与Print方法有关的函数（Tab, Spc, Space＄）。③格式输出（Format＄）。 ????（2）InputBox函数。 ????（3）MsgBox函数和MsgBox语句。 ???? 1）数据输出： ①Print方法。Picture1.Print form1.print 分号:光标定位在上一个显示字符后. 逗号:定位在下一个打印区的开始位置处,每个打印区占14列. ②与Print方法有关的函数Tab(n), Spc(n) Print 11; Tab(5); 44 Print 11; Spc(8); 44 ③格式输出Format＄(表达式,[,格式字符串]) Print Format(123.67, 0000.000) Print Format(123.667, 00.00) Print Format(123.67, ####.###) Print Format(123.667, ##.##) Print Format(aaa, ) Print Format(aaa, ) Print Format(aaa, @@@@@) Print Format(aaa, ) Print Format(aaa, @@) Print Format(aaa, ) 语句、方法及函数 赋值语句 格式1：变量名=表达式 格式2：[对象名.]属性名=表达式 注释语句Rem 格式1：Rem注释内容 格式2：’ 注释内容 End语句 语句、方法及函数 窗体的print方法 窗体的cls方法 窗体的move方法 窗体的show方法 窗体的hide方法 语句、方法及函数 InputBox函数 功能：产生输入对话框 ，并接受和返回输入对话框中输入的信息 其格式为：变量=InputBox（提示信息，对话框标题，默认内容） 例： Text1.Text = InputBox(“请输入序列号：”, “软件安装, 111111)  语句、方法及函数 Print方法 MsgBox函数和方法 功能：通过MsgBox函数和方法产生消息对话框 调用格式： 变量=MsgBox（提示信息[,按钮形式[,对话框标题]]） 例： answer = MsgBox(“病毒库已过期，请立即更新”, 3 + 48 + 0, “反病毒软件6.0”） A=msgbox(“kjlk”,vbokonly,”ssss”) Print a Vbokonly 处可以有命令按钮形式+图标类型+默认按钮 语句、方法及函数 实例:序列号输入 Private Sub Command1_Click() Form2.Text1.Text = InputBox(请输入序列号：, 电子助手4.0, 111111) Form1.Hide Form2.Show End Sub Private Sub Command1_Click() If Text1.Text = 123456-111 Then Form2.Hide MsgBox 欢迎进入DIY软件安装系统！！ Else MsgBox 序列号输入错误，自动退出系统！！ End If End End Sub 语句、方法及函数 MsgBox方法格式： MsgBox 提示信息[,按钮形式[,对话框标题]] 语句、方法及函数 VB函数： 内部函数（标准函数） 用户自定义函数 日期函数 语句、方法及函数——日期函数 Date返回系统日期的函数 Day (date) WeekDay（Date）返回当前是星期代号（1~7），星期日为1，星期一为2 …… WeekDayName（N）将星期代号N（1~7）转换为星期名称。 Now返回系统日期和时间 Year() Month（）返回月份代号（1~12） MonthName（N）返回月份名 例题所用函数： Int(x)函数 fix(x)去掉小数部分 功能：取不超过x的整数。 例：int（3.5）的值3；int（-3.5)的值-4 Rnd函数 功能：产生一个(0,1)范围之内的实数 例： Rnd * 100产生(0,100)之内的随机实数 Int(Rnd * 100)产生[0,99]之内的随机整数 Int(Rnd * 100) + 10产生[10,109]之内的随机整数 Int((upper-lower+1)* Rnd)+ lower 控件——计时器 Randomize 功能：保证每次运行程序时所产生的随机数与前一次的产生值无关 QBColor（N） 功能：设置颜色 参数N：0~15的整数 函数值：一种颜色值 Form1.Bac