a18832625691的博客

原创 冒泡排序

Private Sub Command1_Click()Me.Font.Size = 30Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10  a(i) = 10 + Int(Rnd() * 100)  Print a(i);Next iPrintDim j As IntegerFor j = 1 To 9

原创 十进制转化成十六进制i

Private Sub Command1_Click()Me.Font.Size = 50Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 1230: b = 16While a    yushu = a Mod bs =

原创 进制转换

Private Sub Command1_Click()Me.FontSize = 24Dim n As Byten = 23Const er As Byte = 2Dim shang As ByteDim yushu(1 To 5) As ByteDim i As Bytei = 5shang = n \ eryushu(i) = n Mod erWh

原创 vb

原创 vb

Private Sub Command1_Click()Dim n As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)n = n + 1Wend n = 1While n Print a(n)n = n + 1Wend Sum = 0n = 1Whil

原创 vb

Private Sub Command1_Click()ClsFont.Size = 30Dim a As IntegerDim sierdun(15) As Integern = 1While n     sierdun(n) = Int(Rnd * 1000)    n = n + 1WendDim swap As Integerm =

原创 vb

原创 c语言实验

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