- 博客(5)
- 收藏
- 关注
RSS订阅原创 信息
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:33:46
206
原创 鞍点
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 a(i, j) = 10 + Int(Rnd
2016-06-02 18:15:52
231
原创 16进制的转换，随机数排序
1. 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-05-09 15:24:40
774
原创 VB作业
Option Base 1 Private Sub Com_Click() Cls Me.Font.Size = 50 Dim n1() As Byte, n1len As Long Dim n2() As Byte, n2len As Long Dim yushu1 As Byte Dim shang As Byte Dim yushu2 As Byte Dim tempr
2016-04-19 22:26:24
238
原创 vb作业
1. dim(a) as integer n=1 while n a(n)=int(rnd*1000) n=n+1 wend dim s as integer s=0 n=1 while n s=s+a(n) n=n+1 wend print s end sub 2. dim a as integer dim sum as integer dim i as i
2016-04-12 21:40:03
450
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人