- 博客(15)
- 收藏
- 关注
原创 鞍点
实验名称:鞍点一、实验目的:找出这一行中最大的数,且保证这个数是这一列的最小值二、实验编程:Option BaseDim anma() As IntegerDim m As Byte,n As BytePrivate Sub command1_click()ClsMe.font.size=30Dim i As Byte,j As Byte||生成二
2016-06-16 18:14:14 553
原创 多位数乘一位数并输入到文本文档中
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.
2016-05-12 17:03:04 363
原创 选择法排序
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
2016-05-12 17:01:17 669
原创 冒泡法排序
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
2016-05-12 17:00:25 307
原创 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) &
2016-05-12 16:58:56 274
原创 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
2016-03-31 17:37:10 656
原创 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 =
2016-03-31 17:09:14 1364
原创 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
2016-03-24 17:43:24 266
原创 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
2016-03-24 17:36:20 375
原创 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
2016-03-24 17:24:27 248
原创 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
2016-03-24 17:23:21 228
原创 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
2016-03-17 17:03:47 277
原创 变量代换
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
2016-03-17 17:02:04 1545
原创 变量交换
打开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 "
2016-03-17 16:56:48 281
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人