- 博客(6)
- 收藏
- 关注
RSS订阅原创 鞍点
Private Sub Command1_Click()ClsDim a() As IntegerDim m As Byte, n As Byten = 5: m = 6ReDim a(m, n)Dim i As Byte, j As ByteFor i = 1 To m For j = 1 To n a(i, j) = 10 + Int(Rnd
2016-06-16 17:19:49
285
原创 多位数乘一位数并输入到文本文档中
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-06-16 17:17:52
193
原创 选择法排序
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-06-16 17:11:15
210
原创 冒泡法排序
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-06-16 17:09:25
219
原创 15电气臧洪颖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-30 07:16:35
337
原创 15电气臧洪颖比较两个数的大小
实验名称；比较两个数的大小1打开电脑桌面上的vb。2鼠标单击左侧工具栏中的command button,在form1中，按住鼠标左键拖曳，直到出现一个小窗口。3双击此窗口，在弹出的窗口中输入以下内容；clsme.font.size=50dim a as integerdim b as integerdim swap as intege
2016-03-30 07:13:26
255
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人