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