【VB】
文章平均质量分 70
Quick
IT小菜鸟~
展开
-
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 · 184 阅读 · 0 评论 -
实验报告(二)
一、实验目的1、 生成随机数2、 实现大小的转换3、 随机生成个位数为了学习到真正的运用VB知识做题,要学会运用如何随机生成随机数,大小写的转换,生成个位数。 二、 实验内容1.生成随机数再窗体上放三个文本框,一个command按钮,三个label. Label1属性是输入随机数的下界,Label2的属性是输入随机数的上界,Label3的属性是生成的随机数。原创 2012-03-26 19:50:48 · 260 阅读 · 0 评论 -
浮点数
1、浮点数 浮点数是属于有理数中某特定子集的数的数字表示,在计算机中用以近似表示任意某个实数。具体的说,这个实数由一个整数或定点数(即尾数)乘以某个基数(计算机中通常是2)的整数次幂得到,这种表示方法类似于基数为10的科学记数法。2、浮点计算 是指浮点数参与的运算,这种运算通常伴随着因为无法精确表示而进行的近似或舍入。 一个浮点数a由两个数m和e来表示:a = m ×原创 2012-03-26 20:41:41 · 315 阅读 · 0 评论 -
多位数乘法编程代码
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 · 399 阅读 · 0 评论 -
判断整除并求和
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 · 280 阅读 · 0 评论 -
顺序文件的选用
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 · 244 阅读 · 0 评论 -
个人税收的计算
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 · 424 阅读 · 0 评论 -
判断一个数是否是素数
'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 阅读 · 0 评论 -
求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 阅读 · 0 评论