(1)VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行(矩阵形式)输出到窗体,最大元素及行、列下标输出在数组的下方.(
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/29 00:56:52
![(1)VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行(矩阵形式)输出到窗体,最大元素及行、列下标输出在数组的下方.(](/uploads/image/z/3731598-54-8.jpg?t=%EF%BC%881%EF%BC%89VB+%E7%94%A8%E9%9A%8F%E6%9C%BA%E5%87%BD%E6%95%B0%E4%BA%A7%E7%94%9F20%E4%B8%AA%E4%B8%A4%E4%BD%8D%E6%95%B0%E7%9A%84%E6%95%B4%E6%95%B0%2C%E5%AD%98%E4%BA%8E4%E8%A1%8C5%E5%88%97%E7%9A%84%E4%BA%8C%E7%BB%B4%E6%95%B0%E7%BB%84%E4%B8%AD%2C%E5%B9%B6%E6%B1%82%E5%87%BA%E5%85%B6%E4%B8%AD%E7%9A%84%E6%9C%80%E5%A4%A7%E5%85%83%E7%B4%A0%E5%8F%8A%E5%AE%83%E7%9A%84%E8%A1%8C%E3%80%81%E5%88%97%E5%9D%90%E6%A0%87%2C%E5%B0%86%E6%95%B0%E7%BB%84%E6%8C%89%E8%A1%8C%EF%BC%88%E7%9F%A9%E9%98%B5%E5%BD%A2%E5%BC%8F%EF%BC%89%E8%BE%93%E5%87%BA%E5%88%B0%E7%AA%97%E4%BD%93%2C%E6%9C%80%E5%A4%A7%E5%85%83%E7%B4%A0%E5%8F%8A%E8%A1%8C%E3%80%81%E5%88%97%E4%B8%8B%E6%A0%87%E8%BE%93%E5%87%BA%E5%9C%A8%E6%95%B0%E7%BB%84%E7%9A%84%E4%B8%8B%E6%96%B9.%EF%BC%88)
(1)VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行(矩阵形式)输出到窗体,最大元素及行、列下标输出在数组的下方.(
(1)VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行(矩阵形式)输出到窗体,最大元素及行、列下标输出在数组的下方.
(2)编一个将二进制数转换成十进制的函数TranBtoD(str$).将函数分别放在标准模块和窗体模块中,在窗体中编写调用程序,输入、输出结果分别使用文本框,程序界面自定.
(3)编写一个通用过程josc,功能是求1~50的偶数平方和与奇数平方和之差.
(4)利用函数过程,计算s=m!/(n!(m-m)!)的值
麻烦各位VB高手不吝赐教!
(1)VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行(矩阵形式)输出到窗体,最大元素及行、列下标输出在数组的下方.(
第一题:
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)