❶ 急急急。。。幫我用VB程序編寫一個股票的小程序，要用到循環結構哦
rand()，0--1之間的隨機數，然後36×rand（）取整數，就是36間的隨機數
❷ 能不能用VB來製作一個股票軟體呢
你的求知能力很強，但不支持。因為這樣的軟體都是一個團隊開發出來的。個人沒有也不可能有能力做到的。
現在每個免費的看股票軟體都很好很強大。
我們完全可以把精力放在怎樣用好別人的軟體去賺錢的。
❸ excel 自動填寫的VB代碼
sub填寫
dima,basinteger
a=[A65536].end(3).row-1'獲取當前表（表1）中小組數量
b=sheet2.[BI].end(xlToLeft).row+1'獲取表2中最後一次填寫的列號
sheet2.cells(2,b).resize(a,1).value=sheet1.cells(2,"G").resize(a,1).value'取值，表2中的第一個空白列粘貼表1中G列的值
[A2:G20].clearcontents'清除表一數據，假設小於等於20行數據
endsub
復制 除第一行和最後一行的代碼，粘貼到你對按鈕的編輯宏或者 控制項按鈕的單擊指令中
❹ vb代碼自動輸入字母代碼
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal Vkey As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF1) Then
SendKeys "hahaha"
ElseIf GetAsyncKeyState(vbKey1) Then
SendKeys "hihihi"
End If
End Sub
❺ 求vb高手 做一個軟體實現股票自動買賣 我會通過另一個軟體計算買賣時間和價格，用vb實現買賣過程
這個說復雜也容易，說容易也復雜。
容易就在於演算法大家都知道，只要能實現查詢，然後根據設計需要進行交易就是了。
復雜就在於凡屬於金融領域的，不管是殺毒軟體還是防火牆，都是重點監控種類。尤其是證券公司和銀行，對於客戶沒有使用它們的終端而發生資金變動的話，那豈不是銀行或證券公司的漏洞了？
要獲得銀行的訪問許可權，你看現在的銀行主頁，一輸入密碼就需要載入什麼控制項，那就是保護措施啊。然後證券公司的訪問許可權。當然，如果你的錢全部轉到了證券公司，那隻要證券公司的許可權就可以了。
所以現在能夠實現自動買賣的軟體，都是證券公司自己寫的程序。你現在應該知道其原因了。證券公司可不會隨便讓你查詢它的檔案的。
❻ VB 股票 自動委託 編程 軟體 怎樣用
自動委託沒什麼大用途的 只是為了方便一些沒時間操作電腦的人用。能下單就可以了
❼ 用VB如何直接獲取股票實時數據
可以通過調用ChinaStockWebService的服務來實現獲取股票的實時數據，代碼如下：
publicstring[]getStockInfo(stringstockcode)
{
//stringurl="http://hq.sinajs.cn/list="+stockcode;
//stockcode某隻股票的代碼
stringurl="http://hq.sinajs.cn/list=sh600683";
WebClientclient=newWebClient();
client.Headers.Add("Content-Type","text/html;charset=gb2312");
Streamdata=client.OpenRead(url);
StreamReaderreader=newStreamReader(data,Encoding.GetEncoding("gb2312"));
strings=reader.ReadToEnd();
reader.Close();
data.Close();
returns.Split(',');
}
❽ 如何用VB做股票數據接收系的源代碼
報價方，在開盤時共同商定價位，再實時的價位是因市場交易，自動變化的
❾ EXCEL中VB編程關於自動填充代碼的問題(高手進)
Dim a,b as Integer
Dim cRange as String
a=1
b=11
cRange="B"& Trim(Str(a))&":B"& Trim(Str(b))
Selection.AutoFill Destination:=Range(cRange), Type:=xlFillDefault
Range(cRange).Select
❿ 求VB代碼自動計算好，每個excel文件內漲幅，漲幅是等於（收盤-開盤）/開盤
一、數據准備階段
1
先打開同花順股票軟體電腦版，點擊進入任意一隻你打算分析的股票。
2
點擊左上角的「分析」選擇「歷史成交」。
3
這時我們就可以看到這只股票從發行到今天的所有歷史基本交易數據。
4
在任意一行數據上點擊滑鼠右鍵，點擊「導出數據」，選擇「導出所有數據」。
5
如圖，
1）點擊瀏覽，選擇好文件保存的位置。
2）修改文件名為股票名稱和股票代碼，方便日後查看，以免出現分析完不知道數據屬於哪只股票的情況。
3）連續點擊下一步，直到完成。
END
二、數據處理階段
1
用excel電子表格打開剛才導出保存的表格。我這里使用的是WPS，用Excel軟體界面略有不同，但是方法一樣，所以這里不贅述。
先把表格右邊的滾動條拖到最底下，我們看到這表格代碼有3483行。扣除頂部的一行標題，說明這只股票已經上市交易了3482個交易日。3482這個數據等下我們要使用。
2
在表格L1處輸入「漲幅超過5%」。具體操作如圖所示。
3
在L2處輸入代碼「=IF((E2-B2)/B2>=0.05,1,"")」代碼的意思是：
=如果（（收盤價-開盤價）/開盤價>或=5%，那麼輸入1，否則不輸入）
「（收盤價-開盤價）/開盤價」 的意思就是「首日漲幅」。
其實也可以寫成 =IF(F2>=5%,1,"") 但是表格中有時候會顯示一些錯誤的代碼，這個時候計算結果還是會大於5%，造成統計不精確。而且有的股票軟體導出的表格具體的漲幅的位置和同花順的不一定一樣，所以解釋給大家看。
使用同花順的用戶直接復制我的代碼就可以了。
常見錯誤：1）括弧，引號，逗號沒有用英文半形。
2）計算公式錯誤比如把(E2-B2)/B2寫成E2-B2/B2。
3）等號沒寫。
寫這個公式的目的就是在漲幅超過5%的交易日後面都計數1，這樣等下我們可以直接用求和公式算出漲幅超過5%的交易日總數，方便計算這只股票歷史大漲的概率。
4
這時我們看到，第一個交易日，後面已經顯示1了。絕大多數股票首日漲幅都是超過5%的。所以第一個數據可以驗證我們公式和表格設置是否有錯。
如果沒有顯示1，而是顯示公式的話，請修改一下excel設置。
5
然後點擊L3, 輸入公式：「=IF((E3-E2)/E2>=0.05,1,"")」
代碼的意思是：
=如果（（收盤價-昨天的收盤價）/昨天的收盤價>或=5%，那麼輸入1，否則不輸入）
「（收盤價-昨天的收盤價）/昨天的收盤價」 的意思就是「漲幅」。
6
然後單擊L3，然後滑鼠移動到L3框框右下角的小方塊上，使滑鼠變成一個十字。然後按住滑鼠左鍵，向下拖動到最後一行。
如果行數很多，覺得拖動很累，也可以 單擊L3，然後 :
1)"Shift+Ctrl+方向下按鈕"
2) 「Ctrl + D」
可以快速填充公式。
7
隨機檢查一下數據，發現沒有錯，然後進入下一步。
8
選擇整列，可以像剛才一樣手動拖動，也可以"Shift+Ctrl+方向下按鈕" （推薦）
然後如圖依次點擊，「公式」，「自動求和」
於是我們就看到右下方出現一個數字，這個數字就是這只股票歷史上漲超過5%的次數了。
9
接下來，我們只要把這個數字，除以總交易日的數目3482，就可以知道這只股票歷史上大漲超過5%的概率是：4.77%
10
依同樣方法，我們來隨機計算另一隻股票上漲超5%的概率
得到結果：5.86%
11
再用同樣方法，我們來計算一下深圳指數上漲超過3%的概率，因為大盤指數波動沒有那麼大，所以我們設置為3%。
所以之前的公式變成：「=IF((E3-E2)/E2>=0.03,1,"")」
得到的概率是：7.59%
END
三、數據分析階段
1
我們橫向比較數據，根據歷史數據發現第二隻股票上漲>5%大概率更大，所以這只股票更好。超過大盤上漲概率的股票可以跑贏大盤。
2
為了精確，我們可以把2015年以前的數據全選刪除，再比較一下哪個概率大。
3
數據相比大盤指數上漲偏離過高，超過20%的股票，一般最好不要選，因為說明一年內漲幅已經非常大。建議選擇略高於大盤漲幅概率股票。
4
漲幅超過5%的天數比例大的股票，說明股票漲幅多，但是不能確定跌幅，所以以後的課程還會介紹分析漲幅和跌幅的比例，分析股票的波動性。