- 博客(6)
- 收藏
- 关注
原创 16进制
Private Sub Command1_Click() Dim a As Long Dim b As Integer Dim yushu As Byte Dim s As String a = 123456 b = 16 While a yushu = a Mod b If yushu s = yushu & s Else s = Chr(yushu + 55) &
2016-06-16 17:24:47 223
原创 选择法
Private Sub Command1_Click() Cls Font.Size = 30 Dim a(10) As Integer Dim j As Integer Dim i As Integer For i = 1 To 10 a(i) = 10 + Int(Val(Rnd * 100)) Next i For j = 1 To 9 For i = j + 1 T
2016-06-16 17:23:59 169
原创 我的信息
Private Type student name As String * 2 xuehao As String * 11 sex As Boolean zhuanye As String * 2 school As String * 4 xueyuan As String * 2 End Type Private Sub Command1_Click() Dim z
2016-06-16 17:22:10 126
原创 排序 保存路径
Private Sub Command1_Click() Cls Font.Size = 30 Dim a(10000) As Integer Dim j As Integer Dim i As Integer For i = 1 To 10000 a(i) = 10 + Int(Val(Rnd * 10000)) Next i For j = 1 To 9999 For
2016-06-16 17:21:24 166
原创 鞍点寻找
Option Base 1------通用 Private Sub Command1_Click() Cls Dim a() As Integer Dim m As Byte, n As Byte n = 5: m = 6 ReDim a(m, n) Dim i As Byte, j As Byte For i = 1 To m For j = 1 To n
2016-06-16 17:19:33 198
原创 比较大小
一.比较a与b的大小 1 打开Text文本框图标,在Form1中空白区域选择区域,画出文本框。 2点击CommandButton,在右侧Form1中空白区域选择区域,选中图标,在右下角,将表格中 “Command1”改成“比较”,输入如下内容. Cls Me.Text1.Font.Size=50 Dim a As Integer Dim b As Integer a=In
2016-03-29 18:50:08 206
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人