求一vb高手

来源：蜘蛛抓取(WebSpider) 时间：2012-05-23 10:10 标签： vb求阶乘
求VB高手，救急~~~_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：93,986贴子：
求VB高手，救急~~~收藏
大侠，能不能帮我注释一下下面的这段VB代码~~~必粉，拜托拜托了~~~Private Sub Command1_Click()
List1.Clear
End Sub Private Sub Command2_Click()
Dim n As String, j As Integer, t As Single
MSComm1.Output = "A"
MSComm1.Output = "$"
MSComm1.InBufferCount = 0
t = Timer + 0.5
If Timer & t Then
j = MsgBox("读取失败!!", 0, "读取")
If j = vbOK Then Exit Sub
Loop Until MSComm1.InBufferCount &= 3
MSComm1.InputLen = 3
n = MSComm1.Input
List1.AddItem Format(n, "000") & "
" & Format(Val(n) * 4.94 / 255, "0.00")End Sub Private Sub Command3_Click()
Dim n As String, j As Integer, t As Single, i As Integer
List1.Clear
Picture1.Cls
MSComm1.Output = "A"
MSComm1.Output = "$"
MSComm1.InBufferCount = 0
t = Timer + 0.5
If Timer & t Then
j = MsgBox("读取失败!!", 0, "读取")
If j = vbOK Then Exit Sub
Loop Until MSComm1.InBufferCount &= 3
MSComm1.InputLen = 3
n = MSComm1.Input
Label1 = "电压值是" & Format(Val(n) * 4.94 / 255, "0.00")
List1.AddItem Format(i, "000") & " " & Format(n, "000") & "
" & Format(Val(n) * 4.94 / 255, "0.00")
Picture1.Line -(71.55 * (i - 1), 3555 - n * 3555 / 255)
t = Timer + 0.3
Loop Until Timer & t
Loop Until i = 100End Sub Private Sub Command5_Click()
On Error Resume Next
Dim n As Integer, i As Integer, t
Dim s As String
Label4.Caption = "未连接"
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
Do While n & 9
MSComm1.PortOpen = True
MSComm1.InBufferCount = 0
MSComm1.Output = "E"
MSComm1.Output = "$"
t = Timer + 0.2
If Timer & t Then Exit Do
Loop Until MSComm1.InBufferCount & 0
If MSComm1.InBufferCount = 0 Then
MSComm1.InputLen = 1
If MSComm1.Input = "e" Then
Label4.Caption = "已连接在COM" & n
MSComm1.PortOpen = False
Loop End Sub
Private Sub Command7_Click()
EndEnd Sub Private Sub Form_activate()
On Error Resume Next
Dim n As Integer, i As Integer, t
Dim s As String
MSComm1.Settings = "9600"
Label4.Caption = "未连接"
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
Do While n & 17
MSComm1.PortOpen = False
MSComm1.PortOpen = True
MSComm1.InBufferCount = 0
MSComm1.Output = "E"
MSComm1.Output = "$"
t = Timer + 0.2
If Timer & t Then Exit Do
Loop Until MSComm1.InBufferCount & 0
If MSComm1.InBufferCount = 0 Then
MSComm1.InputLen = 1
If MSComm1.Input = "e" Then
Label4.Caption = "已连接在COM" & n
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或跪求vb高手！！！！！！！_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：93,986贴子：
跪求vb高手！！！！！！！收藏
目的与要求： 1.目的：
培养学生综合利用VB语言进行程序设计的能力，主要是培养学生利用帧的概念进行程序的动画效果的设计。 2.基本要求： （1）要求使用面向对象和结构化程序设计的编程思路。 （2）动画效果显示利用定时器完成
3.创新要求： 在基本要求达到后，进行创新设计，如多条线，或者曲线等等设计。 三、设计方法和基本原理： 1.问题描述：
变幻线就是类似windows的屏幕保护中的变幻线。变幻线是由4个点所连成的四条线段（如右图）。其中A、B、C、D四个点是在一个矩形的边界上随时间逆时针移动，变幻线由线段AB、BC、CD、DA构成。 2.问题的解决方案：
动画的显示是利用人的视觉误差产生的，类似电影的播放。传统电影每秒钟播放24张胶片，从而通过人的视觉误差使人感觉到画面是连贯运动的。窗体上输出变幻线利用的是同样的道理。每间隔几十毫秒就清除屏幕，然后输出改变后的线段。 四、主要技术问题的描述： 1、建立数学模型
ABCD四个点总是位于一个矩形的边上，并且沿着边改变位置（可以使顺时针或逆时针）。首先分析出ABCD四个点的坐标和时间轴的关系。 2、动画的显示 利用timer控件，每间隔几十毫秒清除屏幕然后输出新的线段AB、BC、CD、DA。
0基础电脑培训——变身高富帅!
晕。没明白、
这个不难吧，自己先想想吧
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或求教VB高手！！！！_百度知道跪求VB高手解几道编程题！！！！急！！！！_百度知道

我要回帖

更多关于 vb求阶乘 的文章

 

随机推荐