Quick-CSDN博客

原创个人税收的计算

Private Sub Command1_Click() '声明变量为Single类型 Dim PayForTax As Single, Income As Single,IncomeForTax As Single Income = Val(Text1.Text) '个人收入减去个税起征点1600适应纳税所得额 IncomeForTax = Income - 1600 '根据应纳税所

2012-05-08 14:47:22 422

原创顺序文件的选用

Dim x(10) As Integer Private Sub Command1_Click() For i = 1 To 10 Randomize x(i) = 10 + Int(Rnd() * 90) If i = 1 Then Text1.Text = Text1.Text &Trim(Str(x(i))) Else Text1.Text = Text1.Text &

2012-05-08 14:45:58 244

原创求100以内的素数的和

Private Sub Command1_Click() Dim s As Integer, n As Integer s= 0: n = 1 DoWhile n If IsPrimer(n) s = s + n End If n= n + 1 Loop Print "1~100之内

2012-05-08 14:43:58 355

原创判断整除并求和

Public Sub sum(x As Integer, y As Integer,z As Integer, w As Long) Dim i As Integer If x > y Then t = x: x = y: y = t End If For i = x To y If i Mod z = 0 Then w = w + i End If Next i

2012-05-08 14:41:52 280

原创判断一个数是否是素数

'Label1.Caption =IIf(IsPrimer(Int(Val(Text2.Text))) = 0, "bushi", "shi) End Sub Private Function IsPrimer(n As Integer) AsInteger Dim i As Integer For i = 2 To n - 1

2012-05-08 14:40:17 331

原创多位数乘法编程代码

Option Base 1 Private Sub Command1_Click() Dim M As String Dim N As String M = Trim(Text1.Text) N = Trim(Text2.Text) Dim Number1() As Byte Dim N

2012-03-28 11:38:18 398

原创浮点数

1、浮点数浮点数是属于有理数中某特定子集的数的数字表示，在计算机中用以近似表示任意某个实数。具体的说，这个实数由一个整数或定点数（即尾数）乘以某个基数（计算机中通常是2）的整数次幂得到，这种表示方法类似于基数为10的科学记数法。 2、浮点计算是指浮点数参与的运算，这种运算通常伴随着因为无法精确表示而进行的近似或舍入。一个浮点数a由两个数m和e来表示：a = m ×

2012-03-26 20:41:41 314

原创实验报告（二）

一、实验目的 1、生成随机数 2、实现大小的转换 3、随机生成个位数为了学习到真正的运用VB知识做题，要学会运用如何随机生成随机数，大小写的转换，生成个位数。二、实验内容 1.生成随机数再窗体上放三个文本框，一个command按钮，三个label. Label1属性是输入随机数的下界，Label2的属性是输入随机数的上界，Label3的属性是生成的随机数。

2012-03-26 19:50:48 258

原创 VB实验报告

实验报告一、实验目的 1.利用vb程序设计语言制作随机图形 2 .利用vb程序设计语言制作动画二、实验内容 1.先进行界面分布和相应的属性设置 2.编写代码如下： 1，Private SubCommand1_Click() Timer1.Enabled =True Timer1.Interval =100 End Sub Private SubCommand2_Cl

2012-03-26 19:33:37 183

在『云』端。