zhangpei731327678
码龄13年
求更新 关注
提问 私信
  • 博客:2,520
    2,520
    总访问量
  • 6
    原创
  • 1
    粉丝
  • 1
    关注
IP属地以运营商信息为准,境内显示到省(区、市),境外显示到国家(地区)
IP 属地:河北省
加入CSDN时间: 2012-03-21
博客简介:

zhangpei731327678的专栏

查看详细资料
个人成就
  • 获得0次点赞
  • 内容获得0次评论
  • 获得0次收藏
  • 博客总排名1,937,985名
  • 原力等级
    原力等级
    0
    原力分
    0
    本月获得
    0
创作历程
  • 7篇
    2012年

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

Private Sub Command1_Click()Dim numberlengh As Integer  Dim Firstnumbers() As Integer  Dim Secondnumbers() As Integer   numberlengh = Len(Text1.Text)   ReDim Firstnumbers(numbe
原创
博文更新于 2012.05.21 ·
301 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

vb

Private Sub Command1_Click()Dim a As IntegerDim b As Integera = Text1.Textb = Text2.TextIf a > b ThenPrint aElsePrint bEnd IfEnd Sub第一个 Private Sub Command1_Click()Dim a
原创
博文更新于 2012.05.21 ·
201 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

vb

Private Sub Command1_Click()If Trim(Text1.Text) = "" Then Text1.Text = "0"'调用自定义函数Label3.Caption = transth(Val(Text1.Text).true)Label4.Caption = "摄氏度"Label5.Caption = "华氏度"End SubPriva
原创
博文更新于 2012.05.21 ·
280 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

能动的图片

Timer1.Enabled = TrueTimer1.Interval = 100End SubPrivate Sub Command2_Click()Form1.ClsEnd SubPrivate Sub Command3_Click()Timer1 = FalseEnd SubPrivate Sub Form_MouseDown(Button
原创
博文更新于 2012.04.05 ·
413 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

第一节vb课

vb,刚开始听时不知道这门课是关于什么,抱着激动与好奇的心情去上第一节vb课,后来我知道vb是计算机程序设计的,因为是第一节课,我们刚刚接触这门课,所以第一步是模仿,老司机给出我们程序,然后上机做,整个过程出现了一些问题,例如:编译错误和缺少等,所以在学习vb是要认真。
原创
博文更新于 2012.03.28 ·
492 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

两位数的乘法程序设计

Private Sub Command1_Click()Dim numberlengh As Integer   Dim Firstnumbers() As Integer   Dim Secondnumbers() As Integer    numberlengh = Len(Text1.Text)     ReDim Firstnumbers(numberleng
翻译
博文更新于 2012.03.28 ·
581 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

计算机程序设计

今天学两位数的乘法程序设计,在半晕状态下听完老师讲的,编程需要自己有一定的逻辑能力,并且理解各个代码的意思。
原创
博文更新于 2012.03.28 ·
251 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