当前位置:首页 > 资格考试 > 正文

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 变量,下面就可输入其它语句了。
展开全文阅读