- 1、本文档共6页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
应用窗体单击事件,从键盘输入两个数,分别放在x和y变量中,比较它们大小,要求将大数放在x中,小数放在y中。
分析:两个变量交换必须借助第三个变量,并且注意赋值语句的写法。等价的行IF是:If xy Then t=x:x=y:y=t
新建一个名称为command1的命令按钮,输入以下代码:
应用窗体单击事件输入成绩,成绩大于等于60分输出“恭喜你通过考试”,否则输出“很遗憾你没通过考试”。
4、输入三角形的三条边的边长,判断其是否构成一个三角形。如果能,则计算并显示该三角形的面积,如果不能,则给出相应的提示信息。
5、某大楼的电梯限载为13人,限重1000kg,在此范围内电梯能正常运行,超出了这个范围电梯将发出警报。操作要求:单击“电梯”按钮,在文本框1和文本框2分别输入人数与
重量,若满足题目要求,则在命令按钮标题上显示“正常运行”,否则命令按钮上显示“发出警报”,并且命令按钮无效。
6、设计一个致欢迎词的程序:当输入姓名及选择相应的性别时,根据性别显示不同的用语,如图所示。
打开工程文件,操作要求:修改程序代码。
界面修改:添加文本框对象text4,将text4的text属性设置成空白且只读属性。
(2)调整程序实现功能:在文本框text1、text2、text3分别输入三个整数a、b、c,单击“计算按钮”,如果a、b、c作为边长能构成三角形,则在text4中显示“abc能构成三角形”,否则显示“abc不能构成三角形“,单击“清空”所有文本框中的数据。
(3)将工程文件4-1-3.vbp和窗体文件4-1-3.frm及生成的执行文件4-1-3.exe保存在考生文件夹中。
2、
Private Sub command1_click()
a = Text1.Text: b = Text2.Text: x = a + b
If a b Then x = b + a
Text3.Text = x
End Sub
3、
Private Sub form_click()
Dim score As Single
score = Val(InputBox(请输入你的成绩))
If score = 60 Then
Print 很遗憾你没通过考试
Else
Print 很遗憾你没通过考试
End If
End Sub
4、
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim p As Single, s As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a + b c And a + c b And b + c a Then
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Label5.Caption = 该三角形的面积是: Str(s)
Else
Label5.Caption = 该三边不能构成三角形,请重新输入!
End If
End Sub
5、
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a = 13 And b = 1000 Then
Command1.Caption = 正常运行
Else
Command1.Caption = 发出警报
Command1.Enabled = False
End If
End Sub
6、
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
If Option1.Value = True Then
Label2.Caption = a 先生,欢迎你
Else
Label2.Caption = a 小姐,欢迎你
End If
End Sub
7、
Private Sub Command1_Click()
Dim a%, b%, c%
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a + b c And a + c b And b + c a Then
Text4.Text = a,b,c能构成三角形
Else
Text4.Text = a,b,c不能构成三角形
End If
End Sub
Private Sub Command2_Click()
Text1 =
T
您可能关注的文档
- 参加教育科研专题培训会学习心得.doc
- 参加课题研究心得体会1.doc
- 及差倍综合应用题错题分析开题报告.docx
- 及平初中学生营养改善计划实施方案.doc
- 及平小学校长述职报告.doc
- 及平区2010年初中毕业学业水平考试信息技术学科试卷.docx
- 及平幼儿园语言文字工作评估汇报材料.docx
- 及平路小学科研介绍.doc
- 及平阳光幼儿园安全自查报告.doc
- 及谐,提升课堂的质量.doc
- 江苏省灌云高级中学2023-2024学年高三上学期第一次月考地理试题含答案.docx
- 备战2024年高考物理一轮重难点复习 第十三章 近代物理.docx
- 江苏省高邮市一中2021-2022学年高三上学期第一次月考语文试题(原卷版).docx
- 江苏省华罗庚中学2023-2024学年高三上学期12月阶段检测数学试卷含答案.docx
- 江苏省海门中学2023-2024学年高三上学期第一次调研考试地理试题及答案.docx
- 备战2024年高考物理一轮重难点复习 第九章 恒定电流.docx
- 江苏省高邮市2023-2024学年高三下学期3月学情调研数学试题含答案.docx
- 备战2024年高考物理一轮重难点复习 实验十一:探究影响感应电流方向的因素.docx
- 备战2024年高考物理一轮重难点复习 实验三:验证平行四边形定则.docx
- 备战2024年高考物理一轮重难点复习 第十四章 光.docx
文档评论(0)