l1004625134-CSDN博客

原创计算税率

Private Sub Command1_Click() Dim a, x As Single a = Val(Text1.Text) If a x = 0 Else a = a - 800 If a x = a * 0.05 Else x = 500 * 0.05 a = a - 500 If a x = x + a * 0.1 Else x = x + 15

2012-05-22 19:29:38 300

原创温标转换

Option Explicit Private Sub Command1_Click() If Trim(Text1.Text) = "" Then Text1.Text = "0" Label3.Caption = TransTh(Val(Text1.Text), True) Label4.Caption = "摄氏度" Label5.Caption = "华氏度" End Sub

2012-05-22 19:28:04 366

原创随机图形

Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 100 End Sub Private Sub Command2_Click() Form1.Cls End Sub Private Sub Command3_Click() Timer1 = False End Sub Private Su

2012-05-22 19:27:29 199

原创随机生成十个数

Private Sub Command1_Click() Dim a(10) As Integer Dim mystr As String Dim printstr As String a(i) = Int(Rnd() * 100 + 1) printstr = Str(a(1)) mystr = "要" For i = 2 To 10 t = Int(Rnd() * 100 +

2012-05-22 19:26:45 372

原创素数

Private Function Judge() Dim b As Integer b = b / 1 * b End Function Private Sub Command1_Click() Dim a As Integer, b As Integer Show a = 0: b = 1 If Judge(b Do a = a + b b =

2012-05-22 19:26:06 176

原创实验报告二

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

2012-05-22 19:25:32 168

原创实验报告一

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

2012-05-22 19:24:04 296

原创日期

Private Sub Command1_Click() Dim Year As Integer Dim Month As Integer Dim Day As Integer Dim Birthday As Date Dim N As Integer Year = Int(Val(Text1.Text)) Month = Int(Val(Text2.Text)) Day = In

2012-05-22 19:19:21 134

原创判断整除并求和

Private Sub Command1_Click() Dim m As Integer, n As Integer, d As Integer Dim s As Long m = Val(Text1.Text) n = Val(Text2.Text) d = Val(Text3.Text) s = 0 Sum m, n, d, s Label4.Caption = m & "

2012-05-22 19:18:28 125

原创金箍棒变长

Dim Step As Integer Private Sub Command1_Click() Timer1.Enabled = False Step = Step + 150 Line (1000, 1000)-(30 + Step, 1000), QBColor(Int(Rnd * 15)) End Sub Private Sub Timer1_Timer() Timer1

2012-05-22 19:17:20 215

原创动画设计

Public TopBottom, LeftRight As String Private Sub Form_Click() If Timer1.Enabled = False Then Timer1.Enabled = True Else Timer1.Enabled = False End If End Sub Private

2012-05-22 19:16:39 169

原创比较三个数的大小

Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim max As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a > b Then max = a Else max = b En

2012-05-22 19:13:11 218

原创比较两个数的大小

Private Sub Command1_Click() Dim a As Integer, b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a > b Then Label3.Caption = a Else Label3.Caption = b End If End Sub

2012-05-22 19:12:26 201

原创 13.25用二进制表示的结果及single和double的国际标准

1101.01 因为1101.01=2^3+2^2+0*2^1+2^0+0*2^-1+2^-2 =8+4+0+1+0+1/4=13.25 integer：只能表示整数，不能有小数点，正负数都可以，最大32767 Long：也只能表示整数，正负都可以，最大2147483648 single：单精度，可以有小数点，最大长度是8位 double：双精度，可以有小

2012-03-28 11:16:36 1040

原创关于VB课程的感想

新学期，我们开设了一门新的课程—VB语言课程。这是一门计算机语言，主要用于程序设计。经过一节课的学习，我们进行了上机练习。虽然看似简单的程序设计实际操作起来并不是那么容易，经过两节课的“艰苦奋战，”总算完成了老师布置的作业。程序设计要求我们有足够的耐心和缜密的逻辑思维。相信我能将这门课程学好并能熟悉地应用这门语言，加油！！！

2012-03-28 11:14:36 552

l1004625134的专栏