Visual Basic学习
目录
Visual Basic简介
Visual Basic的发展史
Visual Basic的功能与特点
VB开发环境安装
设计应用程序的过程
VB代码输入规则
类和对象
属性
方法
事件过程
对象的通用属性
焦点和Tab顺序
VB的数据类型
1.字符串类型(String)
2.数值型
3.字节型
4.货币型
5.逻辑型
6.日期型
7.变体型
标识符
关键字
常量
变量
运算符与表达式
关系运算符与关系表达式
逻辑运算法与逻辑表达式
日期运算符与日期表达式
运算符的优先级
字符串运算符与字符串表达式
常用的数学函数
常用转换函数
转换函数说明
常用的字符串函数
常用的日期函数
其他实用函数
赋值语句
利用InputBox函数输入
利用MsgBox函数或语句输出数据
单分支语句
多分支语句
Select Case使用
嵌套选择结构
Visual Basic简介
Visual Basic简称VB,是面向对象的程序设计语言;是可视化的Basic,保留了Basic语言简单、易用的特点,有扩充了可视化设计工具;可以轻松的设计出界面美观、使用方便、功能强大的应用程序。
Visual Basic的发展史
Visual Basic的功能与特点
VB开发环境安装
安装教程参考播客:在Win10上安装Visual Basic 6.0企业版的详细说明文档_Mr.羊的博客-CSDN博客
设计应用程序的过程
设计VB应用程序的基本步骤如下:
- 设计用户界面
- 对象属性设置
- 编写程序代码
- 运行调试程序
- 保存程序文件
VB代码输入规则
类和对象
类是对同种客观事物的抽象,包含特征描述(属性)和行为(方法)。将反映类的属性、方法、事件封装在一起,构成了面向对象编程的基本元素。
例如:人类是所有具体人的抽象,人类有身高、体重等属性;有苦笑、喜怒哀乐等方法;有对外界作用于人的事件,比如刮风、下雨等的反应。
对象是类的实例化。例如,每个具体的人就是人类的实例化,每个人都有各自不同的身高、体重、相貌等属性值和吃饭、喝水、苦笑等方法。
属性 ![](/assets/blank.gif)
方法
事件过程
对象的通用属性
焦点和Tab顺序
VB的数据类型
1.字符串类型(String)
2.数值型
3.字节型
4.货币型
5.逻辑型
6.日期型
7.变体型
标识符
关键字
常量
变量
运算符与表达式
关系运算符与关系表达式
逻辑运算法与逻辑表达式
日期运算符与日期表达式
运算符的优先级
字符串运算符与字符串表达式
常用的数学函数
常用转换函数
转换函数说明
常用的字符串函数
常用的日期函数
其他实用函数
赋值语句
点击事件按钮代码:
Private Sub Command1_Click()Dim a%, b%, t%
a = Text1.Text
b = Text2.Text
t = a: a = b: b = t
Text1.Text = a
Text2.Text = bEnd SubPrivate Sub Form_Load()End Sub
运行结果:
点击交换值按钮
利用InputBox函数输入
利用MsgBox函数或语句输出数据
单分支语句
练习,三课成绩求平均数
页面
代码:
'求平均值点击事件
Private Sub Command1_Click()
Dim yw%, sx%, yy%, xm$, pj% '定义变量
xm = Text1.Text
yw = Val(Text2.Text)
sx = Val(Text3.Text)
yy = Val(Text4.Text)
'pj = Val(Text5.Text)
pj = (yw + sx + yy) / 3
Text5.Text = pj
'第一种写法
If pj < 60 ThenLabel8.Caption = xm + "平均成绩小于60,不能评定奖学金!"
ElseLabel8.Caption = xm + "平均成绩大于等于60,可以评定奖学金!"
End IfEnd Sub
'第二种写法(行写法)
If pj < 60 Then Label8.Caption = xm + "平均成绩小于60,不能评定奖学金!" Else Label8.Caption = xm + "平均成绩大于等于60,可以评定奖学金!"
'退出点击事件
Private Sub Command2_Click()EndEnd Sub
'清空点击事件
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""End SubPrivate Sub Form_Load()End Sub
演示截图:
多分支语句
练习,三课成绩求平均数
页面
代码:
'求平均值点击事件
Private Sub Command1_Click()
Dim yw%, sx%, yy%, xm$, pj% '定义变量
xm = Text1.Text
yw = Val(Text2.Text)
sx = Val(Text3.Text)
yy = Val(Text4.Text)
'pj = Val(Text5.Text)
pj = (yw + sx + yy) / 3
Text5.Text = pj
If pj < 60 ThenLabel8.Caption = xm + "平均成绩小于60,不能评定奖学金!"
ElseIf pj < 70 ThenLabel8.Caption = xm & "平均成绩为" & pj & "可以评定四等奖学金!"
ElseIf pj < 80 ThenLabel8.Caption = xm & "平均成绩为" & pj & "可以评定三等奖学金!"
ElseIf pj < 90 ThenLabel8.Caption = xm & "平均成绩为" & pj & "可以评定二等奖学金!"
ElseLabel8.Caption = xm & "平均成绩为" & pj & "可以评定一等奖学金!"
End IfEnd Sub
'退出点击事件
Private Sub Command2_Click()EndEnd Sub
'清空点击事件
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""End Sub
演示截图:
Select Case使用
练习,三课成绩求平均数
页面
代码:
'求平均值点击事件
Private Sub Command1_Click()
Dim yw%, sx%, yy%, xm$, pj% '定义变量
xm = Text1.Text
yw = Val(Text2.Text)
sx = Val(Text3.Text)
yy = Val(Text4.Text)
'pj = Val(Text5.Text)
pj = (yw + sx + yy) / 3
Text5.Text = pjSelect Case pjCase Is < 60Label8.Caption = xm + "平均成绩小于60,不能评定奖学金!"Case Is < 70Label8.Caption = xm & "平均成绩为" & pj & "可以评定四等奖学金!"Case Is < 80Label8.Caption = xm & "平均成绩为" & pj & "可以评定三等奖学金!"Case Is < 90Label8.Caption = xm & "平均成绩为" & pj & "可以评定二等奖学金!"Case ElseLabel8.Caption = xm & "平均成绩为" & pj & "可以评定一等奖学金!"
End SelectEnd Sub
'退出点击事件
Private Sub Command2_Click()EndEnd Sub
'清空点击事件
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""End Sub
或
'求平均值点击事件
Private Sub Command1_Click()
Dim yw%, sx%, yy%, xm$, pj% '定义变量
xm = Text1.Text
yw = Val(Text2.Text)
sx = Val(Text3.Text)
yy = Val(Text4.Text)
'pj = Val(Text5.Text)
pj = (yw + sx + yy) / 3
Text5.Text = pjSelect Case pjCase 0 To 59Label8.Caption = xm + "平均成绩小于60,不能评定奖学金!"Case 60 To 69Label8.Caption = xm & "平均成绩为" & pj & "可以评定四等奖学金!"Case 70 To 79Label8.Caption = xm & "平均成绩为" & pj & "可以评定三等奖学金!"Case 80 To 89Label8.Caption = xm & "平均成绩为" & pj & "可以评定二等奖学金!"Case ElseLabel8.Caption = xm & "平均成绩为" & pj & "可以评定一等奖学金!"
End SelectEnd Sub
'退出点击事件
Private Sub Command2_Click()EndEnd Sub
'清空点击事件
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""End Sub
演示截图:
嵌套选择结构
练习,三课成绩求平均数,校验输入的成绩
页面
代码:
'求平均值点击事件
Private Sub Command1_Click()
Dim yw%, sx%, yy%, xm$, pj% '定义变量
xm = Text1.Text
yw = Val(Text2.Text)
sx = Val(Text3.Text)
yy = Val(Text4.Text)
'pj = Val(Text5.Text)If (yw < 0 Or yw > 100) Or (sx < 0 Or sx > 100) Or (yy < 0 Or yy > 100) ThenLabel8.Caption = "成绩应该是0到100之间的数字,请重新输入!"
Elsepj = (yw + sx + yy) / 3Text5.Text = pjSelect Case pjCase 0 To 59Label8.Caption = xm + "平均成绩小于60,不能评定奖学金!"Case 60 To 69Label8.Caption = xm & "平均成绩为" & pj & "可以评定四等奖学金!"Case 70 To 79Label8.Caption = xm & "平均成绩为" & pj & "可以评定三等奖学金!"Case 80 To 89Label8.Caption = xm & "平均成绩为" & pj & "可以评定二等奖学金!"Case ElseLabel8.Caption = xm & "平均成绩为" & pj & "可以评定一等奖学金!"End Select
End IfEnd Sub'退出点击事件
Private Sub Command2_Click()EndEnd Sub
'清空点击事件
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""End Sub
演示截图:
FOR NEXT循环
示例:
代码:
'求平均值点击事件
Private Sub Command1_Click()
Dim pj%, i% '定义变量For i = 1 To 3 Step 1pj = InputBox("请输入平均成绩:", "输入平均成绩")Select Case pjCase 0 To 59Picture1.Print "平均成绩小于60,不能评定奖学金!"Case 60 To 69Picture1.Print "平均成绩为" & pj & "可以评定四等奖学金!"Case 70 To 79Picture1.Print "平均成绩为" & pj & "可以评定三等奖学金!"Case 80 To 89Picture1.Print "平均成绩为" & pj & "可以评定二等奖学金!"Case ElsePicture1.Print "平均成绩为" & pj & "可以评定一等奖学金!"End Select'Picture1.Print i '打印i的值Next'Picture1.Print "i=" & i '打印i的值End Sub
运行效果截图:
DO LOOP循环
'求平均值点击事件
Private Sub Command1_Click()
Dim pj%, i% '定义变量i = 1Do While i <= 3pj = InputBox("请输入平均成绩:", "输入平均成绩")Select Case pjCase 0 To 59Picture1.Print "平均成绩小于60,不能评定奖学金!"Case 60 To 69Picture1.Print "平均成绩为" & pj & "可以评定四等奖学金!"Case 70 To 79Picture1.Print "平均成绩为" & pj & "可以评定三等奖学金!"Case 80 To 89Picture1.Print "平均成绩为" & pj & "可以评定二等奖学金!"Case ElsePicture1.Print "平均成绩为" & pj & "可以评定一等奖学金!"End Select'Picture1.Print i '打印i的值
i = i + 1LoopPicture1.Print "i=" & i '打印i的值End Sub
运行截图:
或
'求平均值点击事件
Private Sub Command1_Click()
Dim pj%, i% '定义变量i = 1Do Until i > 3pj = InputBox("请输入平均成绩:", "输入平均成绩")Select Case pjCase 0 To 59Picture1.Print "平均成绩小于60,不能评定奖学金!"Case 60 To 69Picture1.Print "平均成绩为" & pj & "可以评定四等奖学金!"Case 70 To 79Picture1.Print "平均成绩为" & pj & "可以评定三等奖学金!"Case 80 To 89Picture1.Print "平均成绩为" & pj & "可以评定二等奖学金!"Case ElsePicture1.Print "平均成绩为" & pj & "可以评定一等奖学金!"End Select'Picture1.Print i '打印i的值
i = i + 1LoopPicture1.Print "i=" & i '打印i的值End Sub
运行截图:
退出循环体
'求平均值点击事件
Private Sub Command1_Click()
Dim pj%, i% '定义变量i = 1Do While i >= 1pj = InputBox("请输入平均成绩:", "输入平均成绩")Select Case pjCase 0 To 59Picture1.Print "平均成绩小于60,不能评定奖学金!"Case 60 To 69Picture1.Print "平均成绩为" & pj & "可以评定四等奖学金!"Case 70 To 79Picture1.Print "平均成绩为" & pj & "可以评定三等奖学金!"Case 80 To 89Picture1.Print "平均成绩为" & pj & "可以评定二等奖学金!"Case ElsePicture1.Print "平均成绩为" & pj & "可以评定一等奖学金!"End Select'Picture1.Print i '打印i的值
i = i + 1
'退出循环体
If i = 4 ThenExit Do
End IfLoopPicture1.Print "i=" & i '打印i的值End Sub
DO LOOP WHile循环
'求平均值点击事件
Private Sub Command1_Click()
Dim pj%, i% '定义变量i = 1Dopj = InputBox("请输入平均成绩:", "输入平均成绩")Select Case pjCase 0 To 59Picture1.Print "平均成绩小于60,不能评定奖学金!"Case 60 To 69Picture1.Print "平均成绩为" & pj & "可以评定四等奖学金!"Case 70 To 79Picture1.Print "平均成绩为" & pj & "可以评定三等奖学金!"Case 80 To 89Picture1.Print "平均成绩为" & pj & "可以评定二等奖学金!"Case ElsePicture1.Print "平均成绩为" & pj & "可以评定一等奖学金!"End Selecti = i + 1Loop While i <= 3Picture1.Print "i=" & i '打印i的值End Sub
或
Do Loop Until
'求平均值点击事件
Private Sub Command1_Click()
Dim pj%, i% '定义变量i = 1Dopj = InputBox("请输入平均成绩:", "输入平均成绩")Select Case pjCase 0 To 59Picture1.Print "平均成绩小于60,不能评定奖学金!"Case 60 To 69Picture1.Print "平均成绩为" & pj & "可以评定四等奖学金!"Case 70 To 79Picture1.Print "平均成绩为" & pj & "可以评定三等奖学金!"Case 80 To 89Picture1.Print "平均成绩为" & pj & "可以评定二等奖学金!"Case ElsePicture1.Print "平均成绩为" & pj & "可以评定一等奖学金!"End Selecti = i + 1Loop Until i > 3Picture1.Print "i=" & i '打印i的值End Sub
一维数组
'求平均值点击事件
Private Sub Command1_Click()
Dim pj%, i%, n%, sum% '定义变量
'Option Base 1Dim CJ(4) As Integer
For i = 1 To 3
sum = 0
For n = 1 To 4CJ(n) = Val(InputBox("请输入第" & i & "个学生第" & n & "门课的成绩:", "各门课成绩"))sum = sum + CJ(n)Picture1.Print CJ(n);
Next
pj = sum / 4
Picture1.Print "高于平均的分数:";
For n = 1 To 4
If CJ(n) > pj Then Picture1.Print CJ(n);
Next n
Select Case pjCase 0 To 59Picture1.Print "平均成绩小于60,不能评定奖学金!"Case 60 To 69Picture1.Print "平均成绩为" & pj & "可以评定四等奖学金!"Case 70 To 79Picture1.Print "平均成绩为" & pj & "可以评定三等奖学金!"Case 80 To 89Picture1.Print "平均成绩为" & pj & "可以评定二等奖学金!"Case ElsePicture1.Print "平均成绩为" & pj & "可以评定一等奖学金!"End Select
Next
End Sub
求最小值及下标
代码
Option Base 1
Private Sub Command1_Click()
Dim a(), i%, min%, imin%, t%
a = Array(8, 4, 6, 7, 9, 1, 4)
n = UBound(a)
min = a(1)
imin = i
For i = 1 To nIf a(i) < min Then min = a(i): imin = i
Next
Picture1.Print "原数据:";
For i = 1 To nPicture1.Print a(i);
Nextt = a(1): a(1) = a(imin): a(imin) = tPicture1.Print vbCrLf; "最小值:"; a(min), " 最小值下标:"; imin
End Sub
运行截图:
Visual Basic学习相关推荐
- Visual Basic Script 程序参考手册-学习第4天:数组列表及Msgbox函数
VBS(Visual Basic Script)初识及入门 - 数组 及 msgbox函数 一. 数组列表 (一) 静态的数组列表 Dim astrPhoneList(2,4) '从这里就知道了该列表 ...
- vba 编辑combobox内容_初识Visual Basic编辑器并建立一段简单的代码
大家好,从今日开始我正式推出"VBA之EXCEL应用"教程,这个教程是面向初学人员的教程,教程一共三册,十七个章节,从简单的录制宏实现一直讲到窗体的搭建,都是我们在利用EXCEL工 ...
- 看我用汉语编程(汉语Visual Basic编程软件发布)
http://baike.baidu.com/view/14260.html?tp=0_01 Visual Basic(VB)是一种由微软公司开发的包含协助开发环境的事件驱动编程语言.从任何标准来说, ...
- Visual Basic 永远29岁,Visual Basic 谢幕!
Visual Basic 永远29岁,微软宣布不再发展这门语言 近期,微软 NET 团队在开发者博客中宣布,他们虽然还会继续在 .NET 5.0 上支持 Visual Basic ,但不再将 VB 作 ...
- 编程大讲坛、坛坛是佳酿--编程大讲坛:Visual Basic核心开发技术从入门到精通...
[书名]编程大讲坛:Visual Basic核心开发技术从入门到精通 [作者]薛小龙 [ISBN]978-7-121-09057-8 [出版社]电子工业出版社 [出版日期]2009年9月 [定 价] ...
- Visual Basic 兴衰记
这是一篇暴露年龄的文章.为什么这么说?因为现在年轻的程序员可能没有接触过当年红极一时的 Visual Basic.28 年前的 1991 年 4 月,Microsoft 发布了 Visual Basi ...
- 试卷代号6098计算机应用基础,2231电大《Visual Basic程序设计》试题和答案200507
试卷代号:2231 座位号口口 中央广播电视大学2004-2005学年度第二学期"开放专科"期末考试 计算(应).软件信息 软 件 网 站 专业 VisualBasic程序设计 试 ...
- visual basic对文件夹下的excel执行批量删除行操作
如图操作,在excel中添加 visual basic 工具 新建一个excel 在开发工具 那里选择 插入 按钮操作 附上一下代码 Sub hz() Dim i As Long Dim f, ff ...
- Visual.Basic.2008编程参考手册
下载地址:网盘下载 本书是世界级VB专家Rod Stephens奉献给广大程序员的编程心得与忠告,是学习Visual Basic 2008编程绝佳的参考手册.本版对上一版进行了大量的扩充,新增了有关W ...
最新文章
- 从R-CNN到Mask R-CNN的思维跃迁
- Vim as Python IDE on windows(转)
- Spring-WebApplicationContext解读
- CTF -杂项密码学,常见密码介绍(一)
- Codeforces Round #738 (Div. 2)
- 【WebRTC---序篇】(一)为什么要使用WebRTC
- C语言实现动态顺序表
- 导师评价网北工大计算机段老师,北京工业大学怎么样好不好(排名-师资-专业-评价)...
- java非阻塞io流_阻塞式和非阻塞io流初认识
- CF369E Valera and Queries
- tp5完全开发手册_TP5.1解决跨域
- 虚拟机安装XP操作系统
- envi插件大津法_IDL处理Himawari8-NC数据
- 计算机质量监督检验报告,质量监督检验(检测)报告自动生成管理系统软件
- php datedif,Excel Datedif函数全面解析及BUG分析
- Softmax回归求导公式推导
- SQLServer集群故障节点DISCONNECTED
- Linux 设备驱动
- Windows 安装 Windows 版 iCloud 之后我的电脑里多了个 iCloud 照片图标
- 【曹工杂谈】Maven底层容器Plexus Container的前世今生,一代芳华终落幕