- 博客(16)
- 收藏
- 关注
RSS订阅原创 随机生成10个数
代码如下：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-15 21:14:34
513
原创 素数
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-15 21:13:54
184
原创 判断整除并求和
代码如下： 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 Functi
2012-05-15 21:13:17
178
原创 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 Functi
2012-05-15 21:12:21
1244
原创 摄氏华氏温标转换
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-15 21:10:59
360
原创 比较三个数的大小
代码如下: 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
2012-05-15 21:10:17
183
原创 比较俩个数的大小
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-15 21:09:39
163
原创 纳税金额
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-15 21:08:56
200
原创 知道生日算星期
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-15 21:08:13
219
原创 实验报告2
实验报告系别：电子信息科学与技术 班级：电子2班 姓名：刘伟 日期：3月18号学号：11050242018一：试验目的1.图片设计2.随机图形二：实验内容 1先界面设置和属性设置 2编写代码 图片设计 public TopBottom, LeftRight As StringPrivate Sub Form_Click()
2012-05-15 21:04:41
363
原创 实验报告1
系别：电子信息科学与技术 班级：电子2班 姓名：刘伟 日期：3月18号学号：11050242018一：试验目的1 显示各位数2 大小写转化3 随机数二：实验内容 1先界面设置和属性设置 2编写代码 1显示数： Dim stuname as string Dim Maths As Integer ,Eng AS i
2012-05-15 21:03:02
400
原创 随机变形
代码如下： Private Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 100End SubPrivate Sub Command2_Click()Form1.ClsEnd SubPrivate Sub Command3_Click()Timer1 = FalseEnd SubP
2012-05-15 21:00:31
210
原创 动画设计
首先，在窗体上一个Timer控件Timer1与一个Image控件Image1. 然后，设置Picture为Pic.jpg 接着编写代码 'TopBottom(上下），LeftRight(左右)用来区分物体运动的方向Public TopBottom, LeftRight As StringPrivate Sub Form_Click() '用窗体的鼠标单击决定物体是否
2012-05-15 20:59:46
206
原创 金箍棒变长
编程代码如下：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(
2012-05-15 20:58:30
215
原创 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-15 20:57:21
184
原创 Vb感想
今天我们上了第一节电脑程序设计课，老师风趣幽默，用直白诙谐的方法教会我们编程序的方法。下课之前，老师给我们布置了一个编写程序的作业，抄写了这些程序下来：Option Explicit Private Sub Command1_Click() Dim M As Integer Dim N As Integer M = Int(Val(Text1.Text)) N = In
2012-05-15 20:55:41
266
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人