用vb6.0如何查出隨身碟的名稱及所在磁碟位置?
例如說 : 本機磁碟 (C:)
DVD/RW 磁碟 (D:)
隨身碟 (E:)
用Text1.text (顯示磁碟機名稱(本機磁碟))
Text2.text(顯示磁碟機位置(C:))
用VB6.0要如何寫呢?
請各位前輩指導一下
2006-03-07 18:23:45 · 1 個解答 · 發問者 Nick 5
有誰能用VB的
For
Next
Print
寫出九九乘法表 (按開始鍵就會算出九九乘法表)
要像這樣
1*1=1 2*1=2 3*1=3 4*1=4 5*1=5
1*2=2 2*2=4 3*2=6 4*2=8 5*2=10
1*3=3 2*3=6
1*4=4 以此類推
1*5=5
1*6=6
1*7=7
1*8=8
1*9=9
下面是我寫的 不過就差沒辦法把它像上面分段(整齊的..)...我寫的都黏在一起
初學者= =\" 從九九乘法開始....
如果可以請大大解釋 NEXT PRINT FOR 之間的順序&循環關係
For i = 1 to 9
For j = 1 to 9
Print i ; \"*\" ; j ; \"=\" ; i * j ;
Next j
Print
Next i
2006-03-07 18:23:12 · 2 個解答 · 發問者 Anonymous
我想要找日本的素材網站，
內容希望是以優美的為主，
不需要很花俏簡單雅致就可以，
拜託大家幫幫忙～～麻煩了！
2006-03-07 16:40:41 · 4 個解答 · 發問者 YULI 1
如何在VB裡面加入動態游標?我再選單內他說無法加入..只能加入靜態的..我想要加入動態游標 我該怎麼處理呢?
2006-03-07 11:56:46 · 3 個解答 · 發問者 小洪 6
1.
我現在有一台網路攝影機
但是卻不知道如何用VB程式
與攝影機連結
並擷取影像??
2.可以設定自己要的像數嗎??
類似 : 640*480(此攝影機有支援)
謝謝!!
2006-03-06 18:07:42 · 1 個解答 · 發問者 醒握天下事,醉臥美人膝 3
對不起各位高手現在我又碰到一個麻煩了那就是有關,Flash的遮色片的使用方法
要這麼操作阿.我都操作不太起來ㄝ..想在請各位Flash高手可以把遮色片使用操作
方式跟製作方式的步驟完整的承現給我好嗎小弟在這感謝大家的
2006-03-06 12:35:47 · 3 個解答 · 發問者 ? 1
用多重迴圈↓
1.找出00000~99999中，各位數字立方和等於該數者。例如：153 = 1^3+ 5^3 + 3^3，則153即為所求
2.找出 2 ~ 100000的所有質數，並計算個數。
如果可以的話最好是能給我程式碼回去研究啦，這樣比較有效率~~~
因為小弟我才剛入門，如果給程式碼的話能簡單盡量簡單，不然我擔心我會看不懂...
2006-03-06 09:02:20 · 4 個解答 · 發問者 ? 2
如下圖
＊ ＊
＊＊ ＊＊
＊＊＊ ＊＊＊
＊＊＊＊ ＊＊＊＊
＊＊＊＊＊＊＊＊＊＊
用ｖｂ的 for......next 喔
2006-03-06 07:00:48 · 3 個解答 · 發問者 ? 1
如何用出次方 例如 C裡面引用數學函式 pow(3,4)
2006-03-06 05:31:57 · 1 個解答 · 發問者 ANDY 2
// AA923861.cpp : 定義主控台應用程式的進入點。
//
#include \"stdafx.h\"
#include
#include
using namespace std;
int _tmain(int argc, _TCHAR* argv[])
{
ifstream inFile(\"網頁原始檔.txt\",ios::in);
if(!inFile){
cout<<\"Failed yo open file\"<
}
const int bufSize=400;
char buffer[400];
ofstream outFile(\"砍站.txt\",ios::out);
while(inFile.getline(buffer, bufSize, \'\\n\')){
cout<
outFile<
system(\"PAUSE\");
return 0;
}
這是我所寫的程式，可是只會複製全部的原始黨，我只想要超連結的部分就好，誰可以幫幫我，如果成功，贈送20點
2006-03-05 14:56:32 · 3 個解答 · 發問者 阿耀 1
相信應該很多人都寫過這種類似的題目了吧
先輸入n值 再輸入n個數值 求最大值由又到左依降冪排列
限制條件:此n個數值必須每個都做互相比較的動作
2006-03-05 06:13:31 · 4 個解答 · 發問者 𠈌楓の影𩖸 2
我想要在我的部落格裡放一個聊天室(chat box)，
可是都不知道要怎麼用，
看了很多別人的部落格，但都看不太懂。
我有到 → http://sidekick.myblog.hk/archives/2005/03/10/442 的部落格看到一個喜歡的留言版，但卻不會用。
請會用的人教教我吧!!謝謝。
( 我想要語法。)
2006-03-04 18:19:27 · 1 個解答 · 發問者 一步一腳印 1
請問，下面的程式碼，執行後，為什麼計時器的時間還是一樣是0?
Private Sub Command1_Click()
Label1 = \"\"
Select Case Len(Text1)
Case Is = 1
a = 900000: b = 90000: c = 9000: d = 900: e = 90: y = 1
Case Is = 2
a = 900000: b = 90000: c = 9000: d = 900: y = 2
Case Is = 3
a = 900000: b = 90000: c = 9000: y = 3
Case Is = 4
a = 900000: b = 90000: y = 4
Case Is = 5
a = 900000: y = 5
Case Is = 6
y = 6
End Select
Timer1.Enabled = True
For i = a To 900000 Step 100000
For j = b To 90000 Step 10000
For k = c To 9000 Step 1000
For l = d To 900 Step 100
For m = e To 90 Step 10
For n = 0 To 9
Select Case y
Case Is = 1
If n = Val(Text1) Then Label1 = \"解碼成功\": x = 1
Case Is = 2
If m + n = Val(Text1) Then Label1 = \"解碼成功\": x = 1
Case Is = 3
If l + m + n = Val(Text1) Then Label1 = \"解碼成功\": x = 1
Case Is = 4
If k + l + m + n = Val(Text1) Then Label1 = \"解碼成功\": x = 1
Case Is = 5
If j + k + l + m + n = Val(Text1) Then Label1 = \"解碼成功\": x = 1
Case Is = 6
If i + j + k + l + m + n = Val(Text1) Then Label1 = \"解碼成功\": x = 1
End Select
If x = 1 Then Exit For
Next n, m, l, k, j, i
Timer1.Enabled = False: Text1.SetFocus
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Str(Val(Label2) + 1)
End Sub
2006-03-04 18:00:26 · 2 個解答 · 發問者 天使 4
請問大家:(應該要如何製作一個網頁呢?我想要的內容是這樣,要有音樂.圖.網頁這三種而已,要怎麼製作網頁呢?)
麻煩各位大大教我了!~~~~
2006-03-04 14:05:02 · 6 個解答 · 發問者 好心的孫悟空 1
你們學寫程式的都是高中一直學上去的嗎
因為我發現覺得寫程式很好玩的樣子 想試試看
可是呢...=.=我讀的是餐飲科
有什麼程式比較簡單寫的 寫程式需要什麼軟體
能介紹嗎 順便學一下= =\" 活到老學到老 ㄏㄏ
2006-03-04 10:43:27 · 6 個解答 · 發問者 Nick 1
計算成績:設計表單與程式，可以利用捲軸輸入國文，英文，數學的成績，並計算及顯示其總分與平均分數，大家會的可以給我程式碼嗎謝謝大家^^
2006-03-03 17:08:47 · 1 個解答 · 發問者 泰迪熊 3
拜託囉
我不會用HTML所以一直沒辦法弄好拍賣的網站
我也有用搜尋過知識了~可是我很笨~還是看不懂
拜託哪個有耐心的好人可以教教我嗎?
2006-03-03 10:49:33 · 6 個解答 · 發問者 小麻糬 3
請問固定 IP 與 動態 IP 有何不同 ? 哪一種比較好呢 謝謝
2006-03-03 06:35:12 · 2 個解答 · 發問者 YNWA 1
我有一些test 欄位然後下方我弄了10個command, 代表0~9想代替鍵盤輸入也就是以滑鼠點擊comand1~10, 就等於按鍵盤上的0~9這是要用focus , 還是?? focus 會在command1~10上耶我要如何把字填入text欄位呀.....謝謝
2006-03-03 06:19:21 · 4 個解答 · 發問者 finns 4
輸入存款本金p及年利率r，分別按每月單利及複利計算，並輸出存款1年，2年，3年.....10年的本利和(均取至兩位小數)
會的麻煩給我程式碼謝謝
2006-03-02 10:03:29 · 4 個解答 · 發問者 泰迪熊 3
設計一個程式先輸入學生人數n，在輸入每個學生個VB考試成績，計算全班平均分數，並求其中最高分與最低分數
會的請給我程式碼謝謝
2006-03-02 10:02:16 · 2 個解答 · 發問者 泰迪熊 3
我的程式中(vb 6.0)有一個 picturebox
我想把 picturebox 中的圖 , 以日期時間存檔(我要存成 jpg 檔)
請各位前輩幫幫忙
2006-03-02 04:38:07 · 1 個解答 · 發問者 Nick 5
我用vb寫了一個程式可以叫出圖來
程式中有一個 Picturebox和 三個 Text
我想把叫出來的圖修改後 , 並做存檔
(就是把三個文字方塊的文字 , 通通放在圖上並存檔)
就是要如何把文字和圖形一並存檔啦!
請各位前輩指導一下
2006-03-01 18:17:33 · 1 個解答 · 發問者 Nick 5
題目如下：
有一個整數，除以5不足2，除以9不足6，則此數最小值是多少？？
sos幫幫我！
2006-03-01 14:51:40 · 4 個解答 · 發問者 璜 左 2
1.下面Basic程式設計片段執行後.其最後顯示Z值的結果為何?
Z=0
For X=1 To 2
For Y=1 To 2
Z=Z+X*Y
Next Y
Next X
Print Z
答案是18.不會耶>\"<希望可以說明給我聽.謝謝.
2.考慮下列BASIC程式片段:
Z=0
FOR X=1 TO 5 STEP 2
FOR Y =1 TO X
Z=Z+Y
NEXT Y
NEXT X
PRINT Z
答案是22 我知道他很類似第一題~~還有那個STEP是什ㄇ意思呢?
3.若欲求1/2+3/4+7/6+13/8+21/10+....+N/100.則下列BASIC程式的第5行應為何.
才能獲得正確結果?
第1行 S=0
第2行 J=1
第3行 FOR I=2 TO 100 STEP 2
第4行 S=S+J/I
第5行
第6行 NEXT I
第7行 PRINT S
第8行 END
(A)J=I-1(B)J=2*I-3(C)J=I*I-1(D)J=J+I
答案是D
我該如何知道是D呢??
2006-03-01 12:39:16 · 4 個解答 · 發問者 Elly 3
請問各位資訊科的學長們學姊們
拉霸的程式碼要怎樣打
老師規定說拉霸一次要出現3張圖片
但是我每次都只出現一遍
Private Sub Command1_Click()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
If Label1 = 7 Then
Picture1.Visible = True
ElseIf Label2 = 7 Then
Picture2.Visible = True
ElseIf Label3 = 7 Then
Picture3.Visible = True
End If
End Sub
拜託會的人幫忙了
2006-03-01 09:34:29 · 6 個解答 · 發問者 神秘 1
像東森速報那樣的跑馬燈語法該怎麼寫呢?我要放入的是自已的標題。
由上往下或由下往上，一次顯示一列，可顯示連結，滑鼠放上去即停止...
請大大幫幫忙!謝謝!
2006-02-28 18:08:41 · 1 個解答 · 發問者 愛力客 2
一進入網頁，讓滑鼠游標旁有圖片、動畫的HTML要怎麼用呀?可不可以給我一些範例、教學或相關網站，謝謝!!
2006-02-28 18:01:42 · 2 個解答 · 發問者 Anonymous
就是假如弄個捲軸：在
Private Sub HScroll1_Change()
Form1.BackColor = RGB(0, 0, HScroll1)
End Sub
而我們在調捲軸時，
┌—┐
│▲│←通常讓它變色的一種,是弄▲▼SmallChange
├—┤
│█│
│█│←☆〞
│█│
│ │
│ │←另一種是這裡,LargeChange
│ │
├—┤
│▼│
└—┘
------------------------------------------------------------------
而弄下面這種也會變色...
│█│
│█│
上面那個通常是邊移時，到定位才能夠變色
如果要它邊移邊變色呢？能嗎？
------------------------------------------------------------------
2006-02-28 13:00:29 · 2 個解答 · 發問者 Anonymous
為什麼輸入16以下都是0種??
這個題目是輸入一個金額 假如大於50元以上 50元 10元 5元 1元 都要用 至少要有一個
假如小於16元 10元就不能用 因為至少都要有一個 依此類推 請大大幫解
Private Sub Form_Activate()
Dim a As Integer, m As Integer, n50 As Integer, n10 As Integer, n5 As Integer, n1 As Integer
a = 0
m = InputBox(\"請輸入金額\")
If m >= 66 Then
For n1 = 1 To (m / 1)
For n5 = 1 To (m / 5)
For n10 = 1 To (m / 10)
For n50 = 1 To (m / 50)
If n50 * 50 + n10 * 10 + n5 * 5 + n1 * 1 = m Then
a = a + 1
Print a, n50, n10, n5, n1
End If
Next n50
Next n10
Next n5
Next n1
ElseIf 16 <= m & m < 66 Then
For n1 = 1 To (m / 1)
For n5 = 1 To (m / 5)
For n10 = 1 To (m / 10)
If n10 * 10 + n5 * 5 + n1 * 1 = m Then
a = a + 1
Print a, n10, n5, n1
End If
Next n10
Next n5
Next n1
ElseIf 6 <= m & m < 16 Then
For n1 = 1 To (m / 1)
For n5 = 1 To (m / 5)
If n5 * 5 + n1 * 1 = m Then
a = a + 1
Print a, n5, n1
End If
Next n5
Next n1
ElseIf m < 6 Then
For n1 = 1 To (m / 1)
If n1 * 1 = m Then
a = a + 1
Print a, n5, n1
End If
Next n1
End If
Print \"兌換的方法有\"; a; \"種\"
End Sub
2006-02-28 12:27:59 · 1 個解答 · 發問者 Anonymous
Showing 4021 to 4050 of 4923 questions