VB或VBA抽数问题？

vba概率抽取问题

代码如下：

Subaa()
Application.ScreenUpdating=False
DimiRnd%,str$
DimarrAsString
Randomize
Fori=1To100
iRnd=Rnd*100
IfiRnd<3Then
str="甲"
ElseIfiRnd<10Then
str="乙"
ElseIfiRnd<27Then
str="丙"
ElseIfiRnd<40Then
str="丁"
ElseIfiRnd<57Then
str="戊"
ElseIfiRnd<77Then
str="己"
Else
str="庚"
EndIf
arr=arr&""&str
Next
Cells(1,1).Resize(100,1)=Application.Transpose(Split(Right(arr,Len(arr)-1),""))
Application.ScreenUpdating=True
EndSub

上面代码是直接生成100个数据，经测试，勉强符合所要求。但还是有一定偏差。当然，生成的数据越多，越符合你的要求。

原理：

根据随机数的概率，判断所生成的数。

VB和VBA之间的数据类型处理问题

你应该将 OutputUnit=mV 的语句修改成 OutputUnit="mV" 因为变量OutputUnit你定义的类型为String，而mV既不是String类型的变量，也不是字符串常量。所以系统不知道mV为何物也，自然会提示你类型不匹配的错误。 另外，假如你已将上面的语句修改成 OutputUnit="mV" 了，但是接下来的语句 Outputstring = OutputValue + OutputUnit 也有可能会引发错误。这是因为当String类型的变量OutputUnit和Long类型的变量OutputValue执行相加操作时，VB会先将OutputUnit的String类型

找excel高手关于VB，VBA查数据问题？

获取文本框中的数据，然后遍历每个表格比对，符合条件的，读取sheet名，读取对应位置时间，及后续10位数，循环赋值给label。

计算机excel应用快捷键：
Ctrl+S 保存
Ctrl+W 关闭程序
Ctrl+N 新建
Ctrl+O 打开
Ctrl+Z 撤销
Ctrl+F 查找
Ctrl+P 打印文档
Ctrl+X 剪切
Ctrl+C 复制
Ctrl+V 粘贴
Ctrl+A全选
Ctrl+B 粗体
Ctrl+I 斜体
Ctrl+U 下划线
Ctrl+Shift输入法切换
Ctrl+ 空格 中英文切换
Ctrl+Home 光标快速移到文件头
Ctrl+End 光标快速移到文件尾
Ctrl+Esc 显示开始菜单
Ctrl+Shift+< 快速缩小文字
Ctrl+Shift+> 快速放大文字
Ctrl+F5 在IE中强行刷新
Ctrl+拖动文件 复制文件
Ctrl+Backspace 启动\关闭输入法
Ctrl+Alt+A 截屏(QQ的截屏）
shift + Alt + Print Screen(选中要截屏的地方，然后按这三个键，然后打开图画或者word，粘贴即可)
拖动文件时按住Ctrl+Shift 创建快捷方式
Ctrl+Tab+shift在打开的应用程序中以反方向切换
扩展资料：
快捷键的有效范围不一定相同，比如：系统级快捷键可以全局响应，不论当前焦点在哪里、运行什么程序，按下时都能起作用；而应用程序级热键只能在当前活动的程序中起作用，当应用程序热键的定义程序不活动或在后台运行时，热键就无效了；控件级的热键则仅在当前控件中起作用。
有专门用于设置热键的工具软件，此类工具需要在后台一直运行，否则通过这各种程序定义的快捷键会失效。通过修改键盘按键映射的软件则不属于此类。
通常Windows平台下应用程序级的快捷键有几个是通用的，如Ctrl+Z常用于撤销操作。这种快捷键在菜单项的右侧或是控件的提示框中往往会注明。

VB和VBA详细的区别？都用在什么地方？

首先VBS不应该和VB、VBA放在一起比较，它是微软按照自己定义的ActiveX Scripting规范完全从头开始写成的脚本语言，虽然它的语法结构和VB非常相似，但VBS仅仅依靠自动化对象来扩充其功能（只有后期绑定），它不能用implements来实现接口，不可能在VBS里直接使用API，没有VarPtr这样能得到指针的函数，而VBS缺少的这些功能正是VB和VBA所特有的。当然，这不是说VBS不如VB或VBA，Windows已经为VBS提供了足够强大的功能，我们可以用VBS来做脚本COM组件，而且借自动化对象的能力VBS可以说能力无限，所以有病毒用VBS来写，对程序员来说VBS最重要的功能莫

哪位大哥给个随机抽数的vb代码啊?要求:在0~9中随机抽取一个数。

为了生成某个范围内的随机整数，可使用以下公式： Int((上限 - 下限 + 1) * Rnd + 下限) 针对您的问题，可采用以下语句： Dim MyRnd Randomize '初始化随机数 MyRnd = Int((9 - 0 + 1) * Rnd + 0) '也可简化表示成：Int(10 * Rnd) '随机数此时已抽取至 MyRnd 变量，下面就可输入其它语句了。