- 博客(6)
- 收藏
- 关注
RSS订阅原创 关于VB的感想
话说，VB我感觉真难，但是正是因为难才更有动力去学习，富于挑战性。 现在做VB题基本上都是按照书上的输进去，然后出结果的，就是个木头人，不懂VB的一些代码，才造成了VB的不会。我要把课本都看一遍，再加上上机多加练习，活学活用，充分利用手中的资源，尝试自己去编写程序，努力！
2012-03-26 20:17:10
429
原创 VB----随机生成一个不同种类的图形
现画一个command命令按钮，进行粘贴。 Private Sub Command1_Click () Show Me Scale (0, 0)-(18, 8) Me. Auto redraw =True Me. Draw Mode =2 Circle (3, 4), 3, VB Red Me. Auto Redraw =false Line (7, 1) –step (4,
2012-03-26 20:01:53
390
原创 VB---生成随机数，大小写转换，随机生成个位数
一． 实验目的 1. 生成随机数 2. 实现大小的转换 3. 随机生成个位数 为了学习到真正的运用VB知识做题，要学会运用如何随机生成随机数，大小写的转换，生成个位数。 二． 实验内容 1.生成随机数 再窗体上放三个文本
2012-03-26 19:59:29
1617
原创 VB实验报告----制作随机图形，制作动画
一：试验目的： 1利用vb程序设计语言制作随机图形 2利用vb程序设计语言制作动画 二：实验内容： 1先进行界面分布和相应的属性设置 2编写代码如下： 1，Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 100 End Sub Private Sub Command2_Click() F
2012-03-26 18:37:49
552
原创 VB
首先，在form1上画出commandbutton,写上开始运动，在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程，语言如下; Dim g As Boolean Dim x As Long 再双击开始运动按钮，编写程序语言，语言如下： Private Sub Command1_Click() Timer1.Enabled = True End Sub
2012-03-26 18:30:27
203
原创 第一次VB课
Option Explicit Private Sub Command1_Click() Dim M As Integer Dim N As Integer M = Int(Val(Text1.Text)) N = Int(Val(Text2.Text)) Dim TemparyValue As Integer If M TemparyValue = N M = N N =
2012-03-26 18:26:40
258
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人