- 博客(6)
- 收藏
- 关注
RSS订阅原创 .....
Private Sub Command1_Click() Open "D:\15050341033\temp.txt" For Output As #1 Cls Dim a(1 To 1000000) As Long Dim i As Long Dim j As Long Dim t As
2016-05-17 20:43:29
155
原创 两个数的乘积
Dim n1() As Byte, n1len As Long Dim n2() As Byte, n2len As Long Dim yushu As Byte Dim shang As Byte Dim tempResule As Byte n1len = Len(Me.Text1.Text) n2len = Len(Me.Text2.Text) ReDim n1(n1len)
2016-04-14 17:31:11
916
原创 十个随机数求和
1 Private Sub Command1_Click() Cls Dim n As Integer, s As Integer, 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 Wen
2016-04-12 16:12:55
529
原创 5个随机数排序
一.输出五个随机数 在左侧工具栏中，选择按钮型图标“CommandButton”按钮，再在右侧Form1中空白区域选择大小适宜的区域，出现按钮型图标后，选中图标，在右下角，将表格中“Caption”后面的“Command1”改成“输出”，双击图标，输入如下 Private Sub Command1_Click() Cls Dim n As Integer Dim a(5) As Inte
2016-04-05 19:55:06
1777
原创 排序
1.打开VB。 2.在左侧工具栏中，选择按钮型图标“CommandButtion”按钮，再往右侧Form1中的空白区域选择任意区域，出现按钮图标后，选中图标，在右下角表格中把“Caption”后面的“Command1”改变成“变换”，双击图标，输入如下： Cls Dim a As Integer，b As Integer ，c As Integer a=-1：b=2 Print “a=
2016-03-29 17:03:43
178
转载 闹钟制作
1.打开VB设计软件 2.在左侧工具栏中找到闹钟图标，点击，然后在右侧Form1的空白区域中选择任意区域，出现闹钟图标，点击图标在右侧表格中将Interval后面的0改为1000，双击图标输入“屏幕1.caption=time（）”，关闭窗口。 3.在左侧工具栏中，选择A型图标Label按钮，再在右侧Form1中空白区域选择任意区域，出现一个空白区域，选中该图标，在右下角表格中“名称”后面的“
2016-03-29 16:44:09
337
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人