雪样年华-优快云博客

原创随机生成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 21:01:18 707

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

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 20:58:18 1033

原创十个数的大小的比较

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 20:57:13 359

原创三个数大小的比较

在窗体上插入三个文本框，一个按钮，输入代码：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 20:55:54 282

原创 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 20:55:04 488

原创两个数大小的比较

在窗体上插入两个标签，两个文本框，一个按钮。输入代码：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 20:50:58 451

原创 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 20:49:31 309

原创计算出生那天是星期几

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 20:47:57 683

原创生成随机整数

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

2012-05-29 20:47:12 355

原创随机生成图形

在窗体上画一个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 20:46:31 280

原创大小写转换

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

2012-05-29 20:45:07 281

原创数的乘法计算

新建一个窗体，插入三个标签，分别为“M”,“N”,“空白”。再插入两个Text，caption为“空白”。应用按钮控件，属性改为“计算”。在通用声明段输入Option Base 1 Private Sub Command1_Click() Dim M As String Dim N As String M = Tri

2012-05-29 20:43:43 222

原创实现能动的图形

首先打开VB程序，在对象视图的窗口中画一个commandbutton，将其caption属性改为“开始运动”，然后在对象视图窗口插入一个timer，将其interval属性改为1000，enabled属性改为false，之后再用“shape”画一个圆于对象视图窗口，这样视图窗口的操作就完成了，之后是编辑代码，实现能动的图形。将对象窗口改为代码窗口，输入代码，Dim g As B

2012-04-02 21:51:32 236

原创计算机单精度数据

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

2012-04-02 21:41:04 441

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

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

2012-04-02 21:38:45 474

雪样年华