资源描述
4. 编写程序生成一个二维数组 A(5, 5), 求两条对角线元素之和Option ExplicitPrivate Sub Command1_Click()Dim a(5, 5) As IntegerDim i As IntegerDim j As IntegerDim x As IntegerDim y As IntegerFor i = 0 To 5For j = 0 To 5a(i,j) = lnt(1OO * Rnd) 随机产生一个 0-100 的整数 If i = j Then x = x + a(i, j)If i + j = 5 Then y = y + a(i, j)NextNextMsgBox 两条对角线元素之和分别是 &x& yEnd Sub5. 编写程序将文本框 Textl 中的大写字母放到文本框 Text2 中Dim n As IntegerFor i = 1 To Len(Textl)n = Asc(Mid(Text1 .Text, i, 1)Text2 = Text2 & llf(n = 65 And n = 65 And Asc (Mid (Textl. Text, t, 1) =90 Thenmstr = Mid(Textl. Text, t, 1) & mstrEnd IfNextText2. Text = mstrEnd Sub8. 编写程序输出二维数组中所有非零元素及其所在位置Dim numArr(15, 15) As IntegerPrivate Sub Form_Load()Dim i As IntegerDim j As IntegerFor i = 0 To 15For j = 0 To 15 numArr(i, j) = lnt(Rnd() * 100)NextNextEnd SubPrivate Sub Command1_Click()Dim i As IntegerDim j As IntegerFor i = 0 To 15For j = 0 To 15numArr(i, j)If numArr(i, j) 0 Then Listl .Additem i & 行 & j & 列 =& 出口样式你自己确定，就是说输出到什么地方或者变量，你自己决定 NextNextEnd Sub9、 编程序求二维数组每行元素的和。Dim n(3, 2) As IntegerDim a As Integer, b As Integer a = 3，行b = 2例For i = 0 To aForj = 0 To b Sum = n(i, j)NextPrint SumNext11 . 是采用 “冒泡排序 ”法从键盘上输入 10 个整数，将 10 个数从小到大排序 int main()int i,j,t,a1O;printf(Please input 10 integers:n);for(i=0;i10;i+) scanf(%d,&ai);for(i=0;i9;i+) /* 冒泡法排序 */ for(j=0;jaj+1)t=aj;/* 交换 ai和 aj */ aj=aj+1;aj+l=t;13. 用程序找出 50 以内所有能构成直角三角形的整数组Private Sub Command1_Click()For a=1 To 50For b=a To 50 c=Sqr(a A2+b A2)If And c=lnt(c) Then Print a;b;cNext bNext aEnd Sub15. 单击窗体产生 10 个 2 位随机正整数，计算并显示出最大的数据和其在数组中的位置 Private Sub Form_Click()Dim i, a(10), b, maxFor i = 1 To 10a(i) = lnt(Rnd *90) + 10If max a(i) Then max = a(i): b = i Print a(i);NextPrintPrint最大数：maxPrint在数组中的位置:;bEnd Sub3. 编写一个程序，利用随机函数生成15个80-99之间的随机整数，输岀其中的最大值与小值。private sub comma nd1_click()for i=1 to 15a=i nt(R nd*20)+80if i=1 the n max=a: min=aif maxa the n min=aprint a;if i=7 or i=15 the n printn extprint最大值：；maxprint 最小值：;minend sub4. 编写程序生成一个二维数组A(5, 5),求两条对角线元素之和Option ExplicitPrivate Sub Comma nd1_Click()Dim a(5, 5) As In tegerDim i As In tegerDim j As In tegerDim x As In tegerDim y As In tegerFor i = 0 To 5Forj = 0 To 5a(i, j) = Int(100 * Rnd)随机产生一个 0100的整数If i = j The n x = x + a(i, j)If i + j = 5 The n y = y + a(i, j)NextNextMsgBox 两条对角线元素之和分别是&x& vEnd Sub5. 编写程序将文本框Textl中的大写字母放到文本框Text2中。Dim n As In tegerFor i = 1 To Len( Textl)n = Asc(Mid(Text1 .Text, i, 1)Text2 = Text2 & llf( n = 65 And n = 65 And Asc (Mid (Textl. Text, t, 1) =90 Thenmstr = Mid(Textl. Text, t, 1) & mstrEnd IfNextText2. Text = mstrEnd Sub8. 编写程序输出二维数组中所有非零元素及其所在位置Dim numArr(15, 15) As IntegerPrivate Sub Form_Load()Dim i As IntegerDim j As IntegerFor i = 0 To 15For j = 0 To 15 numArr(i, j) = lnt(Rnd() * 100)NextNextEnd SubPrivate Sub Command1_Click()Dim i As IntegerDim j As IntegerFor i = 0 To 15For j = 0 To 15numArr(i, j)If numArr(i, j) 0 Then Listl .Additem i & 行 & j & 列 =& 出口样式你自己确定，就是说输出到什么地方或者变量，你自己决定 NextNextEnd Sub 9、编程序求二维数组每行元素的和Dim n(3, 2) As IntegerDim a As Integer, b As Integer a = 3，行b = 2例For i = 0 To aForj = 0 To bSum = n(i, j)NextPrint SumNext11 , 是采用 “冒泡排序 ”法从键盘上输入 10个整数，将 10 个数从小到大排序 int main()int i,j,t,a1O; printf(Please input 10 integers:n); for(i=0;i10;i+) scanf(%d,&ai);for(i=0;i9;i+) /* 冒泡法排序 */ for(j=0;jaj+1)t=aj;/* 交换 ai和 aj */ aj=aj+1;aj+l=t;13. 用程序找出 50 以内所有能构成直角三角形的整数组Private Sub Command1_Click()For a=1 To 50For b=a To 50 c=Sqr(a A2+b A2)If And c=lnt(c) Then Print a;b;cNext bNext aEnd Sub15. 单击窗体产生 10 个 2 位随机正整数，计算并显示出最大的数据和其在数组中的位置Private Sub Form_Click()Dim i, a(10), b, maxFor i = 1 To 10a(i) = lnt(Rnd *90) + 10If max a(i) Then max = a(i): b = iPrint a(i);NextPrintPrint 最大数： maxPrint 在数组中的位置 : ；bEnd Sub
展开阅读全文