用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