<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[guopiaoyun2012的专栏]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/guopiaoyun2012</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; guopiaoyun2012]]></copyright><item><title><![CDATA[动态添加、删除Textbox]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7619555</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7619555</guid><author>guopiaoyun2012</author><pubDate>Thu, 31 May 2012 14:14:14 +0800</pubDate><description><![CDATA[学习的动态添加、删除textbox按钮，这是件很有意思的事，从中我也知道了学习vb语言是件很有用的事，
对我们以后的学习与工作都是很有用的，动态添加、删除textbox的操作过程，如下：                                                                        
 
Dim  with.events mytextbox As]]></description><category></category></item><item><title><![CDATA[随机生成n个不同的数字-小组合作编写]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7619550</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7619550</guid><author>guopiaoyun2012</author><pubDate>Thu, 31 May 2012 14:12:48 +0800</pubDate><description><![CDATA[今天老师让我们合作，来完成一个任务，于是，我们在团支书给分配的组中，我们自己协商，自己做自己的，到最后整合都一台电脑上。
窗体下的编程如下：
     Private  Sub Command1_Click()
          n=InputBox("请输入一个正整数")
          Dim   Str2   As  String
          Call   GetNI]]></description><category></category></item><item><title><![CDATA[求给定数组中的最大值]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7619543</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7619543</guid><author>guopiaoyun2012</author><pubDate>Thu, 31 May 2012 14:10:18 +0800</pubDate><description><![CDATA[对于求vb中的用vb编写给定数组中的最大值，我的编程如下：
Public  Function  calcMax( a()  As  Integer)  As  Integer
      max=0
    For  Each  aArrayElement  in  a
         If  max
             max=aArrayElement
         E]]></description><category></category></item><item><title><![CDATA[递归思想求和]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7619540</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7619540</guid><author>guopiaoyun2012</author><pubDate>Thu, 31 May 2012 14:09:22 +0800</pubDate><description><![CDATA[这次，我有一些崇拜VB了，我觉得它好神奇哦，可以变幻莫测的用另一种方法，用另一种思维来求解平常都熟知的一些套路。
代码编写：
Print   Sub  Command1_click()
   Me,Fontsize=18
   Print   Sum(100)
End  Sub
 
Private  Function  Sum(n  As  Integer) As  Integer]]></description><category></category></item><item><title><![CDATA[随机产生不同数]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7619532</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7619532</guid><author>guopiaoyun2012</author><pubDate>Thu, 31 May 2012 14:08:03 +0800</pubDate><description><![CDATA[代码编写：
Option   Explicit
Private Sub Command1_click()
   Dim  a(10)  As  Integer, i  As  Integer, k  as  Integer ,t  As  Integer
   Dim  mystr  As  String
   Dim  printstr  As  String
 
   a(1)=]]></description><category></category></item><item><title><![CDATA[1000~2000之间能同时被17和37整除的数的编程]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7619522</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7619522</guid><author>guopiaoyun2012</author><pubDate>Thu, 31 May 2012 14:05:37 +0800</pubDate><description><![CDATA[代码编写：
Function  Judge  (N  as  Integer)  as  Boolean
Judge   =N  Mod  17*37=0
End  Function
 
Private  Sub  Command1_()
Dim  i  as  Integer
For  i=1000  To   2000
If  Judge  (i)  then
Private]]></description><category></category></item><item><title><![CDATA[设计一个个人纳税计算程序]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7619515</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7619515</guid><author>guopiaoyun2012</author><pubDate>Thu, 31 May 2012 14:03:41 +0800</pubDate><description><![CDATA[代码编写：
Private  Sub  Command1_click()
Dim  w  as Long    
Dim  s  as  Long
Dim  y  as  Long
w=Val(Text1.Text)
 
s=w-800
Select  case  s
Case  is
y=s*5/100
Case  is
y=s*10/100
Case  is
y=s]]></description><category></category></item><item><title><![CDATA[两个数和三个数比较得出最大数]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7619508</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7619508</guid><author>guopiaoyun2012</author><pubDate>Thu, 31 May 2012 14:02:08 +0800</pubDate><description><![CDATA[代码编写：
If  a>b   then
        print   a
    else  
         print   b
     End   if
         三个数比较输出最大值的编程如下：
    If   a>b   then
         max=a
    else
         max=b
   end  if
    if  c]]></description><category></category></item><item><title><![CDATA[程序实现输出最大值]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617836</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617836</guid><author>guopiaoyun2012</author><pubDate>Wed, 30 May 2012 21:09:02 +0800</pubDate><description><![CDATA[编写代码：
Private   Sub  Command1-Click()
  Dim  max  as  Integer
  Dim  f(9)  as  integer
  Dim  mystr  as  String
  
        mystr="   "
        For  i=0  to  9
             f(i)=Int(Rnd()*1000+]]></description><category></category></item><item><title><![CDATA[编写将出生日期转换为周几的程序]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617835</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617835</guid><author>guopiaoyun2012</author><pubDate>Wed, 30 May 2012 21:07:50 +0800</pubDate><description><![CDATA[代码编写：
Dim  Year as  Integer
Dim  Month as Integer
Dim  Day  as Integer
Dim Dayofweek as Byte
Dim  Birthday  as Date
Year=Int(Val(Text1.Text))
Month=Int(Val(Text2.Text))
Day=Int(Val(Text3.Text)]]></description><category></category></item><item><title><![CDATA[两位数惩罚编程]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617831</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617831</guid><author>guopiaoyun2012</author><pubDate>Wed, 30 May 2012 21:06:26 +0800</pubDate><description><![CDATA[代码编写：
Private Sub Command1_Click()
   Dim numberlengh As Integer
   Dim Firstnumbers() As Integer
   Dim Secondnumbers() As Integer
 
   numberlengh = Len(Text1.Text)
  
   ReDim Firstnumbers(]]></description><category></category></item><item><title><![CDATA[两位数活多位乘法的计算编程]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617827</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617827</guid><author>guopiaoyun2012</author><pubDate>Wed, 30 May 2012 21:05:11 +0800</pubDate><description><![CDATA[代码编写;
Option Base 1
Private Sub Command1_Click()
Dim M As String
Dim N As String
M = Trim(Text1.Text)
N = Trim(Text2.Text)
Dim Number1() As Byte
Dim Number2() As Byte
ReDim Number1(Len(M))
R]]></description><category></category></item><item><title><![CDATA[能动的图形]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617821</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617821</guid><author>guopiaoyun2012</author><pubDate>Wed, 30 May 2012 21:03:37 +0800</pubDate><description><![CDATA[用VB绘制图形并使其运动
绘制圆形并运动的程序代码
Dim g As Boolean
Dim x As Long
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
g = True
x = Shape1.Left
End Sub
Private Sub Time]]></description><category></category></item><item><title><![CDATA[显示各位数]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617813</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617813</guid><author>guopiaoyun2012</author><pubDate>Wed, 30 May 2012 21:02:00 +0800</pubDate><description><![CDATA[编写程序代码:
双击命令按钮，输入:
Dim star as string
Star=text1.text
Text2.text=left(stra,1)
Text3.text=mid(stra,2,1)
Text4.text=right(stra,1)]]></description><category></category></item><item><title><![CDATA[大小写的转换]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617801</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617801</guid><author>guopiaoyun2012</author><pubDate>Wed, 30 May 2012 21:00:28 +0800</pubDate><description><![CDATA[实验步骤：
1.  在窗体中放置三个命令按钮，在属性值中分别输入“转大写”“转小写”“还原，”在放置一个标签，在属性值中输入“请输入英文字母”，并在后面输入一个文本框
2.  编写代码：
（1）在通用声明段中输入;dim x as string
（2）在代码窗口中选择form控件的load事件，代码如下：x=text1.text
（3）在代码窗口中选择command1控件的click事件]]></description><category></category></item><item><title><![CDATA[生成随机数]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617795</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617795</guid><author>guopiaoyun2012</author><pubDate>Wed, 30 May 2012 20:57:25 +0800</pubDate><description><![CDATA[实验步骤：
1．   在窗体上放置三个文本框并在其后输入三个文本框，分别用于输入随机数的下界和上界，并在属性值中输入“请输入随机数的下界”“请输入随机数的下界”“显示生成的整数”。放置一个命令按钮，并在属性值中输入“生成随机数”。
2．   编写程序代码
   双击窗体中的命令按钮在代码窗口编写click事件过程，代码如下：
Dim M as Integer
Dim N as Integ]]></description><category></category></item><item><title><![CDATA[随机生成图形]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617759</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617759</guid><author>guopiaoyun2012</author><pubDate>Wed, 30 May 2012 20:54:55 +0800</pubDate><description><![CDATA[代码编写：
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
Randomize
    Cls
    Dim MaxX As Long
    Dim MaxY As Long
    MaxX = Form1.ScaleWidth
    Max]]></description><category></category></item><item><title><![CDATA[动态制作添加、删除]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617290</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7617290</guid><author>guopiaoyun2012</author><pubDate>Wed, 30 May 2012 17:47:11 +0800</pubDate><description><![CDATA[动态添加、删除Text

一、编写程序

Dim  with.events mytextbox As VB.TextBox

Private Sub Command1_Click()

Dim myTextBox As VB.TextBox

set mytextbox = me.controls.Add("VB.TextBox","mytextbox)

my textb]]></description><category></category></item><item><title><![CDATA[VB中几位数的相乘的编程]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7402258</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7402258</guid><author>guopiaoyun2012</author><pubDate>Wed, 28 Mar 2012 11:44:56 +0800</pubDate><description><![CDATA[今天上的事计算机课程，所以少不了要制作VB工程，今天的课程是制作两个几位数的相乘，过程中遇到了很多的问题，但是也是经过不懈努力，额，当然有上网问一下百度大婶啦，不过今天有一点不给力，我们都不知道怎么做，后来还是我们老师教我们做的一个大概，不过，海华丝留给我们一些个小细节，让我们去补充，让我们呢去完美它，最后还是做出来了。嘿嘿，挺好的……
 
 
Option Base 1
 
Priva]]></description><category></category></item><item><title><![CDATA[我做的第一个工程]]></title><link>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7400568</link><guid>https://blog.youkuaiyun.com/guopiaoyun2012/article/details/7400568</guid><author>guopiaoyun2012</author><pubDate>Tue, 27 Mar 2012 21:10:32 +0800</pubDate><description><![CDATA[第一次接触工程，自己设计软件，额，虽然这个软件不是设计的，但是当看到自己的劳动成果的时候，真的很骄傲，觉得很开心！
       不过，毕竟是第一次做，额，费了很多的时间不说，第一次做出来的竟 然是错的，额，，当时那个流汗啊，还好有指导我们的学长，他检查了一遍后，意味深长的说道：“你检查一遍吧，没有技术性错误，只有拼写性错误。”后来自己就一个一个字的才对照呢，最后检查出来了，才知道自己的错误原来]]></description><category></category></item></channel></rss>