（1）VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行
（1）VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行（矩阵形式）输出到窗体,最大元素及行、列下标输出在数组的下方.
（2）编一个将二进制数转换成十进制的函数TranBtoD(str$).将函数分别放在标准模块和窗体模块中,在窗体中编写调用程序,输入、输出结果分别使用文本框,程序界面自定.
（3）编写一个通用过程josc,功能是求1~50的偶数平方和与奇数平方和之差.
（4）利用函数过程,计算s=m!/(n!(m-m)!)的值
麻烦各位VB高手不吝赐教!
（2）编一个将二进制数转换成十进制的函数TranBtoD(str$).将函数分别放在标准模块和窗体模块中,在窗体中编写调用程序,输入、输出结果分别使用文本框,程序界面自定.
（3）编写一个通用过程josc,功能是求1~50的偶数平方和与奇数平方和之差.
（4）利用函数过程,计算s=m!/(n!(m-m)!)的值
麻烦各位VB高手不吝赐教!
赞 法iiii 花朵
共回答了30个问题采纳率：93.3% 举报
第一题：
Option base 1
Private Sub Form_Click()
Dim a(4,5) as integer ,i as integer ,j as integer ,s as integer
dim a_ave as single
randomize
for i=1 to 4
for j =1 to 5
a(i,j)=int(91*rnd+10)
print Format(a(i,j),"@@@@@@");
next j
print
next i
s=a(1,1)
For i=1 to 4
For j =1 to 5
if a (i,j)
Option base 1
Private Sub Form_Click()
Dim a(4,5) as integer ,i as integer ,j as integer ,s as integer
dim a_ave as single
randomize
for i=1 to 4
for j =1 to 5
a(i,j)=int(91*rnd+10)
print Format(a(i,j),"@@@@@@");
next j
next i
s=a(1,1)
For i=1 to 4
For j =1 to 5
if a (i,j)
1年前
5
可能相似的问题
-
1年前1个回答
-
写出用伪随机函数rand()产生一个两位正整数的C++表达式
1年前1个回答
-
vb,产生10个两位随机整数,用冒泡排序法对10个数升序排列
1年前1个回答
-
vf题里随机产生5个两位正整数,输出这5个数的最大值及其位置
1年前1个回答
你能帮帮他们吗