用vb算结力题

❶ VB,VB题，帮忙讲下计算方式

计算就在这一句上：x(i, j) = x(i - 1, j - 1) + i + j

第一次循环时得到x(1,1)=x(0,0)+1+1=0+1+1=2
第二次循环时：x(1,2)=x(0,1)+1+2=0+1+2=3
第三次循环时：x(1,3)=x(0,2)+1+3=0+1+3=4
第4次循环时：x(1,4)=x(0,3)+1+4=0+1+4=5
第5次循环时：x(1,5)=x(0,4)+1+5=0+1+5=6
应该注意，那些没有被赋值过的元素(如x(0,0)等）均已经被系统赋初值0。
第6次循环时：x(2,1)=x(1,0)+i+j=0+2+1=3
第7次循环时：x(2,2)=x(1,1)+i+j=2+2+2=6
第8次循环时：x(2,3)=x(1,2)+i+j=3+2+3=8
第9次循环时：x(2,4)=x(1,3)+i+j=4+2+4=10
第10次循环时：x(2,5)=x(1,4)+i+j=5+2+5=12
第11次循环时：x(3,1)=x(2,0)+i+j=0+3+1=4
第12次循环时：x(3,2)=x(2,1)+i+j=3+3+2=8
第13次循环时：x(3,3)=x(2,2)+i+j=6+3+3=12
第14次循环时：x(3,4)=x(2,3)+i+j=8+3+4=15

确实是15。你计算的12是错了。

❷ 怎样用VB随机生成数学题目并判断计算结果

看不到你的图
针对字面问题回答：
出三个随机函数
randomize
int a,int b,int result
a = fix(rnd*99):b=fix(rnd*99)
第三个确定符号
signal = fix(rnd*4)
select signal
case 1
result = a + b
case 2
result = a - b
case 3
result = a * b
case 4
result = a / b
end select

判断对错

if result = a + b then

当然要注意result和a，b的传递问题，用与学习的话最好声明成到函数之外。

这是个思路，不是最后代码哈

❸ 很简单的VB计算题

Mod用来对两个数作除法并且只返回余数
语法：
result = number1 Mod number2
Mod 的语法具有以下几个部分：
result 必需的；任何数值变量。
number1 必需的；任何数值表达式。
number2 必需的；任何数值表达式。
说明：
在进行 Mod 运算或求余数运算时，该运算符将number1用number2 除（将浮点数字四舍五入成整数），并把余数作为 result 的值返回。例如，在下列表达式中，A(result) 等于5。
A = 19 Mod 6.7
一般说来，不管 result 是否为一个整数，result 的数据类型为 Byte，Byte 变体、Integer、Integer 变体、Long 或一个包含 Long 的 Variant。任何小数部分都被删除。但是，如果任何一个 Null，类型的表达式出现时，result 都将是 Null。任何 Empty 类型表达式都作为 0 处理。
Mod 运算符示例：
示例使用 Mod 运算符来对两数作除法运算，但返回其余数而非商数。如果两数中有一数为浮点数，该数会先被四舍五入成整型后再进行运算。
Dim Result
Result = 10 Mod 5 返回 0。
Result = 10 Mod 3 返回 1。
Result = 12 Mod 4.3 返回 0。
Result = 12.6 Mod 5 返回 3。

❹ 用VB代码计算一个数学题

Private Sub Command1_Click()
Dim n%, s#
s = 1
n = Val(InputBox("请输入整数n的值："))
For i = 1 To n
s = s * 1 / (2 * n - 1)
Next i
Print Format(s, "0.00")
End Sub

❺ 用VB 计算下题

Private Sub Command1_Click()

Dim Temp As Double

Dim S As Double

Dim lngI As Long

Dim lngK As Long

S = 0#

lngI = 1

lngK = 0

Temp = 1#

Do While 1

lngI = lngI + lngK

Temp = 1# / lngI

lngK = 1 + lngK

If Temp < 0.0001 Then

Exit Do

Else
End If

S = S + Temp

Loop

End Sub