<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[lsq50341012的博客]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/lsq50341012</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; lsq50341012]]></copyright><item><title><![CDATA[菜单编辑器]]></title><link>https://blog.youkuaiyun.com/lsq50341012/article/details/51694779</link><guid>https://blog.youkuaiyun.com/lsq50341012/article/details/51694779</guid><author>lsq50341012</author><pubDate>Thu, 16 Jun 2016 21:27:30 +0800</pubDate><description><![CDATA[打开VB
右击’Form1‘空白处，单击’菜单编辑器‘。
在‘菜单编辑器’中
标题为“文件（&E）”名称为“file”，单击‘下一个’；
标题为“编辑（&）”，名称为“compile”；
选中’编辑‘，单击‘插入’，单击'右箭头图标'，标题为“新建工程（&N）”，名称为“NewProject”，快捷键为“Ctil+N”;
选中’编辑‘，单击‘插入’，单击'右箭头图标'，标题为“打开工程]]></description><category></category></item><item><title><![CDATA[鞍点]]></title><link>https://blog.youkuaiyun.com/lsq50341012/article/details/51569169</link><guid>https://blog.youkuaiyun.com/lsq50341012/article/details/51569169</guid><author>lsq50341012</author><pubDate>Thu, 02 Jun 2016 18:14:16 +0800</pubDate><description><![CDATA[Option Base 1
Dim anma() As Integer
Dim m As Byte, n As Byte
Private Sub Command1_Click()
Cls
Me.Font.Size = 30
m = 5: n = 6
ReDim anma(m, n)
Dim i As Integer, j As Integer
For i = 1 To m
  ]]></description><category></category></item><item><title><![CDATA[用户验证]]></title><link>https://blog.youkuaiyun.com/lsq50341012/article/details/51455929</link><guid>https://blog.youkuaiyun.com/lsq50341012/article/details/51455929</guid><author>lsq50341012</author><pubDate>Thu, 19 May 2016 18:02:03 +0800</pubDate><description><![CDATA[Private Sub Command1_Click()
    Dim i As Integer
    If txtYhm.Text = "qwerty" And txtMm.Text = "asdfgh" Then
        MsgBox "输入正确", vbInformation, "密码"
    Else
        i = MsgBox("亲~用户名、密码不匹配!]]></description><category></category></item><item><title><![CDATA[选择排序]]></title><link>https://blog.youkuaiyun.com/lsq50341012/article/details/51338854</link><guid>https://blog.youkuaiyun.com/lsq50341012/article/details/51338854</guid><author>lsq50341012</author><pubDate>Sat, 07 May 2016 17:15:54 +0800</pubDate><description><![CDATA[Private Sub Command1_Click()
    Me.Font.Size = 30
    Dim a(10) As Integer
    Dim i As Integer
    For i = 1 To 10
        a(i) = 10 + Int(Rnd() * 100)
        Print a(i)
    Next i
   
   ]]></description><category></category></item><item><title><![CDATA[十进制？？？转换为十六进制数]]></title><link>https://blog.youkuaiyun.com/lsq50341012/article/details/51276220</link><guid>https://blog.youkuaiyun.com/lsq50341012/article/details/51276220</guid><author>lsq50341012</author><pubDate>Thu, 28 Apr 2016 17:25:29 +0800</pubDate><description><![CDATA[Private Sub Command1_Click()
     Me.Font.Size = 50
Print shiliujinzhi(4545)
End Sub


Private Function shiliujinzhi(m As Integer)As String
Dim n As Integer
n = m
Const shiliu As Byte = 16
D]]></description><category></category></item><item><title><![CDATA[十进制数？？？ 转换为二进制]]></title><link>https://blog.youkuaiyun.com/lsq50341012/article/details/51276101</link><guid>https://blog.youkuaiyun.com/lsq50341012/article/details/51276101</guid><author>lsq50341012</author><pubDate>Thu, 28 Apr 2016 17:15:34 +0800</pubDate><description><![CDATA[Private Sub Command1_Click()
    Print erjinzhi(???)
End Sub

