建立数组.比如dim a(100) as integer a(x)存放某数的第x数位上的值. 运算时,程序按位一项一项运算下去,进位的,把进位数加到a(x+1) 上. 输出显示结果时,把数组由高到1按位输出就成了.
有两种做法： 一种是输入后判断是否为正整数（可以用 Int后与原值比较来确定有没有小数），若否则出错重来。 另一种是直接在键入时就加以判断（可以用 MaskEdit控件，或者直接截获KeyDown事件）。
Private Sub Command1_Click() Dim Rnd_Int as Integer Randomize Rnd_Int=Int(Rnd * 101) + 100 Print Rnd_Int End Sub
VB中的函数Rnd()产生在 [0，1) 上均匀分布的(伪)随机数，要把它变换到[m，n)上，使用语句 r = (n-m) x Rnd() + m 则r在[m，n)上均匀分布 可以证明，如果u是在[0，1)上均匀分布，则-Ln(u)/a在[0，∞)上满足指数分布，且均值为1/a，方差为1/a&sup...
你问错地方了~~ 仅管我二级学过VB~~不过都忘光了~~
代码如下： Dim i As Integer Dim sum As Integer For i = 1 To 3000 If i Mod 17 = 0 Or i Mod 19 = 0 Then sum = sum + 1 End If Next MsgBox sum
你可以这样操作： Private Sub Command1_Click() Randomize s = 0 For i = 1 To 5 a = Int((100) * Rnd + 1) Print a; s = s + a Next Print Print s / 5 End Sub 希望能帮助你...
回文数是什么?我不太清楚,过程或许应该没问题
sub test() dim mSum,i for i=1 to len(textbox1.text) ? ? ?msum=msum val(mid(textbox1.text,i,1)) nexti ? mSum end sub
在答疑网 就有N 个1位数凑成 M 的VB程序：
有两种做法： 一种是输入后判断是否为正整数（可以用 Int后与原值比较来确定有没有小数），若否则出错重来。 另一种是直接在键入时就加以判断（可以用 MaskEdit控件，或者直接截获KeyDown事件）。
没有最大只有更大 你能说1000000000000000000000最大吗不能。比他更大的只需要再多一个零 同样999999999999999999999999999999999999999999也不是最大，多少个9也不能最大，没有最大只有更大的正整数 这题目问的不对
Private Sub Command1_Click() Dim Rnd_Int as Integer Randomize Rnd_Int=Int(Rnd * 101) + 100 Print Rnd_Int End Sub
