- 博客(15)
- 收藏
- 关注
RSS订阅原创 计算税率
Private Sub Command1_Click()Dim a, x As Singlea = Val(Text1.Text)If a x = 0Elsea = a - 800If a x = a * 0.05Elsex = 500 * 0.05a = a - 500If a x = x + a * 0.1Elsex = x + 15
2012-05-22 19:29:38
311
原创 温标转换
Option ExplicitPrivate 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
379
原创 随机图形
Private Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 100End SubPrivate Sub Command2_Click()Form1.ClsEnd SubPrivate Sub Command3_Click()Timer1 = FalseEnd SubPrivate Su
2012-05-22 19:27:29
206
原创 随机生成十个数
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() * 100 +
2012-05-22 19:26:45
378
原创 素数
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 b =
2012-05-22 19:26:06
182
原创 实验报告二
系别：电子信息科学与技术 班级：电子2班 姓名：刘春辉 日期：3月18号一：试验目的1.图片设计2.随机图形二：实验内容 1先界面设置和属性设置 2编写代码 图片设计 public TopBottom, LeftRight As StringPrivate Sub Form_Click() If Timer1.Enabled =
2012-05-22 19:25:32
175
原创 实验报告一
系别：电子信息科学与技术 班级：电子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
305
原创 日期
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(Val(Text2.Text))Day = In
2012-05-22 19:19:21
143
原创 判断整除并求和
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.Caption = m & "
2012-05-22 19:18:28
130
原创 金箍棒变长
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_Timer()Timer1
2012-05-22 19:17:20
226
原创 动画设计
Public TopBottom, LeftRight As StringPrivate Sub Form_Click() If Timer1.Enabled = False Then Timer1.Enabled = True Else Timer1.Enabled = False End IfEnd SubPrivate
2012-05-22 19:16:39
180
原创 比较三个数的大小
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 = aElsemax = bEn
2012-05-22 19:13:11
228
原创 比较两个数的大小
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
2012-05-22 19:12:26
208
原创 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：只能表示整数，不能有小数点，正负数都可以，最大32767Long：也只能表示整数，正负都可以，最大2147483648single：单精度，可以有小数点，最大长度是8位double：双精度，可以有小
2012-03-28 11:16:36
1077
原创 关于VB课程的感想
新学期，我们开设了一门新的课程—VB语言课程。这是一门计算机语言，主要用于程序设计。经过一节课的学习，我们进行了上机练习。虽然看似简单的程序设计实际操作起来并不是那么容易，经过两节课的“艰苦奋战，”总算完成了老师布置的作业。程序设计要求我们有足够的耐心和缜密的逻辑思维。相信我能将这门课程学好并能熟悉地应用这门语言，加油！！！
2012-03-28 11:14:36
563
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人