ljsq.net
当前位置:首页 >> 求一个可以从0到9之间任意5个数组合的VB编码谢谢 >>

求一个可以从0到9之间任意5个数组合的VB编码谢谢

Private Sub Command1_Click()Dim a(1 To 5, 1 To 5) Text1.Text = ""For i = 1 To UBound(a, 1) For j = 1 To UBound(a, 2) Randomize a(i, j) = Int(10 * Rnd) Text1.Text = Text1.Text & Str(a(i, j)) Next j Text1.Text = Text1.Text & vbCr...

代码及注释如下: Private Sub Command1_Click()'点击命令按钮执行程序 Randomize'初始化随机数发生器 x = Round((Rnd() * 9), 0)'先利用随机数得到0-1区间的小数,然后乘以9,在对这个数进行四舍五入后,赋值给x Print x'窗体打印x End Sub

可以写,能不能加财富值?

Private Sub Command3_Click() '用VB编程:随机产生10个0~100之间的随机整数,存放在一个数组中, '然后求个元素和、平均值,统计 '大于平均值的元素个数并把它们显示出来? Dim MyValue(100) As Integer Dim i As Integer Dim n As Integer Dim ...

随机产生至少10个学生的成绩(0~100之间)存入一数组中要求 显示输出这10个成绩且每行显示五个如下: 随机产生100名学生的成绩,每行输出10个如何编程? 还要放... 定义随机函数f 然后定义一个整数变量a 定义一个数组(长度20个数)b *套用随机函数...

Private Sub Command1_Click()Dim i As Integer, j As Integer, a(6, 6) As IntegerFor i = 1 To 6 For j = 1 To 6 Randomize a(i, j) = Fix(Rnd * 10) Print a(i, j); Next PrintNextPrintFor i = 1 To 6 For j = 1 To 6 Print i & j & " "; Ne...

'新建一个窗体,在上面拖一个按钮,然后双击按钮,编写按钮的点击事件代码Dim i As Integer Dim sum As Integer sum = 0 For i = 0 To 100 If i Mod 2 = 0 Or i Mod 3 = 0 Then sum = sum + i End If Next MsgBox "0~100之间能被2或3整除的所有...

以前用C#做了一个,VB的没有,不过算法应该都差不多,难点是文本框里面的字符串的显示和截取 其它的算法都不难 你认真做几个小时就可以做好了 在调试一下 一天没问题 干嘛要别人帮你做呢

如需要错误判断和处理,还需要自己增加代码: Private Sub Command1_Click() x = InputBox("请输入") x = Asc(x) If x > 47 And x < 58 Then MsgBox "数字" ElseIf x > 63 And x < 91 Then MsgBox "大写字母" ElseIf x > 96 And x < 123 Then Ms...

数1500=3x5x100=2^2*3*5^3 则1500是第(2+1)*(1+1)*(3+1)=24 设M=2^x*3^y*5^z 有 (1+x)*(1+y)*(1+z)=1500=2^2*3*5^3 不妨令x=2^2-1 y=3-1 z=5^3-1 有 x=3,y=2 z=124 M=8x9x5^124=2x30^2x5^122(但M不是最小的那个,所以并不一定是第1500个,要使...

网站首页 | 网站地图
All rights reserved Powered by www.ljsq.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com