vanvae-CSDN博客

原创素数

代码如下：Private Function Judge()Dim b As Integerb = b / 1 * bEnd FunctionPrivate Sub Command1_Click()Dim a As Integer, b As IntegerShowa = 0: b = 1If Judge(b Doa = a + bb = b + 1

2012-05-08 21:03:43 283

原创判断整除并求和

代码如下：Private Sub Command1_Click()Dim m As Integer, n As Integer, d As IntegerDim s As Longm = Val(Text1.Text)n = Val(Text2.Text)d = Val(Text3.Text)s = 0Sum m, n, d, sLabel4.Caption

2012-05-08 21:02:56 291

原创摄氏度与华氏度之间的转换

代码如下： Option ExplicitPrivate Function TransTh(sngT As Single, blnCtoF As Boolean) As String If blnCtoF Then TransTh = Format(sngT * 9 / 5 + 32, "0.#") Else TransTh = Format((

2012-05-08 21:02:01 709

原创随机生成10个数并选出最大值

代码如下：Private Function max(a() As Integer) As IntegerDim i As IntegerDim maxa As IntegerFor i = LBound(a) To UBound(a)If a(i) > maxa Thenmaxa = a(i)max = maxaEnd IfNext iEnd Functio

2012-05-08 21:00:45 1046

原创比较三个数的大小

代码如下: Private Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerDim max As Integera = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a > b Thenmax = aElsem

2012-05-08 20:59:37 437

原创比较两个数的大小

代码如下： Private Sub Command1_Click()Dim a As Integer, b As Integera = Val(Text1.Text)b = Val(Text2.Text)If a > b ThenLabel3.Caption = aElseLabel3.Caption = bEnd IfEnd Sub总结：学会了

2012-05-08 20:58:21 385

原创纳税金额计算

代码如下：Private Sub Command1_Click()Dim n As Single, w As SingleDim s As Single, m As Singlen = Val(Text1.Text)w = n - 500Select Case w Case Is s = 0.05 Case Iw

2012-05-08 20:56:55 369

原创怎样设计出能算出你出生时是星期几

代码如下：Private Sub Command1_Click()Dim Year As IntegerDim Month As IntegerDim Day As IntegerDim Birthday As DateDim N As IntegerYear = Int(Val(Text1.Text))Month = Int(Val(Text2.Text))D

2012-05-08 20:55:15 512

原创生成随机图形

代码如下： Private Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 100End SubPrivate Sub Command2_Click()Form1.ClsEnd SubPrivate Sub Command3_Click()Timer1 = FalseEnd SubP

2012-05-08 20:52:48 614

原创金箍棒变长

编程代码如下： Dim Step As IntegerPrivate Sub Command1_Click() Timer1.Enabled = False Step = Step + 150 Line (1000, 1000)-(30 + Step, 1000), QBColor(Int(Rnd * 15)) End SubPrivate Sub Timer1

2012-05-08 20:51:27 395

原创 vb中动画程序设计

学习这个还挺有意思的！编写程序代码如下：Public TopBottom, LeftRight As StringPrivate Sub Form_Click() If Timer1.Enabled = False Then Timer1.Enabled = True Else Timer1.Enabled = False

2012-05-08 20:46:26 582

原创浮点数标准（单精度和双精度）

1985年IEEE（Institute of Electrical and Electronics Engineers）提出了IEEE754标准。该标准规定基数为2，阶码E用移码表示，尾数M用原码表示，根据二进制的规格化方法，最高数字位总是1，该标准将这个1缺省存储，使得尾数表示范围比实际存储的多一位。 iEEE754三种浮点数的格式参数

2012-03-27 22:34:08 2883

原创第一次编程序求最大公约数2.15

虽然过程很难，但是通过努力自己成功了，心里很happy。体会到了编程的乐趣，以后继续努力学好VB。过程如下： Private Sub Command1_Click()Dim M As IntegerDim N As IntegerM = Int(Val(Text1.Text))N = Int(Val(Text2.Text))Dim Temparyvalue As Int

2012-03-27 22:25:46 284

vanvae的专栏