Visual Basic 程序设计 教师：王 杨 电话：13648032216 邮箱：wangyang@swpu.edu.cn 教师：王 杨 电话：13648032216 邮箱：wangyang@swpu.edu.cn Q群： 272761139

上 次 作 业 复习并掌握表2-1,表2-5 自学并了解P21变量如何用Deftype成批定义？ 自学并了解P24变量类型转换函数？ 自学并了解表2-6,表2-7 自学并掌握表2-4 课后习题P30选择题、填空题、简答题3、4、5、6 预习第三章

其他函数 转换函数 日期函数 ASC(x) Chr(x) Lcase(x) Ucase(x) Val(x) Time Date Now

数学函数 P27 Private Sub Command1_Click() Dim x As single x = Text1.Text Text1.Text = Sin(x) End Sub Private Sub Command1_Click() Text1.Text=Sin(Val(Text1.Text)) End Sub

字符串函数 P28 Len(x) LenB(x) InStr(str1, str2) Left$ (str，n) 测试字符 串大小 Len(x) LenB(x) 取子串函数 Left$ (str，n) Right$ (str，n) Mid$ (str，p，n) 返回字符串 String$(n,str)/ String$(n,Ascii) space$(n) 找子串函数 InStr(str1, str2)

常用内部函数 转换函数 数学函数 Shell 函数 常用内部函数 时间日期函数 字符串函数

Private Sub Form_Click() Dim n%,a%,b%,c%,x% n = Int(Rnd * 900 + 100) 单击窗体时，随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示，结果如下所示,要求用两种方法实现（使用数字的逆序和字符串的逆序） Private Sub Form_Click() Dim n%,a%,b%,c%,x% n = Int(Rnd * 900 + 100) Form1.Print n a = n Mod 10 b = n \ 10 Mod 10 c = n \ 100 x = a * 100 + b * 10 + c Form1.Print x End Sub Private Sub Form_Click() n = Int(Rnd * 900 + 100) Form1.Print n Form1.Print x End Sub Dim n%,a$,b$,c$,x$ a= mid(n,1,1) b= mid(n,2,1) c= mid(n,3,1) x= c & b & a

用户输入一个三位正整数，单击窗体时逆序输出该数，产生的数与逆序数同时显示，结果如下所示,要求用两种方法实现（使用数字的逆序和字符串的逆序） Private Sub Form_Click() Dim n%,a%,b%,c%,x% n = Int(Rnd * 900 + 100) Form1.Print n a = n Mod 10 b = n \ 10 Mod 10 c = n \ 100 x = a * 100 + b * 10 + c Form1.Print x End Sub n=Text1.text 数据输入还有那些方法？

第3章 Visual Basic程序设计基础 数据输入与输出 1 Visual Basic基本语句 2 窗体 3

变量名=InputBox(提示$[,标题$][,默认][,x坐标][,y坐标]) Private Sub Form_Click() Dim n%,a%,b%,c%,x% n = Text1.Text Form1.Print n a = n Mod 10 b = n \ 10 Mod 10 c = n \ 100 x = a * 100 + b * 10 + c Form1.Print x End Sub Private Sub Form_Click() Dim a%, b%, c%, x1#, x2# a = Val(InputBox("请输入系数a", "一元二次方程求根")) b = Val(InputBox("请输入系数b", "一元二次方程求根")) c = Val(InputBox("请输入系数c", "一元二次方程求根")) x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a) x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a) Form1.Print x1; x2 End Sub n=Inputbox(“请输入一个三位数”) 格式 变量名=InputBox(提示$[,标题$][,默认][,x坐标][,y坐标])

[对象名称.] Print [表达式][ ,|;] 可以是一般表达式，也可以是常数或变量 在两个表达式之间可以加“，”、“；”或“空格” “，”表示两个表达式的值按标准格式输出 “；”或“空格”表示按紧凑格式输出 可以是窗体名称(Form)、图片控件名称(PictureBox)、打印机(Printer)，也可以是立即窗口（Debug），省略默认为当前窗体。 用于控制和下一Print输出间的关系，无符号表示换行，加“，”表示按标准格式，加“；”表示按紧凑格式

除Print之外的其他输出方法？ No1 MsgBox输出

MsgBox语句 语句形式： MsgBox 提示[,按钮][,标题] Private Sub Command2_Click() Dim a% 　 a = Val(InputBox(“请输入一个正数”, “计算平方根”)) 　y = Sqr(a) 　Print y End Sub 　MsgBox 　"确认" & a & "是否是正数" 语句形式： MsgBox 提示[,按钮][,标题]

3.2 VB基本语句 sin(x) = x + y 5 = sqr(s) + x + y x + y = 3 Dim x%,y%,z% 赋值语句 1.赋值号左边只能是变量，不能是常量、常数符号或表达式 sin(x) = x + y 5 = sqr(s) + x + y x + y = 3 2.不能在一句赋值语句中给多个变量赋值 Dim x%,y%,z% x=y=z=1 赋值语句中：a=b与 b=a相同吗?

赋值语句特点 a ="True" a = "123" a = 123 a = -1 类型不匹配 Dim a$ Dim a% a = 123

3.3 窗体 窗体 文本框、标签 命令按钮 计时器

窗体的属性 Height Width Top Left 大小位置 Font 字体 BackColor ForeColor BorderStyle Picture Caption Name 外观 Enabled Visible AutoRedraw True Flase 行为 ControlBox MaxButton WindowsState 杂项

真题 以下叙述中正确的是_________。 （A）窗体的Name属性指定窗体的名称，用来标识一个窗体 （B）窗体的Name属性值是显示在窗体标题栏中的文本 （C）可以在运行期间改变窗体的Name属性值 （D）窗体的Name属性值可以为空

真题 在名称为Form1的窗体上画一个命令按钮，名称为Cmd1，标题为"确认"，高400、宽为1500。窗体的标题为"关闭"，窗体标题栏上不显示最大化和最小化按钮。编写适当的事件过程，当程序运行时，单击Cmd1命令按钮，退出窗体。程序运行时的窗体界面如图所示。 方法

窗体事件 Load Unload Click 事件 Mouse move Dbclick

窗体的方法 Cls 清除运行时在窗体或图形框中显示的文本 Move 移动窗体并可改变其大小（除时钟、菜单外的所有控件） Show Show方法用来显示窗体，（Hide方法用来隐藏窗体） Move 左边距离[,上边距离[,宽度[,高度]]]

C 真题 为了使命令按钮（名称为Command1）右移200，应使用的语句是______。 A) Command1.Move -200 B) Command1.Move 200 C) Command1.Left = Command1.Left + 200 D) Command1.Left = Command1.Left – 200 C

思考1：有几种方法可以输出如下图所示图案

思考2：如果a不是正数怎么办？如何解决？ Private Sub Command2_Click() Dim a% 　 a = Val(InputBox("请输入一个正数"), "计算平方根") 　y = Sqr(a) 　Print y End Sub 　MsgBox 　"确认" & a & "是否是正数"

第3章 Visual Basic程序设计基础 数据输入与输出 1 Visual Basic基本语句 2 窗体 3

预习 选择结构程序设计