用VB该如何编写A,B 两个10位的数字,求AB的平均值C,还有和值D.再求C的每位相加的总和,D的每位相加总和.（小数点后的不做计算）.求用VB应该如何写.

来源：学生作业帮助网编辑：作业帮时间：2024/05/10 04:07:23

用VB该如何编写A,B 两个10位的数字,求AB的平均值C,还有和值D.再求C的每位相加的总和,D的每位相加总和.（小数点后的不做计算）.求用VB应该如何写.
用VB该如何编写
A,B 两个10位的数字,求AB的平均值C,还有和值D.再求C的每位相加的总和,D的每位相加总和.（小数点后的不做计算）.求用VB应该如何写.

楼主参考一下：

Option Explicit

Private Function AddNum(ByVal N As Double) As Long
   Dim sNum As String
   Dim S As Long, i As Long
   S = 0: sNum = Fix(N)
   For i = 1 To Len(sNum)
      S = S + Mid$(sNum, i, 1)
   Next
   AddNum = S
End Function

Private Sub Command1_Click()
   Dim A#, B#, C#, D#
   Me.Cls
   Randomize
   A = Fix(1000000000# + 8999999999# * Rnd())
   B = Fix(1000000000# + 8999999999# * Rnd())
   D = A + B
   C = D / 2
   Print "原始值 A = " & A
   Print "原始值 B = " & B
   Print "平均值 C = " & C
   Print "　和值 D = " & D
   Print "C 的整部分之和为：" & AddNum(C)
   Print "D 的整部分之和为：" & AddNum(D)
End Sub

用VB该如何编写A,B 两个10位的数字,求AB的平均值C,还有和值D.再求C的每位相加的总和,D的每位相加总和.（小数点后的不做计算）.求用VB应该如何写. vb,如何提取一个四位数的四个数字?比如数字abcd个位：a十位：b百位：c千位：d代码怎么写用VB编写函数过程,求任意正整数各位数字之和是用VB编写啊, VB编写程序：已知abc三个数,使数字从大到小排列,用一个if语句和一个嵌套的if语句如何实现啊啊啊啊急啊. 用vb编写一段程序,产生4位随机数,但是这四位数各不相同,如何编写,麻烦详细点,我知道是用rnd（）函数怎么用VB编写点生成按钮产生1000个8位不重复的随机数呢?我想点生成显示1000个验证下8位随机数是否有重复,该要怎么改写代码呢? 哪位大侠可以帮我编个VB程序：数字0到5和字母A到F随机生成一个12位的组合……可以编写个脚本吗? VB语句问题,编写求矩形面积的函数过程,调用该函数求任意两个矩形的面积和. 用VB编写一个判断两个正整数的最大公因数的程序怎么写啊? Open App.Path & ext1.txt For Append As #1在VB的编写里该如何解释? a,b已知,c=a+b,ci=a+(i-1)b求用VB编写个程序输出c1,c2,c3.的值用VB的do 语句编写输入一串数字,当为#是停止程序,统计正负数的个数VB的do 语句编写输入一串数字,当为#是停止程序,统计正负数的个数用Vb.net编写两个矩阵相乘!数学里矩阵相乘的公式是这样的!矩阵A的一行里的每一项和矩阵B对应列的每一项相乘,然后再相加.要用vb.net编啊,顺便能不能给我再举个合并排序的例子TAT~ 用VB编写把9个元素的数组A的围成一圈,每三个相邻数相加得到数组B,再对B升序排列 vb编程编写程序找出给定范围内所有满足以下条件的整数该整数的平方数的各位数字之和为素数编写一个程序,从键盘上输入一个整数,用英文显示该整数的每一位数字.若用户输入392,那么程序显示three nine two 用四舍五入法得到的近似数3.20×10的4次方精确到的位数和有效数字的个数分别为A.百分位,两个 B.百分位,三个 C.百位,两个 D.百位,三个. VB编程中怎么输出截去小数点后面低3位数字的数设计一个VB窗体,设X是一个单精数,输出截去X小数点后面低3位数字的数,代码该怎么写呢?不是用s=Str(x)x=Val(Left(s,Instr(1,s,.)+3))用另一种写法该怎