- 博客(16)
- 收藏
- 关注
RSS订阅原创 第一次照搬程序的感想
啊，虽然我去晚了，但是我迎难而上，努力赶上他们的步骤，顶着巨大压力，坚持不懂就问的原则，最终还是让老师帮我弄出来了。嘻嘻Option ExplicitPrivate Sub Command1_Click()Dim M As IntegerDim N As IntegerM = Int(Val(Text1.Text))N = Int(Val(Text2.Text))
2012-05-22 16:51:07
266
转载 vb作业，单精度与双精度的区别
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.25integer：只能表示整数，不能有小数点，正负数都可以，最大32767Long：也只能表示整数，正负都可以，最大2147483648single：单精度，可以有小数点，最大长度是8位
2012-05-22 16:50:00
7200
转载 金箍棒变长
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 16:47:10
316
转载 动画设计
首先，在窗体上一个Timer控件Timer1与一个Image控件Image1.然后，设置Picture为Pic.jpg接着编写代码'TopBottom(上下），LeftRight(左右)用来区分物体运动的方向Public TopBottom, LeftRight As StringPrivate Sub Form_Click() '用窗体的鼠标单击决定物体是否运动If
2012-05-22 16:46:24
195
转载 随机变形
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 16:45:34
236
原创 实验报告2
系别：电子信息科学与技术 班级：电子2班 姓名：李亚伟 日期：3月18号学号：11050242015一：试验目的1.图片设计2.随机图形二：实验内容1先界面设置和属性设置2编写代码图片设计public TopBottom, LeftRight As StringPrivate Sub Form_Click()If Timer1.Enabled = Fa
2012-05-22 16:44:53
199
原创 实验报告1
系别：电子信息科学与技术 班级：电子2班 姓名：李亚伟 日期：3月18号学号：11050242015一：试验目的1 显示各位数2 大小写转化3 随机数二：实验内容1先界面设置和属性设置2编写代码1显示数：Dim stuname as stringDim Maths As Integer ,Eng AS integer , s IntegerPriva
2012-05-22 16:43:43
222
转载 知道生日算日期
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 16:42:08
391
转载 纳税金额
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 16:41:04
244
原创 比较两个数的大小
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 16:40:08
250
转载 比较三个数的打小
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 16:39:13
294
转载 摄氏华氏温标转换
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 16:38:24
529
转载 vb随机生成十个数并求出最大值
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 FunctionPriv
2012-05-22 16:37:03
2635
转载 判断整除并求和
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 FunctionPriv
2012-05-22 16:34:29
188
转载 素数
Private Function Judge()Dim b As Integerb = b / 1 * bEnd FunctionPrivate Sub Command1_Click()Dim a As Integer, b As IntegerShowa = 0: b = 1If Judge(b Doa = a + bb = b + 1Loop W
2012-05-22 16:33:06
183
转载 随机生成十个数
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 16:31:31
480
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人