Quick-CSDN博客

原创个人税收的计算

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

2012-05-08 14:47:22 406

原创顺序文件的选用

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

2012-05-08 14:45:58 229

原创求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 340

原创判断整除并求和

Public Sub sum(x As Integer, y As Integer,z As Integer, w As Long)Dim i As IntegerIf x > y Thent = x: x = y: y = tEnd IfFor i = x To yIf i Mod z = 0 Thenw = w + iEnd IfNext i

2012-05-08 14:41:52 269

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

'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 317

原创多位数乘法编程代码

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 387

原创浮点数

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

2012-03-26 20:41:41 297

原创实验报告（二）

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

2012-03-26 19:50:48 244

原创 VB实验报告

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

2012-03-26 19:33:37 170

在『云』端。