雪样年华
码龄13年
关注
提问 私信
  • 博客：6,579
    6,579
    总访问量
  • 15
    原创
  • 518,682
    排名
  • 0
    粉丝
  • 0
    铁粉
IP属地以运营商信息为准，境内显示到省（区、市），境外显示到国家（地区）
IP 属地：河北省
  • 加入CSDN时间： 2012-03-26
博客简介：

雪样年华

博客描述：
精彩的VB生活！
查看详细资料
  • 原力等级
    当前等级
    0
    当前总分
    0
    当月
    0
个人成就
  • 获得0次点赞
  • 内容获得0次评论
  • 获得0次收藏
创作历程
  • 15篇
    2012年
创作活动更多

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

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

475人参与 去参加
  • 最近
  • 文章
  • 代码仓
  • 资源
  • 问答
  • 帖子
  • 视频
  • 课程
  • 关注/订阅/互动
  • 收藏
搜TA的内容
搜索 取消

随机生成n个不同的整数

Private Sub command1_click()   Dim a() As Integer 'a用来存放生成的随机n个正整数       n = InputBox("请输入一个整数n,n>=1")   ReDim a(1 To n)   Dim p As String 'p表示随机生成的n个整数   Randomize       p = "
原创
发布博客 2012.05.29 ·
707 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

实现华氏温度与摄氏温度的转换

Option ExplicitPrivate Sub Command1_Click()   IfTrim(Text1.Text) = "" Then Text1.Text = "0"  Label3.Caption = transth(Val(Text1.Text), True)  Label4.Caption = "摄氏度"  Label5.Caption = "华氏度"
原创
发布博客 2012.05.29 ·
1031 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

十个数的大小的比较

Private Sub Command1_Click()  Dima As Integer  Dimb As Integer  Dimc As Integer  Dim f(i) As String    c = f(i)  a =12  b =6  Ifa > b Then    mymax = a Else    mymax = b  E
原创
发布博客 2012.05.29 ·
359 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

三个数大小的比较

在窗体上插入三个文本框，一个按钮，输入代码：Private SubCommand1_Click()  Dim a As Integer  Dim b As Integer  Dim c As Integer    a = Text1.Text  b = Text2.Text  c = Text3.Text  If a > bThen   Max = a
原创
发布博客 2012.05.29 ·
280 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

1000~2000内能被17和37整除的数

Private Function judge(N As Integer) AsBooleanjudge = (N Mod 17 = 0 And N Mod 37 = 0) End Function Private Sub Form_Click()Dim i As IntegerFor i = 1000 To 2000If judge(i) ThenPrint i
原创
发布博客 2012.05.29 ·
488 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

两个数大小的比较

在窗体上插入两个标签，两个文本框，一个按钮。输入代码：Private Sub Command1_Click()  Dima As Integer  Dimb As Integer      a =Text1.Text  b =Text2.TextIf a > b Then Print aElse Print bEnd If End Sub
原创
发布博客 2012.05.29 ·
449 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

100以内素数的和

Private Sub Form_Load()  Dims As Integer, n As IntegerShow s =0: n = 2Do While n  s =s + n n =m   Dimx As Integer Dimflag As Boolean x =m - 1 flag= FalseWhile x >= 2 If mMo
原创
发布博客 2012.05.29 ·
308 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

计算出生那天是星期几

Private Sub Command1_Click()  Dimyear As Integer  Dimmonth As Integer  Dimday As Integer  Dimweekofday As Byte  Dimbirthday As Dateyear = Int(Val(Text1.Text))month = Int(Val(Text2.Text))
原创
发布博客 2012.05.29 ·
683 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

生成随机整数

用Int和Rnd函数生成指定范围的随机整数；用Randmize函数初始化随机数发生器；用Val函数将数字字符串转换为数值。在窗体上放置三个文本框，分别用于输入随机数的上界和下界，显示生成的随机整数；一个命令按钮用于执行随机整数的生成和显示；三个标签，用于对文本框作简要说明。输入代码如下：Private Sub Command1_Click()Dim m As Integer
原创
发布博客 2012.05.29 ·
354 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

随机生成图形

在窗体上画一个commandbutton按钮，双击按钮编写程序语言，其语言如下：Private Sub Command1_Click()  Show  Me.Scale (0, 0)-(18, 8)  Me.AutoRedraw = True  Me.DrawMode = 2  Circle (3, 4), 3, vbRed  Me.AutoRedraw = False
原创
发布博客 2012.05.29 ·
279 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

大小写转换

1.    建立窗体，在窗体上画出一个Label,输入文字如下：“英文字母如下：”，再画出一个Text，再画出三个command按钮，分别输入以下文字“转大写”，“转小写”，“还原”。2.    编写代码：在通用生命段中输入程序语言，如下：dim x as string点击Text编写如下程序：Private sub form_load() X=text1.text
原创
发布博客 2012.05.29 ·
280 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

数的乘法计算

新建一个窗体，插入三个标签，分别为“M”,“N”,“空白”。再插入两个Text，caption为“空白”。应用按钮控件，属性改为“计算”。  在通用声明段输入Option Base 1 Private Sub Command1_Click()     Dim M As String   Dim N As String    M = Tri
原创
发布博客 2012.05.29 ·
221 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

实现能动的图形

首先打开VB程序，在对象视图的窗口中画一个commandbutton，将其caption属性改为“开始运动”，然后在对象视图窗口插入一个timer，将其interval属性改为1000，enabled属性改为false，之后再用“shape”画一个圆于对象视图窗口，这样视图窗口的操作就完成了，之后是编辑代码，实现能动的图形。      将对象窗口改为代码窗口，输入代码，Dim g As B
原创
发布博客 2012.04.02 ·
235 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

计算机单精度数据

选用单精度数据，是说你让电脑用较少的空间存放数据，表现为精确到小数点后5位，并且第五个小数还是四舍五入得到的，如果你用双精度定义数据，是说你用较多的空间存放同一个数，表现为小数点后较多的位数，同样最后一位仍然是四舍五入得到。这就是区分单双精度的原因。        单精度表示13.25： (13.25)10=1*101+3*100+2*10-1+2*10-2
原创
发布博客 2012.04.02 ·
436 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

第一次接触程序设计的感想（2012-2-15）

今天是有生以来第一次接触程序设计，感觉挺好玩的，嘿嘿，虽然遇到了一点问题，但经过自己的努力得到的结果总是让人满意的。在完成任务的过程中，由于少输入了一个小框框，总是不呢不能成功，经过学姐的指点，我成功了，周边的同学也几乎都出现了各种各样的错误，很多是由于自己的一点小马虎，这让我知道了做事严谨的重要，以后做事一定会认认真真的完成，不要让那一点细节影响了整个过程。同学总说程序设计很难，但是我相
原创
发布博客 2012.04.02 ·
469 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏
加载更多