VB寒假作业解析与源码(全套)

离开学的19号越来越近了,各位的VB是不是还没有完成啊

马上开学了

看着这烦人的考试题目是不是眼睛都花了,脑子都烧了,所以我大义凌然给同学们准备好了一切妥当的学习资料。

img

  1. 先读完这个列表的内容

  2. 你们在拿到工程文件的时候一定要仔细阅读文章里的配图的修改方案(当然你有你的方法也可以)

  3. 我目前还没有做完,属于边做边更新的那种

  4. 注意格式和变量名问题一定要和我的不一样!!! X3

  5. 最好各位可以独立思考,提升自己的vb实力,这样吃白食最后只会害了自己,所以在下个学期我们一起努力呀 ❥(^_-)

  6. 我的博客很快会加入评论模块,到时候有任何问题都可以在文章下评论哦

  7. 由于博客服务器位于美国,所以国内访问可以会有加载缓慢、字体乱码、图片混乱的情况出现,我会慢慢优化的还请各位大度包容。

  8. 大家可以在左边的目录中进行快速的跳转,文件将在开学前过期,请尽快下载


不多废话,正片开始

第一套

第一章源码截图01

各位一定要更改一下代码哦!

第一章源码截图02jpg

一定要改变自己的控件大小和布局!

第一题

第一章源码截图03jpg

第二题

第一章源码截图04jpg

第三题

第一章源码截图05jpg

PS:有任何修改疑难一定要QQ找我


第二套

第一题

第二章源码截图01

这题的修改就有点繁琐,因为我和杨老师答疑过这题,所以大家要小心修改。

第二题

第二章源码截图02

第三题


第三套

第一题

第三套题目01

思路: 一次方程格式:ax^2+bx+c=0 a<>0

先判断方程有无实数解(b^2-4ac大于等于0),有的话就用求根公式进行求解。

以下给出3种代码方案

第一种是不用控件数组,当然不推荐用控件数组,麻烦


a = Text1.Text: b = Text2.Text: c = Text3.Text
T = b ^ 2 - 4 * a * c
If T < 0 Then
MsgBox ("该方程无实数根")
Else
X1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
X2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
End If

第二种

这种方法属实容易被发现,你们直接用第一种就好了

第三套源码截图01

第三种

第三套源码截图01-

第二题

第三题


第四套

第一题

这个行数打反了,你们删掉print i;

第四套源码截图01

第二题

第三题


工程文件源代码下载

第一套
第二套
第三套
第四套

本文地址: http://t.cn/EVVjfK3

-------------本文结束感谢您的阅读-------------
陈景跃 wechat
欢迎扫描二维码关注公众号一起成长呀~