(1)VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行(矩阵形式)输出到窗体,最大元素及行、列下标输出在数组的下方.
(2)编一个将二进制数转换成十进制的函数TranBtoD(str$).将函数分别放在标准模块和窗体模块中,在窗体中编写调用程序,输入、输出结果分别使用文本框,程序界面自定.
(3)编写一个通用过程josc,功能是求1~50的偶数平方和与奇数平方和之差.
(4)利用函数过程,计算s=m!/(n!(m-m)!)的值
麻烦各位VB高手不吝赐教!
人气:281 ℃ 时间:2020-08-18 03:04:24
解答
第一题:Option base 1Private Sub Form_Click()Dim a(4,5) as integer ,i as integer ,j as integer ,s as integerdim a_ave as singlerandomizefor i=1 to 4for j =1 to 5a(i,j)=int(91*rnd+10)print Format(a(i,j...
推荐
猜你喜欢
- 关于勇气.实践.毅力 的名言`和故事 (写作文要用的论据)
- 蝉在雨天鸣叫,还是在晴天?为什么?
- 1.已知圆C的方程是f(x,y)=0,点A(x0,y0)是圆外一点.那么方程f(x,y)-f(x0,y0)=0表示的曲线是()
- i have never heard of that place before
- 什么的小鸟在天上飞
- 初二因式中的分组分解法有两道题怎么解.
- 如图,两摞同一规格的纸杯整齐的叠放在桌面上,如果将这两摞纸杯整齐的合成一摞时,高度是多少厘米?
- 一个正方形的面积是8,它的边长是多少?它的边长是有理数还是无理数?