Private Function erjinzhi(m As Byte) As String
    Dim n As Byte
    n = m
    Const er As Byte = 2
    Dim returns As String
   ]]></description><category></category></item><item><title><![CDATA[333]]></title><link>https://blog.youkuaiyun.com/lsq50341012/article/details/51211227</link><guid>https://blog.youkuaiyun.com/lsq50341012/article/details/51211227</guid><author>lsq50341012</author><pubDate>Thu, 21 Apr 2016 17:39:43 +0800</pubDate><description><![CDATA[Private Sub command1_Click()
Dim a() As Byte
Dim b As String
Dim changdu As Long, i As Long
changdu = Len(Text1.Text)
ReDim a(changdu)
 
For i = 1 To changdu
    b= Mid(Me.Text1.Text, i, 1)
 ]]></description><category></category></item><item><title><![CDATA[乘法 结果以文件形式保存到D盘]]></title><link>https://blog.youkuaiyun.com/lsq50341012/article/details/51211097</link><guid>https://blog.youkuaiyun.com/lsq50341012/article/details/51211097</guid><author>lsq50341012</author><pubDate>Thu, 21 Apr 2016 17:30:07 +0800</pubDate><description><![CDATA[Private Sub Form_Load()
    Me.Font.Size = 40
End Sub

Private Sub 乘法_Click()

    Dim c As Byte
    Dim a() As Byte
    Dim b As String
    
    Dim changdu As Long, i As Long
    changdu ]]></description><category></category></item><item><title><![CDATA[多位数 X 一位数]]></title><link>https://blog.youkuaiyun.com/lsq50341012/article/details/51210800</link><guid>https://blog.youkuaiyun.com/lsq50341012/article/details/51210800</guid><author>lsq50341012</author><pubDate>Thu, 21 Apr 2016 17:08:39 +0800</pubDate><description><![CDATA[Private Sub Form_Load()
    Me.Font.Size = 40
End Sub





Private Sub 乘法_Click()

    Dim c As Byte
    Dim a() As Byte
    Dim b As String
    
    Dim changdu As Long, i As Long
    ]]></description><category></category></item><item><title><![CDATA[两位数 乘 一位数]]></title><link>https://blog.youkuaiyun.com/lsq50341012/article/details/51152982</link><guid>https://blog.youkuaiyun.com/lsq50341012/article/details/51152982</guid><author>lsq50341012</author><pubDate>Thu, 14 Apr 2016 16:58:08 +0800</pubDate><description><![CDATA[Option Base 1
Private Sub Command1_Click()

    Me.Font.Size = 70


    Dim n1() As Byte, n1Len
As Long
    Dim n2() 
As Byte, n2Len As Long
    Dim yushu1 
As Byte, yushu2 As Byte
    Dim]]></description><category></category></item><item><title><![CDATA[10数求和]]></title><link>https://blog.youkuaiyun.com/lsq50341012/article/details/51087686</link><guid>https://blog.youkuaiyun.com/lsq50341012/article/details/51087686</guid><author>lsq50341012</author><pubDate>Thu, 07 Apr 2016 17:32:02 +0800</pubDate><description><![CDATA[Dim sum As Integer
Dim i As Integer
Dim a As Integer
Private Sub Command1_Click()
    sum = 0
    For i = 1 To 10
        Randomize
        a = Int(1000 * Rnd)
        sum = sum + a
        ]]></description><category></category></item><item><title><![CDATA[比大小]]></title><link>https://blog.youkuaiyun.com/lsq50341012/article/details/51028520</link><guid>https://blog.youkuaiyun.com/lsq50341012/article/details/51028520</guid><author>lsq50341012</author><pubDate>Thu, 31 Mar 2016 17:26:47 +0800</pubDate><description><![CDATA[通用
Option Base 1
command1
Private Sub Command1_Click()  
   Cls
   Font.size = 30
   Dim n As Integer
   Dim size As Integer
           size = Int(Val(Me.Text1.Text))
   Dim sierdun() As Inte]]></description><category></category></item><item><title><![CDATA[作业]]></title><link>https://blog.youkuaiyun.com/lsq50341012/article/details/50973665</link><guid>https://blog.youkuaiyun.com/lsq50341012/article/details/50973665</guid><author>lsq50341012</author><pubDate>Thu, 24 Mar 2016 17:48:36 +0800</pubDate><description><![CDATA[Private Sub 排序_Click()
Cls
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim h As Integer
Dim i As Integer
Dim j As]]></description><category></category></item></channel></rss>