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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

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

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

   关闭 [复制链接]

179

主题

560

帖子

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

帖子地址: 

教书育人!
回复

使用道具 举报

0

主题

7

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

11

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

14

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

13

帖子

8122

积分

版主

Rank: 7Rank: 7Rank: 7

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

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

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

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

7

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

7

帖子

9524

积分

硕士

Rank: 6Rank: 6

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

主题

7

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

9

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

7

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

主题

7

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

使用道具 举报

0

主题

8

帖子

9460

积分

硕士

Rank: 6Rank: 6

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

使用道具 举报

0

主题

15

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

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

回复 支持 反对

使用道具 举报

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

本版积分规则

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

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

GMT+8, 2018-7-17 17:39 , Processed in 0.439155 second(s), 64 queries .

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

商品:TITA汽车临时停车牌挪车电话号码牌创意移车牌隐藏式车内汽车用品
原价:29.00元 券后价:9元
购买链接:Click here!
推荐理由:【抖音同款】TITA官方正品,复合工程材质,轻巧翻,可隐藏号码设计,轻松开合,一按隐藏,保护隐私,小身材,高颜值,你的爱车必备装饰品~ paoliang:43
淘宝优惠券领取处:Click here!
天猫优惠券推送群:Click here!