❶ 急急急。。。帮我用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%的天数比例大的股票，说明股票涨幅多，但是不能确定跌幅，所以以后的课程还会介绍分析涨幅和跌幅的比例，分析股票的波动性。