1樓：
三個問題才給10分，也太少了，呵呵……不過還是幫你解決一下。
1、**如下：
private sub form_load()dim i as integer
dim s, t as single
dim n as integer
show
clss = 0: t = 1
n = val(inputbox("請輸入n的值"))if n >= 35 then
msgbox "輸入的n值過大", vbokonly, "提示"
exit sub
else
for i = 1 to n
t = t * i
s = s + t
next i
end if
print "n=" & n & vbcrlf & "f=" & send sub
2、**如下：
private sub command1_click()dim l as integer
dim i as integer
dim c as string
l = len(text1.text)
for i = 1 to l
c = mid(text1.text, i, 1)if asc(c) >= 48 and asc(c) <= 57 then
text2.text = text2.text & cend if
next i
end sub
private sub form_load()text1.text = ""
text2.text = ""
end sub
3、**如下：
private sub form_load()dim i, j, k as integershow
clsprint 2 & ",";
k = 1
for i = 3 to 100 step 2for j = 2 to sqr(i)
if i mod j = 0 then exit forif j = int(sqr(i)) thenprint i & ",";
k = k + 1
if k mod 5 = 0 then print vbcrlfend if
next j
next i
end sub
問幾個vb程式設計問題！！急！！
2樓：vb妮可
第1個:
private sub command1_click()dim s!, i%, j%, n%, m%, l%n = val(inputbox("請輸入n值!"))l = 1
for i = 2 to n + 1
m = 1
for j = 1 to i
m = m * j
next
s = s + l * (1 / m)
l = l * -1
next
print s
end sub
第2個:
private sub command2_click()dim s!, i%, j%, n%, m%, l%n = val(inputbox("請輸入n值!"))l = 1
i = 1
doi = i + 1
m = 1
for j = 1 to i
m = m * j
next
s = s + l * (1 / m)
if s < 10 ^ -5 then exit dol = l * -1
loop while i <= n
print s
end sub
第3個:
private sub command3_click()dim n%, i%, s$
n = val(inputbox("請輸入正整!"))s = cstr(n)
print "你輸入的整數的位數為:"; len(s)for i = 1 to len(s)
print mid(s, i, 1)
next
end sub
第4個:
private sub command4_click()dim i%, j%, m%, n%, k%for i = 1 to 4
for j = 1 to 4
for m = 1 to 4
for n = 1 to 4
k = k + 1
next
next
next
next
print "所有的組合有"; k; "種!"
end sub
3樓：旅姮娥
都寫出來了的話就不用寫了啊
vb程式語言問題
4樓：匿名使用者
程式語句中不能出現一連串不等號。x1 < x2 < x3 可改寫成x1x2 then
t=x1
x1=x2
x2=t '如果x1>x2,則將x1和x2的數值進行交換end if
if x1>x3 then
t=x1
x1=x3
x3=t
end if '如果x1>x3,則將x1和x3的數值進行交換print x1 '輸出最小值x1
5樓：厚布凡
您檔案的形式
部分的**，我給你剩下的你自己的想象
i = 0至dir1.listcount
如果dir1.listcount > 0
msgbox「aa」
對於j = 0，要dir1.listcountmsgbox「aa」
如果dir1.listcount > 0
dir1.path = dir1.list（一）對於k = 0，要dir1.listcountdir1.path = dir1.list（一）msgbox「aa」
往下k其他dir1.path =「e：\」
結束如果
下一步j
結束如果
接下來，我
我的程式是不是很好。但可以達到過濾器的路徑。您可以編寫這個程式在上面加點。我的計畫最初想要做的乙個破壞性程式。由於這種方法是有點慢。於是我放棄了
6樓：絕殺狂龍
這肯定不對啊，你這使用的完全是數學的比較方式。
最小值嘛。
第一次判定x1為最小值，
x1＜x2 and x1＜x3 這是條件，如果條件成立那麼x1就是最小值。接下來x2,x3和上面類似。
7樓：匿名使用者
語法錯誤,在vb中,沒有x1 < x2 < x3這種語法,你可以這樣改
(x1 < x2 and x2 < x3)
8樓：賴福平
不可以這樣子的，x2 < x1 < x3要分成兩個表示式， x2 < x1 and x1 < x3，數學中的一些習慣，在計算機語言中是行不通的。
9樓：匿名使用者
關係運算子 < 等，只能 比較2者，不能 x1 < x2 < x3 連用 的
樓主 vb 門 都沒有入！
安裝 msdn，找書 慢慢看吧
祝你順利
急求用vb程式設計做的3個簡單程式
10樓：pal神仙
建立一標準exe程式,窗體中加入兩個command,一line,一label
private sub command1_click()
dim i as variant
for i = 0 to 6.28 step 0.01
me.pset (sin(i) * 1000 + 1000, cos(i) * 1000 + 1000)
next
end sub
在窗體上畫乙個圓!用兩個三角函式!
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
line1.x1=0
line1.y1=0
line1.x2=x
line1.y2=y
label1.caption = "滑鼠當前位置與視窗標題欄的夾角為:" & format(atn(y / x), "0.000")
end sub
求當前滑鼠位置與視窗標題欄之間的夾角
private sub command2_click()
dim j as variant
for j = 0 to 10 step 0.01
me.pset (j * 500, sin(j) * 500 + 2000)
next
end sub
在窗體上畫乙個正弦波!
11樓：匿名使用者
希望樓主能把話再說清楚一點。。大家才好幫你。。
你的要求。
做什麼用？
需要大體幾個什麼功能？
有不有相應的公式如 if a=b or b=c or a=c then debug.print "等腰三角形"
請把要求再說細一點吧
vb程式設計s=1+(1+2)+(1+2+3)+(1+2+3+4)+...+(1+2+3+4+...+n)用for單迴圈求前30項的和
12樓：匿名使用者
vb程式設計
程式設計是編寫程式的中文簡稱，就是讓計算機為解決某個問題而使用某種程式語言編寫程式**，並最終得到相應結果的過程。
為了使計算機能夠理解人的意圖，人類就必須要將需解決的問題的思路、方法、和手段通過計算機能夠理解的形式告訴計算機，使得計算機能夠根據人的指令一步一步去工作，完成某種特定的任務。這種人和計算機之間交流的過程就是程式設計。
程式設計：設計具備邏輯流動作用的一種逗可控體系地【注：程式設計不一定是針對電腦程式而言的，針對具備邏輯計算力的體系，都可以算程式設計】
例子：①比如編寫一段**程式②編寫乙個控制裝置體系。
關於vb程式設計的問題（菜鳥提問，高手回答）
13樓：
可以說vb什麼軟體都可以實現，前提是你的功底要厚。
vb是basic語言的公升級版本，是視覺化物件導向的語言，控制項就是vb中的物件，沒有物件，vb就沒有辦法執行。
知道basic語言學習vb是很簡單的，只要了解vb的物件慢慢就明白了。
14樓：匿名使用者
vb更加適合做桌面應用的小型軟體.資料庫應用系統也還可以.
工業控制,高精度的應用系統恐怕做不來.如果程式是需要處理圖形影象的就不要考慮vb了.
控制項只是擺設.最簡單的東西.是門檻.
15樓：
vb的功能也是很強大了，它屬於快速開發一種軟體的工具，可以完成你想要的大部分工作，但是對於相當大型的系統來說就感覺力不從心了。vb適用於你開發乙個小型的工具軟體，比如工資管理系統等等。對於大型的如autocad類似的就感覺很不足了。
vb是乙個整合開發的環境，使用的是basic語言，basic和c語言是乙個級別，vb和vc是乙個級別。
學習vb的過程：第一步：學習語法知識，對照例項做一些小範例。你可以參看《visual basic 程式設計基礎教程與上機指導》。
第二步：熟悉vb的常用控制項程式設計，如listview，treeview的使用，這時你可以看你的那本教材了。
第三步：對照原始碼開發乙個簡單的工資系統，以後就看你的經驗積累了。
16樓：
控制項並不是關鍵，關鍵是語法和函式
個人觀點
想學好vb 多看例項，自己多練，這個最重要去往上找找 高手編的源**
17樓：匿名使用者
vb什麼軟體都可以編!vb是basic語言的公升級版本.vb的語言就是basic語言.
推薦書:新電腦課堂^_^
VB程式語言問題
程式語句中不能出現一連串不等號。x1 x2 x3 可改寫成x1x2 then t x1 x1 x2 x2 t 如果x1 x2,則將x1和x2的數值進行交換end if if x1 x3 then t x1 x1 x3 x3 t end if 如果x1 x3,則將x1和x3的數值進行交換print x...
VB程式設計問題，VB程式設計問題
窗體上新增picture1控制項，再新增command1控制項，右鍵點中command1複製，貼上三次，按圖中排列好 private sub command1 click index as integer select case index case 0 picture1.cls picture1....
vb程式設計，vb程式設計
private sub command1 click dim obj as object,mymouse as integer if list1.selcount 0 and list2.selcount 0 then for each obj in me.controlsif obj.name l...
vb程式設計問題，關於VB程式設計的小問題
這個問題你問的比較到位。在vb裡面，子窗體和父窗體之間有乙個選單是否重疊的設定。你可以進行選擇當子窗體最大化是，子窗體的選單是否和父窗體的重疊。焦點，就是當前的活動物件，也就是說，如果有3個文字框，當你把滑鼠點到第二個上時 你輸入的內容就會在第二個顯示，而其他兩個不會有反應，這個時候其實就是第二個是...
VB程式設計新手問題，VB程式設計中的迴圈問題
隨便畫乙個按鈕叫command1，option explicit private q x private sub command1 click command1.caption q int x rnd end sub private sub form load q array 你好 你今年多大 喂 ...