lsq50341012-CSDN博客

原创菜单编辑器

打开VB右击’Form1‘空白处，单击’菜单编辑器‘。在‘菜单编辑器’中标题为“文件（&E）”名称为“file”，单击‘下一个’；标题为“编辑（&）”，名称为“compile”；选中’编辑‘，单击‘插入’，单击'右箭头图标'，标题为“新建工程（&N）”，名称为“NewProject”，快捷键为“Ctil+N”;选中’编辑‘，单击‘插入’，单击'右箭头图标'，标题为“打开工程

2016-06-16 21:27:30 967

原创鞍点

Option Base 1Dim anma() As IntegerDim m As Byte, n As BytePrivate Sub Command1_Click()ClsMe.Font.Size = 30m = 5: n = 6ReDim anma(m, n)Dim i As Integer, j As IntegerFor i = 1 To m

2016-06-02 18:14:16 195

原创用户验证

Private Sub Command1_Click() Dim i As Integer If txtYhm.Text = "qwerty" And txtMm.Text = "asdfgh" Then MsgBox "输入正确", vbInformation, "密码" Else i = MsgBox("亲~用户名、密码不匹配!

2016-05-19 18:02:03 268

原创选择排序

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

2016-05-07 17:15:54 169

原创十进制？？？转换为十六进制数

Private Sub Command1_Click() Me.Font.Size = 50Print shiliujinzhi(4545)End SubPrivate Function shiliujinzhi(m As Integer)As StringDim n As Integern = mConst shiliu As Byte = 16D

2016-04-28 17:25:29 403

原创十进制数？？？转换为二进制

Private Sub Command1_Click() Print erjinzhi(???)End SubPrivate Function erjinzhi(m As Byte) As String Dim n As Byte n = m Const er As Byte = 2 Dim returns As String

2016-04-28 17:15:34 276

原创 333

Private Sub command1_Click()Dim a() As ByteDim b As StringDim changdu As Long, i As Longchangdu = Len(Text1.Text)ReDim a(changdu) For i = 1 To changdu b= Mid(Me.Text1.Text, i, 1)

2016-04-21 17:39:43 180

原创乘法结果以文件形式保存到D盘

Private Sub Form_Load() Me.Font.Size = 40End SubPrivate Sub 乘法_Click() Dim c As Byte Dim a() As Byte Dim b As String Dim changdu As Long, i As Long changdu

2016-04-21 17:30:07 207

原创多位数 X 一位数

Private Sub Form_Load() Me.Font.Size = 40End SubPrivate Sub 乘法_Click() Dim c As Byte Dim a() As Byte Dim b As String Dim changdu As Long, i As Long

2016-04-21 17:08:39 278

原创两位数乘一位数

Option Base 1Private Sub Command1_Click() Me.Font.Size = 70 Dim n1() As Byte, n1LenAs Long Dim n2() As Byte, n2Len As Long Dim yushu1 As Byte, yushu2 As Byte Dim

2016-04-14 16:58:08 294

原创 10数求和

Dim sum As IntegerDim i As IntegerDim a As IntegerPrivate Sub Command1_Click() sum = 0 For i = 1 To 10 Randomize a = Int(1000 * Rnd) sum = sum + a

2016-04-07 17:32:02 273

原创比大小

通用Option Base 1command1Private 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

2016-03-31 17:26:47 231

原创作业

Private Sub 排序_Click()ClsDim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As IntegerDim i As IntegerDim j As

2016-03-24 17:48:36 208

lsq50341012的博客