1樓：匿名使用者
dim j as string
dim p as string
dim h as long
adodc1.recordsource = "select * from tb where 主鍵='" + text1.text + "')
adodc1.refresh
j=adodc1.recordset.fields("數字")adodc1.
recordsource = "select * from tb where 主鍵='" + text2.text + "')
adodc1.refresh
p=adodc1.recordset.fields("數字")h=val(j)+val(p)
修改一下，在加點就能用了！
2樓：伊人尤在
private sub command1_click()dim a(10) as long
rs.movefirst
do while not (rs.eof)a((rs.absoluteposition - 1) mod 11) = a((rs.
absoluteposition - 1) mod 11) + rs.fields(2)
rs.movenext
loop
for i = 0 to 10
print a(i),
next i
end sub
vb中的兩個text的數相加如何編寫
3樓：杜哥是個小天才
將文字框text1和文字框text2的數值相加，應該寫完val(text1.text)+val(text2.text),而不是直接text1.
text+text2.text。
由於在vb中，「+」號即可用來將兩個字元相連，有可以用來將兩個數相加，因為text中的內容預設為字元型，如果直接用「+」號是實現不了兩個數的數值相加的，而是直接將兩個數當字元相連起來了，所以，通常應將字元轉換為數字在相加，也就是使用val()函式。
拓展資料
visual basic是一種由 microsoft 公司開發的結構化的、模組化的、物件導向的、包含協助開發環境的事件驅動為機制的視覺化程式設計語言。
從任何標準來說，vb都是世界上使用人數最多的語言——不管是盛讚vb的開發者還是抱怨vb的開發者的數量。它源自於basic程式語言。
vb擁有圖形使用者介面（gui）和快速應用程式開發（rad）系統，可以輕易的使用dao、rdo、ado連線資料庫，或者輕鬆的建立activex控制元件。程式設計師可以輕鬆的使用vb提供的元件快速建立一個應用程式。
主要優點：
1，簡單易學。
2，開發速度快。
3，可讀性很好。
4樓：心平氣和
sub commandbutton1_click()'在窗體上加一個按鈕,雙擊按鈕寫入以下程式
dim a as double
dim b as double
dim c as double
a=val(text1.text)'在窗體上填加三個文字框;
b=val(text2.text)
c=a+b
text3.text=c
end sub
拓展資料：
1、visual basic是一種由微軟公司開發的包含協助開發環境的事件驅動程式語言。從任何標準來說，vb都是世界上使用人數最多的語言——不僅是盛讚vb的開發者還是抱怨vb的開發者的數量。它源自於basic程式語言。
vb擁有圖形使用者介面（gui）和快速應用程式開發（rad）系統，可以輕易的使用dao、rdo、ado連線資料庫，或者輕鬆的建立activex控制元件。程式設計師可以輕鬆的使用vb提供的元件快速建立一個應用程式。
2、vb 的中心思想就是要便於程式設計師使用，無論是新手或者專家。vb使用了可以簡單建立應用程式的 gui 系統，但是又可以開發相當複雜的程式。vb 的程式是一種基於窗體的視覺化元件安排的聯合，並且增加**來指定元件的屬性和方法。
因為預設的屬性和方法已經有一部分定義在了元件內，所以程式設計師不用寫多少**就可以完成一個簡單的程式。過去的版本里面 vb 程式的效能問題一直被放在了桌面上，但是隨著計算機速度的飛速增加，關於效能的爭論已經越來越少。
5樓：匿名使用者
由於在vb中，「+」號即可用來將兩個字元相連，有可以用來將兩個數相加，因為text中的內容預設為字元型，如果直接用「+」號是實現不了兩個數的數值相加的，而是直接將兩個數當字元相連起來了，所以，通常應將字元轉換為數字在相加，也就是使用val()函式，例如將文字框text1和文字框text2的數值相加，應該寫完val(text1.text)+val(text2.text),而不是直接text1.
text+text2.text。
6樓：匿名使用者
a=int(text1.text)+int(text2.text)'進行加減運算
msgbox a '顯示a的值
7樓：自由落體的牛頓
val(text1.text)+val(text2.text)
8樓：
dim a as single,b as single,c as single
a=val(text1.text):b=val(text2.text)
c=a+b『c為所求
vb 程式設計實現 加數 求和
9樓：匿名使用者
public function f(byval n as integer) as integer
dim i as integer
dim sum as integer
sum = 0
for i = 1 to n
sum = sum + i
next i
f = sum
end function
private sub command1_click()dim n as integer, i as integerdim sum as double
sum = 0
n = inputbox("請輸入一個數字n")for i = 1 to n
sum = sum + f(i)
next i
print sum
end sub
10樓：匿名使用者
function add(n as integer) as integer
dim i as integer,j as integer,temp as integer
for i=1 to n
for j=1 to i
temp = temp+j
next
next
add = temp
end function
sub test()
debug.print add(5)end
vb程式設計計算求和
11樓：窩窩小墨
我用自己的辦法幫你吧. private sub command1_click() open "c:\documents and settings\11111\桌面\新建 文字文件.
txt" for input as #1 do while not eof(1) line input #1, ss list1.list(k) = ss k = k + 1 loop close #1 end sub private sub command2_click() dim s1, s2, s3, s4, s5, s6 as integer s1 = 0 s2 = 0 s3 = 0 s4 = 0 s5 = 0 s6 = 0 for i = 0 to list1.listcount - 1 s1 = s1 + mid(list1.
list(i), 1, 2) s2 = s2 + mid(list1.list(i), 4, 2) s3 = s3 + mid(list1.list(i), 7, 2) s4 = s4 + mid(list1.
list(i), 10, 2) s5 = s5 + mid(list1.list(i), 13, 2) s6 = s6 + mid(list1.list(i), 16, 2) next i text1.
text = s1 & "，" & s2 & "，" & s3 & "，" & s4 & "，" & s5 & "，" & s6 end sub
Excel如何提取資料到指定的行
假設資料來源在sheet5，結果在sheet6，在sheet6的c2中輸入公式 a 4 sheet5 b 2 g 4,row 2 4 100 column b g 0 1,r0c00 同時按ctrl shift enter三鍵輸入陣列公式，下拉上面的公式，即使不同地區有重名也能得到正確的結果 這個用...
VB程式設計利用迴圈實現計算1 2 3 4100的值。怎麼做
public class form1 dim i as integer dim result as integer 0private sub button1 click byval sender as system.object,byval e as system.eventargs handles...
用vb編寫楊輝三角前11行，如何用VB程式設計輸出楊輝三角？
剛才那個回答還沒采納哦 如何用vb程式設計輸出楊輝三角？vb option base 1 private sub form click const n 10 dim arr n,n as integer for i 1 to n arr i,i 1 arr i,1 1 next i for i 3 ...