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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

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

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

   关闭 [复制链接]

183

主题

568

帖子

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方法的基本格式

第二十讲 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
2259°C
187
  • 小胖
  • 1873987819
  • CCCCCC
  • 7k7k扛把子
  • 青橙
过: 他们

帖子地址: 

教书育人!
回复

使用道具 举报

0

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11588
发表于 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

积分
12162
发表于 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

积分
11288
发表于 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

积分
11711
发表于 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

积分
10856
发表于 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

积分
12090
发表于 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

帖子

8680

积分

版主

Rank: 7Rank: 7Rank: 7

积分
8680
发表于 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

积分
12660
发表于 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

积分
12810
发表于 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

积分
11572
发表于 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

积分
11426
发表于 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

积分
11177
发表于 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

帖子

9962

积分

硕士

Rank: 6Rank: 6

积分
9962
发表于 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

积分
10719
发表于 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

积分
11263
发表于 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

积分
11954
发表于 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

积分
10989
发表于 2018-4-17 11:33:34 | 显示全部楼层
捕获.PNG
回复 支持 反对

使用道具 举报

0

主题

9

帖子

9925

积分

硕士

Rank: 6Rank: 6

积分
9925
发表于 2018-4-17 11:34:03 | 显示全部楼层
捕获.PNG
回复 支持 反对

使用道具 举报

0

主题

16

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

回复 支持 反对

使用道具 举报

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

本版积分规则

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

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

GMT+8, 2018-9-24 07:38 , Processed in 0.437651 second(s), 69 queries .

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

商品:袜子男短袜船袜男士夏季薄款纯棉防臭吸汗9.9包邮浅口隐形袜防滑
原价:9.80元 券后价:6.8元
购买链接:Click here!
推荐理由:【五双装】拍两组多发5双,男士短袜,船袜,多款可选。船袜自带硅胶防滑,去除掉跟烦恼。防臭棉袜,脱了不臭脚,避免尴尬 paoliang:41
优惠券领取处:Click here!
优惠券推送群:Click here!