admin 管理员组文章数量: 1087135
2024年3月27日发(作者：字母ascii码表高清大图)
VB实验报告书(实验 四 )
班级：管08A-5 学号： 1 姓名：张跃洋
实验题目
顺序结构
1. 掌握赋值语句的使用方法
2. 掌握数据输入、输出函数和语句，尤其是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
= qh
= 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("输入第一个数")
= Val(a) & Val(b)
= Val(a) + Val(b)
End Sub
编译、运行过
程中出现的
主要问题及
解决方法
运行
结果
&和+的区别：两个数值运算时
“+”运算是将两个数值相加，结果为数值
“&”运算是将两个数值连接，结果为字符串
出师表
两汉：诸葛亮
先帝创业未半而中道崩殂，今天下三分，益州疲弊，此诚危急存亡之秋也。然侍卫之臣
不懈于内，忠志之士忘身于外者，盖追先帝之殊遇，欲报之于陛下也。诚宜开张圣听，以光
先帝遗德，恢弘志士之气，不宜妄自菲薄，引喻失义，以塞忠谏之路也。
宫中府中，俱为一体；陟罚臧否，不宜异同。若有作奸犯科及为忠善者，宜付有司论其
刑赏，以昭陛下平明之理；不宜偏私，使内外异法也。
侍中、侍郎郭攸之、费祎、董允等，此皆良实，志虑忠纯，是以先帝简拔以遗陛下：愚
以为宫中之事，事无大小，悉以咨之，然后施行，必能裨补阙漏，有所广益。
将军向宠，性行淑均，晓畅军事，试用于昔日，先帝称之曰“能”，是以众议举宠为督：
愚以为营中之事，悉以咨之，必能使行阵和睦，优劣得所。
亲贤臣，远小人，此先汉所以兴隆也；亲小人，远贤臣，此后汉所以倾颓也。先帝在时，
每与臣论此事，未尝不叹息痛恨于桓、灵也。侍中、尚书、长史、参军，此悉贞良死节之臣，
愿陛下亲之、信之，则汉室之隆，可计日而待也。
臣本布衣，躬耕于南阳，苟全性命于乱世，不求闻达于诸侯。先帝不以臣卑鄙，猥自枉
屈，三顾臣于草庐之中，咨臣以当世之事，由是感激，遂许先帝以驱驰。后值倾覆，受任于
败军之际，奉命于危难之间，尔来二十有一年矣。
先帝知臣谨慎，故临崩寄臣以大事也。受命以来，夙夜忧叹，恐托付不效，以伤先帝之
明；故五月渡泸，深入不毛。今南方已定，兵甲已足，当奖率三军，北定中原，庶竭驽钝，
攘除奸凶，兴复汉室，还于旧都。此臣所以报先帝而忠陛下之职分也。至于斟酌损益，进尽
忠言，则攸之、祎、允之任也。
愿陛下托臣以讨贼兴复之效，不效，则治臣之罪，以告先帝之灵。若无兴德之言，则责
攸之、祎、允等之慢，以彰其咎；陛下亦宜自谋，以咨诹善道，察纳雅言，深追先帝遗诏。
臣不胜受恩感激。
今当远离，临表涕零，不知所言。
版权声明：本文标题：在窗体上显示和及平均值。利用InputBox函数将字符串进行相加和联接 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1711480807a596242.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论