LHWJJ的博客

原创 鞍点

实验名称：鞍点一、实验目的：找出这一行中最大的数，且保证这个数是这一列的最小值二、实验编程：Option BaseDim anma()  As IntegerDim m  As  Byte,n  As  BytePrivate Sub command1_click()ClsMe.font.size=30Dim i As Byte,j As Byte||生成二

原创 三位数乘一位数

原创 多位数乘一位数并输入到文本文档中

Private Sub Command1_Click()Dim c As ByteDim a() As ByteDim b As StringDim changdu As Integer, i As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i = 1 To changdub = Mid(Me.Text1.

原创 选择法排序

Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 1000)Print a(i);Next iPrintFor j = 1 To 9For i = j + 1 To 10

原创 冒泡法排序

Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 1000)Print a(i);Next iPrintFor i = 1 To 9For j = 1 To 10 - i

原创 16进制

Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 230: b = 16While a yushu = a Mod bIf yushu s = yushu & sElses = Chr(yushu + 55) &

原创 15个数比较大小

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

原创 15 个数用循环结构比较大小

Option Base 1Private Sub Command1_Click()ClsDim n As Integer, x As Integerx = Int(Val(Me.Text1.Text))Dim a() As IntegerReDim a(x)n = LBound(a)While n a(n) = Int(Rnd * 1000)n =

原创 20160324.2

Private Sub cmdSort_Click()  Dim A(14) As Integer  Dim I, J As Integer  Dim Temp As Integer  Form1.Cls  Randomize  For I = 0 To 14  A(I) = Int(Rnd * 1000)  Print A(I);  Next I  For

原创 2

Private Sub cmdSort_Click()  Dim A(14) As Integer  Dim I, J As Integer  Dim Temp As Integer  Form1.Cls  Randomize  For I = 0 To 14  A(I) = Int(Rnd * 1000)  Print A(I);  Next I  For

原创 20160324

Private Sub Command1_Click()    Cls    Me.Font.Size = 50    Dim a As Integer    Dim b As Integer    Dim swap As Integer        a = Int(Rnd * 1000)    b = Int(Rnd * 1000)    If a   

原创 20160324

Private Sub Command1_Click()    Cls    Me.Font.Size = 50    Dim a As Integer    Dim b As Integer    Dim swap As Integer        a = Int(Rnd * 1000)    b = Int(Rnd * 1000)    If a   

原创 b

Private Sub Command1_Click()ClsMe.Font.Size = 50Dim b As Integer, c As IntegerDim d As Integerc = Int(Rnd() * 1000)b = Int(Rnd() * 1000)Print "b=" & bPrint "c=" & cd = cc = bb

原创 变量代换

Private Sub Command1_Click()ClsMe.Font.Size = 50Dim b As Integer, c As IntegerDim d As Integerc = Int(Rnd() * 1000)b = Int(Rnd() * 1000)Print "b=" & bPrint "c=" & cd = cc = bb

原创 变量交换

打开VB图标，点击commond按钮，画出一个方框来，双击后输入以下内容：Private Sub Command1_Click()ClsMe.Font.Size = 50Dim b As Integer, c As IntegerDim d As Integerc = Int(Rnd() * 1000)b = Int(Rnd() * 1000)Print "