vb
寒泉Hq
当你试图解决一个你不理解的问题时,复杂化就产生了
展开
-
VB 6.0 计算鼠标的金额 字体
实验内容掌握Label、TextBox、Button控件的使用方法,变量的使用方法。掌握If语句的使用方法。商场鼠标实际销售价是原价的九五折。买10个以上(含)打八折,买20个以上(含)打七折。从页面上输入原价、购买的个数,计算出金额显示在页面上,再输入顾客所付钱数,计算出找零。自己完成程序,运行结果截图。编写实验报告。实验环境Windows7,Office、VB开发环境。窗体...原创 2019-03-06 21:25:30 · 1376 阅读 · 0 评论 -
vb 绘制图形/蝴蝶动画
实验一 画图形代码Private Sub Form_Click() Scale (0, 30)-(120, 0) Circle (15, 15), 10 Circle (45, 15), 10, , , , 2 Circle (75, 15), 10, , -0.7, -2.1 Circle (105, 15), 10, , -2.1, 0.7End...原创 2019-05-22 19:24:15 · 18260 阅读 · 0 评论 -
vb 五位抽奖程序
设计需要label数组,用复制粘贴的方式实现要添加一个timer,属性设置如下:运行效果代码Private Sub Command1_Click() Timer1.Enabled = True Command2.Enabled = True Command1.Enabled = FalseEnd SubPrivate Sub Command2_Cli...原创 2019-05-15 20:08:05 · 14050 阅读 · 0 评论 -
vb鼠标涂鸦板的制作
掌握使用Picture1_MouseDown语句/Picture1_MouseUp,Picture1_MouseMove语句和Command Dialog的实现方法。实现鼠标画图程序。编写实验报告。效果代码Dim x1 As IntegerDim x2 As IntegerDim y1 As IntegerDim y2 As IntegerDim flag As Bool...原创 2019-05-08 19:36:17 · 12298 阅读 · 0 评论 -
vb 双重for循环 打印乘法口诀表 print不换行输出
实验11 用循环语句打印数学乘法表实验内容掌握使用For Next语句/Do Until Loop语句/Do While Loop语句进行循环控制用循环语句打印数学乘法表编写实验报告。实验环境Windows7,Office、VB开发环境。实验运行结果点击“打印”后的效果:点击“清屏”后的效果:实验代码Private Sub Command1_Click() ...原创 2019-04-24 19:03:06 · 14525 阅读 · 0 评论 -
vb循环 Do While…Loop 语句/Do Until…Loop语句
实验内容掌握使用Do While…Loop /Do Until…Loop语句进行循环控制从页面输入一个值n,计算1+2+3+4+。。。+n的和(分别用Do While…Loop /Do Until…Loop语句做一遍)从页面输入一个值n,计算n!的值(分别用Do While…Loop /Do Until…Loop语句做一遍)编写实验报告。代码Do While…Loop 版本:...原创 2019-04-17 23:37:41 · 33094 阅读 · 0 评论 -
vb for循环 combobox的使用 Print的使用
运行结果ComboBox1ComboBox2代码可复制:Private Sub Command1_Click() '步长缺省为1 Dim i As Integer For i = 0 To 12 Combo1.AddItem i & "月" Next i '偶数月 For i = 0 To ...原创 2019-04-10 18:23:40 · 11409 阅读 · 0 评论 -
vb 实现小超市饮料补货提醒程序 public全局变量的声明与初始化
实验7 实现小超市饮料补货提醒程序实验内容掌握变量、局部静态变量的使用方法及if 语句、select case语句的使用方法自己完成简单的小超市饮料补货提醒程序并且正确地运行。小超市饮料补货提醒程序需要实现的功能:1)每次卖走矿泉水时,输入相应的瓶数,然后点击“确定”按钮,显示出今日总共卖出多少瓶。2)假设每天早上小超市的矿泉水的总瓶数为300瓶:点击确定按钮时,计算剩余的矿泉水瓶数...原创 2019-03-27 20:40:21 · 10303 阅读 · 0 评论 -
vb 如何给静态变量赋初值
vb中不能在变量声明时赋默认值以外的初值,想要给静态变量赋初值,必须增加一个标志变量,如:Sub ss() Static i As Integer, f As Boolean If Not f Then i = 3: f = True '运行代码End Sub...原创 2019-03-20 18:34:23 · 11913 阅读 · 0 评论 -
vb Select Case的使用 字符串整形的转换 输入错误str的直接输出
运行效果代码Dim i As IntegerDim str As StringPrivate Sub Command1_Click() '接收 str = Text1.Text i = Val(Text1.Text) 'i = InputBox("男生输入1,女生输入2") '弹出一个(自动生成的)输入框 Select ...原创 2019-03-20 18:30:21 · 9698 阅读 · 0 评论 -
vb小游戏 打地鼠
运行效果(动画)窗体结构注意下面有两个隐藏的锤子,临时存储锤子图片,作为image.picture被调用。这两个图片本来应该是左边抬起来,右边按下去,但是按下去的图片找不到了,临时用两个一样的锤子。左上角两个textbox用来显示当前老鼠坐标,用于调试。实验程序说明Image 1 的picture 设为老鼠Image 2 的picture 设为锤子0Image 2 的pictur...原创 2019-05-29 20:59:23 · 29081 阅读 · 14 评论