cai18732646484
码龄9年
求更新 关注
提问 私信
  • 博客:12,268
    12,268
    总访问量
  • 10
    原创
  • 3
    粉丝
  • 4
    关注
IP属地以运营商信息为准,境内显示到省(区、市),境外显示到国家(地区)
IP 属地:河北省
加入CSDN时间: 2016-03-17
博客简介:

cai18732646484的博客

查看详细资料
个人成就
  • 获得0次点赞
  • 内容获得0次评论
  • 获得2次收藏
  • 博客总排名1,911,359名
  • 原力等级
    原力等级
    0
    原力分
    0
    本月获得
    0
创作历程
  • 10篇
    2016年
成就勋章

TA关注的专栏 0

TA关注的收藏夹 0

TA关注的社区 0

TA参与的活动 0

创作活动更多

新星杯·14天创作挑战营·第13期

这是一个以写作博客为目的的创作活动,旨在鼓励大学生博主们挖掘自己的创作潜能,展现自己的写作才华。如果你是一位热爱写作的、想要展现自己创作才华的小伙伴,那么,快来参加吧!我们一起发掘写作的魅力,书写出属于我们的故事。我们诚挚邀请你们参加为期14天的创作挑战赛!注: 1、参赛者可以进入活动群进行交流、互相鼓励与支持(开卷),虚竹哥会分享创作心得和涨粉心得,答疑及活动群请见:https://bbs.csdn.net/topics/619781944 【进活动群,得奖概率会更大,因为有辅导】 2、文章质量分查询:https://www.csdn.net/qc

91人参与 去参加
  • 最近
  • 文章
  • 专栏
  • 代码仓
  • 资源
  • 收藏
  • 关注/订阅/互动
更多
  • 最近

  • 文章

  • 专栏

  • 代码仓

  • 资源

  • 收藏

  • 关注/订阅/互动

  • 社区

  • 帖子

  • 问答

  • 课程

  • 视频

搜索 取消

VB中的二维鞍点

今天学习了用vb的程序输出一个二维鞍点,程序如下:Option Base 1Dim anma() As IntegerDim m As Byte, n As BytePrivate Sub Command1_Click()    Cls    Me.Font.Size = 30    m = 5: n = 6    ReDim anma(m, n)    Dim
原创
博文更新于 2016.06.02 ·
1496 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

冒泡排序法---vb

Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 1000)Print a(i);Next iPrintFor i = 1 To 9For j = 1 To 10 - i
原创
博文更新于 2016.05.19 ·
2424 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

vb中的十六进制

Private Sub Command1_Click()Me.Font.Size = 50Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 230: b = 16While a yushu = a Mod bIf yushu s = yushu & sElses =
原创
博文更新于 2016.05.19 ·
1948 阅读 ·
0 点赞 ·
0 评论 ·
1 收藏

多位数乘两位数乘法

1.打开VB程序,在窗口中创建一个Command窗体和两个Text窗体。2.将Command窗体改名为乘法,Text窗体删除命名。3.双击Command窗体,在弹出的的窗口中输入以下内容ClsDim c As ByteDim a() As ByteDim b As StringDim changdu As Long, i As Longchangdu = Len(T
原创
博文更新于 2016.04.21 ·
1717 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

给随机的十个数求和

1.在左侧的工具栏中找到commandbutton,并在窗体的适当位置创建。2.双击command1,在弹出的窗口中输入以下内容Private Sub Command1_Click()ClsFont.Size = 20Dim n As IntegerDim a(10) As Integern = 1While n    a(n) = Int(Rnd * 1000
原创
博文更新于 2016.04.11 ·
565 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

给随机的一组数排序

1.在左侧的工具栏中找到Commandbutton并创建2.双击Command1,在弹出的窗口中输入以下内容Option Base 1Private Sub Command1_Click()ClsFont.size = 20Dim n As IntegerDim size As Integersize = Int(Val(Me.Text1.Text))Dim s
原创
博文更新于 2016.03.31 ·
529 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

随机输出十个数且最后一个最小

1.在左侧工具栏中找到一个Commandbutton图标,并在适当位置创建。2.双击Command1,在弹出的窗体中输入以下程序内容ClsFont.Size = 20Dim n As IntegerDim sierdun(10) As Integern = 1While n     sierdun(n) = Int(Rnd * 1000)    n =
原创
博文更新于 2016.03.31 ·
244 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

给一组随机数排序

1.打开VB程序软件2.在左侧的工具栏中找到TextBox,如图,并新建一个Text,输入其名称 abcdefghijklmno.3.同样在左侧的工具栏中找到CommandButton并新建,并给其改名为排列。得到如下图形4.双击打开CommandButton,在所探出的窗口中输入以下内容:ClsDim a As IntegerDim b As Inte
原创
博文更新于 2016.03.28 ·
489 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

红糖水与白糖水的交换

1.在工具箱窗口找到Label图标,单击图标并在窗体中适当位置创建,在属性窗口中找到“caption”一栏并将后面改为“红糖水”。在属性窗口中,双击forecolor将后面字体颜色改为红色,双击 font将后面的字体调整为适当大小,双击backcolor将背景颜色改为灰色。
原创
博文更新于 2016.03.26 ·
229 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

VB中数字的交换

1.首先,在左侧工具栏中找到command button的图标,并在适当位置处创建。2.在属性窗口中找到capition并在他的后面将名字改为“交换”。3.在窗体中双击“交换”,并在弹出的对话框中输入以下内容ClsDim b As IntegerDim c As IntegerDim d As Integerc = Int(Rnd() * 1000)b = Int(
原创
博文更新于 2016.03.26 ·
2628 阅读 ·
0 点赞 ·
0 评论 ·
1 收藏