当前位置:首页 >> 其它课程 >>

Vb编程入门


Vb 编程入门
一、编写程序的基本思路

1、人脑处理问题的过程

以“9+19+28=?”为例 第一步:收集信息 第二步:处理信息 第三步:输出结果

2、编写程序解决问题的思路与人脑处理问题的思路相同

第一步:数据输入 可以通过 TextBox(文本框)控件的 Text 属性或通过赋值

语句输入数据

(1) 赋值语句用于输入已知确定的数据;

(2) 用 TextBox 用于输入暂时不确定或变化的数据。

**注意** 用 TextBox 输入的数据是字符型,若要进行数值计算则要先转换成数值型(用 VAL 函数)

第二步:数据处理 一般用用赋值语句进行计算处理或者用以后学的知识进行处理

第三步:数据输出

用 Label 控件的 Caption 属性或 TextBox 的 Text 属性进行输出

代码书写格式如下: 控件名.Caption=”要输出的内容” 控件名.Text=”要输出的内容” (用 Label 控件输出) (用 TextBox 控件输出)

**注意** 若输出变量的类型是数值型时,要用 STR()函数转换成字符型。

二、VB 编写程序步骤

分析问题,确定程序要完成什么任务,按下面的步骤创建应用程序。

举例: 已知圆的半径,求圆的周长和面积。

(1)新建工程。创建一个应用程序首先要打开一个新的工程。

(2)创建应用程序界面。

A、要用几个控件 B、版面如何布局 C、各控件的“职责”、摆放位置

(3)设置属性值。

A、名称属性 B、Cation、TextBox 等属性的值 C、字号、字体、颜色、背景色等属性 ......

(4)对象事件过程的编程。

A、代码应写在哪一个控件上,即事件发生在哪一个控件上 B、确定解决问题的思路 C、写代码(要注意变量的定义)

(5)保存文件。 (6)程序运行与调试,生成 EXE 文件。

三、练习: 已知圆的半径,求圆的周长和面积。

四、作业: 鸡兔同笼。已知笼中鸡兔总头数为 h,总脚数为 f,问鸡兔各有多少只? 分析:设鸡有 x 只,兔有 y 只,则方程如下:

解方程。解出求 x 和 y 的具体方式为:

设计界面和运行界面,如图所示。

注意:程序运行和调试时,输入的数据要符合常规; 如:鸡头总头数为 2,则总脚数最少为 4,最多不超过 8,否则会出 现值。

选择结构—IF 语句
发表于 2006-03-14 已被阅读 2427 次

【课程内容标准】 会使用程序设计语言实现顺序、选择、循环三种控制结构。初步掌握调试运行程序的方 法。

【学习目标】 (一)在知识与技能方面 1、掌握 IF 条件语句的格式、功能和执行过程。 2、掌握关系表达式的基本知识。 3、学会使用 IF 条件语句来实现选择控制结构,解决实际问题。

(二)在过程与方法方面 初步掌握程序调试运行的方法。

(三)在情感态度与价值观方面 1、经历计算机解决问题的过程,体验成功的快乐。 2、在老师的指导下,与同学共同探究问题,让学生体验自主学习、协助学习的乐趣。

【重点难点】 1、IF 条件语句的格式、功能和执行过程。 2、使用 IF 条件语句来实现选择控制结构,解决实际问题。

【教法学法】 问题教学法、讲练结合法

【学时】1 学时

【教学环境】网络电脑室

【学习过程】 一、引入 情景:去市场买东西,如买菜或买水果,买多会便宜一些,买少则原价出售,这时出现 两种选择。这种需要某个前提成立与否而做出选择的问题需要通过选择结构来解决。 1、提出问题 例如,商场为了对苹果进行促销,根据顾客购买的数量调整苹果销售的价格。如顾客一 次购买 5 斤以下按原价 3 元出售,一次 5 斤以上(含 5 斤)时则可以在原价的基础上打 8 折。条件语句(if 语句)就是为解决此类问题而设计的。 2、师生共同分析问题、解决问题

(1)分析问题: weight 表示苹果重量,amount 表示应付金额; 5 斤以下:amount=weight*3;5 斤以上:amount=weight*3*0.8 (2)设计算法 ① ② ③ 输入苹果重量 weight 的值; 判断 weight>=5 的值是 true 还是 flase 计算应付金额 amount,如果 weight>=5 的值是 true,则 amount=weight*3*0.8;否

则为 amount=weight*3 ④ 输出应付金额 amount

