Visual basic3

'“计算”按钮
Dim a As Integer, b As Integer, c As Integer a = Val(Text1.Text) b=7 c = 2 * a Mod b / 3 + 1 a=a+1 b=2*b-1 c=c+a+b Text2.Text = c End Sub
Text1
Text2
′“交换”按钮
Text2.Text = Text1.Text
Text1.Text = Text2.Text End Sub
主页
思考题
下列程Байду номын сангаас的运行结果是什么？
想一想
运行时，在文本框Text1中输入5，单击“计算”
按钮后，在文本框Text2显示的结果是什么? 20
Private Sub Command1_Click()
也可以通过单击工具栏上的“中断”按钮来实
现 使用Ctrl + Break组合键,可强制程序暂停运行
主页
说明
(1)表达式中的变量必须是赋过值的，否则变量的初值自动 取零值(变长字符串变量取空字符)。例如： a = 1 c = a + b + 3 ′b未赋过值，为0 执行后，c 值为 4 (2)赋值语句跟数学中等式具有不同的含意，例如 x = x + 1 表示把变量x的当前值加上1后再将结果赋给变量 “先读后写”：读出x的内容 → 有内容）
例3.4 通过输入框输入姓名， 然后再消息框中显示出来
输入框
Private Sub Form_Load() x = InputBox(“输入您的姓名”, “您叫什么名?”) y = MsgBox( x & “先生：祝您马到功成！”, ,”例3.4”) End Sub 消息框
主页
1 输入对话框
用于产生一个能接收用户输入的对话框 格式： 变量=InputBox(提示[,标题][,缺省值][,xpos][,ypos]) 举例
主页
例3.2 Private Sub Form_Click()
a=2 b = "VB" Print 50 * a Print b Print Print "The Total is" End Sub
'计算并输出表达式的值 '输出变量的值 '输出空行 '输出字符串常量
输出数值数据时，前面有一个符号位(正 号以空格表示)，后面留有一个空格； 输出字符串时，前后不留空格 每个Print输出一行。
主页
Print Tab(2);"学号"；Tab(11);"姓名"；Tab(21);"成绩"
输出结果是(1个汉字占2个位置)：

