- 博客(13)
- 收藏
- 关注
原创 素数
代码如下: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 295
原创 判断整除并求和
代码如下: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 303
原创 摄氏度与华氏度之间的转换
代码如下: 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 722
原创 随机生成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 1059
原创 比较三个数的大小
代码如下: 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 448
原创 比较两个数的大小
代码如下: 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 392
原创 纳税金额计算
代码如下: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 383
原创 怎样设计出能算出你出生时是星期几
代码如下: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 520
原创 生成随机图形
代码如下: 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 631
原创 金箍棒变长
编程代码如下: 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 405
原创 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 599
原创 浮点数标准(单精度和双精度)
1985年IEEE(Institute of Electrical and Electronics Engineers)提出了IEEE754标准。该标准规定基数为2,阶码E用移码表示,尾数M用原码表示,根据二进制的规格化方法,最高数字位总是1,该标准将这个1缺省存储,使得尾数表示范围比实际存储的多一位。 iEEE754三种浮点数的格式参数
2012-03-27 22:34:08 2897
原创 第一次编程序求最大公约数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 297
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人