- 博客(9)
- 收藏
- 关注
RSS订阅原创 电气2班徐立立（随机产生100个数并排序）
随机产生一百个数并进行排序冒泡法Dim a(1 To 100) As IntegerPrivate Sub Command1_Click() Form_LoadEnd SubPrivate Sub Command2_Click() p = "" For i = 1 To 99 For j = 1 To 100 - i I
2016-05-19 17:46:54
240
原创 15电气徐立立（十进制转为十六进制）
打开软件，在command中进行编译。当n=23时，Private Sub Command1_Click()Dim n As Stringn = 23Const shiliu As Byte = 16Dim returnS As StringDim shang As ByteDim yushu(1 To 3) As ByteDim i As Bytei =
2016-05-07 17:11:46
264
原创 15电气二班徐立立（十进制转为二进制）
打开VB软件，在command中进行编译，程序如下：当n=23时，Private Sub Command1_Click()Dim n As Byten = 23Const er As Byte = 2Dim returnS As StringDim shang As ByteDim yushu(1 To 5) As ByteDim i As Bytei =
2016-04-28 17:18:24
264
原创 15电气二班徐立立（几位数乘以一位数）
Private Sub Command1_Click()ClsDim a() As ByteDim b As StringDim c As ByteDim c1 As ByteDim c2 As ByteDim i As Long, changdu As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i =
2016-04-21 17:24:40
224
原创 15电气2班徐立立(两位数乘以一位数）
在通用中编译Dim sum As IntegerDim i As IntegerDim a As Integer在command1中编译第一种：Private Sub Command1_Click() sum = 0 For i = 1 To 10 Randomize a = Int(1000 * Rnd)
2016-04-21 16:39:52
251
原创 随机排序
Private Sub Command1_Click() Cls Font.size = 30 Dim n As Integer Dim size As Integer size = Int(Val(Text1.Text)) Dim sierdun() As Integer ReDim sierdun(size) As In
2016-04-01 16:07:25
222
原创 排序
Private Sub Command1_Click() Cls Font.Size = 30 Dim n As Integer Dim sierdun(15) As Integer n = 1 While n sierdun(n) = Int(Rnd * 1000) n = n
2016-04-01 16:04:52
160
原创 红糖水与白糖水的交换
打开VB软件在左侧工具箱窗口找到Label，在窗体中适当位置创建一个图标，在右侧属性窗口中找到“caption”一栏并将后面改为“红糖水”。在属性窗口中，双击forecolor将字体颜色改为红色，双击font将后面的字体调整为适当大小，双击backcolor选择适当背景颜色。在左侧工具箱窗口找到Label，在窗体中适当位置创建一个图标，在右侧属性窗口中找到“captio
2016-03-28 15:16:50
171
原创 15个数排序
在command1中编辑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 Integer
2016-03-26 16:20:07
175
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人