- 博客(5)
- 收藏
- 关注
RSS订阅原创 信息
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:33:46
164
原创 鞍点
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 a(i, j) = 10 + Int(Rnd
2016-06-02 18:15:52
191
原创 16进制的转换，随机数排序
1.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-05-09 15:24:40
718
原创 VB作业
Option Base 1Private Sub Com_Click()ClsMe.Font.Size = 50Dim n1() As Byte, n1len As LongDim n2() As Byte, n2len As LongDim yushu1 As ByteDim shang As ByteDim yushu2 As ByteDim tempr
2016-04-19 22:26:24
178
原创 vb作业
1.dim(a) as integern=1while na(n)=int(rnd*1000)n=n+1wenddim s as integers=0n=1while ns=s+a(n)n=n+1wendprint send sub2.dim a as integerdim sum as integerdim i as i
2016-04-12 21:40:03
372
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人