- 博客(16)
- 收藏
- 关注
原创 随机生成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 530
原创 素数
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 193
原创 判断整除并求和
代码如下: 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 193
原创 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 1286
原创 摄氏华氏温标转换
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 377
原创 比较三个数的大小
代码如下: 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 193
原创 比较俩个数的大小
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 176
原创 纳税金额
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 216
原创 知道生日算星期
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 235
原创 实验报告2
实验报告系别:电子信息科学与技术 班级:电子2班 姓名:刘伟 日期:3月18号学号:11050242018一:试验目的1.图片设计2.随机图形二:实验内容 1先界面设置和属性设置 2编写代码 图片设计 public TopBottom, LeftRight As StringPrivate Sub Form_Click()
2012-05-15 21:04:41 376
原创 实验报告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 411
原创 随机变形
代码如下: 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 224
原创 动画设计
首先,在窗体上一个Timer控件Timer1与一个Image控件Image1. 然后,设置Picture为Pic.jpg 接着编写代码 'TopBottom(上下),LeftRight(左右)用来区分物体运动的方向Public TopBottom, LeftRight As StringPrivate Sub Form_Click() '用窗体的鼠标单击决定物体是否
2012-05-15 20:59:46 218
原创 金箍棒变长
编程代码如下: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 234
原创 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 194
原创 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 281
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人