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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 1702|回复: 155
收起左侧

第二十一讲(选修) 三角形成立的条件

   关闭 [复制链接]

185

主题

573

帖子

214748万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2147483647
QQ
发表于 2018-5-2 10:28:25 | 显示全部楼层 |阅读模式
第二十一讲(选修) 三角形成立的条件
学习任务
    完善程序:输入三个数字,判断能否构成三角形,并给出提示信息
    提示:编写完程序代码之后,务必要运行程序,1观察程序能否运行通过2验证结果是否符合要求
    考查点:双分支If语句的格式和Print方法的基本格式
    技巧:VB编写程序时,会自动弹出适配代码,当首个选项恰好是要编写的代码时,只需要按一下TAB键即可,省时又省力!
    注意:VB不区分大小写,关键字会按照系统标准自动变化!程序代码中的符号皆为英文符号,比如英文逗号(,),英文圆括号((  )),英文双引号("),英文等号(=),英文加号(+),等其他字符。

第二十一讲(选修) 三角形成立的条件

第二十一讲(选修) 三角形成立的条件

Form窗体

第二十一讲(选修) 三角形成立的条件

第二十一讲(选修) 三角形成立的条件

程序运行效果图(输入三个数字,比如:分别是1,2,3,验证结论是:1,2,3 不能构成三角形,颠倒顺序,共6种组合,结论同样是不能构成三角形

第二十一讲(选修) 三角形成立的条件

第二十一讲(选修) 三角形成立的条件

程序运行效果图(输入三个数字,比如:分别是2,3,4验证结论是:2,3,4 能构成三角形颠倒顺序,共6种组合,结论同样是能构成三角形
  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. End Sub
复制代码
待完善的程序代码
楼主热帖




上一篇:第二十讲 VB程序结构之选择结构
下一篇:第二十二讲 VB程序结构之循环结构(For循环语句)
+1
1858°C
156
  • ZJK
  • 喜笑厌孤
  • 神威
  • 核桃
  • 张伟杰
过: 他们

帖子地址: 

教书育人!
回复

使用道具 举报

0

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
13322
发表于 2018-5-3 08:14:50 | 显示全部楼层
Private Sub Form_Click()
Cls
Dim i As Integer, j As Integer, k As Integer
i = Val(InputBox("输入第一个正数:"))
j = Val(InputBox("输入第二个正数:"))
k = Val(InputBox("输入第三个正数:"))
If ("i" + "j" > "k") And ("i" + "k" > "j") And ("k" + "j" > "i") Then
Print ; ""; i; ","; ""; j; ","; ""; k; "可以构成三角形"
Else
Print ; ""; i; ","; ""; j; ","; ""; k; "不可以构成三角形"
End If









End Sub

回复 支持 反对

使用道具 举报

0

主题

12

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11941
发表于 2018-5-3 16:26:23 | 显示全部楼层
本帖最后由 喜笑厌孤 于 2018-5-3 16:41 编辑
  1. <div class="blockcode"><blockquote>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 (k + i > j)) Then
  8. Print i; ","; j; ","; k; ","; "可以构成三角形"
  9. Else
  10. Print i; ","; j; ","; k; ","; "不可以构成三角形"
  11. End If
  12. End Sub
复制代码





回复 支持 反对

使用道具 举报

0

主题

14

帖子

9114

积分

版主

Rank: 7Rank: 7Rank: 7

积分
9114
发表于 2018-5-3 15:25:22 | 显示全部楼层
Private Sub Form_Click()
Cls
Dim i As Integer, j As Integer, k As Integer
i = Val(InputBox("输入第一个正数:"))
j = Val(InputBox("输入第二个正数:"))
k = Val(InputBox("输入第三个正数:"))
If ((i + j > k) And (j + k < i)) And (i + k > j) Then
Print Number; i; ","; j; ","; k; "; "; 可以组成三角形; """"
Else
Print Number; i; ","; j; ","; k; " ""; 不能组成三角行; """
End If





End Sub


回复 支持 反对

使用道具 举报

0

主题

7

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12187
发表于 2018-5-3 08:30:34 | 显示全部楼层
Private Sub Form_Click()
Cls
Dim i As Integer, j As Integer, k As Integer
i = Val(InputBox("输入第一个正数:"))
j = Val(InputBox("输入第二个正数:"))
k = Val(InputBox("输入第三个正数:"))
If ((i + j > k)) And (i + k > j) Or (i + j < k) Then
Print answer; ""; i; "", ""; j; "", ""; k; " 能构成三角形"
Else
Print answer; ""; i; ", "; j; ", "; k; " 不能构成三角形"
End If
End Sub
回复 支持 反对

使用道具 举报

0

主题

12

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12425
发表于 2018-5-2 14:29:07 | 显示全部楼层
本帖最后由 张伟杰 于 2018-5-2 14:41 编辑
  1. <div class="blockcode"><blockquote>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 + k > j And i + j > k And j + k > i 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

积分
12741
发表于 2018-5-3 15:32:14 | 显示全部楼层
高一四班 曹晟源 三角形编程作业
  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 j; ","; k; ","; i; ","; "不能构成三角形"
  11. End If


复制代码
回复 支持 反对

使用道具 举报

0

主题

13

帖子

9865

积分

硕士

Rank: 6Rank: 6

积分
9865
发表于 2018-5-3 16:25:07 | 显示全部楼层
本帖最后由 梵高先生不姓梵 于 2018-5-3 16:41 编辑
  1. <blockquote>Private Sub Form_Click()
复制代码
  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 + k > j) And (i + j > k) And (j + k > i) Then
  8. Print i; ","; j; ","; k; "能构成三角形"
  9. Else
  10. Print i; ","; j; ","; k; "不能构成三角形"
  11. End If
  12. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

12

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11877
发表于 2018-5-3 08:23:59 | 显示全部楼层
本帖最后由 wudi 于 2018-5-3 08:34 编辑
  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
复制代码
2017级6班申家臣的作业
回复 支持 反对

使用道具 举报

0

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12458
发表于 2018-5-3 16:48:38 | 显示全部楼层
  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 (k + j > i) Then
  8. Print Number; i; ","; j; ","; k; "; 能够成三角形; """
  9. Else
  10. Print Number; i; ","; j; ","; k; "; 不能构成三角形; """
  11. End If
  12. End Sub
复制代码
回复 支持 反对

使用道具 举报

0

主题

11

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11877
发表于 2018-5-3 16:53:06 | 显示全部楼层

复制代码
Private Sub Form_Click()
Cls
Dim i As Integer, j As Integer, k As Integer
i = Val(InputBox("输入第一个正数:"))
j = Val(InputBox("输入第二个正数:"))
k = Val(InputBox("输入第三个正数:"))
If ((i + j > k) And (j + k > i) And (i + k > j)) Then
Print Number; i; ", "; j; ", "; k; " 能构成三角形 """
Else
Print Number; i; ", "; j; ", "; k; "不能构成三角形 """
End If
End Sub


回复 支持 反对

使用道具 举报

0

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11633
发表于 2018-5-2 14:14:34 | 显示全部楼层
  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

主题

13

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12464
发表于 2018-5-2 14:18:21 | 显示全部楼层
本帖最后由 2090387274 于 2018-5-2 14:44 编辑
  1. <div class="blockcode"><blockquote>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

主题

12

帖子

7521

积分

版主

Rank: 7Rank: 7Rank: 7

积分
7521
发表于 2018-5-2 14:23:47 | 显示全部楼层

TTT

本帖最后由 sxy 于 2018-5-2 14:44 编辑
  1. <blockquote>Private Sub Form_Click()
复制代码
:( 好难
回复 支持 反对

使用道具 举报

0

主题

13

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
13056
发表于 2018-5-2 14:24:00 | 显示全部楼层
  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 ; "是三角形"
  9. Else
  10. Print ; "不是三角形"
  11. End If
  12. End Sub
复制代码
回复 支持 反对

使用道具 举报

0

主题

13

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
11491
发表于 2018-5-2 14:25:01 | 显示全部楼层
  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

主题

12

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
13107
发表于 2018-5-2 14:25:04 | 显示全部楼层
  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 > jandj + k > i Then
  8. Print 三角形; "能构成三角形"
  9. Else
  10. Print 三角形; "不能构成三角形"
  11. End If
  12. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

10

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12257
发表于 2018-5-2 14:25:25 | 显示全部楼层
  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

积分
12253
发表于 2018-5-2 14:26:50 | 显示全部楼层
  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 ; "能构成三角形"
  9. Else
  10. Print ; "不能构成三角形"
  11. End If
  12. End Sub
复制代码


回复 支持 反对

使用道具 举报

0

主题

8

帖子

1万

积分

博士

Rank: 7Rank: 7Rank: 7

积分
12493
发表于 2018-5-2 14:28:18 | 显示全部楼层
  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.     MsgBox "可以构成三角形!"
  9. Else
  10.     MsgBox "无法构成三角形!"
  11. End If
  12. End Sub
复制代码
回复 支持 反对

使用道具 举报

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

本版积分规则

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

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

GMT+8, 2018-10-19 19:30 , Processed in 0.481724 second(s), 77 queries .

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

商品:秋冬男士休闲裤男生宽松三条杠运动裤韩版潮流百搭修身黑色直筒
原价:56.90元 券后价:26.9元
购买链接:Click here!
推荐理由:【阿迪达斯同款】精选弹力面料,舒适升级,轻薄透气,耐磨不起球,清爽舒适,吸汗速干,让您的裤子自由呼吸,视觉拉长腿部线条,时尚微裆裤更显潮流气质【赠运费险】 paoliang:74
优惠券领取处:Click here!
优惠券推送群:Click here!