- 博客(19)
- 收藏
- 关注
RSS订阅原创 个人信息
Private Type studentname As String * 3stuNo As String * 11sex As Booleanage As Byteprof As String * 2grade As SingleEnd TypePrivate Sub Command1_Click()Dim qiehuimin As studentqi
2016-06-16 17:56:00
240
原创 鞍点
生成五行六列的数（在1~100之间），即分别定义i,j，通过循环生成二维数组。找出每一行的最大值并标记，通过循环，若a>b为假，不交换两个数，如果a>b为真，把b的值给a.假设第一行第一列的数最大，那么在第一行此数会依次与第二行、第三行。。。进行比较，如果后一个数比前一个数大，那么此数的列号会被记录。（其他行也用此方法找出行最大数）分析上步所得的行最大数是不是所在列的列最小
2016-06-16 17:54:00
397
原创 鞍点
Option Base 1 Dim anma() As IntegerDim m As Byte, n As Byte Private Sub Command1_Click()Clsm = 5: n = 6ReDim anma(m, n)
2016-06-16 17:36:09
303
原创 登陆界面
Option ExplicitConst MaxLoginTimes As Integer = 3Private Sub cmdLogin_Click() Static loginTimes As Integer loginTimes = loginTimes + 1If loginTimes On Error GoTo ppp Dim Cn
2016-06-16 17:34:40
209
原创 转化为十六的数
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 1230: b = 16While a yushu = a Mod bIf yushu s = yushu & sElses = Chr(yushu + 55) &
2016-05-12 17:24:30
337
原创 比较数的大小
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:22:20
268
原创 比较数的大小
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:20:49
210
原创 两位数乘以一位数
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.Text
2016-04-28 17:05:48
377
原创 二进制的转换
Private Sub Command1_Click()Print erjinzhi(2)End SubPrivate Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 2Dim returns As StringDim shang As ByteDim yu
2016-04-28 17:04:14
263
原创 循环结构计算十个数的和
1 Private Sub Command1_Click()ClsDim n As IntegerDim s As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print a(n)n = n + 1Wend
2016-04-28 16:20:57
1251
原创 计算随机十个数的和
1 Private Sub Command1_Click()ClsDim n As IntegerDim s As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print a(n)n = n + 1Wend
2016-04-21 16:27:35
490
原创 一位数乘以一位数
Dim n1 As ByteDim n2 As ByteDim shang As ByteDim yushu As ByteDim tempresult As Byten1 = Int(Val(Me.Text1.Text))n2 = Int(Val(Me.Text2.Text))tempresult = n1 * n2yushu = tempresult Mod 1
2016-04-21 16:25:46
273
原创 两位数乘以一位数
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
230
原创 排序高级
Option Base 1Private Sub Command1_Click()ClsDim n As IntegerDim size As Integersize = Int(Val(Me.Text1.Text))Dim wzs() As IntegerReDim wzs(size)n = LBound(wzs)While n wzs
2016-03-31 16:54:19
240
原创 把最小数放到最后
Private Sub Command1_Click()ClsDim n As IntegerDim wzs(10) As IntegerDim swap As Integern = 1While n wzs(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n If wzs(n) swap = wzs(
2016-03-31 16:53:00
276
原创 生成十个数
ClsDim n As IntegerDim wzs(10) As Integern = 1While n wzs(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print wzs(n)n = n + 1Wend
2016-03-31 16:47:49
291
转载 vb排序
1.打开VB软件2.单击TextBox,放在窗体合适位置，再单击CommandButton,放在窗体合适位置，并将command1属性中名称和caption改为排序，然后双击排序，输入：Private Sub 排序_Click()ClsMe.Font.Size = 50Dim a As IntegerDim b As IntegerDim Swap As Integer
2016-03-26 17:35:49
451
原创 vb排序
1.打开VB软件2.单击TextBox,放在窗体合适位置，再单击CommandButton,放在窗体合适位置，并将command1属性中名称和caption改为排序，然后双击排序，输入：Private Sub 排序_Click()ClsMe.Font.Size = 50Dim a As IntegerDim b As IntegerDim Swap As Integer
2016-03-26 17:31:02
512
原创 vb计时器制作第二节
1.打开vb2.左击工具栏中的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
528
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人