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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 2596|回复: 187
收起左侧

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

   关闭 [复制链接]

191

主题

582

帖子

214748万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2147483647
QQ
发表于 2018-4-16 18:43:20 | 显示全部楼层 |阅读模式
第二十讲 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方法的基本格式



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



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

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
复制代码

待完善的程序代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
楼主热帖




上一篇:第十九讲 VB程序结构之顺序结构
下一篇:第二十一讲(选修) 三角形成立的条件
+1
2783°C
187
  • 小胖
  • 1873987819
  • CCCCCC
  • 7k7k扛把子
  • 青橙
过: 他们

帖子地址: 

教书育人!
回复

使用道具 举报

0

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12878
发表于 2018-4-19 16:54:43 | 显示全部楼层
  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. Private Sub Form_Click()
  7. Cls
  8. Dim i As Single, j As Single
  9. i = Val(InputBox("输入i:")) '输入i
  10. j = Val(InputBox("输入j:")) '输入j





  11. Private Sub Form_Click()
  12. Cls
  13. Dim i As Single, j As Single
  14. i = Val(InputBox("输入i:")) '输入i
  15. j = Val(InputBox("输入j:")) '输入j





  16. End Sub



复制代码


回复 支持 反对

使用道具 举报

0

主题

12

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
13565
发表于 2018-5-3 15:31:49 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim i As Integer, j As Integer, k As Integer
  4. i = Val(InputBox("输入第一个正数:"))
  5. j = Val(InputBox("输入第二个正数:"))
  6. k = Val(InputBox("输入第三个正数:"))
  7. If ((i + j > k) And (i + k > j) And (j + k > i)) Then
  8. Print i; ","; j; ","; k; "能构成三角形"
  9. Else
  10. Print i; ","; j; ","; k; "不能构成三角形"
  11. End If

  12. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12514
发表于 2018-5-3 08:24:32 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim i As Integer, j As Integer, k As Integer
  4. i = Val(InputBox("输入第一个正数:"))
  5. j = Val(InputBox("输入第二个正数:"))
  6. k = Val(InputBox("输入第三个正数:"))
  7. If ((i + j > k) And (i + k > j) And (j + k > i)) Then
  8. Print i; ","; j; ","; k; "能构成三角形"
  9. Else
  10. Print i; ","; j; ","; k; "不能构成三角形"
  11. End If
  12. End Sub
复制代码



回复 支持 反对

使用道具 举报

0

主题

15

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
13535
发表于 2018-5-2 14:41:42 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim i As Integer, j As Integer, k As Integer
  4. i = Val(InputBox("输入第一个正数:"))
  5. j = Val(InputBox("输入第二个正数:"))
  6. k = Val(InputBox("输入第三个正数:"))
  7. If i + j > k And j + k > i And i + k > j Then
  8. Print i; ","; j; ","; k; "能构成三角形"
  9. Else
  10. Print i; ","; j; ","; k; "不能构成三角形 "
  11. End If
  12. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12102
发表于 2018-5-2 14:28:29 | 显示全部楼层
  1. Private Sub Form_Click()
  2. Cls
  3. Dim i As Integer, j As Integer, k As Integer
  4. i = Val(InputBox("输入第一个正数:"))
  5. j = Val(InputBox("输入第二个正数:"))
  6. k = Val(InputBox("输入第三个正数:"))
  7. If i + j > k Then
  8. Print ; "i,j,k能够成三角形"
  9. Else
  10. Print ; "i,j,k不能构成三角形"
  11. End If
  12. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
13449
发表于 2018-4-19 16:53:53 | 显示全部楼层
  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. If ((i = j) And (i <> j)) Then
  7. Print "i"; "等于"; "j"
  8. Else
  9. Print "i"; "不等于"; "j"
  10. End If
  11. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

14

帖子

1万

积分

版主

Rank: 7Rank: 7Rank: 7

积分
10383
发表于 2018-4-19 15:27:21 | 显示全部楼层
  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. If j = i Then
  7. Print Number; ""; j; "等于"; i; ""
  8. Else
  9. Print Number; ""; j; "不等于"; i; ""

  10. End If



  11. End Sub
复制代码
回复 支持 反对

使用道具 举报

