没有合适的资源?快使用搜索试试~ 我知道了~
基本的控制结构教学控制结构及算法一PPT课件.pptx
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 197 浏览量
2021-10-07
18:21:11
上传
评论
收藏 385KB PPTX 举报
温馨提示
试读
37页
基本的控制结构教学控制结构及算法一PPT课件.pptx
资源推荐
资源详情
资源评论
4.1 顺 序 结 构
一、赋值语句
形式:变量名=表达式 或 对象名 . 属性名 = 表达式
说明: 1 、首先计算“ =” 后面表达式的值,然后再赋值给变量。
2 、赋值号左侧必须是变量或对象的属性,不能是常量、函数和表达式
3 、赋值号两边数据类型必须一致,否则强制转化成左侧的精度。
4 、不能在一条一句中同时给多个变量赋值。
例: 正确的:
sr!=0.1
Text1.Text = " 欢迎使用 Visual Basic 6.0 "
ia% = 10 / 3 ‘ia 的结果为 3
错误的: x+y=10
rnd( )=0.5
x=y=5
第 1 页 / 共 37 页
二、与用户交互函数和过程
1. InputBox 函数:输入函数
InputBox( 提示信息,对话框标题,缺省值, x 坐标, y
坐标 )
例 : 在屏幕上显示图示的对话框:
相应的语句如下:
Dim strName As String * 40
strName= InputBox(" 请输入你的姓名 " + vbCrLf + " 然后单击确定 " , " 输入框 "
)
也可以使用如下语句:
Dim strName As String * 40 , strS1 As String * 40
strS1 = " 请输入你的姓名 " + Chr(13) + Chr(10) + " 然后单击确定 "
strName= InputBox(strS1 , " 输入框 " , , 100 , 100)
当键盘输入“王晓明” 后,变量 strName 获得键盘输入的值。
第 2 页 / 共 37 页
InputBox 函数举例
例如:自由落体位移计算公式 s=1/2(gt
2
+vt), 输入初始速度 v 和下落时间
t ,求 t 时间内经过的距离 s 。
Private Sub Form_Click()
Dim v As Single
Dim t!
Dim g As Single, s As Single
g = 9.18
v = InputBox(" 请输入初始速度 ")
t = InputBox(" 请输入时间的值 ")
s = g * t ^ 2 / 2 + v * t
Print " 总共下落了 "; s; " 米 "
End Sub
第 3 页 / 共 37 页
2. MsgBox 函数和 MsgBox 语句:输出函数
函数形式:变量 [%] = MsgBox( 提示 , 按钮,标题 )
语句形式: MsgBox 提示 , 按钮 , 标题
按钮值如下: 函数返回所选按
钮整数值:
第 4 页 / 共 37 页
例如:编一帐号和密码检验程序。
要求:
帐号不超过 6 位数字,有错,清除原内容再输入。
密码输入时在屏幕上以 “ *” 代替; 若密码错,显示有关
信息,选择“重试”按钮,清除原内容再输入,选择“取消”按
钮,停止运行。
分析:
帐号 6 位, MaxLength 为 6 , LostFocus 时判断
IsNumeric 函数
密码 PassWordChar 为“ *” , MsgBox 函数设置密码
错对话框。
第 5 页 / 共 37 页
剩余36页未读,继续阅读
资源评论
加油学习加油进步
- 粉丝: 1392
- 资源: 52万+
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功