shisuiwuhen-优快云博客

原创合作做生成10个数

负责窗口编辑的，他们的成果是：负责代码编辑的代码是：Private Sub Command1_Click()Dim a(10) As IntegerDim mystr As StringDim printstr As StringDim q As Stringa(i) = Int(Rnd() * 100 + 1)printstr = Str(a(1)

2012-05-16 16:54:42 278

原创随机生成十个不同的数

代码如下：Private Sub Command1_Click()Dim a(10) As IntegerDim mystr As StringDim printstr As Stringa(i) = Int(Rnd() * 100 + 1)printstr = Str(a(1))mystr = "要"For i = 2 To 10t = Int(Rnd() *

2012-05-10 22:03:37 301

原创素数

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

2012-04-25 21:28:16 226

原创判断整除并求和

代码如下： 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.Captio

2012-04-25 21:26:23 374

原创 vb摄氏度和华氏度转换

代码如下：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((s

2012-04-25 21:24:39 5173

原创 vb随机生成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-04-25 21:19:59 3433

原创 vb比较三个数的大小

代码如下: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 = aElsema

2012-04-25 21:18:17 6249

原创 vb比较两个数的大小

代码如下：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心得：学会了把te

2012-04-25 21:15:50 2425

原创 vb计算纳税金额

计算纳税金额代码如下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-04-18 17:01:05 793

原创 vb计算出生星期

今天设计了一个计算出生的星期程序代码如下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(Va

2012-04-18 16:59:18 510

原创两个多位数相乘

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

2012-03-28 11:37:20 358

原创实验报告2

实验报告系别：电子信息科学与技术班级：电子2班姓名：张猛日期：3月18号一：试验目的1.图片设计2.随机图形二：实验内容 1先界面设置和属性设置 2编写代码图片设计 public TopBottom, LeftRight As StringPrivate Sub Form_Click() If Timer1.En

2012-03-27 21:35:33 321

原创实验报告1

系别：电子信息科学与技术班级：电子2班姓名：张猛日期：3月18号学号：11050242037一：试验目的1 显示各位数2 大小写转化3 随机数二：实验内容 1先界面设置和属性设置 2编写代码 1显示数： Dim stuname as string Dim Maths As Integer ,Eng AS

2012-03-27 21:33:55 272

原创 vb随机图形

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

2012-03-27 21:29:07 426

原创 vb动画设计程序

编写程序代码如下：Public TopBottom, LeftRight As StringPrivate Sub Form_Click() If Timer1.Enabled = False Then Timer1.Enabled = True Else Timer1.Enabled = False End IfEnd S

2012-03-27 21:27:50 387

原创 vb金箍棒变长

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

2012-03-27 21:26:43 245

原创 VB作业

学习了VB语言基础我知道了Single（单精度）和Double（双精度）十进制13.25用二进制可表示成1101.01 在VB中可表示为 Dim a1 As Single a1=13.25或者 Dim a1 As Double a1=13.25 Single（单精度）用来表示带有小数的实数，在计算机中占4个字节的

2012-03-27 21:19:53 392

原创学习VB编程感想

老师您好：今天是这一学期的第一天，我很高兴认识了您。您的语言很幽默，在您的课堂上，使我们初步认识了计算机编程语言。使我对这门课程产生了很高的兴趣。在上机过程中，我按照您的指导认真的练习，虽然我现在还不懂这其中的奥妙。但我个人觉得这编程很好玩。我很有兴趣去学习它。在练习的过程中，我出了很多这样那样的问题，但最后还是弄了出来。让我注意到细节的重要性。我知道这门课

2012-03-27 21:17:09 640

shisuiwuhen的专栏