乘法运算

乘法运算:在vb中如果位数超过一定的数量计算结果就会出错,所以必须编制一套程序供其运算.

(以前每次上vb课一般都是照着老师编好的程序录入运行,感觉好轻松,但是交完作业后再想想感觉自己收获并不大啊.因为我连一个完整的程序都读不懂,只会机械的复制粘贴,半个学期过去了也上了八次vb课了,感觉自己还没有入门,真害怕有一天别人问我,你vb学得怎么样啊,依然四个字"菜的不行".今天老师花了他宝贵的时间耐心的讲解了一个程序的读法,很清楚,让我感觉到vb的魅力,学vb真的很锻炼一个人的耐心,细心,每次学程序设计我都会想到我看过的一部电影"我是谁(没有绝对安全的系统)"好崇拜那些黑客感觉他们好厉害,做编程的样子好帅,真心佩服程序设计,编程学得好的人.我想我也应该专心学点什么了,一个人必须有自己的一技之长,尤其在这个信息时代,我们可以请教他人但是绝不可以每一个基础的东西都要麻烦他人,那样就失去了自我的价值.没有一个人喜欢整天和一个Trouble在一起.)

三位数乘一位数

Private Sub Command1_Click()

Dim a As Byte, c As Byte

Dim b As String

b = Mid(Me.Text1.Text, 1, 1)

a1 = Int(Val(b))

b = Mid(Me.Text1.Text, 2, 1)

a2 = Int(Val(b))

b = Mid(Me.Text1.Text, 3, 1)

a3 = Int(Val(b))

b = Me.Text2.Text

c = Int(Val(b))

Dim r As Byte

r = a3 * c

Dim r1 As Byte

Dim r2 As Byte

Dim r3 As Byte

Dim d As Byte

r3 = r Mod 10

d = r \ 10

r = a2 * c + d

r2 = r Mod 10

d = r \ 10

r = a1 * c + d

r1 = r Mod 10

d = r \ 10

Print d & r1 & r2 & r3

End Sub

多位数乘俩位数

Private Sub Command1_Click()

Cls

Dim c1 As Byte 'text2中输入的第一个数

Dim c2 As Byte 'text2中输入的第二个数

Dim a() As Byte 'text1中的每一位数

Dim b As String '存储text1或text2中提取的每一个符号

Dim changdu As Long '记录text1的位数,是多少位数

Dim i As Long '循环控制变量

changdu = Len(Text1.Text) 'len函数获得text1中的字符个数

ReDim a(changdu) 'a数组中元素的个数和text1中字符的个数是一样多的

'for的作用是将text1中的字符从第一个开始一直到最后一个,提取到b中,

'并变换b,最终存储到对应的a数组元素中

For i = 1 To changdu

    b= Mid(Me.Text1.Text, i, 1)

   a(i) = Int(Val(b))

Next i

'

b = Mid(Me.Text2.Text, 1, 1)

c1 = Int(Val(b))

b = Mid(Me.Text2.Text, 2, 1)

c2 = Int(Val(b))

 

Dim rm As Byte '一次微乘法运算的中间结果

Dim r() As Byte '存放c1乘以a中元素的结果

ReDim r(changdu)

 

'd1,d2存放高位乘法的进位

Dim d1 As Byte

Dim d2 As Byte

 

Dim d As Byte '存放每一次乘法的进位,0

 

'从最后一个开始运算,所以用C2开始

For i = changdu To 1 Step -1

   rm = a(i) * c2 + d

   r(i) = rm Mod 10

    d= rm \ 10

Next i

d1 = d

 

If d1 <> 0 Then

   Print d1;

End If

For i = 1 To changdu

   Print r(i);

Next i

 

Print

'c1

 

d = 0

Dim rr() As Byte

ReDim rr(changdu)

 

For i = changdu To 1 Step -1

   rm = a(i) * c1 + d2

   rr(i) = rm Mod 10

   d2 = rm \ 10

Next i

 

If d2 <> 0 Then

   Print d2;

End If

 

For i = 1 To changdu

   Print rr(i);

Next i

 

Print

'求和

'Dim d As Byte

For i = changdu - 1 To 1 Step -1

   'r(i) = r(i) + rr(i + 1) + d

    rm = r(i) + rr(i + 1) + d

    r(i) = rm Mod 10

    d = rm \ 10

Next i

rm = rr(1) + d1 + d

d1 = rm Mod 10

d = rm \ 10

d = d2 + d

'Print d & d1;

Print d;

Print d1;

For i = 1 To changdu

   Print r(i);

Next i

 End Sub

 



  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
目标检测(Object Detection)是计算机视觉领域的一个核心问题,其主要任务是找出图像中所有感兴趣的目标(物体),并确定它们的类别和位置。以下是对目标检测的详细阐述: 一、基本概念 目标检测的任务是解决“在哪里?是什么?”的问题,即定位出图像中目标的位置并识别出目标的类别。由于各类物体具有不同的外观、形状和姿态,加上成像时光照、遮挡等因素的干扰,目标检测一直是计算机视觉领域最具挑战性的任务之一。 二、核心问题 目标检测涉及以下几个核心问题: 分类问题:判断图像中的目标属于哪个类别。 定位问题:确定目标在图像中的具体位置。 大小问题:目标可能具有不同的大小。 形状问题:目标可能具有不同的形状。 三、算法分类 基于深度学习的目标检测算法主要分为两大类: Two-stage算法:先进行区域生成(Region Proposal),生成有可能包含待检物体的预选框(Region Proposal),再通过卷积神经网络进行样本分类。常见的Two-stage算法包括R-CNN、Fast R-CNN、Faster R-CNN等。 One-stage算法:不用生成区域提议,直接在网络中提取特征来预测物体分类和位置。常见的One-stage算法包括YOLO系列(YOLOv1、YOLOv2、YOLOv3、YOLOv4、YOLOv5等)、SSD和RetinaNet等。 四、算法原理 以YOLO系列为例,YOLO将目标检测视为回归问题,将输入图像一次性划分为多个区域,直接在输出层预测边界框和类别概率。YOLO采用卷积网络来提取特征,使用全连接层来得到预测值。其网络结构通常包含多个卷积层和全连接层,通过卷积层提取图像特征,通过全连接层输出预测结果。 五、应用领域 目标检测技术已经广泛应用于各个领域,为人们的生活带来了极大的便利。以下是一些主要的应用领域: 安全监控:在商场、银行
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值