0

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
14298
发表于 2018-4-19 08:29:04 | 显示全部楼层
  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. If (i = j) Then
  7. Print ; ""; i; "等于"; j; ""
  8. Else
  9. Print ; ""; i; "不等于"; j; ""
  10. End If
  11. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
14348
发表于 2018-4-19 08:24:31 | 显示全部楼层

  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. If (i = j) Then
  7. Print ; ""; i; "等于"; j; ""
  8. Else
  9. Print ; ""; i; "不等于"; j; ""
  10. End If

  11. End Sub
复制代码
回复 支持 反对

使用道具 举报

0

主题

11

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12679
发表于 2018-4-19 15:31:41 | 显示全部楼层
  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. If j = i Then
  7. Print ; ""; j; "相等"; i; ""
  8. Else
  9. Print ; ""; j; "不相等"; i; ""
  10. End If
  11. End Sub
复制代码
回复 支持 反对

使用道具 举报

0

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12487
发表于 2018-4-17 11:23:34 | 显示全部楼层
  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. If i = j Then
  7. Print i; "等于"; j
  8. Else
  9. Print i; "不等于"; j
  10. End If
  11. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12483
发表于 2018-4-17 11:27:57 | 显示全部楼层
[mw_shl_code=vb,true]Private Sub Form_Click()
Cls
Dim i As Single, j As Single
i = Val(InputBox("输入i:")) '输入i
j = Val(InputBox("输入j:")) '输入j
If (i = j) And (i <> j) Or (i = j) Then
Print ; "i等于j"
Else
Print ; "i不等于j"
End If


End Sub
[/mw_shl_code]
回复 支持 反对

使用道具 举报

0

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
10908
发表于 2018-4-17 11:28:19 | 显示全部楼层
[mw_shl_code=vb,true]Private Sub Form_Click()
Cls
Dim i As Single, j As Single
i = Val(InputBox("输入i:")) '输入i
j = Val(InputBox("输入j:")) '输入j
If (i = j) Then
Print Number; "等于"
Else
Print Number; "不等于"
End If
End Sub
[/mw_shl_code]
回复 支持 反对

使用道具 举报

0

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11784
发表于 2018-4-17 11:29:49 | 显示全部楼层
[mw_shl_code=vb,true]Private Sub Form_Click()
Cls
Dim i As Single, j As Single
i = Val(InputBox("输入i:")) '输入i
j = Val(InputBox("输入j:")) '输入j
If (i = j) Then
Print Number; "等于"
Else
Print Number; "不等于"
End If
End Sub
[/mw_shl_code]
回复 支持 反对

使用道具 举报

0

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12978
发表于 2018-4-17 11:30:35 | 显示全部楼层
  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. If (i = j) Then
  7. Print i; "等于"; j
  8. Else
  9. Print i; "不等于"; j
  10. End If
  11. End Sub
复制代码

回复 支持 反对

使用道具 举报

0

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
13433
发表于 2018-4-17 11:30:45 | 显示全部楼层
[mw_shl_code=applescript,true]Private Sub Form_Click()
Cls
Dim i As Single, j As Single
i = Val(InputBox("输入i:")) '输入i
j = Val(InputBox("输入j:")) '输入j
If ((j = i)) Then
Print ; "1等于1"
Else
Print ; "1不等于2"
End If
End Sub[/mw_shl_code]
回复 支持 反对

使用道具 举报

0

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12404
发表于 2018-4-17 11:33:34 | 显示全部楼层

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复 支持 反对

使用道具 举报

0

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11006
发表于 2018-4-17 11:34:03 | 显示全部楼层

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复 支持 反对

使用道具 举报

0

主题

16

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
13530
发表于 2018-4-17 11:34:08 | 显示全部楼层
javascript:;

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

站务公告栏:
百度一下 百度二下 百度三下 开门大吉

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

GMT+8, 2018-12-11 05:49 , Processed in 0.363775 second(s), 46 queries .

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

商品:嘉年鹏景方正大米5kg手提编织袋2018年新米东北大米鲜稻鲜磨
原价:49.80元 券后价:29.8元
购买链接:Click here!
推荐理由: top100:82
优惠券领取处:Click here!
优惠券推送群:Click here!