自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(8)
  • 收藏
  • 关注

原创 两位数乘一位数

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 547

原创 任意十个数求和

打开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 1152

原创 随机十个数求和

打开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 720

原创 随机选十个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 508

原创 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 311

原创 对十五个数进行变换

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

2016-03-31 16:10:19 276

原创 vb中两个数的比较

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

2016-03-28 14:28:21 1076

原创 红糖水 白糖水的对换

红糖水白糖水的转换

2016-03-28 14:21:14 309

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除