(3)编写程序 根据设计好的算法,可以写出此问题的代码如下:

二、If 语句的格式(归纳总结)

if

条件

then

语句块 1

else

语句块 2

或 If 条件 then 语句块 1 Else

语句块 2 End If

说明:

(1)“条件”一般为关系表达式或逻辑表达式。通常把关系表达式或逻辑表达式 的值为真时,称为条件满足;值为假时,称为条件不满足。反之亦然。 (2)语句块 1、语句块 2 分别是“条件”满足或不满足时,处理方法的描述,可以 是若干个语句。 (3)If…Then 、Else、End If 是 VB 的保留字。

三、关系表达式: 关系表达式是用关系运算符连接起来的式子。 关系运算符号有:

当关系表达式的值是逻辑型(Boolean) 。关系表达式成立时其值为真 (True) ,当关系表达式不成立时其值则为假(False) 。

四、if 语句的执行过程: 调试程序时,通过逐语句(F8)执行程序,让学生观察程序的执行情况(两种) 。 块 If 首先判断“条件”,其值为真时,执行语句块 1;为假时执行语句块 2。 当缺省[Else…]中的内容时,该分支结构只对条件满足的情况进行处理。执行过 程如下图所示。

五、学生练习(例题:买苹果)

六、点拨纠错 (1)语句块 1 与语句块 2 不能调换 (2)语句块可包含多条语句 (3)同一行多加 end if (4)以下代码错在哪里,如何修改 ?

七、作业:根据以下问题,编写程序。 火车站行李费的收费标准是 50kg 以内(包括 50kg)0.20/kg,超过部分 0.50/kg。编写

程序,要求根据输入的任意重量,计算出应付的行李费。 根据题意计算公式如下:

内部函数练习

练习:

1、判断正负数:当输入一个正数,输出它的平方根;当输入一个负数,则输出它的绝 对值。

2、输入一个字符串,输出它的长度并输出字符串右边 2 个字符。

3、另外再设置 4 个按钮,按钮 1 是小写字母转换为大写字母;按钮 2 输出幸运号码; 按钮 3 打开扫雷界面,按钮 4 输出日期时间。

多重选择—select case 语句
发表于 2006-03-24 已被阅读 3727 次

教学目标: 1、了解 select case 语句的作用 2、熟练掌握 select case 语句的基本结构 3、理解语句表达式的 3 种书写情况(,和 to 与 is) 4、会用 select case 语句解决实际问题

重点: 1、select case 语句格式 2、语句表达式的 3 种书写情况 3、用 select case 语句解决实际问题

难点: 1、 select case 语句表达式的 3 种书写情况 2、 优化编程过程

一、新课引入 上节课练习: 输入一个学生的一门课分数 x (百分制) 当 x≥90 时, , 输出“优秀”; 80≤x 当 <90 时,输出“良好”;当 70≤x<80 时,输出“中”;当 60≤x<70 时,输出“及格”,当 x <60 时,输出“不及格”。

编写程序如下:

在这个程序中,用了 5 个 if 语句来处理 5 种情况,这样的程序在可读性和处理效率方面 是比较差的,那么如果我们再多一些情况,它的缺陷就会暴露无遗。如何处理这个问题 呢?本节课的学习内容 Select Case 语句即可解决这个问题。

二、Select Case 语句的格式

Select Case 语句是多分支语句,又称为情况语句。 格式: Select Case 表达式 Case 表达式列表 1 语句块 1 Case 表达式列表 2 语句块 2 … Case 表达式列表 n 语句块 n [Case Else 语句块 n+1] End Select

功能:根据“表达式”的值,选择第一个符合条件的语句块执行。

Select Case 语句的执行过程是:先求“表达式”的值,然后顺序测试该值符合哪一个 Case 子句中情况,如果找到了,则执行该 Case 子句下面的语句块,然后执行 End Select 下面的语句;如果没找到,则执行 Case Else 下面的语句块,然后执行 End Select 下面的 语句。

说明: ·· · “表达式”可以是数值型或字符型; · · “表达式”和“表达式列表”的类型必须相同; · ·· · “表达式列表”形式有以下 3 种:

(1)

一个表达式或用逗号隔开的若干表达式

判断 10 以内整数的奇偶性:

x=inputbox("输入一个整数") select case x case 1,3,5,7,9 print x; "这是奇数" case 2,4,6,8,10 print x; "这是偶数" end select

(2)表达式 1 To 表达式 2

