zhao15050342044-优快云博客

原创对任意10个数字求和（2）

打开vb在左侧找到commmand图标，然后再form区域中适当位置创建，双击图标，在弹出的表框中输入以下代码：Dim sum As IntegerDim i As IntegerDim a As IntegerPrivate Sub Command1_Click() sum = 0 i = 1 Do Randomize

2016-04-21 16:32:09 641

原创对任意10个数字求和（6）

option explicitdim i as integerdim a(10)as integerdim sum as integerrandomizefor i=1 to 10 a(i)=int(rnd*1000)+1 sum=sum+a(i)next iprint sum

2016-04-21 16:30:47 1454

原创两位数与一位数相乘求和

打开VB，在form窗口中创建command和两个text的图标，双击command，输入以下代码：Option Base 1Private Sub Command1_Click()Me.Font.Size = 70Dim n1() As Byte, n1len As LongDim n2() As Byte, n2len As LongDim yushu1 As By

2016-04-21 16:29:40 417

原创对任意数字求和（7）

打开VB，在form窗口中创建command的图标，然后双击图标；输入以下代码：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

2016-04-21 16:27:17 424

原创是个末排序的数字

打开VB软件在左侧工具箱中找到command的图标，在窗体中适当位置创建图标，在右侧属性窗口中caption后边改为“交换”。双击窗体中command图标，在弹出的对话框中输入下列编码： Clsme.font.size=50Dim a As IntegerDim b As IntegerDim c As Integer

2016-04-21 16:25:09 265

原创保证最后三个数字为最小的

打开VB，然后在左侧找到command图标，在form窗口上创建图标，然后双击图标进入输入代码界面，输入下列代码:(适当修改界面字体大小)Private Sub Command1_Click()ClsFont.Size = 30Dim sierdun(10) As Integern = 1While n sierdun(n) = Int(Rnd * 1000

2016-04-21 16:22:30 228

原创最终实现任意个数字排序

打开VB软件在左侧工具箱中找到command的图标，在窗体中适当位置创建图标，在左侧找到Text文本框的图标，在窗体中适当位置创建图表。双击窗体中command图标，在上方command1箭头后面修改为通用，输入以下代码Option Base 1在Private Sub Command1_Click()下输入以下代码ClsFont.size = 30Dim n As Int

2016-04-21 16:20:38 294

原创对任意十个数求和（5）

打开vb在左侧找到commmand图标，然后再form区域中适当位置创建，双击图标，在弹出的表框中输入以下代码：(将command修改为求和)Dim sum As IntegerDim i As IntegerDim a As IntegerPrivate Sub Command1_Click() sum = 0 i = 1 Do While

2016-04-21 16:19:32 369

原创对任意十个数求和（4）

打开vb在左侧找到commmand图标，然后再form区域中适当位置创建，双击图标，在弹出的表框中输入以下代码：(将command修改为求和)Dim sum As IntegerDim i As IntegerDim a As IntegerPrivate Sub Command1_Click() sum = 0 i = 1 Do Until

2016-04-21 16:18:25 632

原创对任意十个数求和（3）

打开vb在左侧找到commmand图标，然后再form区域中适当位置创建，双击图标，在弹出的表框中输入以下代码：（将command修改为求和）Dim sum As IntegerDim i As IntegerDim a As IntegerPrivate Sub Command1_Click() sum = 0 i = 1 Do

2016-04-21 16:17:23 500

原创实现十个数排列

打开VB软件在左侧工具箱中找到command的图标，在窗体中适当位置创建图标。双击窗体中command图标，在弹出的对话框中输入下列编码：Private Sub Command1_Click()ClsFont.Size = 30Dim sierdun(10) As Integern = 1While n sierdun(n) = Int(Rnd * 1000

2016-04-21 16:16:21 306

原创对任意随机10个数求和（1）

打开vb在左侧找到commmand图标，然后再form区域中适当位置创建，双击图标，在弹出的表框中输入以下代码：Dim sum As IntegerDim i As IntegerDim a As IntegerPrivate Sub Command1_Click() sum = 0 For i = 1 To 10 Randomize

2016-04-14 17:32:00 1159

原创比较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-28 14:40:52 233

原创 VB中随机数ab的比较大小

打开vb在左侧工具箱中找到command的图标，在窗体中适当位置创建图标，并在窗体command图标中修改为“排序”。在左侧工具箱找到textbox的图标，在窗体中恰当位置创建图标。在窗体中双击command图标，在弹出的对话框中输入下列代码：Clsme.font.size=50 Dim a As IntegerDim b A

2016-03-28 14:14:28 1056

原创红糖水与白糖水的交换

打开VB软件在左侧工具箱窗口找到Label，在窗体中适当位置创建一个图标，在右侧属性窗口中找到“caption”一栏并将后面改为“红糖水”。在属性窗口中，双击forecolor将字体颜色改为红色，双击font将后面的字体调整为适当大小，双击backcolor选择适当背景颜色。在左侧工具箱窗口找到Label，在窗体中适当位置创建一个图标，在右侧属性窗口中找到“captio

2016-03-27 09:56:07 255

zhao15050342044的博客