1、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)

2、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 <= 90, Chr(n),"") Next6. 隨機生成 20 個兩位正整數存放到 Textl 中，找出其中的偶數并以與找出相反的順序存 放 到 T

3、ext2 中。Private Sub Form_Load()RandomizeDim a(20), iTextl =""Text2 =""For i = 1 To 20 a(i) = lnt(Rnd*90 + 10) Textl = Textl & a(i) & "" If a(i) Mod 2 = 0 Then Text2 = "" & a(i) & Text2 End IfNext7.End Sub編寫程序將窗體上文本框 Textl 中的字符串中的所有大寫字母找出，并按逆輸出到文

4、本 框 Text2 中。Private Sub Command1_Click()'65 90 大寫For t = 1 To Len(Textl.Text)If Asc (Mid (Textl. Text, t, 1) >= 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 IntegerPri

5、vate 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 &" 行 "

6、& 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,a1

7、O;printf("Please input 10 integers:n");for(i=0;i<10;i+) scanf("%d",&ai);for(i=0;i<9;i+) /* 冒泡法排序 */ for(j=0;j<10-i-1 ;j+)if(aj>aj+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

8、 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. 編寫

9、一個程序，利用隨機函數生成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 max<a the n max=aif min>a the n min=aprint a;if i=7 or i=15 the n printn extprint"最大值："；maxprint "最小值："minend sub4. 編寫程序生成一個二維數組A(5, 5),求兩條對角線元素之

10、和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 "兩條對角線元素之和

11、分別是"&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 <= 90, Chr( n),"")Next6. 隨機生成 20 個兩位正整數存放到 Textl 中，找出其中的偶數并以與找出相反的順序存放 到 Text2 中 oPrivate Sub Form_Load()

12、RandomizeDim a(20), iTextl =""Text2 =""For i = 1 To 20a(i) = lnt(Rnd *90 + 10)Textl = Textl & a(i) & ""If a(i) Mod 2 = 0 ThenText2 = "" & a(i) & Text2End IfNextEnd Sub7. 編寫程序將窗體上文本框 Textl 中的字符串中的所有大寫字母找出，并按逆輸出到文本 Text2 中。Private Sub Command1_Cl

13、ick()'65 90 大寫For t = 1 To Len(Textl.Text)If Asc (Mid (Textl. Text, t, 1) >= 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 Intege

14、rDim 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 & " 列 =''&

15、amp;' 出口樣式你自己確定，就是說輸出到什么地方或者變量，你自己決定 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 intege

16、rs:n"); for(i=0;i<10;i+) scanf("%d",&ai);for(i=0;i<9;i+) /* 冒泡法排序 */ for(j=0;j<10-i-1 ;j+) if(aj>aj+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