山东省高中信息技术学业水平考试试题网 - 数据与计算|信息系统与社会|数据与数据结构|网络基础|数据管理与分析|移动应用设计|三维设计与创意|开源硬件项目设计|算法初步|智能系统初步

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 592|回复: 183
收起左侧

第二十讲 VB程序结构之选择结构

  [复制链接]

157

主题

171

帖子

214748万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2147483647
QQ
发表于 7 天前 | 显示全部楼层 |阅读模式
第二十讲 VB程序结构之选择结构
学习目标
    1.了解程序的选择结构;
    2.会用If语句编写程序。
学习内容
    输入一个年号,判断它是否是闰年,并输出判断结果“是闰年”或“不是闰年”。
    判断闰年的算法是:如果此年号能被400除尽,则它是闰年;如果它能被4整除而不能被100整除,则它是闰年;否则它不是闰年。
  1. Private Sub Form_Click()
  2. Cls
  3. Dim year As Integer
  4. year = Val(InputBox("请输入年号:"))
  5. If ((year Mod 4 = 0) And (year Mod 100 <> 0)) Or (year Mod 400 = 0) Then
  6. Print year; "是闰年"
  7. Else
  8. Print year; "不是闰年"
  9. End If
  10. End Sub
复制代码

    在解决问题的过程中,常常需要对事物进行判断和选择,在VB中有一个用If开头的语句,这就是条件语句。
    条件语句的基本格式:
    1.单分支If语句的格式为:
        If    条件    Then    语句组
        或
        If    条件    Then
        语句组
        End   If
    2.双分支If语句的格式为:
        If    条件    Then    语句组1     Else      语句组2         
        或
        If 条件 Then
        语句组1  
        Else
        语句组2
        End If

    其中,条件是一个逻辑表达式,语句组是一组VB语句。
    条件语句的执行过程是:当条件成立时,执行Then后面的语句组1,否则执行语句组2.
学习任务
    完善程序:输入两个数字,判断是否相等,并给出提示信息
    提示:编写完程序代码之后,务必要运行程序,1观察程序能否运行通过,2验证结果是否符合要求。
    考查点:双分支If语句的格式和Print方法的基本格式

第二十讲 VB程序结构之选择结构

第二十讲 VB程序结构之选择结构

第二十讲 VB程序结构之选择结构

第二十讲 VB程序结构之选择结构

第二十讲 VB程序结构之选择结构

第二十讲 VB程序结构之选择结构

程序运行效果图(注意提示信息

第二十讲 VB程序结构之选择结构

第二十讲 VB程序结构之选择结构

第二十讲 VB程序结构之选择结构

第二十讲 VB程序结构之选择结构

第二十讲 VB程序结构之选择结构

第二十讲 VB程序结构之选择结构

程序运行效果图(注意提示信息

第二十讲 VB程序结构之选择结构

第二十讲 VB程序结构之选择结构

Form窗体
  1. Private Sub Form_Click()
  2. Cls
  3. Dim i As Single, j As Single
  4. i = Val(InputBox("输入i:")) '输入i
  5. j = Val(InputBox("输入j:")) '输入j





  6. End Sub
复制代码

待完善的程序代码
楼主热帖



上一篇:第十九讲 VB程序结构之顺序结构
+1
775°C
183
  • 江户川云语
  • 元神歸位
  • 救赎
  • 小红帽1
  • 永不言弃@
过: 他们

帖子地址: 

教书育人!
回复

使用道具 举报

0

主题

4

帖子

9921

积分

硕士

Rank: 6Rank: 6

积分
9921
发表于 6 天前 | 显示全部楼层
此帖仅作者可见

使用道具 举报

0

主题

3

帖子

9425

积分

硕士

Rank: 6Rank: 6

积分
9425
发表于 6 天前 | 显示全部楼层
此帖仅作者可见

使用道具 举报

0

主题

3

帖子

8402

积分

硕士

Rank: 6Rank: 6

积分
8402
发表于 6 天前 | 显示全部楼层
此帖仅作者可见

使用道具 举报

0

主题

4

帖子

9231

积分

硕士

Rank: 6Rank: 6

积分
9231
发表于 6 天前 | 显示全部楼层
此帖仅作者可见

使用道具 举报

0

主题

6

帖子

9410

积分

硕士

Rank: 6Rank: 6

积分
9410
发表于 6 天前 | 显示全部楼层
此帖仅作者可见

使用道具 举报

0

主题

6

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10054
发表于 6 天前 | 显示全部楼层
此帖仅作者可见

使用道具 举报

0

主题

4

帖子

9519

积分

硕士

Rank: 6Rank: 6

积分
9519
发表于 6 天前 | 显示全部楼层
此帖仅作者可见

使用道具 举报

0

主题

5

帖子

8559

积分

硕士

Rank: 6Rank: 6

积分
8559
发表于 6 天前 | 显示全部楼层
此帖仅作者可见

使用道具 举报

0

主题

11

帖子

9888

积分

硕士

Rank: 6Rank: 6

积分
9888
发表于 6 天前 | 显示全部楼层
此帖仅作者可见

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

站务公告栏:
百度一下 百度二下 百度三下

QQ|Archiver|手机版|小黑屋|山东省高中信息技术学业水平考试试题网 ( 鲁ICP备16049757号 )|网站地图|申请友情链接

GMT+8, 2018-4-23 02:10 , Processed in 0.365119 second(s), 64 queries .

快速回复 返回顶部 返回列表

商品:泊泉雅面膜补水保湿美白玻尿酸祛痘提亮肤色收缩毛孔学生女男正品
原价:19.90元 券后价:9.9元
购买链接:Click here!
推荐理由:美丽俏佳人力荐,热销300w片,补充水分,嫩滑润泽,美白肌肤,给你不一样的滋养呵护~ paoliang:22
淘宝优惠券领取处:Click here!