永发信息网

vb如何解决数据溢出

答案:2  悬赏:0  手机版
解决时间 2021-02-03 10:59
vb如何解决数据溢出
最佳答案
Private Sub Command1_Click()
Dim a As Double, b As Double, c As Double
Dim d As Double, e As Double, f As Double
Dim p As Double, q As Double, r As Double, k As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
e = Val(Text5.Text)
f = Val(Text6.Text)
p = Sqr(a ^ 2 + b ^ 2 + c ^ 2)
q = Sqr(d ^ 2 + e ^ 2 + f ^ 2)
r = (a * d + b * e + c * f) / (p * q)
k = Atn(-r / Sqr(-r * r + 1)) + 2 * Atn(1)
MsgBox "Vector angle is " & Format(k, "0.00")
End Sub后面的Text1_Change等代码全部删掉
全部回答
a,b,c,d,e,f有没有声明变量呢?
把它们都声明为 Double 类型。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
君宏照相地址有知道的么?有点事想过去
2017申报副高条件问题
纽约婚纱婚庆(尊爵会馆)地址在什么地方,想过
如何绕开vmware view虚拟化桌面授权
云母为什么叫云母?
凤凰照相馆(唐塔路)地址有知道的么?有点事想
天下霸图1你说的配置我没达到要求怎么可以玩
宫外孕手术费多少钱
头痛头晕伴有恶心眼睛涨什么情况
怎么样提高英语阅读速度与效率
鲁西南特产超市在哪里啊,我有事要去这个地方
英语。。。。
农民伯伯在田里忙碌改成比喻句
时尚佳人婚纱摄影名店(渔阳南路)怎么去啊,我
妈咪星婴童游泳儿童摄影地址在哪,我要去那里
推荐资讯
承泽苑北门地址在什么地方,想过去办事
宠爱一生宠友俱乐部地址在什么地方,想过去办
以前我玩新浪uc里的游戏大厅,里边有款游戏(
寸家银饰我想知道这个在什么地方
请假的意思是什么啊?知道的请说下!
形容词后面可以直接接从句吗
源泰信资讯在哪里啊,我有事要去这个地方
FTC是什么认证?针对那些产品?
请问合肥的德国大陆马轮胎招人吗?上班时间怎
奶酪(芝士)不能和什么同吃
馨缘茶座地址在哪,我要去那里办事
vista 系统键盘为什么打不出括号
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?