- 博客(8)
- 收藏
- 关注
RSS订阅原创 两位数乘一位数
1.打开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
2016-04-21 16:20:59
549
原创 任意十个数求和
打开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:10:38
1154
原创 随机十个数求和
打开vb在左侧找到commmand图标，然后再form区域中适当位置创建，双击图标，在弹出的表框中输入以下代码：（将command修改为求和）Dim sum As IntegerDim i As IntegerDim a As IntegerPrivate Sub Command1_Click() sum = 0 i = 1 Do
2016-04-14 16:16:53
722
原创 随机选十个0-1000的数并求和
Private Sub Command1_Click()Dim i As IntegerDim a(10) As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd * 1000) + 1Sum = Sum + a(i)Next iPrint SumEnd Sub
2016-04-07 16:26:55
513
原创 sierdun
Private Sub Command1_Click()ClsFont.Size = 30Dim sierdun(15) As Integern = 1While n sierdun(n) = Int(Rnd * 1000) n = n + 1Wendn = 1While n If sierdun(n) swap
2016-03-31 16:38:36
312
原创 对十五个数进行变换
打开VB软件在左侧工具箱中找到command的图标，在窗体中适当位置创建图标，在右侧属性窗口中caption后边改为“交换”。双击窗体中command图标，在弹出的对话框中输入下列编码： Clsme.font.size=50Dim a As IntegerDim b As IntegerDim c As Integer
2016-03-31 16:10:19
277
原创 vb中两个数的比较
打开vb在左侧工具箱中找到command的图标，在窗体中适当位置创建图标，并在窗体command图标中修改为“排序”。在左侧工具箱找到textbox的图标，在窗体中恰当位置创建图标。在窗体中双击command图标，在弹出的对话框中输入下列代码：Clsme.font.size=50 Dim a As IntegerDim b
2016-03-28 14:28:21
1076
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人