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