vb6
关注
分享
扫一扫
什么战吕布
毕业于某农民学校，拥有超过13年的打诨经验。
展开
-
vb第5章编程题求指正
1.编写一个程序，根据给定的四个浮点数，计算并输出他们的和，平均值Private Sub Form_Load()Dim a As Integer, b As Integer, c As Integer, d As IntegerFontSize = 18a = InputBox("请输入第一个数字：")b = InputBox("输入第二个数字：")c = InputBox("第...原创 2019-01-23 20:07:25 · 757 阅读 · 6 评论 -
vb第九章部分习题解答记录，求指正
1、设a为一整数，如果能使a2=xxa成立，则称a为“守形数”。例如52＝25，252＝625，则5和25都是守形数。试编写一个Function过程Automorphic，其形参为一正整数，判断其是否为守形数，然后用该过程查找1－1000内的所有守形数。Private Sub Form_click()Dim n As Single 'n不可使用integer，如使用integer则会...原创 2019-03-23 06:44:47 · 744 阅读 · 0 评论 -
vb小游戏——井字棋
欠了一个星期的小游戏。。我得补一补。以下效果图：特别简单，其实学一段就能做的小东西，愣是给我拖了不知道多久orz新手初学，错误和不好的习惯请一定要纠正我。Thanks♪(･ω･)ﾉ以下实现方法:1、建一个控件数组（九个命令按钮），四根棍棍模拟一个棋盘2、从ps随便搞了两图，一白一黑，拿来载入命令按钮。以下初步设计时的不完善代码：Option ExplicitDi...原创 2019-03-09 16:47:43 · 9254 阅读 · 15 评论 -
通识，修 还是不修？——多选一门通识课对绩点影响几何？
通识选修课2个学分并不算低，而这个学分是可以刷的。期末绩点关系到毕业保研听说也是要算上通识成绩的。但是绩点是用加权平均的方式来计算，也就是说刷通识也不一定会让绩点更上一层楼。那么多选一门通识究竟对期末绩点影响几何？好，对于这个答案显而易见的问题，闲的蛋疼的我在这里用简单的vb代码演示一下。课程数和分数均根据笔者所在大学情况估计，那么根据我校情况，以十门课程为基准，通识拿优秀是9...原创 2019-02-26 15:10:25 · 11736 阅读 · 0 评论 -
【对话框测试里的小问题】
建立一个命令按钮和一个对话框控件：Option ExplicitDim a As StringPrivate Sub Command1_Click() CommonDialog1.FileName = "" CommonDialog1.Flags = 4096 CommonDialog1.Filter = "all files|*.*|(*.txt)|*.txt|(*.d...原创 2019-02-26 10:09:35 · 212 阅读 · 0 评论 -
代码更改文本属性记录
字体颜色、删除线等字体外观、字体属性：（这个是做菜单的代码）Private Sub fonred_click()Text1.ForeColor = vbRed'更改字体颜色，下同End SubPrivate Sub fonblue_click()Text1.ForeColor = vbBlueEnd SubPrivate Sub fonbold_click()Text1.Fo...原创 2019-02-24 17:27:03 · 210 阅读 · 0 评论 -
求助 vb程序设计第九章疑问
刘炳文老师的vb程序设计p233指出，如果循环中使用传地址方式调用过程则容易出错。因为每次调用过程时形参都会被初始化为0即循环体被初始化为0（因为实参的地址被传送给了形参，二者合体了(⊙_⊙)?）。但我在测试这个的时候发现，确实出错a却并不为0（按照上面的理解 出错后应该是a总被强制为0 然后循环溢出）下为测试结果。求助···另外 我想用static是不是就不用加byval了？因为静态变量...原创 2019-02-11 16:07:41 · 294 阅读 · 0 评论 -
vb第八章《数组》课后习题 求指正
1、从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第1个元素与第10个元素互换，第2个元素与第9个元素互换……第10个元素与第1个元素互换。分别输出数组原来各元素的值和对换后各元素的值。蛮简单的题，po一下交换元素的代码段吧。我的解法：For i = 0 To 9 Print a(i);Next iPrintFor i = 0 To 9...原创 2019-02-08 15:13:00 · 2614 阅读 · 0 评论 -
vb第七章《控制结构》课后编程题求指正
1、首先判断给出的3条边能否构成三角形，如可以，计算并输出其面积，否则重新输入。当输入-1时结束程序Private Sub Form_click()again: a! = InputBox("三角形第一边长（单位：cm，下同）") b! = InputBox("第二边长") c! = InputBox("第三")While a = -1 Or b = -1 Or c = -1 ...原创 2019-02-04 14:28:49 · 879 阅读 · 3 评论 -
vb第六章习题选（求指正）(ˉ▽￣ /) ~~
1、 编写程序，用文本框检查口令输入。在窗体上建立一个文本框、一个图片框和三个命令 按钮，把三个命令按钮的标题分别设置为“开始”、“检查口令”和“结束”。程序运行后，单击第一个命令按钮，清除文本框中的信息，并把光标移到文本框中；在文本框中输入口令；单击第二个命令按钮，检查输入口令是否正确。如果正确，则在图片框中显示图形；否则显示信息框，要求重新输入，此时调用第一个命令按钮的Click 事件过程，...原创 2019-01-26 20:37:25 · 709 阅读 · 2 评论 -
vb程序设计教程第4版龚沛曾 实验答案解析
这里只是个人对书中题目的解答，并不代表最优代码。仅供参考。有哪里错误或者不足的地方还望指出，Thanks♪(･ω･)ﾉ以及 不要脸地 求探讨求点赞。嘿嘿这里使用的是《vb程序设计教程（第四版）——龚沛曾》：实验3（主要考察分支选择结构。1—7考察select和if语句，8用到choose函数，9—11以控件option和check为主）3.1：Option Expl...原创 2020-02-03 21:49:45 · 2238 阅读 · 1 评论