summousbling-优快云博客

原创个人信息

Private Type student name As String * 3 stuNo As String * 11 sex As Boolean age As Byte prof As String * 2 grade As Single End Type Private Sub Command1_Click() Dim qiehuimin As student qi

2016-06-16 17:56:00 266

原创鞍点

生成五行六列的数（在1~100之间），即分别定义i,j，通过循环生成二维数组。找出每一行的最大值并标记，通过循环，若a>b为假，不交换两个数，如果a>b为真，把b的值给a.假设第一行第一列的数最大，那么在第一行此数会依次与第二行、第三行。。。进行比较，如果后一个数比前一个数大，那么此数的列号会被记录。（其他行也用此方法找出行最大数）分析上步所得的行最大数是不是所在列的列最小

2016-06-16 17:54:00 432

原创鞍点

Option Base 1 Dim anma() As Integer Dim m As Byte, n As Byte Private Sub Command1_Click() Cls m = 5: n = 6 ReDim anma(m, n)

2016-06-16 17:36:09 330

原创登陆界面

Option Explicit Const MaxLoginTimes As Integer = 3 Private Sub cmdLogin_Click() Static loginTimes As Integer loginTimes = loginTimes + 1 If loginTimes On Error GoTo ppp Dim Cn

2016-06-16 17:34:40 224

原创转化为十六的数

Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Byte a = 1230: b = 16 While a yushu = a Mod b If yushu s = yushu & s Else s = Chr(yushu + 55) &

2016-05-12 17:24:30 376

原创比较数的大小

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

2016-05-12 17:22:20 284

原创比较数的大小

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

2016-05-12 17:20:49 225

原创两位数乘以一位数

Private Sub Command1_Click() Dim c As Byte Dim a() As Byte Dim b As String Dim changdu As Integer, i As Long changdu = Len(Text1.Text) ReDim a(changdu) For i = 1 To changdu b = Mid(Me.Text

2016-04-28 17:05:48 404

原创二进制的转换

Private Sub Command1_Click() Print erjinzhi(2) End Sub Private Function erjinzhi(m As Byte) As String Dim n As Byte n = m Const er As Byte = 2 Dim returns As String Dim shang As Byte Dim yu

2016-04-28 17:04:14 281

原创循环结构计算十个数的和

1 Private Sub Command1_Click() Cls Dim n As Integer Dim s As Integer Dim a(10) As Integer n = 1 While n a(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n Print a(n) n = n + 1 Wend

2016-04-28 16:20:57 1294

原创计算随机十个数的和

1 Private Sub Command1_Click() Cls Dim n As Integer Dim s As Integer Dim a(10) As Integer n = 1 While n a(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n Print a(n) n = n + 1 Wend

2016-04-21 16:27:35 507

原创一位数乘以一位数

Dim n1 As Byte Dim n2 As Byte Dim shang As Byte Dim yushu As Byte Dim tempresult As Byte n1 = Int(Val(Me.Text1.Text)) n2 = Int(Val(Me.Text2.Text)) tempresult = n1 * n2 yushu = tempresult Mod 1

2016-04-21 16:25:46 295

原创两位数乘以一位数

2Me.Font.Size = 70 Dim n1() As Byte, n1Len As Long Dim n2() As Byte, n2Len As Long Dim yushu1 As Byte, yushu2 As Byte Dim shang As Byte Dim tempResult As Byte n1Len = Len

2016-04-21 16:21:39 249

原创排序高级

Option Base 1 Private Sub Command1_Click() Cls Dim n As Integer Dim size As Integer size = Int(Val(Me.Text1.Text)) Dim wzs() As Integer ReDim wzs(size) n = LBound(wzs) While n wzs

2016-03-31 16:54:19 259

原创把最小数放到最后

Private Sub Command1_Click() Cls Dim n As Integer Dim wzs(10) As Integer Dim swap As Integer n = 1 While n wzs(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n If wzs(n) swap = wzs(

2016-03-31 16:53:00 301

原创生成十个数

Cls Dim n As Integer Dim wzs(10) As Integer n = 1 While n wzs(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n Print wzs(n) n = n + 1 Wend

2016-03-31 16:47:49 304

转载 vb排序

1.打开VB软件 2.单击TextBox,放在窗体合适位置，再单击CommandButton,放在窗体合适位置，并将command1属性中名称和caption改为排序，然后双击排序，输入： Private Sub 排序_Click() Cls Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim Swap As Integer

2016-03-26 17:35:49 470

原创 vb排序

1.打开VB软件 2.单击TextBox,放在窗体合适位置，再单击CommandButton,放在窗体合适位置，并将command1属性中名称和caption改为排序，然后双击排序，输入： Private Sub 排序_Click() Cls Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim Swap As Integer

2016-03-26 17:31:02 546

原创 vb计时器制作第二节

1.打开vb 2.左击工具栏中的timer，在form1中拖动会出现timer图标双击timer图标，在弹出的窗口中输入“屏幕1.caption=timer（）”，将timer1属性栏中的interval改为1000. 3.左击工具栏中的A图标，在form1中拖动会出现label，在右方label1属性栏中的名称改为屏幕1。 4.双击空白处会弹出一个窗口，输入“me.timer1.enabl

2016-03-10 17:26:56 561