x=inputbox("输入一个整数") select case x case 80 to 89

print x; "该生成绩为良" case 70 to 79 print x; "该生成绩为中" end select

(3)Is 关系表达式

x=inputbox("输入一个整数") select case x case is>=90 print x ; "该生成绩为优" case is>=80 print x ; "该生成绩为良" case is>=70 print x ; "该生成绩为中" end select

思考:is 关系表达式在程序中的顺序可以调转吗?

三、多重选择语句的执行过程

执行顺序:当表达式的值为表达式列表 1 时,执行语句组 1; 当表达式的值为表达式列表 2 时,执行语句组 2; …… 当表达式的值为表达式列表 n 时,执行语句组 n; 当表达式的值不是上述值时,执行语句组 n+1;

四、作业

作业一:求分段函数的值

作业二:输入一个整数,判别奇偶.

五、课堂小结 1、 select case 语句的基本结构 2、 表达式 3 种书写情况 3、 select case 语句的执行流程 4、 Vb 学习中优化程序理性思考

Do 循环语句
发表于 2006-04-18 已被阅读 2427 次

一、复习引入 前面我们已经学过 for 循环语句,它适合于解决循环次数事先能够确定的问题。

例如:画 5 个同心圆。程序如下: Dim r As Integer For r = 1 To 5 Step 1 Circle (2400, 1800), r * 100, vbRed Next r

但是对于只知道控制条件,但不能预先确定需要执行多少次循环体的情况(如下面例 题) ,我们怎么办呢。 例题:小明17 岁生日时种 3 棵树,以后每年过生日都去种树,并且每一年都要比前一 年多栽一棵树,那么小明多少岁可以种到或超过100棵树? 这个问题就需要应用 DO 循环语句来解决。

二、DO 循环语句的基本格式 do 循环体 loop until 循环终止条件 【师生共同分析完成例题】 (1)分析问题。 设年龄为 age,种树总数为 tree,则每年种树的数目为(age-14),由此可得: tree=3+4+5+... (其中 age=17,18,19...) 于是这个问题就可以转化为:当 tree>=100 时,求 age 的值。 (2)设计算法。 根据上述的分析,可设计出如下的算法: ① 令 age=17; ② 令 tree=3; ③ age=age+1; ④ tree=tree+(age-14); ⑤ 如果 tree<100,则返回第 3 步;

⑥ 输出 age 的值; ⑦ 结束。 (3)编写程序。 (4)调试程序。

程序如下: Dim age, tree As Integer age = 17 tree = 3 Do age = age + 1 tree = tree + age - 14 Loop Until tree >= 100 Print "到"; age; "岁时种到"; tree; "棵树"

三、DO 循环语句的执行过程 先执行一次循环体,然后判断是否满足循环终止条件,若满足条件则退出循 环,否则继续进行循环。 Do 循环命令的循环体中必须有能够改变循环终止条件的语句,不然将出现无限次 的循环,程序将不能正常结束。

Do 循环语句二
发表于 2006-04-19 已被阅读 2355 次

一、复习引入 前面我们已经学过 for 循环语句,它适合于解决循环次数事先能够确定的问题。 例如:求 s=1+2+3+…+n。程序如下: Dim i, n As Integer

Dim s As Single i=0 s=0 n = 100 For i = 1 To n Step 1 s=s+i Next i Print "s="; s 但是对于只知道控制条件,但不能预先确定需要执行多少次循环体的情况(如下面例题) ,我们怎么办呢。 例题:计算s=1+2+3……+n,当n等于什么的时候,s超过10000? 这个问题就需要应用 DO 循环语句来解决。

二、DO 循环语句的基本格式 do 循环体 loop until 循环终止条件 “条件”可以是关系表达式或逻辑表达式。Do 循环就是当给定的“条件”为 True 时,退出循环,为 False 时执行循环体。 【学生练习】用 do 循环语句完成例题: 计算s=1+2+3……+n,当n等于什么的时候,s超过10000? 【师生共同分析完成例题】 1、与 for 循环语句对比进行讲解。 Dim n As Integer Dim s As Single n=0 s=0 Do s=s+n

Loop Until s >= 10000 Print n; s 问题:for 循环语句中“next i”作用是什么? i=i+1 控制循环变量的变化。 Do 循环中有没有类似改变循环终止条件的语句,即 Do 循环语句能否使 n 产生变化? 2、教师讲解执行流程