└┘学号└┘└┘└┘└┘└┘姓名└┘└┘└┘└┘└┘└┘成绩
主页
3.3 使用对话框
对话框既可以用来显示信息，也可以用于输入信息 VB中能够建立两种预制对话框：输入框和消息框 使用系统提供的函数(InputBox和MsgBox)，而不必为对话框 另建窗体
主页
当输入的圆半径为65时，运行结果
主页
思考题
想一想
在窗体上有一个文本框，然后编写如下事件过程： Private Sub Form_Click() x = InputBox("请输入一个整数") Print x + Text1.text End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入 对话框中输入123，单击“确定”按钮后，在窗体上显示的内容 是 D
学习程序设计，初学者要 善于模仿，并要多练。 任何一门程序设计语言都 有一套严格的编程规定(如语法 规则)，在编程时一定要遵守这 些规定(只能遵守，不能创造)。
主页
第3章 赋值与输入输出
一个完整的VB应用程序，一般都包含三部分内容，即
输入 → 处理 → 输出
可通过VB语句、各种控件实现输入输出操作
主页
3 MsgBox的两种格式
（1）返回一个值。从返回值中可以知道用户按 下的是哪个按钮。例如
y = MsgBox(“输入文件名是否正确”,52,”请确认”)
若y为1，表示用户按下的是“确定”按钮，依此类推。 程序通过判断y值(如采用条件语句IF-THEN)，再根据用 户按下的是什么按钮，再做不同的处理。
（2） 不返回值。例如
MsgBox “输入文件名是否正确”,52,”请确认” MsgBox “输入文件名是否正确” 采用这种格式时，不知道用户按下的是什么按钮。这种 格式可以使用在不需要知道用户按钮情况的场合。
主页
例3.5
从输入框中输入圆的半径，计算圆的周长和面积
例3.5
(1)创建应用程序的用户界面和设置对象属性 (2)编写程序代码
(4)赋值号两边的数据类型必须一致，即同时为数值型或同时 为字符型。
主页
例3.1 设计程序，实现两个文本框内容的交换
(1)在窗体上建立两个标签、两个文本框和一个命令按钮 (2)编写程序代码
借助于另一个变量(假设为 t) ，并直接在控件中交换数据
Private Sub Command1_Click()
运行结果：
主页
例3.3 Private Sub Form_Click() a = 3: b = 4 分号“；”——紧凑格式 逗号“，”——按区格式(14个字符位 Print a, b, 4 + a, 置) Print 2 * b 语句行末尾有分号或逗号,则输出本行 输出项后不换行 Print a, , b Print "a="; a, "b="; b End Sub
本章主要内容 赋值语句 使用print方法 预定义对话框 数组的定义
退出
主页
3.1赋值与输入输出
1. 赋值语句［Let］变量名=表达式
示例：x = 5 * 1.4
2. 注释、结束和暂停语句
(1) 注释语句 Rem 注释内容 或 ´ 注释内容 (2) 结束语句 End (3) 暂停语句 Stop
Dim t As String t = Text1.Text
′“交换”按钮
Text1
Text1.Text = Text2.Text
Text2.Text = t End Sub
有的对象属性 具有变量的特性
Text2
主页
思考题
把上述程序改为以下形式，效果是否一样？
想一想
Private Sub Command1_Click()
主页
3 动态数组
例如： Dim aa() as string Redim aa(1..10) as string
4 二维数组 Dim m(3,5) as integer 例如： Dim bb(1..2,1..3) as string 其元素为bb(1,1),bb(1,2),bb(1,3) bb(2,1),bb(2,2),bb(2,3)
A. 123
B. 456
C. 579
D. 123456
主页
3.4数组的概念
1 数组的概念
有序数据的集合。 数组中的每一个数据属于同一个数据类型。 用一个统一的数组名字和下标来唯一确定数组中的每一个素。
2 数组的定义格式
{Public|Private|Static} Dim 数组名（大小)as 数据类型 例如：Dim aa(10) as string 其元素为 aa(0),aa(1),„,aa(9),aa(10) Option Base 0 Option Base 1 aa(1),aa(2)„,aa(9),aa(10) Public|Private|Static}Dim 数组名（下界to上界)as数据类型 例如：Dim aa(1..10) as string 其元素为 aa(1),aa(2),„.aa(10)
Private Sub Command1_Click() Dim r As Single, k As Single, s As Single r = Val(InputBox("请输入圆的半径", "计算圆的周长和面积")) k = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = k Text2.Text = s MsgBox "计算已完成", , "例3.5" End Sub Private Sub Command2_Click() End End Sub
运行结果
主页
2 特殊打印格式
（1）
Spc函数
格式：Spc(n) 功能：在输出下一项之前插入n个空格。 例如： Print "学号"；Spc(2)；"姓名"；Spc(5)；"成绩" 输出结果(└┘表示空格)： 学号└┘└┘姓名└┘└┘└┘└┘└┘成绩
主页
（2） Tab函数
函数格式：Tab(n) 功能：把输出位置移到第n列。 例如：
filename$=InputBox(“请输入文件名(不超过8个字符)”，”文件
名”，”vbfile”)
将产生一个如下对话框
例3.4b
主页
filename$=InputBox("请输入文件名" + Chr(13) + "(不超过8个字符)", "文件名", "vbfile")
主页
2 消息对话框
主页
加1
→ 写回x（覆盖原
说明
(3)变量出现在赋值号的右边和左边，其用途是不相同的。出 现在右边表达式中时，变量是参与运算的元素(其值被读出)；出 现在左边时，变量起存放表达式的值的作用(被赋值)。例如 x=2 a=3 x = 2*a + 5 当执行第3行语句“x=2*a+5”时，将读出变量a的值(即3)，把 该值乘2后加5，然后将结果(11)赋值给变量x。