- 博客(6)
- 收藏
- 关注
RSS订阅原创 保证最后3个数字是最小的
打开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:42:55
205
原创 最终实现任意个数字排序
打开VB软件在左侧工具箱中找到command的图标，在窗体中适当位置创建图标，在左侧找到Text文本框的图标，在窗体中适当位置创建图表。双击窗体中command图标，在上方command1箭头后面修改为通用，输入以下代码Option Base 1在Private Sub Command1_Click()下输入以下代码ClsFont.size = 30Dim n As Int
2016-04-21 16:34:25
234
原创 对任意十个数求和
打开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:30:12
552
原创 VB中随机数ab的大小比较
打开vb在左侧工具箱中找到command的图标，在窗体中适当位置创建图标，并在窗体command图标中修改为“排序”。在左侧工具箱找到textbox的图标，在窗体中恰当位置创建图标。在窗体中双击command图标，在弹出的对话框中输入下列代码：Clsme.font.size=50 Dim a As IntegerDim b A
2016-03-31 17:27:25
631
原创 红糖水和白糖水的交换
打开VB软件在左侧工具箱窗口找到Label按钮，在窗体中合适位置创建一个图标，在右侧属性窗口中找到“caption”一栏并将后面改为“红糖水”。在属性窗口中，双击forecolor将字体颜色改为红色，双击font将后面的字体调整为适当大小，双击backcolor选择适当背景颜色。在左侧工具箱窗口找到Label按钮，在窗体中合适位置创建一个图标，在右侧属性窗口中找到“capt
2016-03-31 17:25:55
205
原创 比较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-31 17:23:31
179
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人