三、DO 循环语句的执行过程 (1)先执行一次循环体,然后判断是否满足循环终止条件,若满足条件则退出循 环,否则继续进行循环。 (2)Do 循环语句先执行循环体,然后对条件进行判断。不管开始条件是否成立,循环体循环体至少执行一次。 (3) 循环语句本身不能修改循环条件, Do 所以必须在 Do......Loop 语句的循环体内设置能够改变循环终止条件的语句, 使得整个循环趋于结束,不然将出现无限次的循环,程序将不能正常结束,出现死循环。

四、实践 1、练习: 小明12岁生日时种了 3 棵树,以后每一年生日都会种 3 棵树,那么小明多少岁可以种满100棵树? 2、拓展练习:课本 P54,实践(1)(2) 、

(1)已知 s=1+2+3+…+N,找出一个最大的整数 N,使得 s<30000。编写程序解决这个问题。 (2)假设纸的长度足够长,厚度为 0.1 毫米,对折一次厚度增加 1 倍,现在对折纸张,直到总厚度超过珠穆朗马峰的 高度为止(珠穆朗马峰的高度为 8848.13 米) ,求对折纸张的次数。编写程序解决这个问题。

五、课堂小结 (1)DO 循环命令的循环体中必须有能够改变循环终止条件的语句,使得整个循环趋于结束,以避免死循环。 (2)Do...Loop Until 循环语句是执行一次循环体再对条件作判断。

四、实践 1、练习:用 Do 循环语句输出 1 至 10。 2、作业:课本 P54,实践(1)(2) 、

五、DO 循环的几点说明 (1)DO 循环命令的循环体中必须有能够改变循环终止条件的语句,使得整个循环趋于 结束,以避免死循环。 (2)Do...Loop Until 循环语句是执行一次循环体再对条件作判断。


相关文章:
Excel编程入门教程
1.8 小结 本学时中,你已经掌握了 VBA 的一些基础知识,你会录制宏、编辑宏而且了解了录制宏 的局限性.你很努力.并且已经为将来学习 VBA 甚至 VB编程语言打...
如何入门学习VB语言
文章引自 www.vdisk.cn/dxcyyswg 如何入门学习 VB 语言一.VB 是啥? VB 是 Visual Basic 编程言语 编写计算机程序需求运用计算机编程言语。计算机编程言语是人和...
VB6.0快速入门与精通(含100例)
VB6.0快速入门与精通(含100例)_计算机软件及应用_IT/计算机_专业资料。关于 VB 语言和怎样学习 VB VB6.0 全称为 VisualBasic 6.0,是微软公司推出的可视化编程工具...
VB编程基础教程
VB编程基础教程_IT/计算机_专业资料。vb初学者专用送给Visual Basic 6.0 的初学者应朋友的要求,写这么个东西,这里主要介绍一些学习 VB 过程中应该注意的问题,因为其...
基于VB的COM编程入门教程
基于VB的COM编程入门教程_IT/计算机_专业资料。vb,asp,c# 基于VB 的 COM 编程入门教程 第一节 COM 简介 "世上无难事,只要肯登攀",所以你要有信心成为一个 ...
vb编程实例2013
vb编程实例2013_计算机软件及应用_IT/计算机_专业资料。vb入门的一些简单应用的例子的代码实验30(1) PublicClassForm1 PrivateSub Button1_Click(ByVal sender As ...
程序设计基础VB
41页 1财富值 第四章 VB程序设计基础 5页 1财富值如要投诉违规内容,请到百度文库投诉中心;如要提出功能问题或意见建议,请点击此处进行反馈。 ...
图形编程入门
图形编程入门_计算机软件及应用_IT/计算机_专业资料。图形编程入门 .NET Framework...示例 C# C++ VB Dim myBrush As New System.Drawing.SolidBrush(System....
VS2008--VB编程实例
VS2008——VB 编程实例(入门教程) 1. VB(Visual Basic)的发展 微软公司在 1991 年推出了建立在 Window 开发平台基础上的开发工具——Visual Basic 1.0。随着 ...
程序员必看30本经典书籍
8.《C#高级编程(第 4 版)》C#基础 点评:好书却不经典,本书被吹嘘的神乎其...而且代码是 VB.NET,不过这本书讲数据操作 ADO.NET 还是很全的最起码让初学者...
更多相关标签:
vb编程基础 | vb编程 | vb编程教程 | vb | vb编程实例教程 | vb编程入门视频 | vb程序设计 | vb程序设计教程 |