- 211
- 0
- 约 4页
- 2017-03-30 发布于江苏
- 举报
答案:计算并输出圆的周长和面积。在窗体上显示和及平均值。利用InputBox函数将字符串进行相加和联接
VB实验报告书(实验 四 )
班级:管08A-5 学号: 10901060201 姓名:张跃洋
实验题目 顺序结构
实验目的 掌握赋值语句的使用方法
掌握数据输入、输出函数和语句,尤其是InputBox函数
实验内容
程序1:编程输入圆的半径,计算并输出圆的周长和面积。
方法一:用Inputbox函数实现圆半径的输入,用Print方法输出周长和面积。
方法二:用文本框控件实现半径的输入,用标签控件实际周长和面积的输出。
程序2:从键盘上输入4个数,编写程序,计算并输出这4个数的和及平均值。通过InputBox函数输入数据,在窗体上显示和及平均值。
Private Sub Command1_Click()
a = 请输入第一个数输入并计算
b = 请输入第二个数输入并计算
c = 请输入第三个数输入并计算
d = 请输入第个数输入并计算
yi = InputBox(a, 输入成绩)
er = InputBox(b, 输入成绩)
san = InputBox(c, 输入成绩)
si = InputBox(d, 输入成绩)
qh = Val(yi) + Val(er) + Val(san) + Val(si)
pjz = (Val(yi) + Val(er) + Val(san) + Val(si)) / 4
Text1.Text = qh
Text2.Text = pjz
End Sub
程序3:InputBox函数的操作
实验步骤:
(1)在窗体上画两个文本框和一个命令按钮
(2)从键盘上输入两个数值,然后把它们相加、联接,并将结果在文本框中显示出来。程序运行后,单击命令按钮,分别在输入对话框中输入12345和67890。
提示:利用InputBox函数将字符串进行相加和联接。
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
a = InputBox(输入第一个数)
b = InputBox(输入第一个数)
Text1.Text = Val(a) Val(b)
Text2.Text = Val(a) + Val(b)
End Sub
编译、运行过程中出现的主要问题及解决方法
和+的区别:两个数值运算时
“+”运算是将两个数值相加,结果为数值
“”运算是将两个数值连接,结果为字符串
运行
结果
您可能关注的文档
- 笔字根教案.doc
- 笔字根歌及释义.doc
- 笔字根表.doc
- 笔字输入法.doc
- 笔学习.doc
- 笔打字初学问题.doc
- 笔打字教程.doc
- 笔输入法初学入门及进阶.doc
- 笔输入法教案.doc
- 笔输入法教程(含版字根表).doc
- 25-26学年政治(部编版)选择性必修第二册课件:第1单元 周清1 民法中的人身权及财产权.pptx
- 25-26学年政治(部编版)选择性必修第二册课件:1.4.1 权利保障 于法有据.pptx
- 2025北京丰台区高二(上)期中地理(A卷)含答案.docx
- 2025北京三帆中学初三(上)开学考英语试题含答案.docx
- 2025北京一零一中初三9月月考语文试题含答案.docx
- 2025北京海淀区初三(上)期中道法试题含答案.docx
- 2025北京丰台区高一(上)期中政治(A卷)含答案.docx
- 25-26学年政治统编版必修4课件:3.3 唯物辩证法的实质与核心.pptx
- 25-26学年政治统编版必修4课件:7.2 正确认识中华传统文化.pptx
- 湖北省部分高中2026届高三上学期二模联考 历史试卷.docx
最近下载
- 年产4500吨聚丙烯的生产工艺设计.docx VIP
- 成功经理人讲座《有效沟通》余世维.ppt VIP
- 万达广场导向标识系统设计方案及施工图设计招标文件.pdf VIP
- 2023-2024学年湖南省浏阳市七年级数学第一学期期末学业水平测试试题含解析.doc VIP
- 高速公路桥梁施工安全监理实施细则.docx VIP
- 高清F正谱游击队之歌.pdf VIP
- 湖南省长沙市浏阳市2022-2023学年七年级上学期期末数学试题.pdf VIP
- 高速公路施工监理规范.doc VIP
- 贵州省黔南布依族苗族自治州2024-2025学年高一上学期期末语文试题(含答案).docx VIP
- 高速公路桥梁施工安全监理实施细则.doc VIP
原创力文档

文档评论(0)