- 博客(7)
- 收藏
- 关注
原创 1230转化成十六进制
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Integera = 1230: b = 16While a yushu = a Mod b s = f(yushu) & s a = a \ bWendPri
2016-05-07 17:51:46
416
原创 选择法排序
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Integera = 1230: b = 16While a yushu = a Mod b s = f(yushu) & s a = a \ bWendPri
2016-05-07 17:51:02
383
原创 作业4
Dim n1 As Byte, n1len As LongDim n2 As Byte, n2len As LongDim yushu As ByteDim shang As Byte Dim tempResule As Byte n1len = Len(Me.Text1.Text)n2len = Len(Me.Text2.Text)ReDim n1(n1len
2016-04-14 16:58:10
228
原创 作业3
Option Explicit Private Sub Command1_Click()ClsDim i As Integer, Sum As IntegerDim a(10) As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd * 1000) + 1Sum = Sum + a(i)Next iPrint S
2016-04-14 16:35:56
265
原创 青春
曾经的风雨,如情从浅到深、如义从轻到重、如景从远到近……用他们的热忱豪情编剧了一部蕴含陈杂滋味的电影。曾经,有多少的暗礁激流在我们的身体镌刻了道道印迹,有多少清明浑浊迫使着我们痛苦的选择,有多少的困苦曲折改变了我们本来炫美的歌……在风雨中,我们不停地举步前行,走过后留下脚印,这每一个印迹必定是一个故事,而这一串串足迹就是我们过往的经历。风雨中走过的路程,我们感受到了人情冷暖,道义厚薄。在历经风雨的
2016-03-31 17:00:57
282
3
原创 VB作业2
Private Sub Command1_Click()ClsMe.Font.Size = 24Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As IntegerDi
2016-03-31 16:22:02
260
原创 VB作业1
Private Sub Command1_Click()Dim s As StringDim s As LoadPictureColorConstantss = Label1.CaptionLabel1.Caption = Label2.CaptionLabel2.Caption = sa = Label1.ForeColorLabel1.ForeColor = Lab
2016-03-31 16:17:48
231
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人