lsq50341012-优快云博客

原创菜单编辑器

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

2016-06-16 21:27:30 1068

原创鞍点

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

2016-06-02 18:14:16 283

原创用户验证

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 345

原创选择排序

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 245

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

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

2016-04-28 17:25:29 565

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

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

2016-04-28 17:15:34 360

原创 333

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)

2016-04-21 17:39:43 253

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

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

2016-04-21 17:30:07 260

原创多位数 X 一位数

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

2016-04-21 17:08:39 356

原创两位数乘一位数

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

2016-04-14 16:58:08 399

原创 10数求和

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

2016-04-07 17:32:02 360

原创比大小

通用 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

2016-03-31 17:26:47 310

原创作业

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

2016-03-24 17:48:36 268

lsq50341012的博客