Dim N As Integer, X As Long
Randomize
N = Val(InputBox("请输入一个一位数"))
If N > 0 And N < 10 Then
X = Int(Rnd * 9 * 10 ^ (N - 1)) + 10 ^ (N - 1)
Print X
End If
End Sub
MyValue = Int(Rnd*10^N)
if MyValue < 10^(N-1) then
MyValue = MyValue + (Int(Rnd*9)+1) * 10^(N-1)
end if
没认证是否正确，思路是产生一个N位的随机数，不满N位在最高位再补一个一位随机数
用vb 随机产生n个大写字母 用一个inputbox 输入n, 应该怎么做?为什么...
Private Sub Command1_Click()Dim aStr As String, n As Integer, i As Integer, j As Integer, ch As String Randomize n = Val(InputBox("请输入序列长度："))aStr = ""For i = 1 To n aStr = aStr & Chr(Int(Rnd * 26 + 65))Next Print "原始序列：" & aStr '排序 For i...
vb中怎样在inputbox函数中输入一组数并分别处理
'示例代码如下： Private Sub Form_Click() Dim a() As Integer Do x = Val(InputBox("请输入整数：")) If x <> -1 Then b = b + 1 ReDim Preserve a(b) a(b) = x If x > 0 Then z = z + 1 If x < 0 Then f = f + 1 Print a(b); " "; End If Loop Until...
vb编程,产生随机数
可以的，先设定TEXTBOx的属性值，确定范围，随机数产生用 Rnd函数。比如：Int（Rnd*整数n） ；产生0,1,2,3，。。。，n-1中的随机数。Rnd产生的是0~1的随机数。、例如：int（Rnd*（n-m+1）+m）；产生的是在区间【m，n】内的数。
用VB做个随机数程序
Private Sub Command1_Click()c = InputBox("输入随机数的个数"): b = c - 1 d = InputBox("输入随机数的位数"): ReDim a(b)Randomize: Text1 = ""For i = 0 To b Do Until Len(a(i)) = Val(d) '防止随机数的位数不够 a(i) = Int(Rnd * (10 ^ d))Loop For j =...
如何使vb产生随机正整数
Private Sub Command2_Click()Dim n As Integer n = Val(InputBox("请你输入随机数个数"))For i = 1 To n Print Int(100 * Rnd);If i Mod 10 = 0 Then Print Next i End Sub
如何用VB产生随机数并记录
然后使用以下代码：Private Sub Command1_Click()Dim n As Integer For i = 0 To 9 Text1(i) = ""Next i Do n = Val(InputBox("请输入你要产生的数字的个数(>10):"))Loop Until n > 10 For i = 1 To n a = Int(Rnd * 10) + 1 Text1(a - 1) = Val(Text1(a - 1)...
vb程序输入任意一个整数,求1到n的所有质数
Private Sub Form_Click()Dim i, j As Integer Dim flag As Boolean Dim a As Integer a = Val(InputBox("请输入一个整数"))For i = 2 To a flag = False For j = 1 To i \/ 2 If i Mod j = 0 Then flag = True Exit For End If Next If flag = False Then Print i End...
vb中inputbox函数怎么用
首先启动vb6，新建一个标准exe文件，进入窗体主界面。在工具箱里双击按钮控件，在窗体上创建一个按钮对象。双击按钮控件进入代码编写区域，选择对象为conmmand1，过程为click。接着输入代码： Dim a, b As Integer a = InputBox("请输入整数值
vb 中求数的因子。数字通过Inputbox函数输入,点击按钮后在文本框中...
Private Sub Command1_Click()Dim n As Integer, i As Integer n = InputBox("输入正整数：", , 0)If n > 0 Then Text1.Text = Empty For i = 1 To n - 1 If n Mod i = 0 Then Text1.Text = Text1.Text & i & ","End If Next Text1.Text = Left(Text1.Text, Len(...
vb的inputbox函数怎么用?玩转inputbox函数
inputbox是Visual Basic和VBScript中的一个输入框函数，掌握它编程会更得心应手。下面小编分享下vb(vbs)中，inputbox函数的详细使用方法。先来看看inputbox的函数原型： Sting inputbox(提示文本,[对话框标题],[输入框文本],[窗口所在x轴],[窗口所在y轴],[帮助文件],[帮助图标主题]) []内为可选...
